From 6055cae050dc06bed33e79fe97aaf64097f652e3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 7 Jan 2021 10:50:26 -0700
Subject: [PATCH] -- pac 5

---
 App_Code/Timbrado.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 56fce0da2..42549491e 100644
--- a/App_Code/Timbrado.vb
+++ b/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()