Account 2000 OLE DB Provider

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

In BuyIt, Order of Mate 2000 modellen worden via zogenoemde ActiveX Data Objecten (ADO) toegang verleend tot alle beschikbare OLE DB Providers. Tijdens installatie van Account 2000 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 Account2000|Opties|Algemeen
CREDITEUREN.IDX          en crediteuren
VERKOOPMARGE.IDX:        Idem, voor rubriek gereserveerd voor verkoopmarge via Mate2000|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
}