Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1681,11 +1681,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()
@@ -1783,7 +1786,6 @@ Partial Class Inventarios_RecepcionAlmacen
             DtInv.AcceptChanges()
         Next
 
-
         UPInv.Update()
         UpSerie.Update()
         TxtSerie.Text = ""
@@ -1822,7 +1824,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
@@ -1837,20 +1839,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