Report without viewing send to printer [message #557625] |
Thu, 14 June 2012 06:11 |
nmdevorah
Messages: 6 Registered: May 2012 Location: Islamabad
|
Junior Member |
|
|
WHEN-BUTTON-PRESSED
declare
repid report_object;
v_rep varchar2(200);
CNT NUMBER:=1;
ATC VARCHAR2(30);
begin
for rec1 in
(SELECT DISTINCT T.SNO, T.PID, P.CAMPUS_ID
FROM KIET.STCLASS T, STPROGRAMDET P
WHERE T.TNO = :LIST16C
AND P.SNO = T.SNO AND P.PID = T.PID AND P.STATUSID NOT IN (5)
AND P.CAMPUS_ID = :LIST16A
AND T.PID = :LIST16B
ORDER BY T.SNO)
LOOP
IF ((CNT MOD 25) =0) THEN
SET_ALERT_PROPERTY('A1',ALERT_MESSAGE_TEXT,'Do you want to Continue?');
ATC:=SHOW_ALERT('A1');
IF ATC =alert_button2 then
exit ;
end if;
END IF;
repid:=find_report_object('GHP');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,:GLOBAL.MYRS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESTYPE, PRINTER);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_DESNAME, :PL);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no P_SNO='||TO_NUMBER(:LIST16) ||' P_PCODE='||TO_NUMBER(:LIST16B)||' P_CAMPUS='||TO_NUMBER(:LIST16A));
v_rep := run_report_object(repid);
WEB.SHOW_DOCUMENT(:GLOBAL.MYRJ|| substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||:GLOBAL.MYRS,'_SELF');
CNT := CNT+1;
END LOOP;
MESSAGE ('END OF GRADESHEET PRINTING') ;
MESSAGE ('END OF GRADESHEET PRINTING') ;
end;
My issue is i have 3 locations(Area)
following report run only at in house where AS Located i want to run this report at every location.
|
|
|
|