--FIX. Forzar cancelacion de factura

App_Code/ClsVentas.vb

@@ -1142,7 +1142,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional EstadoCancelacion As String = "", Optional CveEstadoCancelacion As Integer = 0) As Boolean
+    Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional EstadoCancelacion As String = "", Optional CveEstadoCancelacion As Integer = 0, Optional CveEstatusFactura As Integer = 5) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasCancelacion")
@@ -1156,6 +1156,7 @@ Public Class ClsVentas
             .Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
             .Add("@EstadoCancelacion", SqlDbType.VarChar).Value = EstadoCancelacion
             .Add("@CveEstadoCancelacion", SqlDbType.TinyInt).Value = CveEstadoCancelacion
+            .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
             .Add("@Cancelada", SqlDbType.SmallInt).Direction = ParameterDirection.Output
         End With
 

App_Code/Modelos.vb

@@ -5681,9 +5681,9 @@ Namespace Modelos
         ''' <param name="RealizarDevolucionAlmacen"></param>
         ''' <param name="ListaRemisionesCancelar"></param>
         ''' <returns></returns>
-        Public Function CancelarFactura(RealizarDevolucionAlmacen As Integer, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional ForzarDevolucion As Boolean = False, Optional CancelacionPagos As OpcionesCancelacionPagos = OpcionesCancelacionPagos.SinPagos) As MCancelacionVentaMensaje
+        Public Function CancelarFactura(RealizarDevolucionAlmacen As Integer, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional ForzarDevolucion As Boolean = False, Optional CancelacionPagos As OpcionesCancelacionPagos = OpcionesCancelacionPagos.SinPagos, Optional CveEstatusFacturaAsignado As Integer = -1) As MCancelacionVentaMensaje
             'Comprobante emitido con errores sin relación
-            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, ForzarDevolucion:=ForzarDevolucion, CancelacionPagos:=CancelacionPagos)
+            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, ForzarDevolucion:=ForzarDevolucion, CancelacionPagos:=CancelacionPagos, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado, ValidarSAT:=ValidarSAT)
         End Function
 
         Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Integer = 0,

Ventas/Ventas.aspx.vb

@@ -26750,6 +26750,7 @@ Partial Class Ventas
                 RFCReceptor = Me.RFCReceptorVenta
             End If
 
+            If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
                 Dim SWatch As New Stopwatch
                 SWatch.Start()
                 Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
@@ -26841,6 +26842,13 @@ Partial Class Ventas
                             sb.Append("Está seguro de cancelar el documento?.")
                         End If
                     End If
+
+
+                Else
+                    MostrarRemisionesCancelar()
+                    sb.Append("<b>No encontrado</b> <br/>")
+                    sb.Append("Está seguro de cancelar el documento?.")
+                End If
             Else
                 MostrarRemisionesCancelar()
                 sb.Append("<b>No encontrado</b> <br/>")
@@ -27073,12 +27081,17 @@ Partial Class Ventas
 
                 If EsRefacturacion Then
 
+                    Dim ValidarSAT As Boolean = True
+                    If UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
+                        ValidarSAT = False
+                    End If
+
                     'Dim msgBitacora As String = $"Motivo de refacturación: {TxtMotivoRefac.Text}"
                     'Dim ObjE As New ClsOIEventos()
                     'ObjE.AddEventoBitacora(msgBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta)
                     'ObjE.Dispose()
 
-                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
+                    resp = ObjFacturaCancelacion.CancelarPorRefacturacion(DdlMotivoRefacturacion.SelectedValue.ToEntero(), TxtMotivoRefac.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ValidarSAT:=ValidarSAT)
                     strMensaje.Append(resp.Mensaje)
                 Else
                     Dim ListaRemisionesCancelar As New List(Of Integer)
@@ -27135,7 +27148,26 @@ Partial Class Ventas
 
                     End If
 
-                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos)
+                    Dim ValidarSAT As Boolean = True
+                    Dim CveEstatusFacturaAsignado As Integer = -1
+                    If UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
+                        ValidarSAT = False
+
+                        Dim diasTimbrado As Decimal = DateDiff(DateInterval.Day, ObjFacturaCancelacion.FechaCP, ClsPaginas.NowADS())
+
+                        'CANCELACION SIN ACEPTACION
+                        Me.CveEstadoCancelacion = 2
+                        'CANCELACION CON ACEPTACION
+                        If ObjFacturaCancelacion.Total < 1000D OrElse diasTimbrado <= 1 OrElse ObjFacturaCancelacion.Cliente.RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+                            Me.CveEstadoCancelacion = 1
+                        End If
+
+                        ObjFacturaCancelacion.CveEstadoCancelacion = Me.CveEstadoCancelacion
+
+                        CveEstatusFacturaAsignado = 4
+                    End If
+
+                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos, ValidarSAT:=ValidarSAT, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado)
                     strMensaje.Append(resp.Mensaje)
                     Dim DtBonificaciones As DataTable = Nothing