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

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"