-- optmización para sacar info de ps

Inventarios/EntregaAlmacen.aspx.vb

@@ -1156,8 +1156,9 @@ Partial Class Inventarios_EntregaAlmacen
         If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show")
 
         Dim AplicaCaducidad = False
-        If GlobalDTPS(UsuarioActual.CveEmpresa, ).FiltraParametros("").Rows(0) IsNot Nothing Then
-            AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
+        Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie)
+        If dttt IsNot Nothing AndAlso dttt.Rows.Count > 0 Then
+            AplicaCaducidad = If(dttt.FiltraParametros("").Rows(0)("AplicaCaducidad").ToString() = "True", True, False)
         End If
 
         GvSerie.Columns(1).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
@@ -1177,7 +1178,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         'SERIE LOTE RECOMENDADO
         Dim DtSerie As New DataTable
-        If TipoMovimiento = 1 Then
+        If TipoMovimiento = 1 AndAlso Not CargaMasivo Then
             Dim ObjInventarios As New ClsInventarios
             If ObjInventarios.SerieRecomendadoGet(CvePSSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), CveSubProyecto:=CveSubProyecto, CveCliente:=CveCliente, CveVendedor:=CveVendedor) Then
                 DtSerie = ObjInventarios.DtResultados
@@ -1254,7 +1255,7 @@ Partial Class Inventarios_EntregaAlmacen
             ArraySeries = Series.Trim.Split(","c)
 
             For i As Integer = 0 To ArraySeries.Length - 1
-                If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1)
+                If ArraySeries(i).Trim.Length > 1 Then AgregaSerie(ArraySeries(i).Trim, 1, True)
             Next
         Else
             AgregaSerie(TxtSerie.Text.Trim, 1)