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

- guardar en xml, para el PAC 3

Browse Source
This commit is contained in:
rrene
2023-07-06 17:54:05 -07:00
parent d61f8e4c8e
commit 13d30e98f3
1 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
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
@@ -1401,11 +1401,9 @@ Public Class Timbrado
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago
comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte) comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte)
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso ObjCFDITimbre.Comprobante.Descuentos > 0 Then
If ObjCFDITimbre.Comprobante.Descuentos > 0 Then comprobante.DescuentoSpecified = True
comprobante.DescuentoSpecified = True comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
End If
End If End If
comprobante.Moneda = ObjCFDITimbre.Comprobante.Moneda comprobante.Moneda = ObjCFDITimbre.Comprobante.Moneda
comprobante.TipoCambio = ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal comprobante.TipoCambio = ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal
@@ -1474,11 +1472,9 @@ Public Class Timbrado
comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso concep.Descuento > 0 Then
If concep.Descuento > 0 Then comprobante.Conceptos(i).Descuento = concep.Descuento
comprobante.Conceptos(i).Descuento = concep.Descuento comprobante.Conceptos(i).DescuentoSpecified = True
comprobante.Conceptos(i).DescuentoSpecified = True
End If
End If End If
If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
@@ -2358,6 +2354,15 @@ Public Class Timbrado
swmili = sw.ElapsedMilliseconds swmili = sw.ElapsedMilliseconds
sw.Start() sw.Start()
Dim xmlPrevio As String
Using sww As New System.IO.StringWriter()
Dim xs As Object
xs = New System.Xml.Serialization.XmlSerializer(GetType(Profact.TimbraCFDI40.Comprobante))
xs.Serialize(sww, comprobante)
xmlPrevio = sww.ToString()
End Using
#Region "Timbra" #Region "Timbra"
resultadoTimbre = cfdi.TimbraCFDI(comprobante) resultadoTimbre = cfdi.TimbraCFDI(comprobante)
#End Region #End Region
@@ -2461,6 +2466,8 @@ Public Class Timbrado
Else Else
Dim sbMsg As New StringBuilder Dim sbMsg As New StringBuilder
Dim sbMsgLog As New StringBuilder Dim sbMsgLog As New StringBuilder
sbMsgLog.Append(xmlPrevio)
sbMsgLog.Append("------------")
For Each msg In Resultados For Each msg In Resultados
sbMsg.AppendFormat("{0}.<br/>", msg("Value")) sbMsg.AppendFormat("{0}.<br/>", msg("Value"))
sbMsgLog.AppendFormat("{0}-{1}<br/>", msg("Key"), msg("Value")) sbMsgLog.AppendFormat("{0}-{1}<br/>", msg("Key"), msg("Value"))