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