CARTERA
Añadir Cartera
Función equivalente sin caracteres especiales: AddPortfolio
Este comando nos permite crear en la Cartera de ContaNet múltiples apuntes.
FechaVencimiento: Nos Identifica el asiento al que corresponde la cartera examinada.
Cuenta: Nos Identifica la Cartera/Banco al que corresponde el vencimiento de la cartera examinada.
Cartera: Nos Identifica la Cuenta a la que corresponde el vencimiento de la cartera examinada.
Notas: Nos Identifica la fecha a la que corresponde el vencimiento de la cartera examinada.
Una vez añadidos todos los apuntes, tanto contables, como de Iva y Cartera, se ejecuta el comando GrabarAsiento con lo cual los apuntes quedan incorporados a la empresa de ContaNet.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.Fecha="01/03/14"
EXCN.Número=""
EXCN.AñadirApunte Cuenta:="4300000988", Descripción:="Factura 1111", Tipo:=1,Importe:=5200, Diario:=1
EXCN.AñadirCartera FechaVencimiento:="01/12/14", Cuenta:="4300000988", Cartera:="01", Notas:="Notas Factura 1111", Importe:=5200
EXCN.GrabarAsiento
Cartera
Con esta función podremos analizar diversas propiedades de la Cartera según los valores de EXCN.fecha/EXCN.número y usando el método de leer asiento.
Excn.cartera(x).Asiento: Nos Identifica el asiento al que corresponde la cartera examinada.
Excn.cartera(x).Cartera: Nos Identifica la Cartera/Banco al que corresponde el vencimiento de la cartera examinada.
Excn.cartera(x).Cuenta: Nos Identifica la Cuenta a la que corresponde el vencimiento de la cartera examinada.
Excn.cartera(x).Fecha: Nos Identifica la fecha a la que corresponde el vencimiento de la cartera examinada.
Excn.cartera(x).FechaVencimiento: Nos Identifica la fecha cuando se vence la cartera examinada.
Excn.cartera(x).Importe: Nos Identifica el importe al que corresponde el vencimiento de la cartera examinada.
Excn.cartera(x).Marca: Nos Identifica la Marca correspondiente al vencimiento de la cartera examinada.
Excn.cartera(x).Notas: Nos Identifica las Notas del apunte asociado a la cartera examinada.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.Fecha="20/01/13"
EXCN.Número="000002"
EXCN.LeerAsiento
For x = 1 To EXCN.ContadorApuntes
V1 = EXCN.cartera/x/.Asiento (Aqui podemos usar cualquiera de los mencionados anteriormente).
Contador Cartera
Determina la cantidad de apuntes de Cartera que existen al leer un asiento. (Vease LeerAsiento)
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.Número="000106"
EXCN.LeerAsiento
MsgBox EXCN.ContadorCartera
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.Número="000106"
EXCN.LeerAsiento
For X = 1 To EXCN.ContadorApuntes
Print EXCN.Cartera(x).FechaVencimiento
'etc.
Next
Leer Cartera
Mediante esta función podemos leer la cartera asociada a un asiento, apunte, cuenta o fecha en particular.
Cartera: El nº de la cartera que consultamos. Puede ser desde la 01-99.
DesdeFechaVencimiento: La fecha inicial de consulta en formato "dd/mm/yy".
HastaFechaVencimiento: La fecha final de consulta en formato "dd/mm/yy".
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.
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.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerCartera "01", "01/01/13", "01/12/13", "4300000001", "000001"
EXCN.CerrarEmpresa
