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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-12-09 09:09:45 -07:00
parent 951814f050 44f0e4f60e
commit 94f6ea66ac
15 changed files with 1181 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -66,7 +66,7 @@
<tr runat="server" id="DivListasPrecios" visible="false">
<td class="text-right">Lista de precio: </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>
</tr>
@@ -113,26 +113,22 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<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">
<asp:Literal ID="LtPs" Text="" runat="server" />&nbsp&nbsp&nbsp&nbsp
<asp:Literal ID="LtPrecioPS" Text="" runat="server" Visible="false" />
&nbsp&nbsp&nbsp&nbsp
<asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false" />
&nbsp&nbsp
<asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false" />
&nbsp&nbsp&nbsp&nbsp
<asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false" />
&nbsp
<asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false" />
<asp:Literal ID="LtPs" Text="" runat="server">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
</div>
<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>
</div>
</div>
@@ -150,7 +146,7 @@
</Columns>
</asp:GridView>
</div>
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 325px;" runat="server" visible="False">
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 325px;" runat="server" visible="false" >
<asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-hover" GridLines="None">
<Columns>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />

40
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -46,12 +46,6 @@ Partial Class Inventarios_Default
DivSucursal.Visible = True
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
LtPrecioPS.Visible = True
DivSucursal.Visible = True
End If
If UsuarioActual.CveEmpresa.Contiene(186) Then
LtPrecioPS.Visible = True
DivListasPrecios.Visible = True
@@ -303,16 +297,16 @@ Partial Class Inventarios_Default
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasMedRin(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlRin.SelectedValue.ToEntero, DdlMedidas.SelectedValue.ToEntero) Then
GvMedRin.DataSource = ObjInventarios.DtResultados
GvMedRin.DataSource = ObjInventarios.DtResultados.Copy()
If ObjInventarios.DtResultados.Rows.Count > 0 Then
TblBusqueda.Visible = True
GvMedRin.Columns(5).Visible = ObjInventarios.DtResultados.MAX("CantidadMinimaPromo") <> ""
End If
End If
ObjInventarios.Dispose()
GvMedRin.DataBind()
UPDatos.Update()
DivMedRin.Visible = True
GvMedRin.DataBind()
UPDatos.Update()
End Sub
Private Sub CargaEquivalencia()
@@ -353,6 +347,28 @@ Partial Class Inventarios_Default
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