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