EMPRESA
Abrir Empresa
Con esta función podremos abrir la empresa de ContaNet donde vamos a introducir, consultar o variar los datos.
Empresa: Debe ser una ruta válida a una empresa de ContaNet. Si ponemos doble comillas, abrirá la empresa que este activa en ese momento en ContaNet.
Campos Opcionales
Password: Si la empresa tiene una clave de acceso y no se incluye, no se podrá abrir la empresa, y el servidor devolverá un mensaje de error.
Ejemplo 1
EXCN.AbrirEmpresa "C:\Usuarios\Usuario\Mis documentos\ContaNet\Datos\Empresa de Pruebas"
Ejemplo 2
EXCN.AbrirEmpresa "C:\Usuarios\Usuario\Mis documentos\ContaNet\Datos\Empresa de Pruebas","ABCD"
Ejemplo 3
EXCN.AbrirEmpresa ""
Cerrar Empresa
Este comando cierra la empresa activa. No tiene argumentos.
Ejemplo
EXCN.AbrirEmpresa ""
...
EXCN.CerrarEmpresa
Config Empresa
Mediante esta función podremos grabar datos personalizados en la empresa abierta. Podremos leer los conceptos asignándolos a una variable.
Descripción: Se asignara lo que aqui se especifique.
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.Config ("concepto Personal")="Pruebas de concepto"
EXCN.CerrarEmpresa
Ejemplo 2
Dim Variable as string
EXCN.AbrirEmpresa ""
Variable= EXCN.Config("concepto Personal")
EXCN.CerrarEmpresa
Crear Empresas
Con esta función podremos crear empresas nuevas.
NombreEmpresa: Nombre que va a recibir la empresa.
Campos Opcionales
Año: Año con el cual se quiere crear la empresa. Si no se rellena, se coge el año actual.
Niveles: Niveles del mayor con los que se va a trabajar. Si no se rellena, se ponen los basicos que son: 1;2;3;4;5;
Auxiliares: Tamaño de auxiliares con las que va a trabajar. Si no se rellena, se ponen 10 por defecto.
MonedaBase: Moneda con la cual se va a trabajar. Si no se rellena, se trabaja por defecto con Euros.
MesApertura: Mes en cual se empieza el año. Si no se rellena, por defecto se pone Enero.
PlanContablPorDefecto: Plan Contable con el que se va a trabajar. Si no se rellena, deja un plan vacio.
IvaIgic: Formato de impuesto con el que se va a trabajar. Si no se rellena, por defecto será IVA.
Ejemplo
EXCN.CrearEmpresa "Empresa Servidor Ole"
EXCN.CerrarEmpresa
EXCN.AbrirEmpresa "Empresa Servidor Ole"
Empresa
Mediante esta función sabremos la ruta y el nombre de la empresa activa.
Ejemplo
EXCN.AbrirEmpresa ""
MsgBox EXCN.empresa
Leer Config
Esta Propiedad se usa en combinación con Config. Nos permite ver aquello que esta guardado en la configruación de la empresa. Puede ser tíl guardar datos relacionados con los traspasos, los cuales pueden ser consultados al examinar la empresa.
Descripcion: La descripción del campo a consultar.
Ejemplo 1
EXCN.AbrirEmpresa ""
For x = 1 To 99
Debug.Print EXCN.Leerconfig(x)
Next
Ejemplo 2
EXCN.AbrirEmpresa ""
For x = 1 To 1
Debug.Print EXCN.Leerconfig(1)
Next
Ejemplo 3
EXCN.AbrirEmpresa ""
EXCN.Config("Concepto Personal") = "datos guardados por el desarrollador"
For x = 1 To 1
Debug.Print EXCN.Leerconfig(73)
Next
Número Empresa
Mediante esta función obtendremos el numero de la empresa abierta.
Ejemplo 1
Dim variable As String
EXCN.AbrirEmpresa ""
variable = EXCN.NumeroEmpresa
Ejemplo 2
Dim variable As String
EXCN.AbrirEmpresa ""
Debug.Print EXCN.NumeroEmpresa
