Info : ALL the possible runtime paths DO not RETURN a value: RESULT OR RETURN = is missing IN the Process.
VZplanner, Initialization, line 0, column 0

GLOBAL
BedrijfsNaam is string
sStation,sConfigDir,sIniName is string
sDataPad is string
nHuidigJaar is int
LOCAL
x,startDir is string

HOnError("*",hErrAll,"")
FieldNoSpace(True)
WithSpace(False)
ExecutionMode(PermissiveMode)
HSetLog(False)
//HSetTransaction(False)
EXTERN "Winconst.wl"

HSetDuplicates(True)
HSetIntegrity(True)
HMode(hModeMulti)
//LoadError("Dutch.wdm")
sConfigDir=CompleteDir(fCurrentDir() )+"config\"
sStation=NetMachineName()
IF NOT fDirectoryExist(sConfigDir) THEN
Error("Fout in de configuratie.","De map "+sConfigDir," is niet gevonden.","Installeer het programma opnieuw.")
EndProgram()
END
sIniName=sConfigDir+sStation+".ini"
sDataPad=CompleteDir(INIRead("directories","data","",sIniName))
IF sDataPad="" THEN
sDataPad=CompleteDir(INIRead("directories","data","",sConfigDir+"common.ini"))
ELSE
//als datapad gelijk aan common.ini dan wis station.ini
x=CompleteDir(INIRead("directories","data","",sConfigDir+"common.ini"))
IF x=sDataPad THEN fDelete(sIniName)
END
startDir=sDataPad
//zoek file
LOOP
IF fFileExist(startDir+"logon.fic") THEN BREAK
Error("Het programma kan de gegevens niet vinden."...
,"Dit kan de volgende oorzaken hebben:"...
,"1. Het programma is nog niet eerder gestart op deze computer."...
,"2. Er is momenteel geen netwerkverbinding."...
,"3. De map is verplaatst of de naam is gewijzigd."...
,""...
,"Als u geen netwerkverbinding hebt, probeer dan opnieuw "...
,"in te loggen of vraag uw systeembeheerder."...
,"In het volgende scherm kunt u de map selecteren.")

startDir=CompleteDir(fSelectDir(startDir,"Kies de map waar de gegevens zich bevinden"))
IF startDir="" THEN RESULT False
IF sDataPadstartDir THEN
sDataPad=CompleteDir(startDir)
INIWrite("directories","data",sDataPad,sIniName)
END
END
HSetREP(True,fCurrentDir())
HSubstDir("c:\vzplanner\data\",sDataPad)
HReadSeekFirst(Logon,LogID,-1)
BedrijfsNaam=Logon.Name
HCreationIfNotFound(BasisGeg)
IF BasisLees("basis_schoolnaam")BedrijfsNaam THEN BasisSchrijf("basis_schoolnaam",BedrijfsNaam)
FOR ALL Cursus ON Jaar FromEnd
IF CU.Actief THEN
nHuidigJaar=CU.Jaar
BREAK
END
END
HClose("")
//triggers
HDescribeTrigger(Lestabel,"HModify","RekenLessen_Trigger",hTriggerBefore)