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

se consideran los nuevos campos serie,lote y fecha caducidad en el inventario fisico

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-14 09:43:08 -07:00
parent 6ecd8e798c
commit 1bb39f45db
4 changed files with 30 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Inventarios/RepAnomalias.aspx.vb
View File

@@ -136,9 +136,14 @@ Partial Class Inventarios_RepAnomalias
Inventario.Dispose()
GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
GvS.DataBind()
BanderaSerieLoteCad(GvS, DtS)
GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
GvF.DataBind()
BanderaSerieLoteCad(GvF, DtF)
Dim Script = ""
If (GvF.Rows.Count > 0) Then
@@ -267,6 +272,10 @@ Partial Class Inventarios_RepAnomalias
End Sub
#End Region
Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable)
Gv.Columns(4).Visible = resultado.MAX("Serie") <> ""
Gv.Columns(5).Visible = resultado.MAX("Lote") <> ""
Gv.Columns(6).Visible = resultado.MAX("FechaCaducidad") <> ""
End Sub
End Class