135 respuestas en este tema

[egostar]

Te refieres a los creadores de las bibliotecas?  ...

 

No, acá se utiliza a un proveedor para el desarrollo de los servicios web que son los intermediarios con el sistema del gobierno y suele suceder que se pierde la comunicación entre ellos y el gobierno y envía errores de vez en cuando.

 

Saludos

[Nikolas]

No se, pero a mi me parece que hay un intermediario entre la AFIP y ustedes y están teniendo problemas entre ellos.

 

Saludos

 

no, desde la pagina tampoco se puede.

[Agustin Ortu]

No le veo mucho futuro a esto acá

Los sistemas nunca andan acá porque no están ni bien diseñados, ni la infraestructura es buena. Por eso la señal de los teléfonos móviles es un desastre, el 3g en argentina es "pasame la clave del WiFi", querés ir a cargar la sube "no tengo sistema", internet anda mal, etc etc

[giulichajari]

Y bueno nosotros lo desarrollamos.... si despues el server no anda problema de ellos sino pueden ni recaudar jja

[adripugliesso]

Buenos dias, les comento que tengo RESUELTO/FUNCIONANDO el codigo para FACTURA ELECTRONICA AFIP, con codigo 100% delphi original, sin OCX ni componentes raros, puro codigo delphi, muy sencillo de implementar en otras aplicaciones, los interesados en que le envie el codigo contactenme a adripugliesso en hotmail punto com ya que el codigo es extenso y tengo que pasarle otros archivos.

 

Saludos...

[egostar]

Bienvenido a DelphiAccess adripugliesso

 

Normalmente sugerimos que los correos no se coloquen en los mensajes ya que pensamos que las comunidades deben ser abiertas si no, su finalidad principal se pierde y se cae en las asesorías particulares y le niegan a la comunidad en general aprender con ustedes. Por otro lado, tu correo está expuesto a las arañas que visitan páginas como ésta para obtener correos y enviarles spam.

 

Sería interesante que le platicaras a los compañeros tu experiencia de desarrollar el proyecto de Facturación Electrónica de la AFIP y los problemas que hayas encontrado y como los solucionaste.

 

Saludos

 

PD, Me permitiré modificar tu correo.

[Nikolas]

Buenos dias, les comento que tengo RESUELTO/FUNCIONANDO el codigo para FACTURA ELECTRONICA AFIP, con codigo 100% delphi original, sin OCX ni componentes raros, puro codigo delphi, muy sencillo de implementar en otras aplicaciones, los interesados en que le envie el codigo contactenme  a adripugliesso en hotmail punto com  ya que el codigo es extenso y tengo que pasarle otros archivos.

 

Saludos...

 

muy bien. ¿en que tiempo lo desarrollaste?

[quileab]

Alguien tiene algo en Lazarus por lo menos en "camino"? No tengo mucho tiempo (ni experiencia en webservices) pero con el objetivo de avanzar estoy dispuesto a ayudar como pueda.

Saludos.

[giulichajari]

Alguien tiene algo en Lazarus por lo menos en "camino"? No tengo mucho tiempo (ni experiencia en webservices) pero con el objetivo de avanzar estoy dispuesto a ayudar como pueda.

Saludos.

No creo que alguien comparta todo su codigo jejje.. habria que hacer un tutorial sobre el tema ajja

[Agustin Ortu]

quileab no te sirve lo que pusimos en las primeras paginas? la PyAfipWs?

[quileab]

Les comento hasta donde he llegado:

php

procedure TForm1.FormActivate(Sender: TObject);
begin
  CoInitialize(nil);
  // Crear objeto interface Web Service Autenticación y Autorización
  WSAA := CreateOleObject('WSAA');
 
  // Generar un Ticket de Requerimiento de Acceso (TRA)
  tra :=  Utf8ToAnsi(WSAA.CreateTRA);
  //WriteLn(tra);
  Memo1.Lines.Add('TRA: '+tra);
 
  // Especificar la ubicacion de los archivos certificado y clave privada
  path := GetCurrentDir + '\';
  // Certificado: certificado es el firmado por la AFIP
  // ClavePrivada: la clave privada usada para crear el certificado
  Certificado := 'homo.crt'; // certificado de prueba
  ClavePrivada := 'homo.key'; // clave privada de prueba' +
  // Generar el mensaje firmado (CMS)
  cms := WSAA.SignTRA(tra, Path + Certificado, Path + ClavePrivada); //<<------- ERROR DE PYTHON

En esa línea obtengo un "Unexpected Python error"... traceback... policy.pyo... lineas 277, 282, 585...

Comparto mi código, si hay que hacer un tutorial, lo hago.

Saludos

[Agustin Ortu]

Hola de nuevo quileab

En la pagina #1 postie este codigo que es el que uso y me anda sin problemas.

delphi

try
    CoInitialize(NIL);
    try
	// Crear objeto interface Web Service Autenticación y Autorización
	WSAA := CreateOleObject('WSAA');
 
	// Generar un Ticket de Requerimiento de Acceso (TRA)
	tra := WSAA.CreateTRA;
 
	// Certificado: certificado es el firmado por la AFIP
	Certificado := GetCurrentDir + '\cert.crt';
	ClavePrivada := GetCurrentDir + '\clave.key';
	// ClavePrivada: la clave privada usada para crear el certificado
	// Generar el mensaje firmado (CMS)
	// Especificar la ubicacion de los archivos certificado y clave privada
	cms := WSAA.SignTRA(tra, Certificado, ClavePrivada);
 
	// Llamar al web service para autenticar:
	ta := WSAA.CallWSAA(cms, 'https://wsaahomo.afip.gov.ar/ws/services/LoginCms');
  ... 

Eso de Utf8ToAnsi para que es?

[quileab]

Originalmente lo probé así pero python me devuelve un error: UnicodeEncodeError: 'ascii' codec can't encode characters...

Igualmente estoy probando con el "ejemplo interactivo interfaz PyAfipWs para WSAA" y falla diciendo "error: 2147221557 en WSAA", "Archivo no encontrado"

Probé desinstalar e instalar de nuevo el "instalador-PyAfipWs-1.25c-homo.exe" pero me sigue dando archivo no encontrado.

Sigo con la pelea

[rodrinig]

Hola foro recien encuentro este foro y estuve buscando bastante, yo he logrado facturar con PyAfipWs y aqui les dejo el codigo , espero que les sirva:

Veran que tiene muchos showmessage para ir viendo los valores.

Saludos

PD:adripugliesso

     si tenes algo hecho sin depender de un externo , podrias compartirlo asi vemos y tambien se aprende.

Saludos

 

Rodrigo 

php

program consola;
{$APPTYPE CONSOLE}
uses
  ActiveX,
  ComObj,
  Dialogs,
  SysUtils,
   fncVrs, fncCnv, xmldom, XMLIntf, msxmldom, XMLDoc ;
 
var
WSAA, WSFEv1: Variant;
tra, path, pathTra,  Certificado, ClavePrivada, cms, ta: String;
qty, LastId, LastCBTE, cae, ok , OkUlt, ok_WSAA: Variant;
tipo_cbte, punto_vta, tipo_doc, presta_serv, id,
cbt_desde, cbt_hasta : Integer;
fecha, nro_doc, imp_total, imp_tot_conc, imp_neto, impto_liq,
impto_liq_rni, imp_op_ex, fecha_cbte, fecha_venc_pago,
fecha_serv_desde, fecha_serv_hasta, venc : String;
cache ,url_wsdl ,proxy : String ;
moneda_id , moneda_ctz : string ;
base_imp, importe : string ;
Token , Sign , ta_xml : Variant;
w_archivo : string;
 
nodo: IXMLNode;
dXML: TXMLDocument;
 
 
f : TextFile;
begin
  CoInitialize(nil);
 
 
// Crear objeto interface Web Service Autenticación y Autorización
WSAA := CreateOleObject('WSAA') ;
// Generar un Ticket de Requerimiento de Acceso (TRA)
tra := WSAA.CreateTRA;
WriteLn(tra);
// Especificar la ubicacion de los archivos certificado y clave privada
path := GetCurrentDir + '\';
// Certificado: certificado es el firmado por la AFIP
// ClavePrivada: la clave privada usada para crear el certificado
Certificado := 'elchiche.crt'; // certificado de prueba
ClavePrivada := 'elchiche.key'; // clave privada de prueba' +
// Generar el mensaje firmado (CMS)
cms := WSAA.SignTRA(tra, Path + Certificado, Path + ClavePrivada);
WriteLn(cms);
// Llamar al web service para autenticar:
ta := WSAA.CallWSAA(cms, 'https://wsaahomo.afip.gov.ar/ws/services/LoginCms'); // Hologación
//ta = WSAA.CallWSAA(cms, 'https://wsaa.afip.gov.ar/ws/services/LoginCms'); // Producción
// Imprimir el ticket de acceso, ToKen y Sign de autorización
WriteLn(ta);
showmessage(ta);
WriteLn('Token:' + WSAA.Token);
WriteLn('Sign:' + WSAA.Sign);
// Una vez obtenido, se puede usar el mismo token y sign por 6 horas
// (este período se puede cambiar)
// Crear objeto interface Web Service de Factura Electrónica
 
cache := ''; // directorio temporal (usar predeterminado)
url_wsdl := 'https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL ';// usar servicios1 para producción
proxy:= '';
 
WSFEv1 := CreateOleObject('WSFEv1');
 
// Setear tocken y sing de autorización (pasos previos)
WSFEv1.Token := WSAA.Token;
WSFEv1.Sign := WSAA.Sign;
// CUIT del emisor (debe estar registrado en la AFIP)
WSFEv1.Cuit := '20108714965';
//WSFEv1.LanzarExcepciones := False;
// Conectar al Servicio Web de Facturación
ok := WSFEv1.Conectar(cache, url_wsdl, proxy); // homologación
//ok := WSFE.Conectar('https://wsw.afip.gov.ar/wsfe/service.asmx'); // producción
// Llamo a un servicio nulo, para obtener el estado del servidor (opcional)
{WSFEv1.Dummy;
WriteLn('appserver status ' + WSFEv1.AppServerStatus);
WriteLn('dbserver status ' + WSFEv1.DbServerStatus);
WriteLn('authserver status ' + WSFEv1.AuthServerStatus);}
// Recupera cantidad máxima de registros (opcional)
//qty := WSFE.RecuperarQty;
// Recupera último número de secuencia ID
//LastId := WSFEv1.RecuperaLastCMP();
// Recupero último número de comprobante para un punto de venta y tipo (opcional)
 
tipo_cbte := 1; punto_vta := 3;
LastCBTE := WSFEv1.CompUltimoAutorizado(punto_vta, tipo_cbte) + 1; //+ 1
 
//WriteLn(WSFEv1.FECompUltimoAutorizado) ;
 
// Establezco los valores de la factura o lote a autorizar:
DateTimeToString(Fecha, 'yyyymmdd', Date);
id := LastId + 1; presta_serv := 3;
tipo_doc := 80; nro_doc := '20277448530';
cbt_desde := LastCBTE ;
cbt_hasta := LastCBTE ;
imp_total := '121.00'; imp_tot_conc := '0.00'; imp_neto := '100.00';
impto_liq := '21.00'; impto_liq_rni := '0.00'; imp_op_ex := '0.00';
fecha_cbte := Fecha; fecha_venc_pago := Fecha;
moneda_id := 'PES';
moneda_ctz := '1.000';
 
// Fechas del período del servicio facturado (solo si presta_serv = 1)
fecha_serv_desde := Fecha; fecha_serv_hasta := Fecha;
 
// Llamo al WebService de Autorización para obtener el CAE
ok := WSFEv1.CrearFactura ( presta_serv,
tipo_doc, nro_doc, tipo_cbte, punto_vta,
cbt_desde, cbt_hasta, imp_total, imp_tot_conc, imp_neto,
impto_liq, impto_liq_rni, imp_op_ex, fecha_cbte, fecha_venc_pago,
fecha_serv_desde, fecha_serv_hasta,moneda_id,moneda_ctz ); // si presta_serv = 0 no pasar estas fechas
 
//Agrego tasas de IVA
id := 5 ; // 21%
base_imp := '100.00';
importe := '21.00';
ok := WSFEv1.AgregarIva(id, base_imp, importe) ;
{If tipo_cbte = 1 Then // solo para facturas A
begin
ok := WSFEv1.AgregarOpcional(5, '02'); // IVA Excepciones (01: Locador/Prestador, 02: Conferencias, 03: RG 74, 04: Bienes de cambio, 05: Ropa de trabajo, 06: Intermediario).
ok := WSFEv1.AgregarOpcional(61, '80'); // Firmante Doc Tipo (80: CUIT, 96: DNI, etc.)
ok := WSFEv1.AgregarOpcional(62, '20267565393'); // Firmante Doc Nro
ok := WSFEv1.AgregarOpcional(7, '01'); // Car?er del Firmante (01: Titular, 02: Director/Presidente, 03: Apoderado, 04: Empleado)
End;}
 
WSFEv1.Reprocesar := True ;
//cae :=
 
cae := WSFEv1.CAESolicitar;
If WSFEv1.Excepcion <> '' Then
begin
showmessage( WSFEv1.Excepcion) ;
showmessage( WSFEv1.Traceback) ;
showmessage( WSFEv1.XmlRequest) ;
showmessage( WSFEv1.XmlResponse) ;
 
end;
showmessage( 'Resultado ' + WSFEv1.Resultado);
showmessage( 'CAE' + WSFEv1.CAE);
 
//' Imprimo pedido y respuesta XML para depuración (errores de formato)
WriteLn(WSFEv1.XmlRequest );
WriteLn( WSFEv1.XmlResponse );
Showmessage( WSFEv1.XmlResponse );
If WSFEv1.errmsg <> '' Then
WriteLn(WSFEv1.errmsg);
 
WriteLn('Obs ' + WSFEv1.obs);
WriteLn('Resultado: ' + WSFEv1.Resultado);
WriteLn('cae: ' + WSFEv1.CAE);
 
//cae := WSFEv1.CAE() ;
ShowMessage('CAE: ' + cae );
showmessage('Presione Enter para terminar');
ReadLn;
CoUninitialize;
 
end.

[giulichajari]

la idea basica ya esta me parece.. lo que falta es que se adapte a cada sistema, para pasar parametros. Es decir el tipo y numero de documento. Las tasas de iva van a variar si es responsable inscripto, etc.. yo hice igual probe asociando un codigo similar a un tbutton. hasta que logre obtener el CAE. ahora me falta adaptar esas variaciones de parametros e incorporar un impresora fiscal para darle el comprobante fiscal al solicitante.

Saludos

[rodrinig]

Mira yo cree 2 botones uno que dice pedir autorizacion y el otro es Grabar , y grabo todo en un ini y leo despues el mismo, y si me devuelve cae, fecvto genero el codigo de barra

Saludos

[quileab]

Gracias @rodrinig.

Disculpen si estoy un poco pesado pero obtengo esto (hacer click en el link para ver imagen)

https://lh5.googleus...cd_k=w1896-h835

 

El código es (Lazarus 1.4.2 también lo probé en 1.2.6)

delphi

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, IDEWindowIntf, Forms, Controls, Graphics,
  Dialogs, StdCtrls, XMLPropStorage, ActiveX, ComObj{, XMLConf, xmldom, XMLIntf,}
  {msxmldom, XMLDoc };
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
WSAA, WSFEv1: Variant;
tra, path, pathTra,  Certificado, ClavePrivada, cms, ta: String;
qty, LastId, LastCBTE, cae, ok , OkUlt, ok_WSAA: Variant;
tipo_cbte, punto_vta, tipo_doc, presta_serv, id,
cbt_desde, cbt_hasta : Integer;
fecha, nro_doc, imp_total, imp_tot_conc, imp_neto, impto_liq,
impto_liq_rni, imp_op_ex, fecha_cbte, fecha_venc_pago,
fecha_serv_desde, fecha_serv_hasta, venc : String;
cache ,url_wsdl ,proxy : String ;
moneda_id , moneda_ctz : string ;
base_imp, importe : string ;
Token , Sign , ta_xml : Variant;
w_archivo : string;
 
//nodo: IXMLNode;
//dXML: TXMLDocument;
 
f : TextFile;
begin
  CoInitialize(nil);
 
// Crear objeto interface Web Service Autenticación y Autorización
WSAA := CreateOleObject('WSAA') ;
// Generar un Ticket de Requerimiento de Acceso (TRA)
tra := WSAA.CreateTRA;
Memo1.Lines.Add(tra);
// Especificar la ubicacion de los archivos certificado y clave privada
path := GetCurrentDir + '\';
// Certificado: certificado es el firmado por la AFIP
// ClavePrivada: la clave privada usada para crear el certificado
Certificado := 'reingart.crt'; // certificado de prueba
ClavePrivada := 'reingart.key'; // clave privada de prueba' +
// Generar el mensaje firmado (CMS)
Memo1.Lines.Add(Path + Certificado);
Memo1.Lines.Add(Path + ClavePrivada);
cms := WSAA.SignTRA(tra, Path + Certificado, Path + ClavePrivada);
Memo1.Lines.Add(cms);
// Llamar al web service para autenticar:
ta := WSAA.CallWSAA(cms, 'https://wsaahomo.afip.gov.ar/ws/services/LoginCms'); // Hologación
//ta = WSAA.CallWSAA(cms, 'https://wsaa.afip.gov.ar/ws/services/LoginCms'); // Producción
// Imprimir el ticket de acceso, ToKen y Sign de autorización
Memo1.Lines.Add(ta);
showmessage(ta);
Memo1.Lines.Add('Token:' + WSAA.Token);
Memo1.Lines.Add('Sign:' + WSAA.Sign);
// Una vez obtenido, se puede usar el mismo token y sign por 6 horas
// (este período se puede cambiar)
// Crear objeto interface Web Service de Factura Electrónica
 
cache := ''; // directorio temporal (usar predeterminado)
url_wsdl := 'https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL ';// usar servicios1 para producción
proxy:= '';
 
WSFEv1 := CreateOleObject('WSFEv1');
 
// Setear tocken y sing de autorización (pasos previos)
WSFEv1.Token := WSAA.Token;
WSFEv1.Sign := WSAA.Sign;
// CUIT del emisor (debe estar registrado en la AFIP)
WSFEv1.Cuit := '20108714965';
//WSFEv1.LanzarExcepciones := False;
// Conectar al Servicio Web de Facturación
ok := WSFEv1.Conectar(cache, url_wsdl, proxy); // homologación
//ok := WSFE.Conectar('https://wsw.afip.gov.ar/wsfe/service.asmx'); // producción
// Llamo a un servicio nulo, para obtener el estado del servidor (opcional)
{WSFEv1.Dummy;
WriteLn('appserver status ' + WSFEv1.AppServerStatus);
WriteLn('dbserver status ' + WSFEv1.DbServerStatus);
WriteLn('authserver status ' + WSFEv1.AuthServerStatus);}
// Recupera cantidad máxima de registros (opcional)
//qty := WSFE.RecuperarQty;
// Recupera último número de secuencia ID
//LastId := WSFEv1.RecuperaLastCMP();
// Recupero último número de comprobante para un punto de venta y tipo (opcional)
 
tipo_cbte := 1; punto_vta := 3;
LastCBTE := WSFEv1.CompUltimoAutorizado(punto_vta, tipo_cbte) + 1; //+ 1
 
//WriteLn(WSFEv1.FECompUltimoAutorizado) ;
 
// Establezco los valores de la factura o lote a autorizar:
DateTimeToString(Fecha, 'yyyymmdd', Now);
id := LastId + 1; presta_serv := 3;
tipo_doc := 80; nro_doc := '20277448530';
cbt_desde := LastCBTE ;
cbt_hasta := LastCBTE ;
imp_total := '121.00'; imp_tot_conc := '0.00'; imp_neto := '100.00';
impto_liq := '21.00'; impto_liq_rni := '0.00'; imp_op_ex := '0.00';
fecha_cbte := Fecha; fecha_venc_pago := Fecha;
moneda_id := 'PES';
moneda_ctz := '1.000';
 
// Fechas del período del servicio facturado (solo si presta_serv = 1)
fecha_serv_desde := Fecha; fecha_serv_hasta := Fecha;
 
// Llamo al WebService de Autorización para obtener el CAE
ok := WSFEv1.CrearFactura ( presta_serv,
tipo_doc, nro_doc, tipo_cbte, punto_vta,
cbt_desde, cbt_hasta, imp_total, imp_tot_conc, imp_neto,
impto_liq, impto_liq_rni, imp_op_ex, fecha_cbte, fecha_venc_pago,
fecha_serv_desde, fecha_serv_hasta,moneda_id,moneda_ctz ); // si presta_serv = 0 no pasar estas fechas
 
//Agrego tasas de IVA
id := 5 ; // 21%
base_imp := '100.00';
importe := '21.00';
ok := WSFEv1.AgregarIva(id, base_imp, importe);
{If tipo_cbte = 1 Then // solo para facturas A
begin
ok := WSFEv1.AgregarOpcional(5, '02'); // IVA Excepciones (01: Locador/Prestador, 02: Conferencias, 03: RG 74, 04: Bienes de cambio, 05: Ropa de trabajo, 06: Intermediario).
ok := WSFEv1.AgregarOpcional(61, '80'); // Firmante Doc Tipo (80: CUIT, 96: DNI, etc.)
ok := WSFEv1.AgregarOpcional(62, '20267565393'); // Firmante Doc Nro
ok := WSFEv1.AgregarOpcional(7, '01'); // Car?er del Firmante (01: Titular, 02: Director/Presidente, 03: Apoderado, 04: Empleado)
End;}
 
WSFEv1.Reprocesar := True ;
//cae :=
 
cae := WSFEv1.CAESolicitar;
If WSFEv1.Excepcion <> '' Then
begin
showmessage( WSFEv1.Excepcion) ;
showmessage( WSFEv1.Traceback) ;
showmessage( WSFEv1.XmlRequest) ;
showmessage( WSFEv1.XmlResponse) ;
 
end;
showmessage( 'Resultado ' + WSFEv1.Resultado);
showmessage( 'CAE' + WSFEv1.CAE);
 
//' Imprimo pedido y respuesta XML para depuración (errores de formato)
Memo1.Lines.Add(WSFEv1.XmlRequest );
Memo1.Lines.Add( WSFEv1.XmlResponse );
Showmessage( WSFEv1.XmlResponse );
If WSFEv1.errmsg <> '' Then
Memo1.Lines.Add(WSFEv1.errmsg);
 
Memo1.Lines.Add('Obs ' + WSFEv1.obs);
Memo1.Lines.Add('Resultado: ' + WSFEv1.Resultado);
Memo1.Lines.Add('cae: ' + WSFEv1.CAE);
 
//cae := WSFEv1.CAE() ;
ShowMessage('CAE: ' + cae );
 
CoUninitialize;
end;
 
end.

[rodrinig]

No me deja ver el error, no tengo permisos

[quileab]

Perdon...

Compartido

 

https://drive.google...cDg&usp=sharing

[Amadis]

Hola Quileab.

Gracias por compartir tu ejemplo. 

 

Te cuento que a mi me ha funcionado bien.

Tu problema por lo que se ve debe ser de certificados.Fijate que te da problema al autenticar. Y Fijate que tenes puestos los certificados del creador de la dll reingart.key pero estas usando otro cuit que no es el de el. Yo lo he probado con mi cuit y crt y key y conecta y aprueba la factura de maravillas.