PLAN CONTABLE
Crear Cuenta
Con este comando podemos crear una cuenta en el plan contable de ContaNet.
Cuenta: Código de la Cuenta hasta 10 caracteres.
Título: Nombre de la cuenta límite de 35 caracteres.
Campos Opcionales
Nivel: El nivel de la cuenta es Opcional. En caso de querer crear mayores de cuenta, debemos asignar el nivel de estructura al que pertenece. Para actualizar el nombre de la cuenta, en este campo usaremos -1.
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.CrearCuenta Cuenta:= "4300000988" Titulo:="JOSE GOMEZ",Nivel:=0
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.CrearCuenta Cuenta:= "4300000988" Titulo:="JOSE GOMEZ GONZALEZ",Nivel:=-1
Crear Alterna
Con este comando podemos crear una cuenta para un plan de cuentas alternativo de ContaNet.
Cuenta: La cuenta a crear en el Plan Alternativo
Título: Nombre de la cuenta límite de 35 caracteres.
Campos Opcionales
Nivel: El nivel de la cuenta creada, si es de mayor sera: 1;2;3;4;5 y auxiliar 0. Para actualizar el nombre de la cuenta alterna, en este campo usaremos -1
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.CrearAlterna Cuenta:= "4300000988" Titulo:="JOSE GOMEZ"
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.CrearAlterna Cuenta:= "4300000988" Titulo:="JOSE GOMEZ",0
Leer Plan
Con esta función podremos analizar diversas propiedades de los datos pertenecientes al plan contable.
Las funciones de LeerPlan y LeerExtracto solo permiten consultas y no modificaciones, a diferencia de la opción de LeerAsiento, que si permite hacer modificaciones y volver a grabar el asiento.
Este comando esta asociado a las funciones: Plan, PlanDebe y PlanHaber
Cuenta: Nos identifica la cuenta contable del apunte examinado. Variable de 1 a 10 dígitos, siendo como minimo, los tres primeros dígitos cuentas del mayor y los siguientes según la configuración de la empresa.
Campos Opcionales
Titulo: Nombre de la cuenta límite de 35 caracteres.
Nivel: El nivel de la cuenta creada, si es de mayor sera: 1;2;3;4;5 y auxiliar 0.
EXCN.Plan(x).coldebe
EXCN.Plan(x).colhaber
EXCN.Plan(x).Cuenta
EXCN.Plan(x).DebeAbril
EXCN.Plan(x).DebeAgosto
EXCN.Plan(x).DebeApertura
EXCN.Plan(x).DebeCierre
EXCN.Plan(x).DebeDiciembre
EXCN.Plan(x).DebeEnero
EXCN.Plan(x).DebeFebrero
EXCN.Plan(x).DebeJulio
EXCN.Plan(x).DebeJunio
EXCN.Plan(x).DebeMarzo
EXCN.Plan(x).DebeMayo
EXCN.Plan(x).DebeNoviembre
EXCN.Plan(x).DebeOctubre
EXCN.Plan(x).DebeRegularizacion
EXCN.Plan(x).DebeSeptiembre
EXCN.Plan(x).HaberAbril
EXCN.Plan(x).HaberAgosto
EXCN.Plan(x).HaberApertura
EXCN.Plan(x).HaberCierre
EXCN.Plan(x).HaberDiciembre
EXCN.Plan(x).HaberEnero
EXCN.Plan(x).HaberFebrero
EXCN.Plan(x).HaberJulio
EXCN.Plan(x).HaberJunio
EXCN.Plan(x).HaberMarzo
EXCN.Plan(x).HaberMayo
EXCN.Plan(x).HaberNoviembre
EXCN.Plan(x).HaberOctubre
EXCN.Plan(x).HaberRegularizacion
EXCN.Plan(x).HaberSeptiembre
EXCN.Plan(x).Nivel
EXCN.Plan(x).Titulo
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.LeerPlan "7000000001"
For x = 1 To EXCN.ContadorPlan
MsgBox EXCN.Plan(x).Cuenta
MsgBox EXCN.Plan(x).colhaber
Next
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.LeerPlan "700*"
For x = 1 To EXCN.ContadorPlan
MsgBox EXCN.Plan(x)).Cuenta
MsgBox EXCN.Plan(x).DebeEnero
Next
Ejemplo 3
EXCN.AbrirEmpresa ""
EXCN.LeerPlan "7000000001"
For x = 1 To EXCN.ContadorPlan
MsgBox EXCN.Plan(x).Cuenta
MsgBox EXCN.Plan(x).Titulo
For y = 0 To 14
EXCN.PlanDebe(x, y)
Next
For y = 0 To 14
EXCN.PlanHaber(x, y)
Next
Next
Leer Plan EX
Este comando permite leer una cuenta del plan contable. En la cuenta a consultar se pueden utilizar * o ? para las consultas. Es decir es posible incluso de una sola lectura leer todo el plan contable. El Nivel es opcional, y de incluirse limitará la lectura a las cuentas del nivel seleccionado.
Las funciones de LeerPlan y LeerExtracto solo permiten consultas y no modificaciones, a diferencia de la opción de LeerAsiento, que si permite hacer modificaciones y volver a grabar el asiento.
Este comando esta asociado a las funciones PlanDebe y PlanHaber
Fi: Plan en el que consultar. Tenemos disponibles: Centros de costo, Plan Alterna, PlanContable y Presupuestos.
Cuenta: Nos identifica la cuenta contable del apunte examinado. Variable de 1 a 10 dígitos, siendo como minimo, los tres primeros dígitos cuentas del mayor y los siguientes según la configuración de la empresa.
Campos Opcionales
Titulo: Nombre de la cuenta límite de 35 caracteres.
Nivel: El nivel de la cuenta es Opcional teneindo del 1-5 para mayores y 0 para auxiliares.
HastaCuenta: Nos permite hacer un filtro desde la cuenta inicial hasta la que asignemos en este campo.
Siguiente_1_Anterior_2: Al hacer filtros nos permite movernos entre cuentas.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.leerplanex PlanContable, "4300000001"
For x = 1 To EXCN.ContadorPlan
Debug.Print EXCN.Plan(x).Titulo
Next
Plan
Con esta función podremos analizar diversas propiedades del plan usando el método de LeerPlan.
EXCN.Plan(x).coldebe: Es una Variable que nos da el total del debe en el mes solicitado. El mes en números del 00-14 de la variable a analizar siendo 00 la apertura, 01-12 los meses del año, 13 la Regularización y 14 el Cierre.
EXCN.Plan(x).colhaber: Es una Variable que nos da el total del Haber en el mes solicitado. El mes en números del 00-14 de la variable a analizar siendo 00 la apertura, 01-12 los meses del año, 13 la Regularización y 14 el Cierre
EXCN.Plan(x).Cuenta: Nos identifica la cuenta contable del apunte examinado. Variable de 1 a 10 dígitos, siendo como minimo, los tres primeros cuentas del mayor y los siguientes según la configuración de la empresa.
EXCN.Plan(x).DebeAbril: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeAgosto: Saldo acumulado al final de este mes.
EXCN.Plan(x).DebeApertura: Saldo acumulado en el debe en la apertura de esta cuenta.
EXCN.Plan(x).DebeCierre: Saldo acumulado en el debe al cierre de esta cuenta.
EXCN.Plan(x).DebeDiciembre: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeEnero: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeFebrero: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeJulio: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeJunio: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeMarzo: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeMayo: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeNoviembre: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeOctubre: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).DebeRegularizacion: Saldo acumulado en el debe en la regularización de esta cuenta.
EXCN.Plan(x).DebeSeptiembre: Saldo acumulado al final de este mes en el Debe.
EXCN.Plan(x).HaberAbril: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberAgosto: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberApertura: Saldo acumulado en el haber en la apertura de esta cuenta.
EXCN.Plan(x).HaberCierre: Saldo acumulado en el haber al cierre de esta cuenta
EXCN.Plan(x).HaberDiciembre: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberEnero: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberFebrero: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberJulio: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberJunio: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberMarzo: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberMayo: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberNoviembre: Saldo acumulado al final de este mes.
EXCN.Plan(x).HaberOctubre: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).HaberRegularizacion: Saldo acumulado en el debe en la regularización de esta cuenta.
EXCN.Plan(x).HaberSeptiembre: Saldo acumulado al final de este mes en el Haber.
EXCN.Plan(x).Nivel: El nivel de la cuenta creada, si es de mayor sera: 1;2;3;4;5 y auxiliar 0.
EXCN.Plan(x).Titulo: Nombre asociado a la cuenta contable de 35 caracteres.
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.LeerPlan "700*"
For x = 1 To EXCN.ContadorPlan
MsgBox EXCN.Plan(x).Cuenta
MsgBox EXCN.Plan(x).DebeEnero
Next
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.LeerPlan "7000000001"
For x = 1 To EXCN.ContadorPlan
MsgBox EXCN.Plan(x).Cuenta
MsgBox EXCN.Plan(x).DebeEnero
EXCN.CerrarEmpresa