PROCEDURE CETAKLAH(vKon1,vKon2,nTujuan,nMulai,nAkhir,nCopy) nCopy1=IIF(PCOUNT()=5,1,nCopy) XXKondisi=vKon1 IF !EMPTY(vKon1) AND nTujuan<4 IF RIGHT(ALLTRIM(VKON1),3)='FXP' DO (Alamatdl+'Proses\'+VKON1) IF EMPTY(XXJUDUL) RETURN ENDIF ELSE EXECSCRIPT(vKon1) ENDIF ENDIF If !Empty(vKon2) IF BETWEEN(nTujuan,1,3) IF !FILE(vKon2+IIF(UPPER(RIGHT(ALLTRIM(vKon2),3))='FRX','','.FRX')) IniPesan('File laporan, belum disediakan'+CHR(13)+vKon2) RETURN ENDIF ENDIF IF nTujuan=1 REPORT FORM (vKon2) NOCONSOLE RANGE nMULAI,nAKHIR PREVIEW ENDIF IF nTujuan=2 FOR nom=1 TO nCopy1 REPORT FORM (vKon2) NOCONSOLE RANGE nMULAI,nAKHIR TO PRINTER NEXT ENDIF IF nTujuan=3 REPORT FORM (vKon2) NOCONSOLE RANGE nMULAI, nAKHIR TO PRINTER PROMPT ENDIF IF nTujuan=4 AND Dadi(54) SET RESOURCE OFF MODIFY REPORT (vKon2) SET RESOURCE ON ENDIF ENDIF ENDPROC