Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-06-2019
Chaja Chaja is offline
No confirmado
 
Registrado: ago 2004
Ubicación: Mar del Plata
Posts: 238
Poder: 0
Chaja Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 25-06-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Mira haciendo una búsqueda, creo que hay algunos hilos que tratan sobre ese tema.
https://www.clubdelphi.com/foros/sho...ight=Argentina
Responder Con Cita
  #3  
Antiguo 25-06-2019
Chaja Chaja is offline
No confirmado
 
Registrado: ago 2004
Ubicación: Mar del Plata
Posts: 238
Poder: 0
Chaja Va por buen camino
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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Consulta evento onKeyPress de un DBEdit peccatum OOP 2 19-01-2009 14:24:37
Web Service madmai Internet 3 06-12-2006 22:01:45
Llamar evento desde otro evento nachito_tuc OOP 1 23-08-2006 22:37:43
Consulta con el evento Edit1Change maravert Conexión con bases de datos 3 08-05-2006 19:49:29
Service y Application Service Ezecool Varios 0 30-09-2003 19:48:30


La franja horaria es GMT +2. Ahora son las 11:44:18.


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
Copyright 1996-2007 Club Delphi