-- E119- se quitó la fucnionalidad para limitar el uso de lote/cad por sucursal

Inventarios/EntradasSalidas.aspx.vb

@@ -1411,12 +1411,6 @@ Partial Class Inventarios_EntradasSalidas
             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
         End If
 
-        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-            FechaCaducidadVal = MinFecha
-            FechaCaducidad = MinFecha
-            Lote = ""
-        End If
-
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
@@ -4682,11 +4676,6 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                    AplicaLote = False
-                    AplicaCaducidad = False
-                End If
-
                 'activa seccion
                 ThSeccionEntrada.Visible = AplicaSeccion
                 TrSeccionEntrada.Visible = AplicaSeccion
@@ -4724,10 +4713,6 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                    AplicaLote = False
-                    AplicaCaducidad = False
-                End If
                 'activa seccion
                 ThSeccionSalida.Visible = AplicaSeccion
                 TrSeccionSalida.Visible = AplicaSeccion

Inventarios/EntregaAlmacen.aspx.vb

@@ -665,17 +665,6 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
                     End If
 
-                    If UsuarioActual.CveEmpresa = 119 Then
-                        Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
-
-                        If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                            ValidaLoteCaducidad = True
-                        Else
-                            ValidaLoteCaducidad = False
-                        End If
-
-                    End If
-
                     If Not DtDatos.Columns.Contains("Serie") Then DtDatos.Columns.Add("Serie", GetType(String))
 
                     If Not DtDatos.Columns.Contains("Lote") Then DtDatos.Columns.Add("Lote", GetType(String))

Inventarios/RecepcionAlmacen.aspx.vb

@@ -606,21 +606,11 @@ Partial Class Inventarios_RecepcionAlmacen
 
             Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
             If drr IsNot Nothing Then
-                '("CveSubProyecto").ToEntero
-                Dim CveSubProyecto As Integer = drr("CveSubProyecto").ToString.ToEntero
-                'RMF condición temporal
-                If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                    ValidaLoteCaducidad = True
-                Else
-                    ValidaLoteCaducidad = False
-                End If
 
                 CveTipoAlmacen = drr("CveTipoAlmacen").ToString.ToEntero
 
             End If
 
-
-
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -597,14 +597,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 'codigo provisional.
                 Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" Then
                     If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then
                         Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
                 End If
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked Then
 
                     Dim ObjInventarios As New ClsInventarios
                     If ObjInventarios.GetExistenciasCaducidad(CveProducto, DdlAlmacenOrigen.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then
@@ -641,11 +641,6 @@ Partial Class Inventarios_TraspasoAlmacen
                     tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
                     tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
 
-                    If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                        tLote = "-1"
-                        tCaducidad = MinFecha
-                    End If
-
                     Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
 
                     Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
@@ -2127,11 +2122,6 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString
                         Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
 
-                        If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
-                            tLote = gvr.FCTextBox("TxtLote").Text
-                            tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
-                        End If
-
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=tSerie, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=CveMovimientoDetalleEntrada) Then
                             ErrorMovInv = True
                             TextoError = "Ocurrió un error al guardar los movimientos de salida"