Refacturacion con pagos (P2)

App_Code/ClsVentas.vb

@@ -547,6 +547,24 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+    Public Function CancelarPagos(CveVenta As Integer, CvePrePoliza As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_CancelarPagosVenta")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cancelar los pagos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function RemoveVta_VentaPago(CveVenta As Integer, CveMetodoPago As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasPagoRemove")

App_Code/Modelos.vb

@@ -4285,7 +4285,7 @@ Namespace Modelos
                 End If
 
                 'CUANDO LA CANCELACION ESTA EN PROCESO NO DEBE REALIZAR NADA DE ESTE PROCESO
-                If (((ObjFactura.Saldo > 0 AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20)) OrElse (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing"))) AndAlso CveEstatus.Contiene(4, 5)) OrElse (CvePlantillaPoliza = 7 AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20)) Then
+                If Not EsRefacturacion AndAlso ((((ObjFactura.Saldo > 0 AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20)) OrElse (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing"))) AndAlso CveEstatus.Contiene(4, 5)) OrElse (CvePlantillaPoliza = 7 AndAlso (CveEstatus > 0 AndAlso CveEstatus <> 20))) Then
 
                     'CUANDO SE CANCELA, LA PÓLIZA DEBE DE SER DE DIARIO
                     CvePrePoliza = ObjConta.AddPrePolizas("Modelos/CancelarDocumento", CvePlantillaPoliza, ObjFactura.Total, ObjFactura.Total, ObjFactura.CveMoneda, Now, ObjFactura.Cliente.Nombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
@@ -4296,8 +4296,16 @@ Namespace Modelos
                         MensajeError = "Ocurrió un error al generar la prepoliza de cancelación."
                     End If
 
+                    ''CANCELAR PAGOS
+                    'If EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") AndAlso ObjFactura.Pagado > 0 Then
+                    '    If Not ObjVentas.CancelarPagos(ObjFactura.CveVenta, CvePrePoliza) Then
+                    '        ErrorCancelar = True
+                    '        MensajeError = "Ocurrió un error al generar la cancelación de pagos."
+                    '    End If
+                    'End If
+
                     'CANCELAR PAGOS
-                    If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
+                    If Not EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                         If Not ErrorCancelar Then
                             If Not ObjConta.PrePolizasCancelarPagos(ObjFactura.CveDevolucion, CvePrePoliza) Then
                                 ErrorCancelar = True
@@ -4306,6 +4314,7 @@ Namespace Modelos
                         End If
                     End If
 
+
                     'CANCELA PREPOLIZA
                     If Not ErrorCancelar Then
                         ErrorCancelar = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ObjAC, -1, ObjBancos, ObjVentas, ObjEventos, DtRemisionesRelacionadas:=DtRemisionesRelacionadas, SeCancelaRemisionProceso:=SeCancelaRemisionProceso,