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

-- cambios al cargar lista de precios en busqueda de existencia

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-12-07 19:32:11 -07:00
parent c216178154
commit 4dd60bfc86
2 changed files with 37 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -66,7 +66,7 @@
<tr runat="server" id="DivListasPrecios" visible="false"> <tr runat="server" id="DivListasPrecios" visible="false">
<td class="text-right">Lista de precio: </td> <td class="text-right">Lista de precio: </td>
<td> <td>
<asp:DropDownList runat="server" ID="DdlPrecioLista" CssClass="form-control input-sm select2me" Width="150px" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlPrecioLista" CssClass="form-control input-sm select2me" Width="150px" DataTextField="PrecioLista" DataValueField="CvePrecioLista" AutoPostBack="true" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged"></asp:DropDownList>
</td> </td>
<td></td> <td></td>
</tr> </tr>
@@ -113,26 +113,22 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div id="TblBusqueda" style="width: 100%" runat="server" border="0" visible="false"> <div id="TblBusqueda" style="width: 100%" runat="server" border="0" visible="false">
<div class="row"> <div class="row" style="max-width: 780px;">
<div class="col-md-6"> <div class="col-md-6">
<asp:Literal ID="LtPs" Text="" runat="server" />&nbsp&nbsp&nbsp&nbsp <asp:Literal ID="LtPs" Text="" runat="server">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtPrecioPS" Text="" runat="server" Visible="false" /> <asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
&nbsp&nbsp&nbsp&nbsp
<asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false" />
&nbsp&nbsp <asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false" /> <asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
&nbsp&nbsp&nbsp&nbsp
<asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false" />
&nbsp
<asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false" />
</div> </div>
<div class="col-md-3" style="text-align: right;"> <div class="col-md-3" style="text-align: right;">
<asp:Literal ID="LtPrecioPS" Text="" runat="server" Visible="false" />
<br />
<asp:HyperLink ID="HlPendiente" Style="color: #337ab7;" Visible="false" runat="server" Text="Ventas Pendiente por Surtir" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HlPendiente" Style="color: #337ab7;" Visible="false" runat="server" Text="Ventas Pendiente por Surtir" Target="_blank"></asp:HyperLink>
</div> </div>
</div> </div>

26
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -353,6 +353,28 @@ Partial Class Inventarios_Default
UpModalBuscarPorSerie.Update() UpModalBuscarPorSerie.Update()
End Sub End Sub
Protected Sub DdlPrecioLista_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DDlPS.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
Dim ObjVta As New ClsVentas
Dim objPS As New ClsProductosServicios
If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
If ObjVta.DtResultados.Rows.Count > 0 Then
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero(), -1, DDlPS.SelectedValue.ToEntero) Then
If objPS.DtResultados.Rows.Count > 0 Then
LtPrecioPS.Text = $"Precio de venta: <b>$: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}</b>"
End If
End If
End If
End If
ObjVta.Dispose()
objPS.Dispose()
End If
UPDatos.Update()
End Sub
End Class End Class