Sama dengan program posting APP_TYPE, program laporan rts ini jg tidak bisa digabungkan dengan layar QUERY_TYPE sehingga kita harus membuatnya di layar lain. Langkah pertama yang harus kita lakukan adalah ketikkan perintah berikut di layar 471 di atas perintah END_SCREEN.
IMAGE(report) {LSTFLD_ADVANCE} {BASE_ROW=2} SCR471 MENCETAK BUKTI PEMBAYARAN @DATE + No. Bukti Pembayaran : __________ Status : ____ Device : _ + FIELD(report) /* Symbol Name Input Atribute Output Atribute Input Order Special */ pbcnoprc PROTECT INPUTRI 1 pbcsts PROTECT INPUTRI 2 r_dev NOCHANGE INPUTRI 3 DEFAULTS(qrts) pbcnoprc INIT_QUERY {pbcnoprc} RTREE(report) USES_SCRIPT(scr471.rts) RT_DEFAULT qrts
Setelah mengetikkan perintah di atas langkah selanjutya adalah masuk ke layar 471.rts dengan mengetikkan perintah vi prt9000/sct471.rts pada layar editor vi. Setelah kita masuk ke layar 471.rts, ketikkan perintah berikut ini untuk membuat format laporannya.
START SEARCH FILE "pbc.dat" ALL FILE "pbd.dat" DTN "pbc.dat" BY_FIELD pbcnoprc USING_KEY pbdbukurtidx FILE "pcm.dat" DTN "pbc.dat" BY_FIELD pbcnoprc USING_KEY pcmnoprcidx FILE "sup.dat" JTN "pbc.dat" BY_FIELD pbcsup USING_KEY supkodidx CONTROL 1 pbcnoprc SORT_USING_KET NO_MOOD pbcnoprc ACCUMULATOR vtotal SUM pbdjml DISPLAY DEVICE r_dev PAGE_LENGTH 66 THOUSAND_SEPARATOR PERIOD DECIMAL_POINT COMMA SCREEN_LINES 24 SETFONT0 15 SETFONT1 18 IMAGE REPORT_HDR + +@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx g_persh CONTROL_HDR(1) + /-------------------------------\ +BUKTI PEMBAYARAN HUTANG | No.Bukti :@xxxxxxxxxxxxxx | pbcnoprc +/---------------------------------------------.-------------------------------| +| Dibayar Kepada : @xxxxxxxxxxxxxxxxxxxxxx ( @xxxxxxxxxx ) | supnama pbcsup +| | +|--------------t----------t----------t--------------t-------------------------| +| NO.FAKTUR |TGL FAKTUR| TGL JTP | JUMLAH | KETERANGAN | +|--------------|----------|----------|--------------|-------------------------| BODY +|@xxxxxxxxxxxxx|@xxxxxxxxx|@xxxxxxxxx|@9,99999999.00|@xxxxxxxxxxxxxxxxxxxxxxxx| pbdnofak pbdtglfak pbdtgljtp pbdjml pbdket CONTROL_FTR(1) +|-----------.------------------------|--------------|-------------------------| +| ** T O T A L |@9,99999999.00| | atotal +\------------------------------------.--------------.-------------------------/ + +@ SETFONT1 "" PAGE_FTR + + + EXIT
Format laporan di atas dapat anda ubah sesuai dengan yang anda butuhkan.