20.4. Membuat Laporan

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