Complemento de pago no se genera completo

[Alejandro Frausto]

El dia de hoy quise generar un complemento de pago sin éxito pero el archivo de bitacora me indica lo siguiente, son 549 facturas y una compensación:

01/jul. 13:06:21 ---Iniciando creacion de CFDI---CFDLib V3.3.181215
01/jul. 13:06:21 Abriendo archivo ini : c:\temp\cfdi.ini
01/jul. 13:06:21 Activando modo de datos masivo
01/jul. 13:06:22 Abriendo Certificado : \\192.168.1.2\Server_CT\MicroNG\cert\CSD_TORREON_LBE010808J80_20171220_091148s.cer
01/jul. 13:06:22 Abriendo Llave Privada : \\192.168.1.2\Server_CT\MicroNG\cert\LBE010808J80_20171220_091148.key
01/jul. 13:06:22 Iniciando creacion de XML
01/jul. 13:06:22 Insertando Datos Generales
01/jul. 13:06:22 Insertando Datos del Emisor
01/jul. 13:06:22 Insertando Datos del Receptor
01/jul. 13:06:22 Insertando Conceptos
01/jul. 13:06:22 Insertando Impuestos
01/jul. 13:06:22 Insertando Complemento Recepcion de Pagos
01/jul. 13:06:39 Creando sello digital
01/jul. 13:06:39 Exportando el XML a disco
01/jul. 13:06:39 MegaData activado, no se exporta CadenaOriginal solo Sello
01/jul. 13:06:39 ---FIN CFDI---

Adjunto el ini generado con la version de la libreria 181215 y XML

[Dado]

Podrias especificar que es lo que te preocupa? ya que todo parece estar en orden

[Alejandro Frausto]

No me aparece el xml timbrado en el portal del SAT para subirlo al portal

[Dado]

Es porque no lo haz enviado a timbrar

Son dos pasos, primero lo creas con la funcion GeneraCFD() y luego lo timbras con la funcion TimbrarCFD()

[Alejandro Frausto]

Ya debugue mi aplicación y si llega a invocar la funcion te muestro un fragmento del código

Código: Seleccionar todo

1               // Inicio: Proceso de Generación de CFDI con Libreria CFDLib.dll
2              if modo_prueba then
3                  error := GeneraCFD(ToChar('c:\temp\cfdi.ini'),ToChar('12345678a'))
4              else
5                  error := GeneraCFD(ToChar('c:\temp\cfdi.ini'),ToChar(sqlCertclave.Value));
6
7               if error = OK then
8               begin
9
                  // Inicio: Proceso de Timbrado de CFDI con Libreria CFDLib.dll
                  if FileExists('c:\temp\timbrado.ini') then
                     DeleteFile('c:\temp\timbrado.ini');
                  CFDI := TIniFile.Create('C:\temp\timbrado.ini');

                  CFDI.WriteString('Parametros','XMLDestino','c:\temp\cfdi33.xml');
                  CFDI.WriteString('Parametros','PAC','ECODEX');
                  CFDI.WriteString('Parametros','Mensajes','OFF');

                  if modo_prueba then
                     CFDI.WriteString('ECODEX','Servicio','Prueba')
                  else
                     CFDI.WriteString('ECODEX','Servicio','Produccion');

                  CFDI.WriteString('ECODEX','TransaccionID',IntToStr(sqlFoliosultimo.Value));

                  if TimbrarCFD(ToChar('c:\temp\timbrado.ini')) = OK then
                  begin
                     vCadenaOriginal := CadenaOriginal;
                     vSelloDigital := SelloDigital;
                     XMLDoc.LoadFromFile('c:\temp\cfdi33.xml');
                     XMLDoc.Active := true;

                     vXml.LoadFromFile('c:\temp\cfdi33.xml');
                     Timbrado := vXml.DocumentElement.Find('cfdi:Complemento').Find('tfd:TimbreFiscalDigital');


Entra a la línea marcada con el 5 pero despues de ahí se sale completamente de la función, no continúa en la línea 9. Sabes si desde el demo puedo timbrar el XML que generé ????

[Dado]

OK, revisa que se este haciendo la llamada al timbrado

[Alejandro Frausto]

Quise timbrar el cfdi.ini que te envie en el ejemplo delphi de la libreria pero me manda el siguiente mensaje:

[Dado]

Posiblemente no lo pudo cargar porque no lo encontro

Checa que en el ini de timbrado este la ruta y el nombre correcto del archivo XML

Tambien acostumbra revisar la bitacora, ahi viene informacion que puede ayudarte a saber que pasa