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

2
Inventarios/RecepcionAlmacen.aspx
View File

@@ -418,7 +418,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True" <asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None"> DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote,AplicaSeccion,AplicaLote,AplicaCaducidad,AplicaSerie" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
<HeaderStyle Height="58px" /> <HeaderStyle Height="58px" />
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>

48
Inventarios/RecepcionAlmacen.aspx.vb
View File

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