ייצוא דוח כPDF

SELECT SQL.TMPFILE INTO :TMP FROM DUMMY;
LINK CAS_STACK4 TO :TMP;
ERRMSG 500 WHERE :RETVAL <= 0; INSERT INTO CAS_STACK4 SELECT * FROM CAS_STACK4 ORG ; :TMPOUT = STRCAT('../../system/mail/impfiledetails/','CUS', ITOA(SQL.USER), ITOA(SQL.DATE), '.pdf') ; UNLINK CAS_STACK4 ; EXECUTE WINHTML '-d', 'CAST_STYLISTCHECKR', 'CAS_STACK4', :TMP, '-pdf', :TMPOUT ;