Account OLE DB Provider

De Account OLE DB Provider geeft toegang tot de gegevens uit alle beschikbare financiële administraties. De gegevens staan overigens niet alleen aan BuyIt, Order, Invoice, Mate etc. ter beschikking maar ook aan alle andere OLE DB geactiveerde toepassingen zoals Office 2015, Excel en Visual Basic.

In BuyIt, Order of Mate modellen worden via zogenoemde ActiveX Data Objecten (ADO) toegang verleend tot alle beschikbare OLE DB Providers. Tijdens installatie van Account wordt FaOleDb.dll geinstalleerd en geregistreerd. Hiermee kan bijvoorbeeld toegang verkregen worden tot Demo.adm onafhankelijk van de huidige maatschappijcode:

{
  ADOquery "Provider=FaOleDb.FaProv;DataSource=C:\Astona\Demo.adm",Rubriek
  Rubriek; //Opm: Activeer de query
  OpenTable(RUBRIEK); //Ook toegestaan: OpenTable(lopend.rub)
  Do; Doe iets met rubrieken!; Od
}

De Fa OLE DB provider stelt de volgende tabellen beschikbaar waarbij rubrieknr een geldig rubrieknummer voorstelt:

RUBRIEK (of lopend.rub): Alle rubrieken.
INFO (of lopend.ref):    Algemene informatie.
VALUTA (of ftabel.val):  De valutatabel.
KP_AC (of kpac.def):     Alle kostenplaatsen en afdelingscodes
LOGBOEK (of lopend.dat): Logboek entries
MEMO (of memo.fil):      Memoblaadjes (kattebelletjes) per debiteur of crediteur
rubrieknr.IDX:           Stamgegevens van de grootboekrekeningen uit de gekozen rubriek
DEBITEUREN.IDX:          Idem, voor rubriek gereserveerd voor debiteuren via Account|Opties|Algemeen
CREDITEUREN.IDX          en crediteuren
VERKOOPMARGE.IDX:        Idem, voor rubriek gereserveerd voor verkoopmarge via Mate|Aangifte|Algemeen:Rekeningnummers
INKOOPMARGE.IDX          en inkoopmarge
rubrieknr.BKF:           Alle mutaties of boekingen in de gekozen rubriek.
DEBITEUREN.BKF:          Idem
CREDITEUREN.BKF:         
VERKOOPMARGE.BKF:        Idem
INKOOPMARGE.BKF: 
rubrieknr.HBF:           Alle historische mutaties of boekingen in de gekozen rubriek.
DEBITEUREN.HBF:          Idem
CREDITEUREN.HBF:        

In het volgende voorbeeld worden eerst alle veldnamen in de tabel „Rubriek" opgesomd, vervolgens de rubrieken in de administratie Demo met een debetsaldo en daarna de rubrieken met een creditsaldo steeds gesorteerd op het rubrieksaldo:

{
  ADOQuery "Provider=FaOleDb.FaProv;Data Source=c:\astona\demo.adm",ole;
  ole
  OpenTable("Rubriek",saldo desc)
}
Veldnamen in de tabel „Rubriek":
{
  i = 0
  While i<ColumnCount
    GetColumnName(VeldNaam,i)
}
VeldNaam[i] = [VeldNaam]
{
    i = i+1
  Wend
  finddata(saldo>0)
}
Rubrieken met Debetsaldo:
{
  Do
}
[rub*nr] [rub*tit*] [[saldo*]]
{
  Od
}
Rubrieken met Creditsaldo:
{
  Clearselect()
  FindData(saldo<0)
  Do
}
[rub*nr] [rub*tit*] [[saldo*]]
{
  Od
}