Clase Windev para Sellar, Timbrar y Cancelar CFDI

A considerar:

• Te igualo el costo de timbre que vienen manejando.
• Los timbres con nosotros NO caducan.
• Las cancelaciones NO cuestan timbre, siempre y cuando el CFDI que quieras cancelar los timbraste con nosotros, si lo timbraste con otro proveedor, te cuesta 1 timbre.
• No hay minino de compra, se les da acceso a mi.disxii.com para la administración de sus emisores; puedes ver parte del funcionamiento del panel en: https://www.youtube.com/watch?v=ydAZUguqqGU

Código para sellar:
sXML is ANSI string = "C:\Ruta\archivo.xml"
sCer is ANSI string = "C:\Ruta\CSD_Sucursal_1_EKU9003173C9_20230517_223850.cer"
sKey is ANSI string = "C:\Ruta\CSD_Sucursal_1_EKU9003173C9_20230517_223850.key"
sPassKey is ANSI string = "12345678a"
oTimbrar.Sellar(sXML, sCer, sKey, sPassKey)
IF oTimbrar.nEstatus <> 0 THEN
    Error(oTimbrar.sError)
ELSE
    Info("Sellado")
END



Código para Timbrar:
oTimbrar.Timbrar(sXML)
IF oTimbrar.nEstatus <> 0 THEN
    Error(oTimbrar.sError)
ELSE
    Info("Timbrado", oTimbrar.oTimbre.nStatus, oTimbrar.oTimbre.nStatusPAC,oTimbrar.oTimbre.sMensaje,oTimbrar.oTimbre.sUUID)
END
Código para cancelar:

sAcuse is ANSI string = "C:\Ruta\acuseCancelacion.xml"
sMotivoCancelacion is ANSI string = "02"
sFolioSustitucion is ANSI string = ""
oTimbrar.Cancelar(sXML , sCer, sKey, sPassKey ,sAcuse,sMotivoCancelacion,sFolioSustitucion)
IF oTimbrar.nEstatus <> 0 THEN
    Error(oTimbrar.sError)
ELSE
     Info("Cancelado",oTimbrar.oTimbre.nStatus,oTimbrar.oTimbre.sMensaje)
END


La clase la pueden descarar desde: https://www.dis12.com/Clases/WinDev/

Nota. Es necesaria la carpeta SSL a un lado del exe.

La clase es 100% funcional para testing (adelante con tus pruebas), para productivo hay que dar de alta al emisor en el panel para obtener el usr/pass de timbrado de cada emisor.

Mientras tú creías que yo no estaba mirando

Mientras tú creías que yo no estaba mirando, yo vi que:

Pegaste con un imán mi dibujo al refrigerador, por eso de inmediato quise hacer otro.

Le diste de comer a un gatito sin hogar, entonces entendí que a los animales hay que tratarlos con amor y respeto.

Preparaste mi pastel favorito especialmente para mi, así me dí cuenta que los pequeños detalles ocultan mucho sentido.

Fuiste a visitar a tu amigo enfermo, y entonces entendí que las personas deben cuidarse mutuamente.

No niegas la ayuda a los necesitados, y comprendí que si tienes tiempo y dinero, hay que ayudar a aquellos que no lo tienen.

Tratas con mucho cuidado nuestra casa y a todos los que vivimos aquí, y entendí que cada persona debe cuidar lo que tiene y lo que quiere.

Incluso cuando te sientes mal, continúas cumpliendo con tus obligaciones, y me di cuenta de lo que significa la responsabilidad.

A veces no pudiste contener las lágrimas, y entendí que en la vida hay tristeza y dolor, y llorar es normal.
Nunca dejas de cuidar de mí, y yo quise cumplir todas tus expectativas y hacer todo lo posible para que te sientas orgulloso de mí.

Mientras tú creías que yo no estaba mirando, aprendía de ti la vida. Tomé tu ejemplo y traté de ser como tú.

En lo más profundo de mi alma estaba un pequeño adulto que se decía a sí mismo:

Queridos padres gracias por todo lo que he visto mientras creían que yo no estaba mirando.

Autor Desconocido