From 8fc357dbc03307e5ac04db13bbfda24827e3e965 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Jan 2025 18:25:23 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora,=20si=20el=20concepto=20bancario=20?= =?UTF-8?q?(30).=20primero=20busca=20las=20cuentas=20bancarias=20de=20tipo?= =?UTF-8?q?=20cheque=20y=20luego=20las=20dem=C3=A1s?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx.vb | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 5182c0551..d9051657e 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2469,8 +2469,22 @@ Partial Class ContabilidadC_RegPrePolizaS Dim objconta3 As New ClsContabilidad objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa) If objconta3.DtResultados.Rows.Count > 0 Then - Dim rowcc As DataRow = objconta3.DtResultados.Rows(0) - CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero() + 'si solo hay una cuenta asignada, toma el primero + If objconta3.DtResultados.Rows.Count = 1 Then + Dim rowcc As DataRow = objconta3.DtResultados.Rows(0) + CveBancoCuenta = rowcc("CveBancoCuenta").ToString.ToEntero() + Else + CveBancoCuenta = objconta3.DtResultados.Rows(0)("CveBancoCuenta").ToString.ToEntero() 'toma el primero sino hay del tipo cheque + 'casos que tienen la misma cuenta, que primero tome las cuentas de tipo cheque, y luego las demás + Dim dttC As DataTable = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1) + For Each drcta As DataRow In objconta3.DtResultados.Rows + Dim tCveTipoCuentas As Integer = dttC.FiltroPrimeroValor("CveTipoCuenta", $"CveCuenta= {drcta("CveBancoCuenta")}").ToEntero + If tCveTipoCuentas = 2 Then 'tipo cheques + CveBancoCuenta = drcta("CveBancoCuenta").ToString.ToEntero() + Exit For + End If + Next + End If Else CveBancoCuenta = 0 End If