Página 24 de 45
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 3:56 pm
por EddyRocha
Si realizo la prueba con elecutable que ra traes compilado CFDLibTest.exe realiza bien la prueba, pero si yo compilo y genero el ejecutable CFDLibTest.exe muestra el error:
en el boton que dice "Convierte archivo *.ini a Factura Electronica"
Hubo un Error
????????????o?????$
C?????
en el de version muestra el mensaje:
Version de la libreria : ????
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 4:01 pm
por EddyRocha
Me falto decirte que la bitacora dice:
---Inciando creacion de CFD / CFDI---
Abriendo archivo ini : C
ERROR FATAL : No se encontro el archivo : C
y es con el codigo demo, donde selecciono el archivo ini por medio de una ventana dialogo...
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 4:06 pm
por EddyRocha
Si verificas la bitacora recorta el nombre del archivo a solo C, cuando el ini se llama CFDi.ini,
hice la prueba generando un archivo ini que se llamara solo C, y ahora la bitacora genero esto:
---Inciando creacion de CFD / CFDI---
Abriendo archivo ini : C
ERROR FATAL : Se requiere un dato obligatorio : Parametros Certificado
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 4:50 pm
por Dado
EddyRocha escribió:Si realizo la prueba con elecutable que ra traes compilado CFDLibTest.exe realiza bien la prueba, pero si yo compilo y genero el ejecutable CFDLibTest.exe muestra el error:
en el boton que dice "Convierte archivo *.ini a Factura Electronica"
Hubo un Error
????????????o?????$
C?????
en el de version muestra el mensaje:
Version de la libreria : ????
Eddy Eddy, amigo mio.....aver cuentame "toda la historia", despues de tantos años debo aprender a hacer la pregunta magica :
Que sistema operativo usas : Windows 7
Que lenguaje de programacion usas : DELPHI 2009+ O NO?
Que es lo que intentas hacer : Compilar algo que funciona pero cuando tu lo compilas falla
OK. Esto es lo que esta pasando, el CODIGO FUENTE ESTA DISEÑADO PARA DELPHI VERSION 7, siempre he publicado a lo largo y ancho del foro que ese es el lenguaje y version que uso.
Si quieres intentar hacerlo funcionar en Delphi V2009 o mayor DEBES CAMBIAR "CON CUIDADO" todos los PChar por PANSIChar
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 5:10 pm
por EddyRocha
Me suponia que algo asi era, dejame hacer el cambio y te aviso del resultado, por cierto soy Amiga, Gracias
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 5:47 pm
por EddyRocha
Cambie los Pchar por PAnsichar, ya que estoy usando Delphi2009, y ahora me muestra el error (ahora si en español):
Hubo un Error
No se encontro el archivo
C
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Vie Mar 25, 2011 6:39 pm
por EddyRocha
Otro detalle es que el proyecto desde que le agregue la libreria, ya no corre para debugeo con F9 solo le puedo hacer un build, en el event log, indica MODULE Load SSLEAY32.dll No debug Info. Base address, sabes a que se debe, el delphi si corre con un respaldo del codigo sin la libreria...
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Sab Mar 26, 2011 6:39 am
por Dado
@EddyRocha
Hola amiga, aqui ya revise tu caso, te anexo el "prototipo" de como debes hacer los cambios en D2009+ para que esto jale :
(recuerda cambiar TODOS los PChar por PAnsiChar, INCLUYENDO el "CFDLibHeader.pas")
procedure TForm1.Button2Click(Sender: TObject);
var clave, Arch : AnsiString;
begin
OpenDialog.Title := 'CARGAR ARCHIVO INI PARA CONVERTIR A FACTURA';
OpenDialog.DefaultExt := 'ini';
OpenDialog.Filter := 'Archivo INI (*.ini)|*.ini';
if OpenDialog.Execute then
begin
clave := InputBox('','Introduzca la clave de la Llave Privada','a0123456789');
Arch := OpenDialog.FileName;
if GeneraCFD(PAnsiChar(Arch),PAnsiChar(clave)) = OK then
MessageDlg('Se grabo la factura en formato XML'+#13#10#13#10+'La Cadena Original y el Sello Digital son'+
#13#10#13#10 + copy(CadenaOriginal,1,50) + '...' + #13#10#13#10 + copy(SelloDigital,1,50) + '...',mtInformation,[mbOK],0)
else
MessageDlg('Hubo un Error' + #13#10 + GetError + #13#10 + GetErrorExt,mtError,[mbOK],0)
end;
end;
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Sab Mar 26, 2011 11:27 am
por EddyRocha
El detalle esta en que hice los cambios en cuanto me mencionaste lo del delphi2009, tambien INCLUYENDO el "CFDLibHeader.pas"
mi codigo esta de esta forma:
if GeneraCFD(PAnsiChar(dmGlobal.qryCat_EmpresaRepClR_RutaDocumentos.Value+'\'+
'CFDi.ini'
),PAnsiChar(dmCatalogos.qryCertVigenteCer_PasswordLLave.Value))= OK then
y lo que mejoro es que ya no me da los caracteres chinos, ahora me da el error "No se encontro el archivo : C"
Re: Libreria dll para crear y timbrar facturas electronicas
Publicado: Sab Mar 26, 2011 12:03 pm
por Dado
@Eddy.....mmh que no Eddy es por "Eduardo"?......amiga
Código: Seleccionar todo
var temp1, temp2 : AnsiString;
temp1 := dmGlobal.qryCat_EmpresaRepClR_RutaDocumentos.Value+'\'+ 'CFDi.ini';
temp2 := dmCatalogos.qryCertVigenteCer_PasswordLLave.Value);
if GeneraCFD(PAnsiChar(temp1),PAnsiChar(temp2) = OK then.........
Me dices si asi te funciono