pro.live := False;
time := Now(); blokndx := 0;
while blokndx < blokmax do
{
blokcnt := strtonum(tobelist.strings[blokndx]);
if pro.Priceblock[blokcnt] then
{
/* prijsblok bestaat, pas aan.. */
pro.Priceblock[blokcnt].ExchangeRate := 1.20;
pro.Priceblock[blokcnt].Loss := 10.0;
pro.Priceblock[blokcnt].Reduction := 5.0;
pro.Priceblock[blokcnt].Coef := False;
pro.Priceblock[blokcnt].System := True;
pro.Priceblock[blokcnt].Charge := 15.75;
pro.Priceblock[blokcnt].Profit := 30.0;
pro.Priceblock[blokcnt].Threshold := 3.5;
pro.Priceblock[blokcnt].Rebate := False;
}
else
{
ShowMessage('Prijsblok 10 bestaat niet!');
}
blokndx := blokndx+1;
};
MsgBox("Time expired = "+TimeToStr(Now()-time));
tobelist.free();
pro.Live := True;
...
Vanaf JoPPS 3.38 P2 is elk ATOM object voorzien van de extra eigenschap ‘Live’ die via scripting kan worden gemanipuleerd:
True elke wijziging wordt direct aangepast in GUI (=standaard oude gedrag)
False wijzigingen pas zichtbaar in GUI nadat ‘Live’ opnieuw geactiveerd wordt
,
In onderstaande screenshot wordt de ‘Live’ eigenschap van het ASSEMBLY object tijdelijk gedeactiveerd zodat de interface niet wordt geactualiseerd voor elke aanpassing aan de groep gegevens: