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

carta porte

Browse Source
This commit is contained in:
rrene
2021-12-24 07:13:36 -07:00
parent dd7a15c636
commit 9cc73f258c
6 changed files with 50 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -1381,13 +1381,23 @@ Partial Class Inventarios_TraspasoAlmacen
DdlSeccionAlmacen.Visible = CBool(drP("AplicaSeccion"))
'GvDatos.Columns(5).Visible = CBool(drP("AplicaSeccion"))
Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))
ThSerie.Visible = CBool(drP("AplicaSerie"))
TdSerie.Visible = CBool(drP("AplicaSerie"))
TxtnSerie.Visible = CBool(drP("AplicaSerie"))
'codigo temporal
If UsuarioActual.CveEmpresa = 140 Then
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795) Then
AplicaSerie = False
End If
End If
ThSerie.Visible = AplicaSerie
TdSerie.Visible = AplicaSerie
TxtnSerie.Visible = AplicaSerie
'GvDatos.Columns(6).Visible = CBool(drP("AplicaSerie"))
TxtnLote.Visible = CBool(drP("AplicaLote"))
ThLote.Visible = CBool(drP("AplicaLote"))
TdLote.Visible = CBool(drP("AplicaLote"))