PEGEL: maintenance rapport Dit rapport is een bijlage bij de documentatie (CP/M nummer: 5409490) van het boekhoudpakket PEGEL. Een aantal programma's is gewijzigd, de wijzigingen zijn zowel correcties als verbe- teringen. Per programma zal worden aangegeven welke wijzigingen (en waarom) er zijn aangebracht. De listing van de gewijzigde regels is ook opgenomen zodat deze bijlage samen met de oor- spronkelijke documentatie een compleet geheel vormt. Als uit- breiding is het programma BDGPRINT toegevoegd (zie verder). Opmerking Ik heb een relatief groot aantal telefoontjes gehad van gebrui- kers die bij het eerste gebruik de foutmelding "illegal function call" kregen. De oorzaak hiervan is dat de datafiles PGL en BDG gesqueezed op de schijf zijn aangebracht en dus eerst moeten worden USQ (unsqeezed). Als de foutmelding op- treedt, is ook de file PGL aangemaakt (met nul records); deze file kan dan uiteraard worden verwijderd. LEES S.V.P. DE DOKUMENTATIE EN HET ARTIKEL IN DE SOFTWARE-BUS 85-1!! Het systeem bestaat nu uit de volgende programma's: -PEGEL versie: 2.1 -BUDGET versie: 2.1 -PGLINIT versie: 2.1 -PGLJAAR versie: 2.1 -PGLREC versie: geen -PGLPRINT versie: 1.11 -PGL-BDG versie: 2.0 -datafile PGL -datafile BDG -BDGPRINT versie: 3.0 -CONVBDG versie: geen N.B. Bij de eerste verspreiding (schijf 508) was het programma LIQ.BAS ten onrechte verspreid. Dit programma kan zonder meer worden verwijderd. Programma PEGEL Er is een wijziging aangebracht, zodat bij het opvragen van de uigavegegevens (code 0) ook bedragen tot 1 miljoen worden weer- gegeven zonder de lay-out op het scherm aan te tasten. Gewijzigde programmaregels: 10 VERSIE$="2.1" 2050 PRINT SPACE(11); 2060 PRINT USING "######,.##";X; 2070 PRINT FNC$(24,1)+SPACE$(57)+FNC$(24,28); 2080 PRINT USING "**######,";XT#; 2090 PRINT USING "**####,.## ";YT;ZT; 2430 PRINT USING " ######,";X#; 2440 PRINT USING "######,.##";Y;Z Programma BUDGET Bij dit programma zijn er drie problemen opgelost. Het eersteprobleem betreft de hoofdrubriek "00". Indien voor de hoofdrubriek "00" wordt opgegeven, wordt deze rubriek ten onrechtegeaccepteerd. Dit zal later uiteraard aanleiding tot een foutmelding geven. Om dit op te lossen zijn de volgende programmaregels gewijzigd: 1440 IF X#=0 THEN 1550 ELSE H%=X# 3030 GOSUB 1430:IF X#=0 THEN 3380 ELSE H%=X# 3420 GOSUB 1430:IF X#=0 THEN 3760 3810 GOSUB 1430:IF X#=0 THEN 4050 ELSE IF NIET% THEN 3790 3880 GOSUB 1280:IF X#=0 THEN 4050 4360 GOSUB 1280:IF X#=0 THEN 4710 ELSE H%=X# Bij verwijdering van een subrubriek worden de budgetsaldi nietnul gemaakt. Dat geeft problemen als PGL-BDG wordt gedraaid;dan wordt ten onrechte het saldo op de hoofdrubriek gecorrigeerd. De oplossing bestaat uit het toevoegen van een regel: 3512 LSET BB$=N48$:LSET BU$=N48$:PUT 2,11*H%+S% Het derde probleem is ernstiger. Het antwoord "N" op de vraagop het startscherm wist de omschrijvingen van de hoofdrubriekenin PGL. Oplossing is aangebracht door een regel te wijzigen: 1230 IF X%=0 THEN 1220 ELSE IF X%=2 THEN EINDE%=-1:GOTO 1150 De signalering en oplossing van deze fout is mij door Wim Souren van de North Star GG toegestuurd, hiervoor mijn dank. Het versienummer in regel 10 is tevens aangepast: 10 VERSIE$="2.1" Programma PGLINIT Dit programma is gewijzigd om de uitbreiding die het nieuwe programma BDGPRINT geeft te initialiseren. Tevens is er een versienummer aangebracht. Er was een fout in het programma aan- wezig waardoor de balanstotalen op het menuscherm van PEGEL on- gedefinieerd waren (zie regel 1000). De volgende programmaregels zijn gewijzigd: 90 VERSIE$="2.1" 432 GET 1,9:VERSIE$=FNR$+VERSIE$ 482 PRINT FNC$(7,27)+VERSIE$; 1000 X$="":FOR I%=1 TO 10:X$=X$+NULS$:NEXT:LSET BAL$=X$ 1260 FOR REC%=10 TO 240:PUT 2,REC%:NEXT 1262 LSET BN$="1":LSET BO$="NETTO INKOMEN":PUT 2,230 Programma PGLJAAR Sommige uitgaven worden door een fout ten onrechte als "niet aanwezig" aangemerkt zodat er geen verwerking in BDG plaats vindt. Om de nieuwe versie van de oude te kunnen onderscheiden is tevens een versienummer aangebracht: 90 VERSIE$="2.1" 542 GET 1,9:VERSIE$=FNR$+VERSIE$ 722 PRINT FNC$(7,27)+VERSIE$; 740 PRINT FNC$(9,1); 1790 IF MID$(BV$(H%),S%+1,1)="1" THEN 1890 Programma PGLPRINT Sommige uitgaven worden door een fout ten onrechte als "niet aanwezig" aangemerkt zodat er geen verwerking in BDG plaats vindt. Wijziging van versienummer en regel 1580: 90 VERSIE$="1.11" 1580 IF MID$(BV$(H%),S%+1,1)="1" THEN 1680 N.B. De laatste positie van het versienummer zou gebruikt kun- nen worden voor printerafhankelijke versies programma PGL-BDG Als met PGL-BDG de uitgaven in PGL worden gecontroleerd (PEGEL, code=0), worden in januari de saldi uit het oude jaar (decem- ber) ten onrechte aangepast (nul gemaakt als PGLJAAR wordt ge- draaid). Tevens is een versienummer aangebracht. 100 VERSIE$="2.0" 332 PRINT FNC$(7,26)+"versie: "+VERSIE$; 910 IF LM%<45 THEN MID$(BU$(I%),9,4)=X$ 950 IF LM%<45 THEN DC=ABS(CVS(PC$)-CVS(X$)) ELSE DC=0 990 IF LM%<45 THEN LSET PC$=MID$(BU$(I%),9,4) nu wordt het uitgavensaldo in december van het vorige jaar niet gecontroleerd en dus ook niet aangepast. programma BDGPRINT Dit is een nieuw programma dat aan PEGEL wordt toegevoegd. Met dit programma wordt een print verkregen van de gebudgetteerde en werkelijke uitgaven. Tevens kunnen de inkomsten worden gere- gistreerd (budget en werkelijk) en vergeleken met de uitgaven (zowel gebudgetteerd als werkelijk). er wordt dan een print ge- geven die het "SPAARSALDO" per maand en per jaar laat zien. Voor het programma is een printer met een breedte van 132 ka- rakters nodig. De eventuele instelling van de printer moet zelf worden verzorgd. N.B. regel 390 in de source (BDGPRINT.BAS) laat een instellingzien. In dit geval voor de OKI u80 printer. Zowel in de .BASals in de .COM versie is deze regel echter commentaar. Een gedetailleerde gebruiksaanwijzing is hier niet nodig omdat het menu van het programma voldoende informatie geeft. Lees wel even wat er bij CONVBDG is geschreven!! programma CONVBDG Dit programma is van geen enkel belang voor u als u een BDG file met behulp van PGLINIT versie 2.1 heeft geinitialiseerd. Voor PEGEL-gebruikers die met de eerste versie (schijf 508) hebben gewerkt en ook inkomstengegevens in een bestaande file BDG willen aanbrengen, is het noodzakelijk om eerst CONVBDG te draaien. In dit programma worden de inkomstengegevens op nul geinitialiseerd. Zie ook het commentaar in de listing. Voor op- en aanmerkingen houd ik me aanbevolen. Als daar aan- leiding toe bestaat zal ik weer een nieuwe versie uitbrengen. Voor deze correcties en uitbreidingen geldt weer dat het sys- teem in public domain gegeven is onder voorwaarde dat de copy- rightregel op de schermen niet wordt aangepast. Ik wens iedere gebruiker een groot gemak van het systeem toe. Naarden, 10feb85 Frank van de Woestijne  gebruiksaanwijzing is hier niet nodig omdat het menu van het programma voldoende informatie geeft. Lees wel even wat