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

Correcion Merge Timbrado

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-02-28 19:14:07 -07:00
parent f184c3f8ed
commit 77537020f9
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
App_Code/Timbrado.vb
View File

@@ -753,7 +753,7 @@ Public Class Timbrado
CancelacionFecha = Now CancelacionFecha = Now
CancelacionAcuse = result.acuseCancelBase64 CancelacionAcuse = result.acuseCancelBase64
Retorno = True Retorno.Verificado = True
Retorno.CancelacionAcuse = CancelacionAcuse Retorno.CancelacionAcuse = CancelacionAcuse
Retorno.CancelacionFecha = CancelacionFecha Retorno.CancelacionFecha = CancelacionFecha
End If End If
@@ -765,13 +765,12 @@ Public Class Timbrado
CancelacionMensaje = result.mensaje CancelacionMensaje = result.mensaje
End If End If
Else Else
Retorno = False Retorno.Verificado = False
End If End If
Else Else
Retorno = False Retorno.Verificado = False
End If End If
Retorno.Verificado = Retorno
End Select End Select
'valida que si se halla cancelado 'valida que si se halla cancelado
@@ -1060,7 +1059,7 @@ Public Class Timbrado
Case 3 Case 3
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas) Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
Else Else
Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas) Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
End If End If
@@ -2846,7 +2845,7 @@ Public Class Timbrado
ObjCFDITimbre.Comprobante.Fecha.ToString("yyyy-MM-ddTHH:mm:ss"), ObjCFDITimbre.Comprobante.Fecha.ToString("yyyy-MM-ddTHH:mm:ss"),
ObjCFDITimbre.Comprobante.FormadePago, ObjCFDITimbre.Comprobante.FormadePago,
ObjCFDITimbre.Comprobante.CondicionesdePago, ObjCFDITimbre.Comprobante.CondicionesdePago,
ObjCFDITimbre.Comprobante.Subtotal, ObjCFDITimbre.Comprobante.SubTotal,
ObjCFDITimbre.Comprobante.Descuentos, ObjCFDITimbre.Comprobante.Descuentos,
ObjCFDITimbre.Comprobante.Moneda, ObjCFDITimbre.Comprobante.Moneda,
ObjCFDITimbre.Comprobante.TipoCambio.ToString, ObjCFDITimbre.Comprobante.TipoCambio.ToString,
@@ -5287,7 +5286,7 @@ Public Class Timbrado
#Region "Genera XML" #Region "Genera XML"
Dim ArchivoGenerado As Boolean = False Dim ArchivoGenerado As Boolean = False
Try Try
cfdi.GenerarXMLB64(llaveBase64, Clave) cfdi.GenerarXmlB64(llaveBase64, Clave)
ArchivoGenerado = True ArchivoGenerado = True
Catch ex As Exception Catch ex As Exception
Retorno = cfdi.Mensaje Retorno = cfdi.Mensaje