Nuevo Branch Con Compatibilidad Para delphi Xe1 y Delphi 7

58 views
Skip to first unread message

Francisco Armando Dueñas Rodríguez

unread,
May 30, 2018, 11:08:27 AM5/30/18
to TFacturaElectronica
Hola solo para informarles que he terminado de actualiza mi Branch: https://github.com/fduenas/tfacturaelectronica
La cual tiene modificaciones de compativilidad con las versiones Delphi Xe1 y delphi 7.

Los ejemplos proporcionados se compilan y ejecutan perfectamente con las versiones Delphi 7, DelphiXE1 y Delphi Xe 10.2.3 (Tokyo)

Ya hice el Pull request la Master, espero comentarios.

saludos

montes....@gmail.com

unread,
Jun 17, 2018, 2:54:39 AM6/17/18
to TFacturaElectronica
saludos

trate de probarlo en delphi 7 y me marco "no se encuentra widestrings.dcu"

y la clase de curicol me marca error, lei que el autor tiene una nueva version que si es compatible con delphi 7. o ¿que cambios tienes en esa parte.?


gracias

Luis Alberto Carrasco Gómez

unread,
Jun 18, 2018, 12:36:21 PM6/18/18
to TFacturaElectronica
Hola Gerardo, ¿Ya probaste con la versión mas reciente?, hubo cambios con la compatibilidad de Delphi 7


En 17 de junio de 2018 en 00:54:40, montes....@gmail.com (montes....@gmail.com) escrito:

--
Has recibido este mensaje porque estás suscrito al grupo "TFacturaElectronica" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a tfacturaelectro...@googlegroups.com.
Visita este grupo en https://groups.google.com/group/tfacturaelectronica.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

montes....@gmail.com

unread,
Jun 20, 2018, 3:05:25 PM6/20/18
to TFacturaElectronica
saludos

si, ya baje la nueva version y cambie widestring con jclwideestring y ya no marco error de falta complemento wideestring.dcu
en el componente quricol ya no marca error con los cambios realizados

en la parte del timbrado con finkok cambie :
 pac.Configurar(_URL_FINKOK_PRUEBAS,
                      credencialesPAC,
                      _NUEMRO_TRANSACCION_INICIAL);
por:

 pac.Configurar(_URL_FINKOK_PRUEBAS, _URL_FINKOK_PRUEBAS,_URL_FINKOK_PRUEBAS,
                      credencialesPAC,
                      credencialesIntegrador,
                      _NUEMRO_TRANSACCION_INICIAL);

para que me dejara compilar

no me timbra la factura de prueba me envia

** Ocurrio un error inesperado
ERemotableException:NONE

en finkok tengo el cliente con el certificado emisor de prueba dado de alta

no tengo idea de porque no la timbra

seguire probando para ver que parametro me falla en finkok



El lunes, 18 de junio de 2018, 10:36:21 (UTC-6), Ing. Luis Carrasco escribió:
Hola Gerardo, ¿Ya probaste con la versión mas reciente?, hubo cambios con la compatibilidad de Delphi 7


En 17 de junio de 2018 en 00:54:40, montes....@gmail.com (montes....@gmail.com) escrito:

saludos

trate de probarlo en delphi 7 y me marco "no se encuentra widestrings.dcu"

y la clase de curicol me marca error, lei que el autor tiene una nueva version que si es compatible con delphi 7. o ¿que cambios tienes en esa parte.?


gracias

--
Has recibido este mensaje porque estás suscrito al grupo "TFacturaElectronica" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a tfacturaelectronica+unsub...@googlegroups.com.

montes....@gmail.com

unread,
Jun 21, 2018, 4:03:16 PM6/21/18
to TFacturaElectronica

saludos

para consultarte sobre el widestring, en delphi 7 no lo encontre y lo sustitui con jclwidestring
quisiera saber que componente utilizas ya que estoy descartando que eso sea mi problema con el timbrado

gracias

montes....@gmail.com

unread,
Jun 22, 2018, 1:23:46 AM6/22/18
to TFacturaElectronica
saludos

ya encontre parte de mi problema

en : unit Facturacion.Administrador;

linea 136 aprox

cambie a JclWideStrings de jcl Jedi, ya que delphi 7 no contempla  TWideStringList

{$IF CompilerVersion < 20}
   JclWideStrings,
   //WideStrings,
 {$IFEND}

en unit Facturacion.Administrador;

linea 219 aprox

Writer.SaveToFile(aArchivoDestino,[foAnsiFile]);
ya que jclWidestring no respeta la estructura xml sin la opcion [foAnsiFile]

guarde el archivo xml antes de sellar  y despues de sellar

verifique el xml antes de sello y despues de sello y la estructura esta correcta

el unico error que encontre es en los conceptos y descripciones, las letra Ñ, acentos, y otros no son convertidos correctamente



aun no timbra en finkok, no marca error,
estoy esperado un usuario y contraseña en ecodex para comprobar

estoy pendiente a cualquier cambio

gracias

Gerardo Montes

unread,
Jun 22, 2018, 2:12:52 AM6/22/18
to tfacturae...@googlegroups.com
ya encontre el problema de la Ñ
debe ser para guardar el archivo
Writer.SaveToFile(aArchivoDestino,[foUnicodeLB]);

Francisco Armando Dueñas Rodríguez

unread,
Sep 25, 2018, 12:04:34 PM9/25/18
to TFacturaElectronica
Hola por favor realiza una prueba con la ultima version que tengo en mi github: https://github.com/fduenas/tfacturaelectronica

Yo he hecho pruebas con XE1 y delphi 7 (7.1) sin ningun problema y sin necesidad de usar JVCL.

Me avisas cualquier cosa. Gracias
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a tfacturaelectronica+unsub...@googlegroups.com.
Reply all
Reply to author
Forward
0 new messages