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

11
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,6 +224,9 @@ Partial Class CatClasificaciones
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
Dim ObjEmpresa As New ClsSisEmpresas Dim ObjEmpresa As New ClsSisEmpresas
Dim Empresa As Empresa = Nothing Dim Empresa As Empresa = Nothing
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
@@ -235,6 +238,12 @@ Partial Class CatClasificaciones
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()
ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
DdlCuentaGasto.DataValueField = "CveCuenta"
DdlCuentaGasto.DataTextField = "Cuenta"
End If
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