Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > JAVA
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-09-2010
AdrianD AdrianD is offline
Miembro
 
Registrado: may 2003
Ubicación: San Juan - Argentina
Posts: 113
Poder: 21
AdrianD Va por buen camino
Los parametros son algunos integer y otros string, probe con AnsiString y lo mismo
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  RemObj: ServiceRegistroCompras;
  IdEmpresa: Integer;
  TipoDoc: SmallInt;
  NroFac, NroDoc, Monto, Puntos: AnsiString;
begin
  IdEmpresa := 5;
  TipoDoc := 3;
  NroDoc := edtNroDoc.Text;
  NroFac := edtNroFac.Text;
  Monto := edtMonto.Text;
  lblError.Caption := '';
  lblPuntos.Caption := '';
  try
    RemObj := (HTTPRIO1 as ServiceRegistroCompras);
    Puntos := RemObj.chequearDatosTicketBrant(IdEmpresa, NroFac, TipoDoc, NroDoc, Monto);
    lblPuntos.Caption := Puntos;
  except
    on E: Exception do
    begin
      lblPuntos.Caption := '0';
      lblError.Caption := E.Message;
    end;
  end;

end;
Este es el codigo con el que llamo al webservice, es muy sencillo, se pasan los datos de una operacion de compra y el webservice me devulve los puntos que tiene el cliente por haber comprado
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Arquitectura WebService juanmdq Internet 1 12-04-2011 00:07:21
WebService y D4 Nose Internet 1 02-08-2005 22:18:23
WEBSERVICE y DELPHI Lester Varios 4 05-03-2005 00:09:08
WebService y SOAP linsua Varios 0 07-04-2004 19:27:16


La franja horaria es GMT +2. Ahora son las 07:51:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi