Factura Electronica AFIP Resuelto/Funcionando
Sin ocx, sin componentes 100% codigo delphi
Tengo el codigo en delphi para solicitar cae y demas funciones del webservice de Afip funcionando 100% codigo puro de delphi sin OCX ni Componentes Raros. Saludos.. PD: Enseguida pondré enlace al código, que lo subiré al FTP. . |
Cita:
Felicitaciones entonces |
Claro lo que hice fue importar los WDSL y luego utilizarlos en mi codigo.
|
Cita:
Saludos y felicidades. |
En el firmado lo unico que hago es usar el shellExecute llamando a un Bat que lo que hace es ejecutar las lineas de Openssl.
tenes que tener instalado el Openssl en la ruta donde lo llamas |
Recuerda poner los tags al código fuente, ejemplo:
|
Cita:
Saludos |
Metodo para Solicitar el CAE
|
Muy interesante, y eso que lo hiciste por el camino mas dificil ^\||/
El compañero Delphius de DelphiAccess (aunque tambien esta en este foro) propuso en algun momento una iniciativa para implementar los WebService. Seria interesante que el punto de partida sea tu trabajo Saludos |
Importate
Les comento algo que es clave y sin esto no funcionan los servicios del Webservice de Afip usando WSDL.
1 - Importamos el servicio de WSDL de Afip a nuestra aplicacion para ello vamos a: Archivo - Nuevos - Otros - Solapa WebService - WDSL Importer Luego en direccion de importacion ponemos: Ambiente de prueba (Testing/Homologación): WS Autenticación y Autorización: https://wsaahomo.afip.gov.ar/ws/services/LoginCms?WSDL WS Facturación Electrónica: https://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL Ambiente real (Producción): WS Autenticación y Autorización: https://wsaa.afip.gov.ar/ws/services/LoginCms?WSDL WS Facturación Electrónica: https://servicios1.afip.gov.ar/wsfev1/service.asmx?WSDL Al hacer esto se nos va a agregar a nuestra aplicacion las unit con los metodos directos de los webservice de afip para usar como funciones internas de la aplicacion. 2 - Lo importante y aca viene el secreto es que en las dos unit que se agregan de WSFEv1 hay que ir a la parte de INITIALIZATION y agregar la linea:
|
Otros Detalles
Para los que usen webservice importando el WSDL
Forma de llamar a un método, en este caso (FEParamGetTiposDoc): Lo importante en esto es agregar en el componente HTTPRIO:
|
De nuestra guía de estilo:
Cita:
|
disculpas no lo sabia, como lo modifico??
|
Pues es así en todo internet en todo el mundo :)
Voy a editarlo. Gracias por tu colaboración :) |
Fantástica aportación y explicación Adripugliesso...
Ye falta explicar el porque de un par de cosas... - El añadir la llamada "InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);" en la claúsula Inizialization es por que ese WS no soporta SOAP 1.2 con tipos text/xml... con eso se le indica que el contenido es simplemente text. Es debido a un fallo en los servidores de tomcat que no se suelen configurar de forma correcta. - En el HTTPRIO, añadir el afterexecute, no es realmente necesario, pero se hace para monitorear los mensajes recibidos y poder guardarlo y analizarlos... pero es algo que se puede obviar... |
Consulta
Hola, buenas noches!
Yo tambien estoy usando directamente los webservices pero se me ha dado un caso, y es cuando el comprobante a validar solo tiene importes EXENTOS, cuando armo el objeto de Detalle, necesito sacarle el apartado IVA para no presentarlo sino da error en la validacion. Alguien sabe como hacerlo? |
Por lo que veo si has usado openssl, entonces no usas el WSDL de WSAA de autorizacion digamos??
|
hola, en que seccion del ftp esta el archivo con los fuentes y como se llama dicho archivo?
gracias! saludos |
Hola!! comunidad
Estaba teniendo el mismo problema en Delphi7 y la corrección que publicaron resolvió gran parte :):) Aunque ahora tengo otro problema con CbtesAsoc, Tributos y Otros; y resulta imposible enviarlos vacíos, dando el siguiente error: --->> Observaciones: Code: 10062 - Msg.: Si envia CbtesAsoc, CbteAsoc es obligatorio. Code: 10052 - Msg.: Si envia Opcionales, Opcional es obligatorio.
|
OpenSSL
Hola Amigo, gracias por el aporte.
Estoy interesado en ver como llamas al webservices "logincms", yo estoy haciendo lo siguiente , pero obtengo siempre el mensaje de error "El CMS es inválido".
La unit uLogincms es el wdsl importado de https://wsaahomo.afip.gov.ar/ws/services/LoginCms?wsdl Podrías darme una mano con esto por favor? , no encontré en el FTP el código que habias dicho que lo subirías . Gracias Cita:
|
Cita:
Poner en "Mayúsculas" el nombre de una instrucción Pascal, no es ni por asomo, una violación a la guia de estilo. Aparte, la suposición de que las mayusculas representan un grito :eek:, al menos a estas alturas, solo se considera una cuestión folclórica y tal vez hoy solo es utilizado por "History Chanel" cuando tratan temas como el inicio de las terminales de texto. Y tal vez ni eso. Como sugerencia, deberían reveer este tipo de comentarios absurdos. Cordialmente, YAKO |
Estimado amigo adripugliesso
Subiste el código al FTP del sitio ? Donde podemos encontrar más info sobre tu solución? |
Proyecto Ejemplo en Delphi 7
1 Archivos Adjunto(s)
Acá les dejo un proyecto de ejemplo hecho en Delphi 7 de como usar los WebService de AFIP para Facturación Electrónica.
Cualquier duda consulten.. Espero que les sirva.- |
Cita:
En fin, bobadas, las que tú has soltado. |
OpensslUtils
Hola, soy nuevo en este Foro, les dejo algo que puede servirles, quizás no esté muy claro. Es para firmar el ticket sin usar un Bat a la librería Openssl.
Deben conseguir OpensslUtils, que no recuerdo donde la encontré e incorporarla al proyecto. Les adjunto el código que uso yo. Espero les sea útil. Código:
function Tcomprobante.crearfirma: string; |
Hola también soy nuevo en el foro. Pude implementar una interface de factura electrónica con éxito y rápidamente sobre Delphi 7 gracias al gran aporte de adripugliesso, pero me interesa generar el CMS directamente sin la intervención de openssl como binario externo, es decir con la OpensslUtils que ya conseguí de la web de la universidad de Genoa de Marco Ferrante para la versión .7b de openssl (dll).
La consulta es para seti.roman, hay alguna otra rutina para implementar además de la que ya compartiste? Porque no logro validar el CMS generado. Llego a crear el smime.p7m que es el archivo firmado con signed-data en formato Email, luego quito la cabecera, codifico en base64 y envío pero algo estoy haciendo mal o está faltando porque me devuelve "CMS inválido". Saludos |
Hola, estuve probando hoy nuevamente y me pasó que la firma es inválida (antes funcionaba).
1) Estoy modificando el código a ver si lo hago andar nuevamente. 2) Yo uso la librería OpenSSLUtils.pas (0.9.6b) que también necesita libeay32.pas (0.9.6b) y las agrego al proyecto (agregala a uses: OpenSSLUtils y libeay32 en tu form o módulo) |
Ahora va corregido y (por ahora) funcionando:
Código:
function Tcomprobante.crearfirma: string; |
Cita:
dado que venian con etiquetas y algún caractér raro, no me acuerdo muy bien. Te lo paso: Código:
function Tcomprobante.autenticar: Tstringlist; |
Muchas gracias por la pronta respuesta. Aún no lo he probado, pero intuía que estaba firmando mal por la comparación que yo hacía con la firma generada por openssl por línea de comandos. Sólo me faltaba la firma (para no hacerlo con openssl.exe), lo demás está todo implementado. Muchísimas gracias también por el código de la recuperación del token y sign. En un momento lo pruebo y posteo como me fue.
|
Funcionó perfectamente!!! Sólo cambiando las líneas de las funciones rightstr y delete.
Muchísimas gracias, había dado muchas vueltas con esto y la solución era sencilla. |
Hola gente! Estuve probando el ejemplo subido, compila perfecto sobre XE3, lo pruebo con certificados de homomlogación en un Windows 10 de 64 bits y genera bien el CAE. Pruebo el mismo ejecutable sobre una máquina virtual con XP y me dice: No se a podido establecer una conexión con el servidor - URL:https://wsaahomo.afip.gov.ar/ws/services/LoginCms - SOAPAction:""
Lo mas extraño es que si pruebo en la misma VM los componentes PyAFIPws si se conecta y genera los CAEs... Alguien tiene idea que pasa? Muchas gracias por su tiempo! |
Me auto-respondo:
Funcoina sólo si tiene XP service pack 3, y "Verificar tener activada la casilla "USAR TLS 1.0" en "Opciones de Internet->Opciones Avanzadas" |
Código de barras
Hola colegas, alguno tiene idea cómo generar el código de barras que se imprime en la Fact. electrónica?
Es decir, ya tengo como codificarlo, pero no se como armar las "barras". Se que va CUIT, Pto de venta, CAE, etc pero no se como armar las barras... Alguno tiene idea?? Muchas gracias y felices fiestas! |
Hola,
Cita:
Este es uno que genera una imagen bmp ó jpg Version 3.7, Copyright (c) 2014-2017 WINSOFT, http://www.winsoft.sk |
Finalmente lo hice a mano, me basé en el codigo en Pyhton de PyAFIPws:
|
me da error de base64 en delphi berlin 10.1 alguna idea ?
|
¿Dónde y qué error?
|
Cita:
Proba lo que arme, esta sin terminar pero te puede servir: http://www.clubdelphi.com/foros/showthread.php?t=92602 |
Cita:
me sale el siguiente error: no se puede decodificar base64 al momento de generar el sign y token Estuve leyendo todo el foro y entendiendo el código, pero me parece que me esta faltando algo por hacer, es mi primera ves con openssl y todo esto Alguien me podria dar una pista para seguir adelante, lo compile con delphi 7 |
La franja horaria es GMT +2. Ahora son las 15:49:14. |
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