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

-- mejora en visualizacion de pago de ventas n compras

Browse Source
This commit is contained in:
rrene
2022-03-04 14:17:30 -07:00
parent c2e0d837a4
commit 9e877232ea
2 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/PopIECompras.aspx
View File

@@ -434,7 +434,7 @@
<asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" /> <asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
<br /> <br />
<asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA" <asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black"> ToolTip="Listado de Movimientos" data-height="300" CssClass="ADScroll" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
@@ -450,7 +450,7 @@
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Folio</HeaderTemplate> <HeaderTemplate>Folio</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal> <asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>

22
Bancos/PopIECompras.aspx.vb
View File

@@ -833,17 +833,19 @@ Partial Class Bancos_PopIECompras
End Sub End Sub
Protected Sub CargaVentas(Optional CveMoneda As Integer = 1) Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
Dim ObjVentas As New ClsVentas
Dim ObjCliente As New ClsClientes
Dim CveCliente As Integer = -1
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then Dim ObjCliente As New ClsClientes
If ObjVentas.DtResultados.FiltraParametros("Saldo > 0").Rows.Count > 0 Then Dim ObjMovtos As New ClsMovimientos
CveCliente = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
GvVentas.DataSource = ObjVentas.DtResultados.FiltraParametros($"Saldo > 0 AND CveMoneda = {CveMoneda}") Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", String.Format("RFC = '{0}'", RFCProveedor)).ToEntero
GvVentas.DataBind()
End If If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
GvVentas.DataSource = ObjMovtos.DtResultados.FiltraParametros($" Saldo > 0 AND CveVenta > 0 AND CveMoneda = {CveMoneda}")
End If End If
ObjMovtos.Dispose()
GvVentas.DataBind()
If CveCliente > 0 Then If CveCliente > 0 Then
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -857,7 +859,7 @@ Partial Class Bancos_PopIECompras
End If End If
ObjVentas.Dispose()
ObjCliente.Dispose() ObjCliente.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub