From b89978e47809235d5a98508120dcc291cedf3bd7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 2 Dec 2023 12:39:22 -0700
Subject: [PATCH] -- quitar idcta

---
 Bancos/ConciliacionesBancarias.aspx.vb | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index a52804d80..0d92fcc16 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -637,12 +637,10 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             Dim CveCuentaComplementaria As Integer = 0
             Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero
             Dim ObjConta As New ClsContabilidad
-            If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-                If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
-                    CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
-                    If CveMoneda > 1 Then
-                        CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
-                    End If
+            If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
+                CveCuenta = ObjConta.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveConceptoContable = 30 AND CveBancoCuenta = {DdlCuenta.SelectedValue}").ToEntero
+                If CveMoneda > 1 Then
+                    CveCuentaComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveConceptoContable = 204 AND CveBancoCuenta = {DdlCuenta.SelectedValue}").ToEntero
                 End If
             End If
             If CveCuenta > 0 Then