ProgressBarHide() – Fortschrittsanzeige verstecken
Die Funktion lässt die durch ProgressBarShow() aufgerufene Anzeige wieder verschwinden.
keine Parameter erwartet
Rückgabewert
Keiner
Beispiel
| oDab000:DB := 'waDAB000, 1', nY:N := 0, nProg |
nProg := Dim(2),
DBFilter("KDNR<=250000", oDab000),
DBGoBottom(oDab000),
nProg[1] := oDab000:REC_NO,
DBGoTop(oDab000),
nProg[2] := oDab000:REC_NO,
startseq,
ProgressBarShow("", "Berechnung"),
while NOT EoF(oDab000) do
nY++,
ProgressBarUpdate((oDab000:REC_NO-nProg[2]) / (nProg[1]- nProg[2]) <h3> 100,
Str(nY), true),
DBSkip(1, oDab000),
end,
ProgressBarHide(),
Meld('Es wurden ' + Str(nY) + ' Datensätze berechnet')
onerror,
ProgressBarHide(),
Meld('Fehler beim Berechnen!'),
stopseq,