Downloads voor leden & bezoekers PGGG

ChaF: Wijzig een veld in alle personen

door Wim Nelis, Marknesse

ChaF is een VTX-programma om een willekeurig veld van alle geselecteerde personen, of van alle geselecteerde relaties, te wijzigen. Het kan beschouwd worden als een verlaat ant-woord op vragen van gebruikers, gepubliceerd in PRO-GEN-eralia jaargang 3, nr. 1. Tijdens een PGGG dag in Putten maakte Johan Mulderij de opmerking dat een VTX-programma, om een willekeurig veld te wijzigen, erg eenvoudig te maken moest zijn. Op zich reden om het dan ook maar 'even' te maken. Een belangrijke reden dat een dergelijk programma eenvoudig zou moeten zijn, is dat de VTX-functie FIELDNUMBER, indien op de juiste wijze aangeroepen, een menu (lijst) van alle veldnamen laat zien, waar de gebruiker er één van kan aanwijzen en selecteren.
Als het veldnummer van een veld bekend is, dan kan eenvoudig een waarde aan dat veld worden toegekend met de functie FIELD. Het skelet van ChaF is als volgt:

'    Dit is een minimaal programma om een functie van PRO-GEN te demonstreren.
'    HET BEVAT GEEN CONTROLES OP FOUTIEVE INVOER! BIJ VERKEERD GEBRUIK KAN EEN PRO-GEN BESTAND ONBRUIKBAAR WORDEN!
'
' I N I T I A L I S A T I E
' =========================
'
IF BINAND(STATUS,9)=1 THEN
LET #10 = CHOICE
LET #11 = FIELDNUMBER("",#10)
'
INPUT "Nieuwe waarde : ",#12$,128,10
END IF
'
' W I J Z I G  E E N  V E L D
' =============================
'
LET FIELD(#11,#10)= #12$
END

Dit programma doet wat in de aanhef van dit artikel beloofd wordt, maar het bevat noch controles noch ontsnappingsmogelijkheden in geval van foutieve invoer. Als u dit programma gaat gebruiken, maak dan eerst een backup van het te bewerken PRO-GEN bestand. In geval
er iets anders gaat dan verwacht, heeft u de originele gegevens nog. Het bovenstaande
programma dient op een file in directory C:\PG23\NL\OUTPUT te worden geplaatst. De
lijsten met uitvoerdefinities voor "uitvoer persoonsgegevens" en "uitvoer relatiegegevens"
dienen te worden uitgebreid.
Als het bovenstaande programma wordt aangeroepen, dan wordt het voor elk geselecteerd
persoon (relatie) één keer aangeroepen door PRO-GEN. Het stuk programma tussen
"INITIALISATIE" en "WIJZIG EEN VELD" wordt slechts één keer uitgevoerd: de functie
STATUS levert de waarde 1 uitsluitend als de eerste persoon of relatie wordt behandeld.
Tijdens de initialisatie wordt opgehaald via welke menu-keuze dit programma is gestart.
Functie CHOICE levert als waarde 1 indien om een uitvoer van persoonsgegevens gevraagd
is, en 2 indien om een uitvoer van relatiegegevens gevraagd is. Daarna kan het veld gekozen
worden dat veranderd moet worden, door een aanroep van functie FIELDNUMBER, en kan
de nieuwe gewenste waarde worden ingevoerd.

De ene regel na "WIJZIG EEN VELD" wordt voor alle geselecteerde personen of relaties
uitgevoerd. Het uitgekozen veld ( FIELD(#11,#10) ) krijgt de waarde die gedurende het
initialisatiedeel is opgegeven.
Er is een wat uitgebreidere versie van dit programma gemaakt, die momenteel ruim 600 regels
lang is, te lang om in PRO-GEN-eralia te publiceren. Ten opzichte van het bovenstaande
programma zijn er vele controles aan toegevoegd en biedt het een vijftal extra mogelijkheden.
Ten eerste biedt het de optie om het veld te herschrijven met een gegeven tekst of met de
inhoud van een ander veld uit hetzelfde record. Zo kan van alle geselecteerde personen de
inhoud van bijvoorbeeld het veld "Geboorte tekst" naar het veld "Geboorte info" gekopieerd
worden.
In geval het veld met een vaste, gegeven tekst wordt gevuld, kan gekozen worden tussen het
geheel herschrijven van het veld of het vervangen van een deeltekst door de opgegeven tekst.
Evenzo kan in geval een veld gekopieerd wordt, gekozen worden tussen overschrijven of
bijvoegen.
Ten derde biedt ChaF de optie om de huidige datum in de mutatiedatum van elk gewijzigd
record in te vullen, zodat geregistreerd wordt wanneer het record voor het laatst gewijzigd is.
Ten vierde biedt het de mogelijkheid om per wijziging aan te geven of de betreffende
wijziging moet worden doorgevoerd of niet, de zogeheten veto-optie. Als identificatie wordt
de naam van de persoon of de namen van de partners gebruikt. Tot slot bevat het een
optimalisatie: indien er effectief niets gewijzigd zou worden, dan wordt het ook niet
gewijzigd. Dit minimaliseert het aantal keren dat een back-up van het PRO-GEN bestand
dient te worden gemaakt.
Programma ChaF zal, tezamen met een installatiescript en een korte beschrijving, geplaatst
worden op het BBS GensData Almelo, tel. (0546) 85 24 83 of 45 59 54, en het zal worden
aangeboden aan de PRO-GEN Gebruikersgroep voor opname in de disketteservice. Lezers
met internet e-mail, kunnen een kopie van dit programma bij mij, via e-mail, aanvragen.

------------------------------

uit PRO-GEN-eralia jrg. 4 (1998), nr. 4, blz. 68