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

tipoconta

Browse Source
This commit is contained in:
rrene
2021-06-09 19:06:52 -07:00
parent 75d31bf973
commit 2ea674db83
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Ventas/CatClasificaciones.aspx.vb
View File

@@ -118,7 +118,7 @@ Partial Class CatClasificaciones
'End If 'End If
'Cuenta.Dispose() 'Cuenta.Dispose()
Else Else
If UsuarioActual.Empresa.TipoContabilizacion = 2 Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
DivCuentaIngresos.Visible = False DivCuentaIngresos.Visible = False
DivCuentaCostos.Visible = False DivCuentaCostos.Visible = False
DivCuentaGasto.Visible = False DivCuentaGasto.Visible = False
@@ -224,17 +224,26 @@ Partial Class CatClasificaciones
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
Dim ObjEmpresa As New ClsSisEmpresas
Dim Empresa As Empresa = Nothing If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
Empresa = ObjEmpresa.Empresa Dim ObjEmpresa As New ClsSisEmpresas
Dim ObjContabilidad As New ClsContPAQi(Empresa) Dim Empresa As Empresa = Nothing
If ObjContabilidad.GetCuentas(-1, "-1", 1, 20000) Then If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
DtCuentasContables = ObjContabilidad.DtResultados Empresa = ObjEmpresa.Empresa
Dim ObjContabilidad As New ClsContPAQi(Empresa)
If ObjContabilidad.GetCuentas(-1, "-1", 1, 20000) Then
DtCuentasContables = ObjContabilidad.DtResultados
End If
ObjContabilidad.Dispose()
End If End If
ObjContabilidad.Dispose() ObjEmpresa.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
End If End If
ObjEmpresa.Dispose()
End Sub End Sub
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click