Seperti yang telah kita ketahui bahwa program laporan rts ini tidak bisa digabungkan dengan layar QUERY_TYPE, sehingga kita akan masukkan program rts ini ke layar sct671.rts. Sebelum kita masuk ke layar 671.rts, kita harus kembali ke layar sct671 terlebih dahulu dan menuliskan perintah RTREE seperti berikut di layar 671 di atas perintah END_SCREEN.
IMAGE(report) {LSTFLD_ADVANCE} {BASE_ROW=2} SCT671 MENCETAK BUKTI PENERIMAAN @DATE + No. Bukti Penerimaan : __________ Status : ____ Device : _ + FIELD(report) /* Symbol Name Input Atribute Output Atribute Input Order Special */ pjcnoprc PROTECT INPUTRI 1 pjcsts PROTECT INPUTRI 2 r_dev NUMERIC INPUTRI 3 DEFAULTS(report) r_dev DFALT_LIST 6 0 1 2 3 DEFAULTS(qrts) pjcnoprc INIT_QUERY {pjcnoprc} RTREE(report) USES_SCRIPT(scr671.rts) RT_DEFAULTS qrts
Setelah menuliskan perintah di atas marilah kita segera masuk ke layar 671.rts dan ketikkan perintah di bawah ini untuk membuat format laporan penerimaan piutang.
START VIRTUAL vterbilang STRING 100 HURUF(pjctotcek) SEARCH FILE "pjc.dat" ALL FILE "pjd.dat" DTN "pjc.dat" BY_FIELD pjcnoprc USING_KEY pjdbukfakidx FILE "pcm.dat" DTN "pjc.dat" BY_FIELD pjcnoprc USING_KEY pcmnoprcidx CONTROL 1 pjcnoprc 2 pjdnofak SORT USING_KEY NO_MOD pjcnoprc NO_MOD pjdnofak ACCUMULATOR atotal SUM pjdjml 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 PENERIMAAN BAYAR PIUTANG | No.Bukti :@xxxxxxxxxxxxxx | pjcnoprc +/---------------------------------------------.-------------------------------| +| Terima Dari : @xxxxxxxxxxxxxxxxxxxxxx ( @xxxxxxxxxx ) | plgnama pjcplg +| | +|--------------t----------t----------t--------------t-------------------------| +| NO.FAKTUR |TGL FAKTUR| TGL JTP | JUMLAH | KETERANGAN | +|--------------|----------|----------|--------------|-------------------------| BODY +|@xxxxxxxxxxxxx|@xxxxxxxxx|@xxxxxxxxx|@9,99999999.00|@xxxxxxxxxxxxxxxxxxxxxxxx| pjdnofak pjdtglfak pjdtgljtp pjdjml pjdket CONTROL_FTR(1) +|-----------.------------------------|--------------|-------------------------| +| ** T O T A L |@9,99999999.00| | atotal +|------------------------------------.--------------.-------------------------| +| Terbilang: @wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww| vterbilang +\-----------------------------------------------------------------------------/ + + PENERIMA, + + + + ( ................. ) +@ SETFONT1 "" PAGE_FTR + + + EXIT