Ver Mensaje Individual
  #5  
Antiguo 05-09-2010
AdrianD AdrianD is offline
Miembro
 
Registrado: may 2003
Ubicación: San Juan - Argentina
Posts: 113
Reputación: 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