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

Ajustes comparacion

Browse Source
This commit is contained in:
rakcsle
2023-08-23 17:09:44 -07:00
parent ffcd10080b
commit de83379635
8 changed files with 54 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/ClientesAbonar.aspx.vb
View File

@@ -260,7 +260,16 @@ Partial Class Ventas_ClientesAbonar
Dim CveTipoCuenta As Integer = 2
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
Dim dt As DataTable
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros(" CveTipoCuenta in (1,2) ")
Else
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
End If
If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))