19.4. Membuat Laporan

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.