ProgressBarShow()
ProgressBarShow() – Fortschrittsanzeige anzeigen
Die Funktion erzeugt eine Fortschrittsanzeige.
Hinweis
Es muss sichergestellt sein, dass
a) jedem ProgressBarShow() später ein ProgressBarHide() folgt (Schutzblock verwenden -> StartSeq, StopSeq)
b) eine Exception, die durch ein ProgressBarUpdate() ausgelöst wird, durch eine entsprechende Fehlerbehandlung sauber abgefangen wird!
| Parameter | Beschreibung |
|---|---|
aCaption:C | Fensterbezeichnung |
aMainCaption:C | Beschreibung im Fenster |
aShowBar:L | Balken anzeigen; default = true |
Rückgabewert
keiner
Beispiel
CODE
| 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,