--estilo del texto de "recibir" fontawesome

Inventarios/RecepcionAlmacen.aspx.vb

@@ -841,10 +841,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
             If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString.ToEntero = 0 Then
                 e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary input-sm"
-                e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left' > Recibir</i>"
+                e.Row.FCLinkButton("BtnSurtir").Text = "<i class='fa fa-arrow-left'></i> Recibir"
             Else
                 e.Row.FCLinkButton("BtnSurtir").CssClass = "btn yellow-gold input-sm"
-                e.Row.FCLinkButton("BtnSurtir").Text = " Devolver <i class='fa fa-arrow-right' ></i>"
+                e.Row.FCLinkButton("BtnSurtir").Text = " Devolver <i class='fa fa-arrow-right'></i>"
             End If
 
             If UsuarioActual.TienePermisoProceso(201) Then
@@ -1773,6 +1773,8 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim DtSeriesNuevas As New DataTable
         DtSeriesNuevas.Columns.Add("Serie", GetType(String))
 
+        'If CvePSS > 0 And CvePSSerie = 0 Then CvePSSerie = CvePSS
+
         'PARA VALIDAR SI LA SERIE ES IGUAL AL CODIGO O CODIGOBARRAS
         Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie).FiltroPrimero("", "PS")
 
@@ -1812,6 +1814,9 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim Index = 0
 
         For Each Serie In SeriesArreglo
+            If Serie <> "" Then
+
+
                 Dim Row = DtDatosDetalle.NewRow
 
                 Index = Index + 1
@@ -1854,6 +1859,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Row("FechaCaducidad") = MinFecha.ToShortDateString
 
                 DtDatosDetalle.Rows.Add(Row)
+            End If
         Next
         ObjInventarios.Dispose()
 
@@ -4841,14 +4847,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 Alert("El nombre de la cuarta columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            'If Not dt.Columns(4).ColumnName = "Lote" Then
-            '    Alert("El nombre de la cuarta columna debe ser 'Lote'. Favor de corregirlo", TipoMensaje.MsgError)
-            '    Exit Sub
-            'End If
-            'If Not dt.Columns(5).ColumnName = "FechaCaducidad" Then
-            '    Alert("El nombre de la cuarta columna debe ser 'Fecha Caducidad'. Favor de corregirlo", TipoMensaje.MsgError)
-            '    Exit Sub
-            'End If
 
 
             dt.TableName = "Datos"
@@ -4871,12 +4869,15 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                 Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
                                 Dim CveUnidadMedida As Integer = RowPS("CveUM").ToString().ToEntero()
+                                CvePSSerie = CveProducto
+                                CveConsecSerie = DtInv.FiltroPrimeroValor("Consec", "CvePS=" & CvePSSerie).ToEntero
 
                                 Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
                                 Dim Serie As String = RowExcel("Serie").ToString()
                                 Dim Lote As String = "" '= RowExcel("Lote").ToString()
                                 Dim FechaCaducidad As Date = MinFecha '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
                                 Dim Observaciones As String = "" '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString
+                                LbCantidad.Text = Cantidad.ToString
 
                                 Dim Valido As Boolean = True