From 77537020f91781aae0143428e06b9781385b67d2 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 28 Feb 2022 19:14:07 -0700
Subject: [PATCH] Correcion Merge Timbrado

---
 App_Code/Timbrado.vb | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index ddb391a94..4a327d03f 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -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