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

--FIX cuenta complementaria

Browse Source
This commit is contained in:
JPerez
2025-07-10 01:49:59 -07:00
parent e665478f05
commit dd0c877afe
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Bancos/CuentasBancariasDetalle.aspx.vb
View File

@@ -138,20 +138,21 @@ Partial Class Bancos_CuentasBancariasDetalle
Using ObjContabilidad As New ClsContabilidad Using ObjContabilidad As New ClsContabilidad
'UsuarioActual.Empresa.Funcionalidad(208).ToEntero 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DDlCuentaContable.DataSource = ObjContabilidad.DtResultados dt = ObjContabilidad.DtResultados.Copy()
DDlCuentaContable.DataSource = dt
DDlCuentaContable.DataBind() DDlCuentaContable.DataBind()
DDlCuentaContable.Items.Insert(0, New ListItem("Selecione", "-1")) DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
DDlCuentaContable.DataTextField = "CtaCodigo" 'DDlCuentaContable.DataTextField = "CtaCodigo"
DDlCuentaContable.DataValueField = "CveCuenta" 'DDlCuentaContable.DataValueField = "CveCuenta"
End If End If
End Using End Using
DDlCuentaContable.DataSource = dt
DDlCuentaContable.DataBind()
DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
DdlCuentaContableComplementaria.DataSource = dt DdlCuentaContableComplementaria.DataSource = dt
DdlCuentaContableComplementaria.DataBind() DdlCuentaContableComplementaria.DataBind()
DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1")) DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
If dt IsNot Nothing Then dt.Dispose() If dt IsNot Nothing Then dt.Dispose()
trCuentaContable.Visible = True trCuentaContable.Visible = True
trCuentaContableComplementaria.Visible = True trCuentaContableComplementaria.Visible = True