Detectar conexión a Internet antes de GeneraCFD

[EduardoEsquivel]

Buen día,

Quisiera saber como le puedo hacer desde Visual Basic 6.0 detectar conexión a Internet activa antes de GeneraCFD para evitar que mi sistema guarde la factura sin Timbrar!

Con esta validación pretendo hacer que mi sistema le avise al usuario que "No fue posible Timbrar la Factura" y la deje pendiente por timbrar.

Gracias y quedo en espera de comentarios.

Saludos

[Dado]

No es suficiente con revisar si tienes conexion a internet

Lo que debes hacer es consultar el valor que te regresa la funcion GeneraCFD, revisa el codigo fuente de ejemplo que viene junto a la libreria

En pseudocodigo es algo asi :

Código: Seleccionar todo

if GeneraCFD("c:\archivos\ejemplo\datos.ini","012345678a")  = 0 then
         Mensaje("Creacion exitosa, la CADENA DEL EMISOR ES " + CadenaOriginal)
         Mensaje("Y el SELLO DEL EMISOR ES " + SelloDigital)
else
         Mensaje("Error en la creacion del XML, el error reportado es " + GetError + GetErrorExt)


if TimbrarCFD("c:\archivos\ejemplo\datos.ini") = 0 then
        Mensaje("Timbrado exitoso, la CADENA DEL PAC ES " + CadenaOriginal)
        Mensaje("Y el SELLO DEL PAC ES " + SelloDigital)
else
        Mensaje("Error en el timbrado, el error es " + GetError + GetErrorExt)

[EduardoEsquivel]

Entiendo,

Pero veo que si el valor = 0 entonces todo bien, pero quisiera saber los valores de los mensajes:

0 = todo bien
1 = ?
2 = ?
3 = ?
4 = ?
5 = ?

Y así sucesivamente para poderle mostrar al usuario el porque no pudo ser timbrada su factura.

Gracias y quedo en espera de comentarios

[Dado]

Revisa el archivo Leeme.txt que viene con la DLL