mejora en funcionalidad 132

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1606,7 +1606,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim TxtCantidad = GvInv.Rows(Gvr.RowIndex).FCTextBox("TbCantidadF")
                 If Gvr.DataKey("CantidadF").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
-                    If Gvr.DataKey("AplicaSerieLote") = "True" Then
+                    If Gvr.DataKey("AplicaSerie") = "True" Then
                         TdSeriePS.Visible = True
                         TxtSeriePS.Focus()
 
@@ -1673,11 +1673,14 @@ Partial Class Inventarios_RecepcionAlmacen
 
     End Sub
     Protected Sub BtnSeriePS_Click(sender As Object, e As EventArgs)
-        AgregaSerie(TxtSeriePS.Text.Trim, 2)
+        AgregaSerie(TxtSeriePS.Text.Trim, 2, CargaMasivaSeries:=True)
         TdSeriePS.Visible = False
         TxtSeriePS.Text = ""
         TxtCodigoPS.Text = ""
         TxtCodigoPS.Focus()
+        UPInv.Update()
+        GvInv.DataSource = DtInv
+        GvInv.DataBind()
     End Sub
     Protected Sub BtnGuardarCantidadEspecial_Click(sender As Object, e As EventArgs)
         AgregaCantidadEspecial()
@@ -1775,7 +1778,6 @@ Partial Class Inventarios_RecepcionAlmacen
             DtInv.AcceptChanges()
         Next
 
-
         UPInv.Update()
         UpSerie.Update()
         TxtSerie.Text = ""
@@ -1814,7 +1816,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             'PARA VALIDAR SI LA SERIE ES IGUAL AL CODIGO O CODIGOBARRAS
-            If Serie.ToUpper = dr("Codigo").ToString.ToUpper Or Serie.ToUpper = dr("CodigoBarras").ToString.ToUpper Then
+            If Serie.ToUpper = dr("Codigo").ToString.ToUpper OrElse Serie.ToUpper = dr("CodigoBarras").ToString.ToUpper Then
                 MensajeAlert.Append($"<br/> El numero de Serie <b>{Serie}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.")
                 Continue For
             End If
@@ -1829,20 +1831,21 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim MensajeSinExistencias As New StringBuilder
         Dim ObjInventarios As New ClsInventarios
         Dim Index = 0
+        Dim Cantidad As Integer = LbCantidad.Text.ToEntero
+
+        If CargaMasivaSeries Then Cantidad = DtInv.FiltroPrimeroValor("CantidadF", "Consec = " & CveConsecSerie).ToEntero
+        'DtInv
 
         For Each Serie In SeriesArreglo
             If Serie <> "" Then
-                 
-                Dim Row = DtDatosDetalle.NewRow
 
+                Dim Row = DtDatosDetalle.NewRow
                 Index = Index + 1
-                If Index > LbCantidad.Text.ToEntero Then
-                    Exit For
-                End If
+                If Index > Cantidad Then Exit For
 
                 'VALIDA QUE SIGA AGREGANDO
-                If Not DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count < LbCantidad.Text.ToEntero Then
-                    Exit For
+                If Not DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie)).Rows.Count < Cantidad Then
+                    MensajeAlert.Append("series cargadas en su totalidad") : Exit For
                 End If
 
                 'VERIFICA EXISTENCIAS