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.
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.
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