@@ -824,12 +824,7 @@
|
-
-
-
-
- |
-
+
| Serie: |
@@ -839,20 +834,19 @@
-
-
+
|
|
-
+
-
+
-
+
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 246846c89..55e5616dc 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -858,7 +858,7 @@ Partial Class Inventarios_RecepcionAlmacen
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCLinkButton("BtnSurtir").CommandArgument = e.Row.DBCampo("CveCompra")
- If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString.ToEntero = 0 Then
+ If e.Row.DBCampo("TipoDocto").ToString.Contiene({"Fac"}) And e.Row.DBCampo("EstatusAlmacen").ToString = "0" Then
e.Row.FCLinkButton("BtnSurtir").CssClass = "btn btn-primary input-sm"
e.Row.FCLinkButton("BtnSurtir").Text = " Recibir"
Else
@@ -867,9 +867,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
If UsuarioActual.TienePermisoProceso(201) Then
- Dim Css = "Texto"
- Dim Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DataKey("CveCompra")}"
- e.Row.FCLabel("LblSerieFolio").Text = "" + e.Row.FCLabel("LblSerieFolio").Text + ""
+ e.Row.FCLabel("LblSerieFolio").Text = String.Format("{1} ", e.Row.DataKey("CveCompra"), e.Row.FCLabel("LblSerieFolio").Text)
End If
End If
@@ -1761,7 +1759,7 @@ Partial Class Inventarios_RecepcionAlmacen
Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs)
AgregaSerie(TxtSerie.Text.Replace(" ", String.Empty), 1)
End Sub
- Private Sub AgregaSerie(Serie As String, Tipo As Integer)
+ Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional AlertaSonido As Boolean = True)
'SerieLote = SerieLote.Trim.Replace(" ", " ")
If Serie.Trim = "" Then
@@ -1875,12 +1873,12 @@ Partial Class Inventarios_RecepcionAlmacen
CargaSerie(Tipo, True)
If MensajeAlert.ToString <> "" Then
- RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+ If AlertaSonido Then RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Else
If MensajeSinExistencias.ToString <> "" Then
Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron.
{MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia)
End If
- RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
+ If AlertaSonido Then RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie")
End If
@@ -4954,12 +4952,13 @@ Partial Class Inventarios_RecepcionAlmacen
If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
NoPSConSerie = NoPSConSerie + 1
+ LbCantidad.Text = DtInv.FiltroPrimeroValor("Cantidad", "CvePS=" & CvePSSerie)
End If
If Valido Then
CveConsecSerie = RowPS("Consec").ToString.ToEntero
- AgregaSerie(RowExcel("Serie").ToString, 1)
+ AgregaSerie(RowExcel("Serie").ToString, 1, False)
'AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
RowsCargados = RowsCargados + 1
|