From 82679c0cbb5f5c2ac29687db2c98cd46e9509148 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 8 Mar 2022 22:41:09 -0700
Subject: [PATCH] Estatus de solicitud de cancelacion

---
 App_Code/ClsVentas.vb      | 3 ++-
 App_Code/Modelos.vb        | 3 +++
 App_Code/Timbrado.vb       | 1 +
 App_Code/modExtensiones.vb | 1 +
 4 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 6a393bec7..fa31af006 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -746,7 +746,7 @@ Public Class ClsVentas
                                          Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
                                          Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1",
                                          Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", Optional EstadoCancelacion As String = "",
-                                         Optional CveEstadoCancelacion As Integer = 0) As Boolean
+                                         Optional CveEstadoCancelacion As Integer = 0, Optional SelloSolicitudDigitalSAT As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasUpdateEstatus")
@@ -767,6 +767,7 @@ Public Class ClsVentas
             .Add("@MotivoCancelacion", SqlDbType.VarChar).Value = MotivoCancelacion
             .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
             .Add("@CveEstadoCancelacion", SqlDbType.TinyInt).Value = CveEstadoCancelacion
+            .Add("@SelloSolicitudDigitalSAT", SqlDbType.VarChar).Value = SelloSolicitudDigitalSAT
         End With
 
         Try
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 92d95b07b..1a3e6f0cf 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4811,6 +4811,7 @@ Namespace Modelos
 
             Dim CancelacionFecha As Date
             Dim FolioFiscal As String = ObjFactura.FolioFiscal
+            Dim SolicitudCancelacionAcuse As String = ""
             Dim CancelacionAcuse As String = ""
             Dim EstadoCancelacion As String = ""
             Dim MensajeError As String = ""
@@ -4918,6 +4919,7 @@ Namespace Modelos
                                                     CveEstatus = 5
                                                 End If
                                                 CancelacionAcuse = ObjCancelacion.CancelacionAcuse
+                                                SolicitudCancelacionAcuse = Resp.SolicitudCancelacionAcuse
                                             Else
                                                 Retorno.Mensaje = "Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx"
                                                 Retorno.TipoMensaje = TipoMensaje.MsgError
@@ -5000,6 +5002,7 @@ Namespace Modelos
                                         CveEstatus = Resp.CveEstatus
                                         CancelacionFecha = Resp.CancelacionFecha
                                         CancelacionAcuse = ObjCancelacion.CancelacionAcuse
+                                        SolicitudCancelacionAcuse = Resp.SolicitudCancelacionAcuse
                                     Else
                                         Retorno.Mensaje = "Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx"
                                         Retorno.TipoMensaje = TipoMensaje.MsgError
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 7b40ba2cb..d499f9b8b 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -784,6 +784,7 @@ Public Class Timbrado
             If VigenciaExtra.Estado.ToUpper = "VIGENTE" AndAlso VigenciaExtra.EstatusCancelacion.ToUpper.Contiene("EN PROCESO") Then
                 Retorno.Estado = "EN PROCESO"
                 Retorno.CveEstatus = 20
+                Retorno.SolicitudCancelacionAcuse = Retorno.CancelacionAcuse
             End If
             If VigenciaExtra.Estado.ToUpper = "CANCELADO" Then
                 Retorno.Estado = "CANCELADO"
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 14b8818a4..c6fb28bb7 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -153,6 +153,7 @@ Namespace Extensiones
             Public Property Estado As String = ""
             Public Property EstatusCancelacion As String = ""
             Public Property CancelacionFecha As Date
+            Public Property SolicitudCancelacionAcuse As String = ""
             Public Property CancelacionAcuse As String = ""
         End Class