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

Revert "-- correccion de texto"

Browse Source 
This reverts commit 1c08843dd9.
This commit is contained in:
rrene
2020-09-10 05:59:25 -07:00
parent de34c4f2e2
commit cff8e704de
20 changed files with 917 additions and 1892 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Contabilidad/RegPrePolizaS.aspx.vb
View File

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