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

agreando combo para las existencias en los almacenes

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-12-05 14:00:01 -07:00
parent 69c9ba36d1
commit 2be6becfa7
3 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -110,6 +110,14 @@
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 truncate" style="width:120px">Producto:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
<asp:ListItem Text="Todos" Value="1" />
<asp:ListItem Text="Con existencia" Value="2" />
<asp:ListItem Text="Sin existencia" Value="3" />
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -169,6 +177,7 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Código
</HeaderTemplate>
<ItemTemplate>
<div class='truncate' style='width: 200px;'>
@@ -179,6 +188,7 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Producto
</HeaderTemplate>
<ItemTemplate>
<div class='truncate' style='width: 200px;'>

10
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn)
@@ -137,9 +137,9 @@ Partial Class Inventarios_KardexAlmacen
For Each Dr As DataRow In dt.Rows
TotColumna += Dr.Item(index).ToString.ToDouble
Next
If Not TotColumna > 0 Then
ListaBorrar.Add(dt.Columns(index))
End If
'If Not TotColumna > 0 Then
' ListaBorrar.Add(dt.Columns(index))
'End If
Next
For Each item As DataColumn In ListaBorrar
dt.Columns().Remove(item)
@@ -226,7 +226,7 @@ Partial Class Inventarios_KardexAlmacen
e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False
If e.Row.RowType = DataControlRowType.Header Then
e.Row.Cells(6).ToolTip = "Costo Promedio"
'e.Row.Cells(6).ToolTip = "Costo"
End If
End Sub