From 70fce81f48bea4915f41dc70741f319531c3f037 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Aug 2023 15:29:58 -0700 Subject: [PATCH] =?UTF-8?q?--=20correci=C3=B3n=20de=20cuenta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PolizaCheque.aspx.vb | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 0b2fbc06f..2d4de193c 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -203,8 +203,6 @@ Partial Class Bancos_PolizaCheque Private Sub CargaPlantillas(TipoPlantilla As Integer) - - DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) DdlPlantilla.DataBind() @@ -263,9 +261,7 @@ Partial Class Bancos_PolizaCheque Banco.Dispose() TxtFolio.Text = Folio.ToString End If - End If - - + End If Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero @@ -368,10 +364,10 @@ Partial Class Bancos_PolizaCheque For Each drt As DataRow In Dt.Rows Cuenta = drt("ConceptoContable").ToString - IdCuenta = 0 + IdCuenta = drt("IdCtaContable").ToString.ToEntero CveCuenta = 0 - CodigoCuenta = "" - NombreCuenta = "" + CodigoCuenta = drt("Codigo").ToString + NombreCuenta = drt("Nombre").ToString If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))