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

se agrego un nuevo catálogo de equivalencias en medidas para econollantas

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-08 18:33:17 -07:00
parent bfdda92b7a
commit 7a7c1f71ea
7 changed files with 348 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -35,18 +35,37 @@
</ContentTemplate>
</asp:UpdatePanel>
</td>
<td>
</td>
</tr>
<tr runat="server" id="DivMed" visible="false">
<td class="text-right">Medida: </td>
<td >
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
</td>
<td rowspan="2">
<div id="DivEquivalentes" style="overflow-y: auto; overflow-x:hidden; width: 150px; height:100px" runat="server" visible="False">
<asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="No se encontraron Equivalencias de Medidas" ToolTip="Listado de Equivalencias de Medidas" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes">
<ItemTemplate>
<asp:Literal ID="lblUsuario" runat="server" Text='<%#String.Concat(Eval("MedidaEquivalente"), " ", Eval("RinTamañoEquivalente")) %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</td>
</tr>
<tr runat="server" id="DivRin" visible="false">
<td class="text-right">Rin: </td>
<td >
<asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="150px" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
</td>
<td>
</td>
</tr>
<tr runat="server" id="DivCodigoSeriePS" visible="false">
<td class="text-right"><b>C. Barras:</b></td>
@@ -60,6 +79,9 @@
</ContentTemplate>
</asp:UpdatePanel>
</td>
<td>
</td>
</tr>
<tr align="left" runat="server" id="DivSucursal" visible="false">
@@ -67,12 +89,15 @@
<td>
<asp:DropDownList ID="DdlSubProyecto" AutoPostBack="True" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="400px"></asp:DropDownList>
</td>
<td></td>
</tr>
<tr>
<td colspan="4" style="text-align: center;">
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
</td>
<td></td>
<td></td>
</tr>
</table>
</ContentTemplate>
@@ -113,7 +138,7 @@
</Columns>
</asp:GridView>
</div>
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 365px;" runat="server" visible="True">
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 230px;" runat="server" visible="True">
<asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Contratos encontrados." CssClass="table table-striped table-hover" GridLines="None">
<Columns>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />

11
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -70,6 +70,7 @@ Partial Class Inventarios_Default
DivRin.Visible = True
CargarMedRin()
DivMedRin.Visible = True
DivEquivalentes.Visible = True
DivPS.Visible = False
End If
Dim Txt As String = IfNull(Request("Txt"), "").ToString
@@ -89,6 +90,7 @@ Partial Class Inventarios_Default
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
CargarDatosMedRin()
CargaEquivalencia()
Else
CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
End If
@@ -243,6 +245,15 @@ Partial Class Inventarios_Default
UPDatos.Update()
End Sub
Private Sub CargaEquivalencia()
Dim ObjGeneral As New ClsGenerales
If ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero()) Then
GvEquival.DataSource = ObjGeneral.DtResultados
End If
ObjGeneral.Dispose()
GvEquival.DataBind()
End Sub
Private Function ValidarFiltrosSeleccionados() As Boolean
If DDlPS.SelectedValue.ToEntero > 0 Then Return True
Return False