>"Now printing report for style T675" 29/12/04 15:34:00 >"Now attaching report for style T567" 29/12/04 15:35:00 >>
Audit_Open("Some Process") FOR k=1 TO 100 =Audit_Add(TRANSFORM(m.k,"@R phase 999999")) =INKEY(RAND()*1) NEXT Audit_Close() PROCEDURE Audit_Open(cTitle) DEFINE POPUP Audit ; FROM 10,10 MARGIN ; TITLE (m.cTitle); FONT "Lucida Console",8 PROCEDURE Audit_Add(cText) IF CNTBAR('Audit')>0 SET MARK OF BAR CNTBAR('Audit') OF Audit TO .T. ENDIF DEFINE BAR CNTBAR('Audit')+1 OF Audit ; PROMPT TTOC(DATETIME())+' >> '+m.cText; COLOR SCHEME 1+CNTBAR('Audit')%2 ACTIVATE POPUP Audit BAR CNTBAR('Audit') NOWAIT SHOW POPUP Audit PROCEDURE Audit_Close DEACTIVATE POPUP Audit RELEASE POPUPS Audit