-- mejora timbrado PAC 3

This commit is contained in:
2023-07-06 23:21:48 -07:00
parent 13d30e98f3
commit dc8ee403d1

View File

@@ -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()