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

- limitar 100 facturas - SMS

Browse Source 
-- comentar código corte
This commit is contained in:
rrene
2025-06-20 19:56:41 -07:00
parent 49cadc688d
commit a35f348cbb
1 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Ventas/ClientesAbonar.aspx.vb
View File

@@ -439,7 +439,9 @@ Partial Class Ventas_ClientesAbonar
TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago") SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")
GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio") If UsuarioActual.CveEmpresa = 186 Then TmpCxCAux = TmpCxCAux.AsEnumerable.Take(200).CopyToDataTable() 'Limitar a 100 registros para evitar problemas de rendimiento
GvCxC.DataSource = TmpCxCAux.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
CveMoneda = pCveMoneda CveMoneda = pCveMoneda
End If End If
@@ -698,20 +700,21 @@ Partial Class Ventas_ClientesAbonar
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
GenerarPago()
'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO 'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then 'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
Dim ObjPVenta As New ClsPuntoVenta ' Dim ObjPVenta As New ClsPuntoVenta
If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then ' If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}") ' DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
DdlCorteCaja.DataBind() ' DdlCorteCaja.DataBind()
End If ' End If
ObjPVenta.Dispose() ' ObjPVenta.Dispose()
DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) ' DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpModalCorte.Update() ' UpModalCorte.Update()
RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')") ' RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
Else 'Else
GenerarPago() ' GenerarPago()
End If 'End If
End Sub End Sub
Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click