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