Ver Mensaje Individual
  #1  
Antiguo 29-06-2016
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
Alguien ha usado directamente el webservice de consulta al padron de AFIP

Hola amigos...estoy tratando de programar usando directamente los webservices de AFIP, es decir sin librerias externas..
ya tengo mi crt y mi key para homologacion...

el caso es que importe el webservice de padron de nivel 3:
https://awshomo.afip.gov.ar/padron-p...rviceImpl?WSDL

y usando el componente HTTPRio de esta manera

Código Delphi [-]
begin
admin:=TIniFile.Create(ExtractFilePath(Application.ExeName )+ 'caja.ini');
  ECUIT:=Copy(MaskEdit1.Text,0,2) + Copy(MaskEdit1.Text,4,8) + Copy(MaskEdit1.Text,13,1);
 //   Fsign:=obtenersign(respuestaXML));
  TLogin.unicoLogin;


   xml2:=NewXMLDocument;
   xml1:=NewXMLDocument;

   xml1.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'cuit.xml');

   content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign)  ;
   xml2.XML.Text:=content;
   xml2.Active:=True;
   xml2.SaveToFile(ExtractFilePath(Application.ExeName) + 'archivocliente.xml');

end;
obtengo un error Exception class $C0000005 with message 'access violation at 0x00923065: read of address 0x00000000'. Process TPV.exe (3216)

segun vi en internet los ceros significan que hago referencia a un puntero inexistente..hice un showmessage de login.sign y login.token y todo va bien...
el error es en la linea
Código Delphi [-]
content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign)  ;

muchas gracias desde ya
Responder Con Cita