-- mejora timbrado PAC 3
This commit is contained in:
@@ -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()
|
||||
|
||||
Reference in New Issue
Block a user