EXTRACTO
Contador Extracto
Determina la cantidad de apuntes de una cuenta determinada o de un grupo de cuentas.
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.LeerExtracto "4300000001"
MsgBox EXCN.ContadorExtracto
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.LeerExtracto "4300000001"
For x = 1 To EXCN.ContadorExtracto
Debug.Print EXCN.Extracto(x).Registro
Next
Extracto
Con esta función podremos analizar diversas propiedades del Extracto usando el método de Leer Extracto.
EXCN.Extracto(x).Asiento: Nos Identifica el asiento al que corresponde el extracto examinado.
EXCN.Extracto(x).CambioMoneda: Nos Identifica el valor del cambio de moneda al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Canal: Nos Identifica el canal al que corresponde el extractodel asiento examinado.
EXCN.Extracto(x).Cuenta: Nos Identifica la cuenta al que corresponde el extractodel asiento examinado.
EXCN.Extracto(x).Debe: Nos Identifica el importe final del debe al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Descripción: Nos Identifica la descripción de la cuenta al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Diario: Nos Identifica el diario al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Fecha: Nos Identifica la fecha a la que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).FechaGrabacion: Nos Identifica la fecha en que se grabo en el programa el asiento del extracto examinado.
EXCN.Extracto(x).Haber: Nos Identifica el haber total al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Importe: Nos Identifica el importe del asiento al que corresponde el extracto examinado.
EXCN.Extracto(x).Moneda: Nos Identificala monenda usada en el extracto del asiento examinado.
EXCN.Extracto(x).Punteo: Nos Identifica el número de punteo, si tiene, al que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Referencia: Nos Identifica la referencia a la que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Registro: Nos Identifica el número de registros a los que corresponde el extracto del asiento examinado.
EXCN.Extracto(x).Saldo: Nos identifica el saldo inicial del extracto del asiento examinado.
EXCN.Extracto(x).Tipo:
EXCN.Extracto(x).Usuario: Nos identifica con que usuario se han metido los asientos que se detallan en el extracto.
EXCN.Extracto(x).ValorEnMoneda: Nos detalla el importe en la moneda usada, normalmente euros, del saldo del extracto.
Ejemplo
EXCN.AbrirEmpresa ""
EXCN.LeerExtracto "7000000001"
For x = 1 To EXCN.ContadorExtracto
v1 = EXCN.Extracto(x).Asiento
Next
Leer Extracto
Con este comando se puede leer uno o varios extractos. La cuenta permite el uso de * y ?. Los parámetros de DesdeFecha y HastaFecha son opcionales. De no incluirse se leerá los datos del año completo.
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.
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
DesdeFecha: Fecha inicial de la consulta en formato "dd/mm/yy".
HastaFecha: Fecha final de la consulta en formato "dd/mm/yy".
Archivo: Por defecto es el extracto de la cuenta con los movimientos del diario, aunque también se puede seleccionar la consulta en base al Extracto Analítico.
Ejemplo 1
EXCN.AbrirEmpresa ""
EXCN.LeerExtracto "7000000001"
For x = 1 To EXCN.ContadorExtracto
MsgBox EXCN.Extracto(x).Cuenta
MsgBox EXCN.Extracto(x).FechaGrabacion
Next
Ejemplo 2
EXCN.AbrirEmpresa ""
EXCN.LeerExtracto "700*"
For x = 1 To EXCN.ContadorExtracto
MsgBox EXCN.Extracto(x).Cuenta
MsgBox EXCN.Extracto(x).FechaGrabacion
Next
Los datos que se devuelven están en el metodo Extracto
