Cancelacion de movimientos de usados en RNC

App_Code/Modelos.vb

@@ -2182,6 +2182,39 @@ Namespace Modelos
             Return Resultado
 
         End Function
+
+        Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer
+            Dim CveMovimiento As Integer = -1
+            Try
+                CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta,
+                                            factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU")
+                If CveMovimiento <= 0 Then
+                    CveMovimiento = -1
+                Else
+                    Dim DtMovimientosEntrada As DataTable = Nothing
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, factura.CveEmpresa) Then
+                        DtMovimientosEntrada = ObjInventario.DtResultados.Copy()
+                    End If
+
+                    If DtMovimientosEntrada IsNot Nothing Then
+                        For Each Dr As DataRow In DtMovimientosEntrada.Rows
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                CveMovimiento = -1
+                                Exit For
+                            End If
+                        Next
+
+                        DtMovimientosEntrada.Dispose()
+                        DtMovimientosEntrada = Nothing
+                    End If
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un erro al cancelar el movimiento de usado", ex)
+                CveMovimiento = -1
+            End Try
+
+            Return CveMovimiento
+        End Function
         Private Function GuardarPolizasVirtuales(SqlTransaccion As SqlClient.SqlTransaction, ObjFactura As Modelos.Factura) As Boolean
             Dim Resultado As Boolean = True
 
@@ -2405,8 +2438,23 @@ Namespace Modelos
 
                                     'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO
                                     If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then
+                                        Dim CveMovimientoReferencia As Integer = -1
+                                        'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS
+                                        If ValorMultiplicador = -1 Then
+                                            CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario)
 
-                                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                                            If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                    ErrorPrepoliza = True
+                                                End If
+                                            Else
+                                                ErrorPrepoliza = True
+                                            End If
+
+                                        Else
+                                            CveMovimientoReferencia = CveMovimiento
+
+                                            If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
                                                 Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL
 
                                                 Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
@@ -2415,7 +2463,7 @@ Namespace Modelos
                                                     ErrorPrepoliza = True
                                                 End If
 
-                                            Dim Importe318 As Decimal = importeMovimiento - Importe68
+                                                Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68))
 
                                                 If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
                                                     ErrorPrepoliza = True
@@ -2428,6 +2476,7 @@ Namespace Modelos
                                             Else
                                                 ErrorPrepoliza = True
                                             End If
+                                        End If
 
                                     Else
                                         If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then