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

-- correccion de texto

Browse Source
This commit is contained in:
rrene
2020-09-10 05:58:32 -07:00
parent fe8dc62296
commit 1c08843dd9
20 changed files with 1892 additions and 917 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -533,7 +533,13 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
Private Sub CargaCuentasContables()
DdlCtaContable.DataSource = Session("DtCuentas")
Dim Conta As New ClsContabilidad()
If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.Empresa.CveEmpresa) Then
DtCuentasContables = Conta.DtResultados
End If
Conta.Dispose()
DdlCtaContable.DataSource = DtCuentasContables
DdlCtaContable.DataBind()
DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
@@ -1044,7 +1050,12 @@ Partial Class ContabilidadC_RegPrePolizaS
DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub
Private Sub CargaCtaContableE()
DdlCtaContableE.DataSource = Session("DtCuentas")
Dim Conta As New ClsContabilidad()
If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.Empresa.CveEmpresa) Then
DdlCtaContableE.DataSource = Conta.DtResultados
End If
Conta.Dispose()
DdlCtaContableE.DataBind()
DdlCtaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
End Sub