-cambios en globalsDT2

Inventarios/Consignaciones.aspx.vb

@@ -1431,7 +1431,7 @@ Partial Class Inventarios_Consignaciones
             HFProducto.Value = DdlProducto.SelectedValue
         End If
 
-        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1)
+        DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(HFProducto.Value.ToEntero, -1, UsuarioActual.CveEmpresa)
         DdlUnidad.DataBind()
         UpDatos.Update()
     End Sub

Inventarios/Equivalencias.aspx.vb

@@ -193,11 +193,11 @@ Partial Class Inventarios_Equivalencias
 
 #Region "  RECARGA GLOBAL  "
     Private Sub RecargaGlobal()
-        Dim equivalencias As New ClsProductosServicios
-        If equivalencias.GetPSEquivalencias(-1, -1) Then
-            GlobalDTProductosServiciosEquivalencias(-1, -1) = equivalencias.DtResultados
-        End If
-        equivalencias.Dispose()
+        'Dim equivalencias As New ClsProductosServicios
+        'If equivalencias.GetPSEquivalencias(-1, -1) Then
+        '    GlobalDTProductosServiciosEquivalencias(-1, -1) = equivalencias.DtResultados
+        'End If
+        'equivalencias.Dispose()
     End Sub
 #End Region
 

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
 
-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), DdlClasificacion_SelectedIndexChanged.selectedvalue.toentero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
             If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                 dt = ObjMovimientos.DtResultados
                 Dim ListaBorrar As New List(Of DataColumn)

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2137,7 +2137,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 If EntregaDirecta Then
                     If Not ErrorMovInv Then
                         Dim CveVenta As Integer = 0
-                        Dim Dt As DataTable
+                        Dim Dt As DataTable = Nothing
 
                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                             If ObjInventario.DtResultados.Rows.Count > 0 Then

Inventarios/TrasladoSolicitud.aspx.vb

@@ -863,7 +863,7 @@ Partial Class Inventarios_TrasladoSolicitud
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
             DdlUM.Items.Clear()
             If UsuarioActual.Empresa.UsaInventarios Then
-                DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductoServicio.SelectedValue.ToEntero, -1)
+                DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductoServicio.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
             Else
                 DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             End If

Inventarios/TraspasoAlmacen.aspx.vb

@@ -803,7 +803,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V")
+            CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio
             Dim dtvirtual As DataTable = Nothing
 
@@ -1617,24 +1617,31 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S")
-                FolioVirtualEntrada = ObjInventario.Folio
-                Dim dtvirtual As DataTable = Nothing
+                If CveAlmacenVirtual > 0 Then
 
-                If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
-                    dtvirtual = ObjInventario.DtResultados
-                    For Each RowVirtual As DataRow In dtvirtual.Rows
-                        Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
-                        Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
-                        Dim PU As Double = RowVirtual("PU").ToString().ToDouble()
-                        Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2")
+                    FolioVirtualEntrada = ObjInventario.Folio
+                    Dim dtvirtual As DataTable = Nothing
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            ErrorMovInv = True
-                            Exit For
-                        End If
-                    Next
+                    If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                        dtvirtual = ObjInventario.DtResultados
+                        For Each RowVirtual As DataRow In dtvirtual.Rows
+                            Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
+                            Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble()
+                            Dim PU As Double = RowVirtual("PU").ToString().ToDouble()
+                            Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+                        Next
+                    Else
+                        TextoError = "No se pudo registrar el movimiento virtual"
+                        ErrorMovInv = True
+                    End If
                 Else
+                    TextoError = "La Sucursal no tiene creado un almacen virtual"
                     ErrorMovInv = True
                 End If
             End If
@@ -1712,7 +1719,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)
                 Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) 'onclick='ImprimirTraslado()'
-                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
+                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/>Virtual<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
 
 
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)