- ddlps, filtra todos los subproyectos, para empresa acumuladores

--  salida virtual

Ventas/Ventas.aspx.vb

@@ -6594,7 +6594,8 @@ Partial Class Ventas
             End If
 
             Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
-            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                'cuando es empresa llantera (558) o cuando es empresa acumuladores
                 cvesubproyecto = "-1"
             End If
 
@@ -19179,41 +19180,7 @@ Partial Class Ventas
             Dim CveAlmacenVirtual As Integer = -1
             Dim CveConceptoMovimientoVirtual As Integer = 37
             Dim DtPSVirtual As DataTable = Nothing
-            'Dim DtTamanios As DataTable = Nothing
-            ' Dim CveMovimientoReferencia As Integer = -1
 
-            ''SI LA REMISION SE SURTIO CON USADOS UTILIZAR ESTE MOVIMIENTO
-            'If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
-            '    Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) AND CveVenta > 0")
-
-            '    If RowMovimiento IsNot Nothing Then
-            '        CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
-            '        Dim tCveAlmacen = RowMovimiento("CveAlmacen").ToString().ToEntero()
-            '        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-            '    End If
-
-            'Else
-            '    OcurrioError = True
-            'End If
-
-            ''SI NO SE SURTIO LA REMSION CON USADOS, UTILIZAR EL MOVIMIENTO DE SALIDA DEL INGRESO
-            'If CveMovimientoReferencia <= 0 Then
-            '    If ObjInventario.GetInv_Mov(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then
-            '        Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ( (CveTipoAlmacen = 1 AND CveConcepto IN (3,8)) OR (CveTipoAlmacen = 10 AND CveConcepto = 40) )  AND CveVenta > 0")
-
-            '        If RowMovimiento IsNot Nothing Then
-            '            CveMovimientoReferencia = RowMovimiento("CveMovimiento").ToString().ToEntero()
-            '            Dim tCveAlmacen = RowMovimiento("CveAlmacen").ToString().ToEntero()
-            '            CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=tCveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
-
-            '        Else
-            '            OcurrioError = True
-            '        End If
-
-            '    Else
-            '        OcurrioError = True
-            '    End If
-            'End If
             CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
             'SI TIENE ALMACEN VIRTUAL ASIGNADO GENERA EL MOVIMIENTO VIRTUAL
@@ -19225,9 +19192,9 @@ Partial Class Ventas
                     OcurrioError = True
                 End If
 
-                If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
+                If Not OcurrioError AndAlso DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then
 
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoSalidaAlmacen)
+                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV2", CveMovimientoRelacionado:=CveMovimientoSalidaAlmacen)
 
                     If CveMovimientoVirtual > 0 Then
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -19297,6 +19264,9 @@ Partial Class Ventas
                     End If
 
                 End If
+            Else
+                Alert("No se tiene definido el almacen virtual.")
+                OcurrioError = True
             End If
 
         Catch ex As Exception