18.4. Membuat Laporan

Untuk membuat laporan tahapnya sama pada bab - bab sebelumnya. Karena sudah pernah dijelaskan mengenai fungsi - fungsi yang ada di program rts, maka marilah kita langsung membuatnya dengan langkah - langkah sebagai berikut:

1. Masuk kembali ke layar 571 dan ketikkan perintah seperti berikut di atas END_SCREEN


IMAGE(report) {LSTFLD_ADVANCE}
/-------------------------Mencetak Faktur dan DO-------------------------------\
| /--------------------------------------------------------------------------\ |
| |                                                                          | |
| |   No Faktur : ______________                                             | |
| |   Status    : _______                                                    | |
| |   Cetak     :  _                                                         | |
| \--------------------------------------------------------------------------/ |
\-----------------------------------------------------------------------------/


FIELD(report)
ppmnofak        PROTECT         NONE            1
ppmsts          PROTECT         NONE            2
r_dev           NOCHANGE        ZERO            5

DEFAULTS(report)
r_dev           DFALT_LIST      6 1 2 0 3

DEFAULTS(qrts)
ppdnofak        INIT_QUERY     {ppmnofak}

RTREE(report)
USES_SCRIPT(scr571.rts)
RT_DEFAULT qrts

2. Setelah itu marilah kita masuk ke layar sct571.rts dan ketikkan perintah sebagai berikut.


START

VIRTUAL
vnourt          INT2            2       COUNTER + 1
vlaba           DFLOAT          8       ppmtotfak - ppmhpp

SEARCH
FILE "ppm.dat" ALL
FILE "plg.dat" JTN "ppm.dat" BY_FIELD ppmplg USING_KEY plgkodidx

SORT USING_KEY
NO_MOD          ppmtglfak
NO_MOD          ppmplg

CONTROL
1 ppmtglfak

ACCUMULATOR
atotal  SUM     ppmtotfak
ahpp    SUM     ppmhpp
alaba   SUM     vlaba

DISPLAY
DEVICE          r_dev
PAGE_LENGTH     66
THOUSAND_SEPARATOR PERIOD
DECIMAL_POINT  COMMA
SCREEN_LINES   24

IMAGE

REPORT_HDR
+
+@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
g_persh
+@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
g_alamat
+
+                          Faktur Penjualan
+
CONTROL_HDR(1)
+Tanggal : @xxxxxxxxxxxx
ppmtglfak
+/---t----------------------------t-------------------------t-------------t-------------\
+|NO |         PELANGGAN          |      TOTAL FAKTUR       |     HPP     |     LABA    |
+|---|----------------------------|-------------------------|-------------|-------------|
CONTROL_FTR(2)
+|@99|@xxxxxxxxxxxxxxxxxxxxxxxxxxx|@9,9999999999999999999999|@9,9999999999|@9,9999999999|
 INCREMENT (vnourt) plgnama ppmtotfak ppmhpp vlaba

 CONTROL_FTR(1)
+|---.----------------------------|-------------------------|-------------|-------------|
+|   T  O  T  A  L                |@9,9999999999999999999999|@9,9999999.00|@9,9999999999|
atotal ahpp alaba
+\--------------------------------.-------------------------.-------------.-------------/
PAGE_FTR
+
+
EXIT