ProgressBarUpdate()
ProgressBarUpdate() – Fortschrittsanzeige aktualisieren
Die Funktion ermöglicht die Änderung der dargestellten Werte in der aktuell aktiven Fortschrittsanzeige.
| Parameter | Beschreibung |
|---|---|
aPerc:N | Erreichter Prozentanteil von 100; default = 0 |
aValue:C | Ausgabe im Fenster für jede Berechnung; |
aExceptOnCancel:L | Except-Modus; default = false |
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,