ASIENTOS
Leer Asiento
Leerá los apuntes del Asiento, según los valores de EXCN.fecha y EXCN.número o usando las variables de las que dispone el método.
Fecha: La fecha de consulta en formato "dd/mm/yy"
Asiento: El número de asiento de las cuentas que queremos consultar. Un asiento se considera un conjunto de apuntes contables, con su respectiva entrada en el libro de IVA, como también los registros de cartera.
Con esta función se puede usar los siguientes métodos:
Apunte:
EXCN.Apunte(x).ArchivoImagen
EXCN.Apunte(x).Canal
EXCN.Apunte(x).Cuenta
EXCN.Apunte(x).Descripción
EXCN.Apunte(x).Diario
EXCN.Apunte(x).Importe
EXCN.Apunte(x).Notas
EXCN.Apunte(x).Punteo
EXCN.Apunte(x).Referencia
EXCN.Apunte(x).Registro
EXCN.Apunte(x).Tipo
Cartera:
EXCN.Cartera(x).Asiento
EXCN.Cartera(x).Cuenta
EXCN.Cartera(x).Cartera
EXCN.Cartera(x).Fecha
EXCN.Cartera(x).FechaVencimiento
EXCN.Cartera(x).Importe
EXCN.Cartera(x).Marca
EXCN.Cartera(x).Notas
Iva:
EXCN.IVA(X).Base
EXCN.IVA(X).ClaveOperacion
EXCN.IVA(X).CuentaClienteProveedor
EXCN.IVA(X).CuentaIVA
EXCN.IVA(X).CuotaProrata
EXCN.IVA(X).Factura
EXCN.IVA(X).FechaFactura
EXCN.IVA(X).NIF
EXCN.IVA(X).NumeroOrden
EXCN.IVA(X).Prorata
EXCN.IVA(X).Referencia
EXCN.IVA(X).SerieDeFacturas
EXCN.IVA(X).SRTC
EXCN.IVA(X).TipoIva
EXCN.IVA(X).Titulo
EXCN.IVA(X).Total
Para poder consultar la cantidad de apuntes del asiento existen los siguientes contadores:
ContadorApunte
ContadorIva
ContadorCartera
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.Fecha="01/05/11"
EXCN.Número="000106"
EXCN.LeerAsiento
For x = 1 To EXCN.ContadorApuntes
EXCN.Apunte(x).Cuenta
FOR Y=1 TO ContadorIVA
EXCN.IVA(X).NumeroOrden
Next
For z=1 to ContadorCartera
EXCN.Cartera(x).FechaVencimiento
Next
"etc.
Next
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.LeerAsiento"01/05/11","000106"
For x = 1 To EXCN.ContadorApuntes
EXCN.Apunte(x).Cuenta
FOR Y=1 TO ContadorIVA
EXCN.IVA(X).NumeroOrden
Next
For z=1 to ContadorCartera
EXCN.Cartera(x).FechaVencimiento
Next
"etc.
Next
Número de Asiento
Función equivalente sin caracteres especiales: Number
Al preparar un asiento para grabarlo, el número de asiento se asigna con el comando Número. Si no se asigna numero (como en el ejemplo 2) , entonces el servidor OLE asignará automáticamente el siguiente número del contador.
Si se asigna un número, entonces se grabará con el número asignado manualmente. Igual que la fecha, el numero se utiliza, tanto al grabar asientos, como al consultarlos.
Ejemplo 1
EXCN.Número="000001"
Ejemplo 2
EXCN.Número=""
Grabar Asiento
El comando GrabarAsiento da el comando al servidor para grabar un asiento contable, después que se ha creado.
Un asiento se considera un conjunto de apuntes contables, con su respectiva entrada en el libro de IVA, como también los registros de cartera. Si no se asigna número, el programa automáticamente asignará el número de asiento del Control de Asiento. (Vease AñadirApunte, AñadirIVA o AñadirCartera)
Ejemplo
EXCN.AbrirEmpresa ""
EEXCN.Fecha="11/12/14"
EXCN.Número=""
EXCN.AñadirApunte Cuenta:="6000000001", Descripción:="Factura 1111", Tipo:=1, Importe:=5200, Diario:=1
EXCN.AñadiraAnalitica CuentaContable:="6000000001", CuentaAnalitica:="0001", Descripción:="Factura 1111", Tipo:=1, Importe:=5200, Diario:=1
EXCN.GrabarAsiento
Anular Asiento
Este comando anulará un asiento determinado en ContaNet. Obligatoriamente debemos pasar la fecha y el numero de asiento a borrar.
Si se utiliza LeerAsiento antes de AnularAsiento, se conservarán en memoria todos los datos del asiento en el formato designado arriba.
Esto permite que se modifique cualquier dato y que se dé nuevamente el comando GrabarAsiento, y quedará grabado el asiento con todas las modificaciones.
Fecha: Fecha con formato "dd/mm/yy".
NúmeroAsiento: Número de asiento de 6 caracteres relleno de ceros por la izquierda.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.AnularAsiento "03/08/11", "000106"
Leer Primer Asiento
Este comando permite leer el primer asiento del ejercicio contable.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerPrimerAsiento
Leer Último Asiento
Este comando permite leer el último asiento introducido del ejercicio contable el cual puede diferir del último número de asiento usado.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerUltimoAsiento
Leer Anterior Asiento
Este comando permite leer el asiento anterior al que ya está solicitado
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerAnteriorAsiento
Leer Próximo Asiento
Este comando permite leer el asiento siguiente al que ya está solicitado.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerProximoAsiento
