GENERALES
Año
Función equivalente sin caracteres especiales: Year
Con esta función podremos saber el año de la empresa que hemos abierto.
Ejemplo
EXCN.AbrirEmpresa ""
AñoEmpresa= EXCN.Año
Anular Cuenta
Este comando anulará una cuenta del Plan Contable en ContaNet. Sólo debemos pasar el Código Contable a borrar.
Debe tener en cuenta que no comprobará si tiene apuntes en el diario, por lo que debe tener cuidado antes de borrar cuentas.
Cuenta: Código Contable de hasta 10 dígitos como máximo.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.AnularCuenta "4300000001"
Buscar Descripción
Con esta función podemos buscar en el diario la descripción de un apunte, diferenciando Mayusculas y Minusculas si lo deseamos, devolviendo si está ("Verdadero") o si no esta la descripción ("Falso")
Descripción: Detalle del apunte hasta 35 caracteres.
Campos Opcionales
MayusculasMinusculas: Si queremos que coincidan las mayúsculas y minúsculas marcaremos "True".
Ejemplo
Dim respuesta as boolean
EXCN.AbrirEmpresa ""
respuesta = EXCN.BuscarDescripcion("VARIOS")
msgbox respuesta
Buscar Importe
Permite buscar en el diario el importe de un apunte, devolviendo si está ("Verdadero") o si no esta la descripción ("Falso")
Importe: Importe correspondiente al apunte.
Ejemplo
Dim respuesta as boolean
EXCN.AbrirEmpresa ""
respuesta = EXCN.BuscarImporte("1250,30")
msgbox respuesta
Buscar Referencia
Permite buscar en el diario, en la columna "Referencia" la descripción que deseemos, diferenciando Mayúsculas y Minúsculas si lo deseamos, devolviendo si está ("Verdadero") o si no esta la descripción ("Falso").
En caso de que devuelva "True" podremos leer cada uno de los apuntes que contenga la referencia buscada con la matriz Extracto
Referencia: Campo de texto de 16 caracteres.
Campos Opcionales
MayusculasMinusculas: Si queremos que coincidan las mayúsculas y minúsculas marcaremos "True".
Ejemplo 1
Dim respuesta as boolean
EXCN.AbrirEmpresa ""
respuesta = EXCN.BuscarReferencia("1111")
msgbox respuesta
Ejemplo 2
Dim respuesta as boolean
EXCN.AbrirEmpresa ""
respuesta = EXCN.BuscarReferencia("1111")
if respuesta=true then
For x = 1 To cn.ContadorExtracto
EXCN.Extracto(x).Asiento
Carpeta
Con esta propiedad podremos consultar la carpeta que contiene las empresas en Conta.Net.
Ejemplo
Tomando el servidor OLE demostrativo, vemos como usamos la función para desplegar las empresas en la carpeta.
ListBox2.Clear
EXCN.Carpeta = ListBox1.List(ListBox1.ListIndex)
EXCN.LoadEmpresas
For Each b In EXCN.Empresas
ListBox2.AddItem b
Next
Fecha
La fecha del asiento se asigna con este comando. La fecha se asigna de la misma manera tanto al prepara un asiento para grabar, como a la hora de consultar un asiento contable.
Ejemplo
EXCN.fecha="141231"
EXCN.fecha="31/12/14"
EXCN.fecha="31/12/2014"
Usuario
ContaNet permite poder saber el usuario activo en el programa. Si desea configurar su programa con usuarios, consulte el documento "Usuarios. Ejecución y utilización"
Ejemplo
Dim variable As String
EXCN.AbrirEmpresa ""
variable = EXCN.Usuario
Version
Con esta función consultamos la version del servidor Olé que está en uso para ejecutar las funciones.
Ejemplo
EXCN.AbrirEmpresa ""
Debug.Print EXCN.Version
