From 07a2ad6c7ad0e84ce8941638ebea7ac529c4a319 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 Jan 2024 05:59:18 -0700 Subject: [PATCH] --cambios criterios de cuentas --- Ventas/ClientesAbonar.aspx.vb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 2c5749d39..acb39c93c 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -258,20 +258,15 @@ Partial Class Ventas_ClientesAbonar Private Sub CargaCuentas() DdlCuenta.Items.Clear() - 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 + Dim CveTipoCuenta As Integer = -1 + If UsuarioActual.CveEmpresa = 119 Then CveTipoCuenta = 2 'solo las cuentas de cheques 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)) RegistraScript("CambiaPesosDolares();")