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
| 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,