This commit is contained in:
rakcsle
2021-03-01 15:16:17 -07:00
11 changed files with 113 additions and 35 deletions

View File

@@ -1716,13 +1716,22 @@ Partial Class Clientes
End If
CargaEventoBitacora()
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
' CargaCuentasConceptos()
' divCuentas.Visible = True
' divCuentasContp.Visible = False
'Else
' divCuentas.Visible = False
' divCuentasContp.Visible = True
'End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
divCuentas.Visible = False
divCuentasContp.Visible = True
divCuentasContp.Visible = False
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
divCuentas.Visible = False
divCuentasContp.Visible = True
End If