Estatus de solicitud de cancelacion

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

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

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"

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