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

- Serie, Lote Caducidad, SeccionAlmacen

Browse Source
This commit is contained in:
rrene
2020-05-18 13:30:42 -07:00
parent 5166b17d17
commit 21de74f1cc
14 changed files with 459 additions and 346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2148,27 +2148,27 @@ Partial Class Inventarios_EntradasSalidas
EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
If DdlProducto2.SelectedValue.ToEntero > 0 Then
Dim MetodoInventario As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario", "").ToEntero ' ("Inv_CveMetodoInventario = 6", "PS")
If MetodoInventario = 5 Then
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If CBool(dr("AplicaSerie")) Then
'LblSerieLote.Visible = True
TxtnSerie.Visible = True
divSerie.Visible = True
'LblSerieLote.Visible = True
TxtnSerie.Visible = True
divSerie.Visible = True
'TrSerieLote.Visible = True
'TrSerieLote2.Visible = True
GvM.Columns(9).Visible = True
'TrSerieLote.Visible = True
'TrSerieLote2.Visible = True
End If
If CBool(dr("AplicaLote")) Then
TxtnLote.Visible = True
divLote.Visible = True
'TrLote.Visible = True
'TrLote2.Visible = True
End If
End If
If MetodoInventario = 6 Then
TxtnLote.Visible = True
divLote.Visible = True
'TrLote.Visible = True
'TrLote2.Visible = True
GvM.Columns(10).Visible = True
'TrBatch2.Visible = True
GvM.Columns(11).Visible = True
End If
End If
DdlUnidad.Items.Clear()
@@ -2230,43 +2230,10 @@ Partial Class Inventarios_EntradasSalidas
End If
If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
If DtTemp.MAX("Serie").ToString <> "" Then
'LblSerie.Visible = True
TxtnSerie.Visible = True
'TrSerieLote.Visible = True
'TrSerieLote2.Visible = True
GvM.Columns(9).Visible = True
End If
If DtTemp.MAX("Lote").ToString <> "" Then
TxtnLote.Visible = True
'TrLote.Visible = True
'TrLote2.Visible = True
GvM.Columns(10).Visible = True
'TxtnBatch.Visible = True
'TrBatch.Visible = True
'TrBatch2.Visible = True
'GvM.Columns(11).Visible = True
End If
If DtTemp.MAX("FechaCaducidad").ToString <> "" Then
GvM.Columns(11).Visible = True
'TxtnBatch.Visible = True
'TrBatch.Visible = True
'TrBatch2.Visible = True
'GvM.Columns(11).Visible = True
End If
If DtTemp.MAX("CveSeccionAlmacen").ToString <> "" Then
'TxtnBatch.Visible = True
'TrBatch.Visible = True
'TrBatch2.Visible = True
GvM.Columns(12).Visible = True
End If
GvM.Columns(9).Visible = DtTemp.MAX("Serie").ToString <> ""
GvM.Columns(10).Visible = DtTemp.MAX("Lote").ToString <> ""
GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToString <> ""
GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString <> ""
End If