Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-10-30 11:27:26 -07:00
parent 9aec894b6f cc86167206
commit 1e5887bd71
19 changed files with 948 additions and 185 deletions
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3661,6 +3661,7 @@ Partial Class Inventarios_EntradasSalidas
            GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
            GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
            GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvEntradas.Columns(6).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
        End If
    End Sub

@@ -3773,6 +3774,7 @@ Partial Class Inventarios_EntradasSalidas
            GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
            GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
            GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
        End If
    End Sub

@@ -4049,6 +4051,7 @@ Partial Class Inventarios_EntradasSalidas

                'activa caducidad
                ThCaducidadEntrada.Visible = AplicaCaducidad
+                ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                TrCaducidadEntrada.Visible = AplicaCaducidad

            Else
@@ -4082,6 +4085,7 @@ Partial Class Inventarios_EntradasSalidas

                'activa caducidad
                ThCaducidadSalida.Visible = AplicaCaducidad
+                ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                TrCaducidadSalida.Visible = AplicaCaducidad

            Else
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -398,7 +398,7 @@
                                <div class="portlet-title">
                                    <div class="caption font-green">
                                        <i class="icon-pin font-green"></i>
-                                        <span class="caption-subject bold uppercase">Entregas solo a:</span>
+                                        <span class="caption-subject bold uppercase">PERSONAL AUTORIZADO PARA ENTREGAS EN ALMACÉN:</span>
                                    </div>
                                </div>
                                <div class="portlet-body form">
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -840,6 +840,7 @@ Partial Class Inventarios_EntregaAlmacen
            If AplicaSeccion Then GvDatos.Columns(7).Visible = True
            If AplicaLote Then GvDatos.Columns(8).Visible = True
            If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
+            GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")

        End If
        GvDatos.DataSource = DtDatos
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1293,6 +1293,7 @@ Partial Class Inventarios_RecepcionAlmacen

        If AplicaSeccion Then GvInv.Columns(11).Visible = True
        If AplicaLote Then GvInv.Columns(12).Visible = True
+        GvInv.Columns(13).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
        If AplicaCaducidad Then GvInv.Columns(13).Visible = True

        If AplicaSerie OrElse AplicaSeccion OrElse AplicaLote OrElse AplicaCaducidad Then
@@ -2689,7 +2690,7 @@ Partial Class Inventarios_RecepcionAlmacen

                        Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()

-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                        FolioVirtual = ObjInventario.Folio

                        For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2883,9 +2884,16 @@ Partial Class Inventarios_RecepcionAlmacen
                End If
            End If

+            'VERIFICA SI TIENE PENDIENTE POR SURTIR
            If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
-                    ErrorMovInv = True
+                If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                    Dim DtFaltante As DataTable = ObjInventario.DtResultados.FiltraParametros("CantidadF > 0")
+                    If DtFaltante.Rows.Count = 0 Then
+                        If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                    DtFaltante.Dispose()
                End If
            End If

--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -702,6 +702,12 @@ Partial Class Inventarios_TraspasoAlmacen

        End If

+        Dim RealizarMovimientoVirtual As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            RealizarMovimientoVirtual = True
+        End If
+
        'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
        If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
            If Not ChkTransitorio.Checked Then
@@ -855,7 +861,7 @@ Partial Class Inventarios_TraspasoAlmacen


        'VIRTUAL SALIDA
-        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+        If RealizarMovimientoVirtual Then

            'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()

@@ -922,7 +928,7 @@ Partial Class Inventarios_TraspasoAlmacen


                'VIRTUAL ENTRADA
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
                    'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()

                    'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
@@ -1259,6 +1265,7 @@ Partial Class Inventarios_TraspasoAlmacen

                TxtnFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
                ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
+                ThFechaCaducidad.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
                'GvDatos.Columns(8).Visible = CBool(drP("AplicaCaducidad"))

@@ -1821,6 +1828,15 @@ Partial Class Inventarios_TraspasoAlmacen
            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero

            Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
+            Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
+
+
+            Dim RealizarMovimientoVirtual As Boolean = False
+
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+                RealizarMovimientoVirtual = True
+            End If
+

            'AGREGAMOS LA SALIDA
            CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1903,7 +1919,7 @@ Partial Class Inventarios_TraspasoAlmacen
            'VIRTUAL ENTRADA
            Dim CveMovimientoVirtualEntrada As Integer = 0
            Dim FolioVirtualEntrada As Integer = 0
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+            If RealizarMovimientoVirtual Then
                Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()

                Dim CveAlmacenVirtual As Integer = -1