Función GeneraCFD-> Regresa valor caracter.
Publicado: Sab Jul 07, 2012 7:09 pm
Estimado Dado,
Ya utilice las funciones y genera perfectamente el archivo XML, así como la cadena Original y el Sello, incluso ya los valide y estan bien.
Sin embargo para poder liberarlos tengo las siguientes dudas:
1.- En tu ejemplo comentas que el valor de retorno de la función: GeneraCFD debe ser 0 (Cero), me regresa una cadena de caracteres raros
nGeneraCfd = GeneraCFD(cArchivoINI, ALLTRIM(aEmisor.numero_i) )
MESSAGEBOX("Genera responde: " + nGeneraCFD)
ÿÿÿÿÿÿÿÿD* ?ÿÿÿÿÄ* ?ÿÿÿÿÿÿÿÿ* ?ÿÿÿÿ
2.- Las funciones de Error tampoco regresan numeros, regresan el valor "!".
GetError() -> REgresa: "!"
GetErrorExt() -> Regresa: "!"
Puedo utilizar con confianza esta respuesta para asegurar que no existen errores y si los hay enviar un mensaje?
nGeneraCfd = GeneraCFD(cArchivoINI, ALLTRIM(aEmisor.numero_i) )
* Captura los errores si hay
lcError = GetError()
lcErrorE = GetErrorExt()
IF lcError = "!"
* Cadena y Sello
MESSAGEBOX("Cadena: " + CadenaOriginal())
MESSAGEBOX("Sello : " + SelloDigital())
ELSE
MESSAGEBOX("Error en la creacion del XML, el error reportado es " + lcError + ' - ' + lcErrorE)
endif
Quedo en espera de tu respusta.
Saludos
Ya utilice las funciones y genera perfectamente el archivo XML, así como la cadena Original y el Sello, incluso ya los valide y estan bien.
Sin embargo para poder liberarlos tengo las siguientes dudas:
1.- En tu ejemplo comentas que el valor de retorno de la función: GeneraCFD debe ser 0 (Cero), me regresa una cadena de caracteres raros
nGeneraCfd = GeneraCFD(cArchivoINI, ALLTRIM(aEmisor.numero_i) )
MESSAGEBOX("Genera responde: " + nGeneraCFD)
ÿÿÿÿÿÿÿÿD* ?ÿÿÿÿÄ* ?ÿÿÿÿÿÿÿÿ* ?ÿÿÿÿ
2.- Las funciones de Error tampoco regresan numeros, regresan el valor "!".
GetError() -> REgresa: "!"
GetErrorExt() -> Regresa: "!"
Puedo utilizar con confianza esta respuesta para asegurar que no existen errores y si los hay enviar un mensaje?
nGeneraCfd = GeneraCFD(cArchivoINI, ALLTRIM(aEmisor.numero_i) )
* Captura los errores si hay
lcError = GetError()
lcErrorE = GetErrorExt()
IF lcError = "!"
* Cadena y Sello
MESSAGEBOX("Cadena: " + CadenaOriginal())
MESSAGEBOX("Sello : " + SelloDigital())
ELSE
MESSAGEBOX("Error en la creacion del XML, el error reportado es " + lcError + ' - ' + lcErrorE)
endif
Quedo en espera de tu respusta.
Saludos