Hola Gente:
El tema es que estoy quieren copnsumnir un WebService de la AFIP en Argentina, despues de mucho andar y gracias a Uds. pude hacer la autenticacion y llamar al web Service que es el WSAG, este tiene el padron de contribuyente pasibles de Retencion de IVA.
Bien el el meto es Consultar y lleva como paramtetros la autenticacion, un periodo de fecha y un arreglo de int64
el codigo es este:
Código Delphi
[-]
procedure TForm1.btConsultarClick(Sender: TObject);
var H: WSAgrSoap;
Res:ResConsulta;
VCUit: Array_Of_long;
Auto:Auth;
tra, path, Certificado, ClavePrivada, cms, ta: String;
begin
h := GetWSAgrSoap(True,'',nil);
TA:=CrearFirma; sleep(1000);
EnviaTicket(TA);
sleep(1000);
ExtraerTokenSing;
Auto := Auth.Create;
Auto.Token := Token;
Auto.Sign := Sign;
Auto.Cuit := 20129063662;
SetLength(Vcuit,1);
VCUit[0]:=StrToInt64(edCuit2.Text);
res:= ResConsulta.Create;
res:= h.Consulta(Auto,'06/2019',VCuit);
Memo.Clear;
Memo.Lines.Add(Res.Det[0].Pdo);
Memo.Lines.Add(Res.Det[0].Rsp);
Memo.Lines.Add(Res.Det[0].RTran);
Memo.Lines.Add(Res.Det[0].FTran);
Memo.Lines.Add(Res.Det[0].CodObs);
Memo.Lines.Add(Res.Err.Msg);
end;
la funcion que se genero cuando importe el WS es
Código Delphi
[-]
WSAgrSoap = interface(IInvokable)
['{162DD1DC-0962-0414-D983-D94073BF6991}']
function Consulta(const Auth: Auth; const Periodo: string; const Cuit: Array_Of_long): ResConsulta; stdcall;
function ConsultaHistorica(const Auth: Auth; const Periodo: string; const Cuit: Array_Of_long): ResConsultaHistorica; stdcall;
y vease que
Array_Of_long = array of Int64; { "http://www.w3.org/2001/XMLSchema"[GblUbnd] }
lo que no se es si estoy llenenado bien el array por que me dice que no tengo cuit cargado...
Los que han lidiado con estos ws saben como es ...
Gracias
Luis Roldan
Mar del Plata
Argentina