AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- visualziacion serie/lote

Browse Source
This commit is contained in:
rrene
2020-07-23 09:31:20 -07:00
parent 29e319a192
commit afd17ba911
2 changed files with 20 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -229,7 +229,7 @@
<div class="row" style="margin-top: 5px;"> <div class="row" style="margin-top: 5px;">
<label class="col-md-4">Código.Barras</label> <label class="col-md-4">Código.Barras</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox> <asp:TextBox runat="server" ID="TxtCodigoBarras" ></asp:TextBox>
</div> </div>
</div> </div>
<div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false"> <div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">

34
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -229,6 +229,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
If Inventario.DtResultados.Rows.Count > 0 Then If Inventario.DtResultados.Rows.Count > 0 Then
GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0 GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0
GvIFD.Columns(5).Visible = Inventario.DtResultados.MAX("SerieLote") <> ""
GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> "" GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha
GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
@@ -333,16 +334,16 @@ Partial Class Inventarios_InventarioFisicoDetalle
CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0 GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> "-1" GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> ""
GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1" GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900" GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad.ToDate > MinFecha
If GvIFDUltimoRegistrado.Rows.Count > 0 Then If GvIFDUltimoRegistrado.Rows.Count > 0 Then
GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = "" GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = ""
GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
@@ -559,18 +560,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
' '
End Sub End Sub
Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs) 'Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'") ' Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1" ' If Producto IsNot Nothing Then
Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1" ' Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
Dim AplicaLote As Boolean = Producto("AplicaLote") = "1" ' Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1" ' Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
' Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
'divSeccionAlmacen.Visible = AplicaSeccion ' 'divSeccionAlmacen.Visible = AplicaSeccion
divLote.Visible = AplicaLote ' divLote.Visible = AplicaLote
divFechaCaducidad.Visible = AplicaCaducidad ' divFechaCaducidad.Visible = AplicaCaducidad
divSerie.Visible = AplicaSerie ' divSerie.Visible = AplicaSerie
UPAgregarPro.Update() ' End If
End Sub
' UPAgregarPro.Update()
'End Sub
End Class End Class