From dc8ee403d1287c6f726f733a58147a8498c8ec2b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 6 Jul 2023 23:21:48 -0700
Subject: [PATCH] -- mejora timbrado PAC 3

---
 App_Code/Timbrado.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 1b20a2238..7a710ef4a 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1,5 +1,5 @@
 Option Explicit On
-'Option Strict On
+Option Strict On
 
 Imports System.Data
 Imports System.IO
@@ -1324,7 +1324,7 @@ Public Class Timbrado
             AmbienteProductivo = False
             Clave = "12345678a"
             EmisorRFC = "EKU9003173C9"
-            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
+            EmisorNombre = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
             UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
@@ -2356,7 +2356,7 @@ Public Class Timbrado
 
         Dim xmlPrevio As String
         Using sww As New System.IO.StringWriter()
-            Dim xs As Object
+            Dim xs As XmlSerializer
             xs = New System.Xml.Serialization.XmlSerializer(GetType(Profact.TimbraCFDI40.Comprobante))
             xs.Serialize(sww, comprobante)
             xmlPrevio = sww.ToString()