[Chaja]

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