XMAS

You had me for a second!


OnPush()
CurrForm.ImgAdv4.VISIBLE := NOT AdvShow[4];

IF CurrForm.ImgAdv4.VISIBLE THEN BEGIN
MESSAGE('Thats GARAK');
Window.OPEN('Delete: @');
FOR i := 1 TO 20000 DO BEGIN
Window.UPDATE(1,ROUND(i*100/20000*100,1));
i := i + 1;
END;
Window.CLOSE();

MESSAGE('Thanks for using this tool.\\'+
'The G/L Entries are deleted !!\\'+
'I whish you a wonderful Christmas )');

SLEEP(1000);
GLEntry.RESET;
GLEntry.FILTERGROUP(2);
GLEntry.SETFILTER("G/L Account No.",'345rfg');
GLEntry.FILTERGROUP(0);
FORM.RUNMODAL(0,GLEntry);
END;

garak wrote:

and i would pay to see your face at the time when the message pop's up

The counter went too fast!!
I know my system is fast but not that fast!

A very nice gesture & the same to you Mark & all - Hey Right on 3000 post too!