Creacion archivo *.ini

Este es el foro para resolver dudas y hacer comentarios del Codigo Fuente para Delphi de generacion y timbrado que se ofrece aqui en el foro
[[ FORO CERRADO DEBIDO A QUE YA LA INFORMACION YA NO ES VIGENTE ]]
ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Creacion archivo *.ini

Mensajepor ROSCO29 » Lun Oct 20, 2014 6:26 pm

necesito un ejemplo DELPHI para crear el archivo *.ini

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Lun Oct 20, 2014 6:57 pm

Ya hay toda una interface en Delphi que te ayuda, revisa TIniFile (en la ayuda de Delphi y por Google)
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Jue Oct 23, 2014 4:15 pm

Ok, eso ya esta, pero intento pegar parte del código de ejemplo a mi programa y me manda un error
Undeclared identifier: 'ToChar'
Aquí el código que uso:

procedure TFrPunto_DeVenta.SpeedButton1Click(Sender: TObject);
var
clave : string;
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','12345678a');

if GeneraCFD(ToChar(OpenDialog.FileName),ToChar(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;

Plis ayuda, ya que una vez funcionando estas pruebas, ya estaremos listos para adquirir la .dll

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Jue Oct 23, 2014 4:22 pm

Debes usar la unidad DataTypeCast

Código: Seleccionar todo

uses .....DataTypeCast, .....
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Jue Oct 23, 2014 6:05 pm

ok, gracias eso ya se arreglo y si se reproduce el caso del ejemplo... pero si lo hago como se menciona en el archivo LEEME manda error por el 0, le pongo ok y se compone, pero al correrlo me dice que no encontró el archivo

// if GeneraCFD(ToChar('c:\Pruebas_CFDI\Ejemplo\Factura_1.ini'),ToChar('012345678a')) = 0 then
if GeneraCFD('c:\Pruebas_CFDI\Ejemplo\Factura_1.ini','012345678a') = OK then
ShowMessage('Creacion exitosa, la CADENA DEL EMISOR ES ' + CadenaOriginal)
// Mensaje('Y el SELLO DEL EMISOR ES ' + SelloDigital);
// 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)

en el ejemplo de LEEME no tiene el 'ToChar' ??

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Jue Oct 23, 2014 9:13 pm

El archivo LEEME es pseudo-codigo, de tal forma que no debes tomarlo literal

Es solo un ejemplo generico de como se debe hacer la llamada a la funcion, es asi debido a que el ToCHAR no existe en NINGUN otro lenguaje, solo en Delphi

En resumen, no lo hagas "como en el LEEME.txt", hazlo "como en EJEMPLO.PAS"
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Vie Oct 24, 2014 4:46 pm

Perfecto gracias, ya esta funcionando bien, pero te comento: esta prueba de unicio la estoy haciendo el DELPHI 7, pero el programa al que le va a integrar la Factura Electronica esta en XE, porlo que al replicar esta prueba en XE manda un error en DataTypeCast: en la parte de

finalization
CoUninitialize;

cuando la plataforma seleccio0nada en Win32, pero si la cambio a Win 64 se arregla pero al compilarlo y correrlo solo entra y sale sin hacer nada y manda un error de que la aplicación no se a inicializado xcorrectamente, plis ayuda, mientra sigo con mi prueba en D7. Gracias

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: Creacion archivo *.ini

Mensajepor Dado » Vie Oct 24, 2014 4:56 pm

Deshabilita la seccion de inicializacion / finalizacion y vuelve a probar

Código: Seleccionar todo

// initialization
//   Coinitialize(nil);
//finalization
//   CoUninitialize;
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Vie Oct 24, 2014 5:55 pm

Siii funciona, gracias, aunque para Win64 no funciona, dice que la aplicación no se ha iniciado correctamente... OK ahora puedo seguir con una prueba real, Gracias nuevamente

ROSCO29
Mensajes: 9
Registrado: Lun Oct 20, 2014 6:02 pm

Re: Creacion archivo *.ini

Mensajepor ROSCO29 » Lun Oct 27, 2014 4:10 pm

Hola, todo va bien, estoy en la parte que genera la factura para su impresión, y me encuentro con que necesito los siguientes datos:
SELLO DIGITAL DEL CFDI (esto se obtiene al cerar el CFDI con el *.ini)
SELLO DIGITAL DEL SAT (?)
CADENA ORIGINAL (ok, al crear CFDI)

FOLIO FISCAL (?)
No. SERIE DEL CERTIFICADO DEL SAT (?)
No. SERIE DEL CERTIFICADO DEL EMISOR (?)
FECHA Y HORA DE CERTIFICACION (?)
FECHA Y HORA DE EMISION DEL CFDI (?)

Folio y Numero de Serie(?)

si me ayudas con esto ya estaríamos del otro lado. por favor


Volver a “SOPORTE CODIGO FUENTE EN DELPHI”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados