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

- cambios en AplicaSerie,AplicaCaducidad...

Browse Source
This commit is contained in:
rrene
2020-05-04 10:41:37 -07:00
parent 6af6ac11c0
commit 1633efedc0
2 changed files with 30 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1109,11 +1109,19 @@ Partial Class Inventarios_RecepcionAlmacen
TmDT.Columns.Add("PUExtranjero", GetType(Double))
TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Double))
TmDT.Columns.Add("Consec", GetType(Integer))
TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
TmDT.Columns.Add("AplicaSeccion", GetType(Boolean))
TmDT.Columns.Add("AplicaSerie", GetType(Boolean))
TmDT.Columns.Add("AplicaLote", GetType(Boolean))
TmDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
If Not TmDT.Columns.Contains("AplicaSeccion") Then
TmDT.Columns.Add("AplicaSeccion", GetType(Double))
End If
If Not TmDT.Columns.Contains("AplicaSerie") Then
TmDT.Columns.Add("AplicaSerie", GetType(Double))
End If
If Not TmDT.Columns.Contains("AplicaLote") Then
TmDT.Columns.Add("AplicaLote", GetType(Double))
End If
If Not TmDT.Columns.Contains("AplicaCaducidad") Then
TmDT.Columns.Add("AplicaCaducidad", GetType(Double))
End If
If Not TmDT.Columns.Contains("CostoIndirecto") Then
TmDT.Columns.Add("CostoIndirecto", GetType(Double))
End If
@@ -1166,21 +1174,21 @@ Partial Class Inventarios_RecepcionAlmacen
DtInv = DtInv.FiltraParametros("", "PS")
End If
For Each item As DataRow In DtInv.Rows
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
item("AplicaSeccion") = CBool(Dr("AplicaSeccion"))
If CBool(Dr("AplicaSeccion")) Then GvInv.Columns(10).Visible = True
item("AplicaSerie") = CBool(Dr("AplicaSerie"))
item("AplicaLote") = CBool(Dr("AplicaLote"))
If CBool(Dr("AplicaLote")) Then GvInv.Columns(11).Visible = True
item("AplicaCaducidad") = CBool(Dr("AplicaCaducidad"))
If CBool(Dr("AplicaCaducidad")) Then GvInv.Columns(12).Visible = True
If CBool(Dr("AplicaSeccion")) Or CBool(Dr("AplicaLote")) Or CBool(Dr("AplicaCaducidad")) Or CBool(Dr("AplicaSerie")) Then
GvInv.Columns(15).Visible = True
End If
End If
Next
'For Each item As DataRow In DtInv.Rows
' Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("")
' If Dr IsNot Nothing Then
' item("AplicaSeccion") = CBool(Dr("AplicaSeccion"))
' If CBool(Dr("AplicaSeccion")) Then GvInv.Columns(10).Visible = True
' item("AplicaSerie") = CBool(Dr("AplicaSerie"))
' item("AplicaLote") = CBool(Dr("AplicaLote"))
' If CBool(Dr("AplicaLote")) Then GvInv.Columns(11).Visible = True
' item("AplicaCaducidad") = CBool(Dr("AplicaCaducidad"))
' If CBool(Dr("AplicaCaducidad")) Then GvInv.Columns(12).Visible = True
' If CBool(Dr("AplicaSeccion")) Or CBool(Dr("AplicaLote")) Or CBool(Dr("AplicaCaducidad")) Or CBool(Dr("AplicaSerie")) Then
' GvInv.Columns(15).Visible = True
' End If
' End If
'Next
GvInv.DataSource = DtInv
GvInv.DataBind()
@@ -2824,7 +2832,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar", ex)
OnError("Ocurrió un error al guardar RA.", ex)
ErrorMovInv = True
End Try