AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora timbrado PAC 3

Browse Source
This commit is contained in:
rrene
2023-07-06 23:21:48 -07:00
parent 13d30e98f3
commit dc8ee403d1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/Timbrado.vb
View File

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