--Aplicacion de RNC a remisiones, movimientos de almacen

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