Nota: Este es el único método, requiere la carpeta SSL a un lado del EXE.

bProductivo is boolean = False
oDisXII is cTimbradoDisXII("demo","demo",bProductivo)
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"
oDisXII.Sellar(sXML, sCer, sKey, sPassKey)
IF oDisXII.nEstatus <> 0 THEN 
    Error(oDisXII.sError) 
ELSE 
    Info("Sellado") 
END  

bProductivo is boolean = False
oDisXII is cTimbradoDisXII("demo","demo",bProductivo)
sXML is ANSI string = "C:\Ruta\archivo.xml"
oDisXII.Timbrar(sXML)
IF oDisXII.nEstatus <> 0 THEN
    Error(oDisXII.sError)
ELSE
    Info("Timbrado", oDisXII.oTimbre.nStatus, oDisXII.oTimbre.nStatusPAC,oDisXII.oTimbre.sMensaje,oDisXII.oTimbre.sUUID)
END  

bProductivo is boolean = False
oDisXII is cTimbradoDisXII("demo","demo",bProductivo)
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"
oDisXII.SellaTimbra(sXML , sCer, sKey, sPassKey)
IF oDisXII.nEstatus <> 0 THEN
    Error(oDisXII.sError)
ELSE
    Info("Sellado y Timbrado", ... 
        oDisXII.oTimbre.nStatus, ... 
        oDisXII.oTimbre.sMensaje, ... 
        oDisXII.oTimbre.sUUID, ... 
        oDisXII.oTimbre.sTotalLetra)	
END   

bProductivo is boolean = False
oDisXII is cTimbradoDisXII("demo","demo",bProductivo)
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"
sAcuse is ANSI string = "C:\Ruta\acuseCancelacion.xml"
sMotivoCancelacion is ANSI string = "02"
sFolioSustitucion is ANSI string = ""
oDisXII.Cancelar(sXML , sCer, sKey, sPassKey ,sAcuse,sMotivoCancelacion,sFolioSustitucion)
IF oDisXII.nEstatus <> 0 THEN
    Error(oDisXII.sError)
ELSE
    Info("Cancelado",oDisXII.oTimbre.nStatus,oDisXII.oTimbre.sMensaje)
END