- mejoras en lote/cad

Inventarios/EntradasSalidas.aspx.vb

@@ -1331,7 +1331,7 @@ Partial Class Inventarios_EntradasSalidas
             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
         End If
 
-        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.Contiene(10276) Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
             FechaCaducidadVal = MinFecha
             FechaCaducidad = MinFecha
             Lote = ""
@@ -3845,16 +3845,16 @@ Partial Class Inventarios_EntradasSalidas
         Dim ObjInventario As New ClsInventarios
         Dim CveUM As Integer
         Dim Mensaje As String = ""
-        Dim FechaCaducidad As Date
-        Dim lote As String
+        'Dim FechaCaducidad As Date
+        'Dim lote As String
         If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
             If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
                 CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
             End If
         End If
 
-        FechaCaducidad = If(ObjProductosServicios.AplicaCaducidad, TxtCaducidadSalida.Text.ToDate, MinFecha)
-        lote = If(ObjProductosServicios.AplicaLote, TxtLoteSalida.Text.ToString, "-1")
+        Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
+        Dim FechaCaducidad As Date = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text).ToDate
 
         If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then
             If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then