-- pac 5

App_Code/Timbrado.vb

@@ -2688,6 +2688,15 @@ Public Class Timbrado
 #Region "Timbra"
         If ArchivoGenerado Then
 
+            Dim opciones As String() = New String(0) {"CALCULAR_SELLO"}
+            Dim pade = New PADE33.PadeTimbradoServiceClient
+            Dim Respuesta As String = pade.timbradoPrueba("72330711-cac6-4106-8051-cbcda1aef495", "rene.molina@adssistemas.mx", "Facturacion2021#", cfdi.Xml, opciones)
+            ' Aumentamos el timeout de la operación
+
+            Dim FolioFiscal As String
+            FolioFiscal = obtenerAtributo(Respuesta, "TimbreFiscalDigital", "UUID") 'XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
+
+
             'cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion)
 
             'sw.Stop()