Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Web Service WSAg Evento Consulta (https://www.clubdelphi.com/foros/showthread.php?t=94028)

Chaja 25-06-2019 18:38:38

Web Service WSAg Evento Consulta
 
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);
 // GeneraTiketSF;
 // sleep(1000);

  TA:=CrearFirma;// CreaXMLFirmado;
  sleep(1000);
  //TA:= LimpiaTicket(ruta+'ticketf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');
  //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

Casimiro Notevi 25-06-2019 19:26:14

Mira haciendo una búsqueda, creo que hay algunos hilos que tratan sobre ese tema.
https://www.clubdelphi.com/foros/sho...ight=Argentina

Chaja 25-06-2019 21:19:20

Si casimiro de ahi saque las respuestas a como validarme lo que no sabia era como cargar el arreglo...
y como dar por finalizado del token


La franja horaria es GMT +2. Ahora son las 22:33:07.

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