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" />
<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"
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>
<asp:TemplateField>
<ItemTemplate>
@@ -450,7 +450,7 @@
<asp:TemplateField>
<HeaderTemplate>Folio</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>

34
Bancos/PopIECompras.aspx.vb
View File

@@ -832,19 +832,21 @@ Partial Class Bancos_PopIECompras
ObjMov.Dispose()
End Sub
Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
Dim ObjVentas As New ClsVentas
Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
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
If ObjVentas.DtResultados.FiltraParametros("Saldo > 0").Rows.Count > 0 Then
CveCliente = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
GvVentas.DataSource = ObjVentas.DtResultados.FiltraParametros($"Saldo > 0 AND CveMoneda = {CveMoneda}")
GvVentas.DataBind()
End If
End If
Dim ObjMovtos As New ClsMovimientos
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", String.Format("RFC = '{0}'", RFCProveedor)).ToEntero
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
ObjMovtos.Dispose()
GvVentas.DataBind()
If CveCliente > 0 Then
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
ViewState("IdCuentaCliente") = ObjCliente.IdCtaContClientes
@@ -854,10 +856,10 @@ Partial Class Bancos_PopIECompras
ViewState("IdCtaContMonedaExtranjeraCliente") = ObjCliente.IdCtaContMonedaExtranjera
End If
End If
ObjVentas.Dispose()
End If
ObjCliente.Dispose()
UpDatos.Update()
End Sub