From 711899ffe4b70f6092b4c3c54491b212602e5adf Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 13 Mar 2024 18:07:19 -0700
Subject: [PATCH] --Aplicacion de RNC a remisiones, movimientos de almacen

---
 Inventarios/EntregaAlmacen.aspx.vb | 16 ++++++++++++----
 Ventas/Ventas.aspx.vb              | 11 +++++++++--
 2 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index b2012351d..56cf378a4 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -520,11 +520,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
             If UsuarioActual.TienePermisoProceso(266) AndAlso UsuarioActual.TienePermisoProceso(267) Then
-                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Dev','Rem','Traspaso','Ped','PDev','DPe','Ant')")
+                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Dev','Rem','Traspaso','Ped','PDev','DPe','Ant','RNC')")
             ElseIf UsuarioActual.TienePermisoProceso(266) AndAlso Not UsuarioActual.TienePermisoProceso(267) Then
-                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Dev','Rem','Traspaso','Ant')")
+                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ing','Dev','Rem','Traspaso','Ant','RNC')")
             ElseIf UsuarioActual.TienePermisoProceso(267) AndAlso Not UsuarioActual.TienePermisoProceso(266) Then
-                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ped','PDev','DPe')")
+                DtPendientes = ObjInventarios.DtResultados.FiltraParametros("TipoDocto IN ('Ped','PDev','DPe','RNC')")
             Else
                 DtPendientes = ObjInventarios.DtResultados
             End If
@@ -1817,7 +1817,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If Gvr.DataKey("CantidadF").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
                     ''VALIDA EXISTENCIA
-                    If Not TipoDocto.Contiene("Dev") Then
+                    If Not TipoDocto.Contiene("Dev", "RNC") Then
                         If TipoMovimiento = 1 Then
                             Dim ObjInventario As New ClsInventarios
                             Dim Existencia As Decimal = ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString().ToEntero(), Gvr.DataKey("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
@@ -3058,6 +3058,14 @@ Partial Class Inventarios_EntregaAlmacen
                     ErrorMovInv = True
                 End If
             End If
+
+            If Not ErrorMovInv And EsDevolucionVenta = 0 AndAlso TipoDocto = "RNC" Then
+                If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveVentaSurtir) Then
+                    TextoError.AppendFormat("Ocurrió un error al hacer la devolucion. Por favor vuelva a intentar.")
+                    ErrorMovInv = True
+                End If
+            End If
+
             Dim TotalVirtual As Decimal = 0
 
             ' COMIENZA: VIRTUAL
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 121ef73c9..1196eebc9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13519,6 +13519,13 @@ Partial Class Ventas
             If CveAlmacenTraspasoDestino <= 0 And factura.TipoDocto = "Rem" Then
                 ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If factura.TipoDocto = "RNC" And CveVentaDevolucion > 0 Then
+                    CveAlmacenTraspasoOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
+                    CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 1 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
+                End If
+            End If
         End If
 
         'ASIGNA EL VALOR DEL ALMACEN AL PEDIDO
@@ -23816,7 +23823,7 @@ Partial Class Ventas
 
 #Region " INVENTARIO POR ENTREGA"
     Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
-        If CveVentaPadre > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Dev" Then
+        If CveVentaPadre > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Dev", "RNC") Then
             Dim RowVentas As DataRow = Nothing
             Using ObjVentas As New ClsVentas
                 If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
@@ -23826,7 +23833,7 @@ Partial Class Ventas
 
             'SI TIENE UN ANTICIPO RELACIONADO O VIENE DE UNA REFACTURACION
             If RowVentas IsNot Nothing Then
-                If RowVentas("TipoDocto").ToString().Contiene("Ing", "Ant", "Ped") AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
+                If RowVentas("TipoDocto").ToString().Contiene("Ing", "Ant", "Ped") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
                     CargaInventario(Me.CveVenta)
                 End If
             End If