17.4. Membuat Laporan

Seperti yang sudah dijelaskan pada bab sebelumnya yaitu cara membuat laporan adalah dengan menggunakan perintah RTREE dan program rts. Untuk itu kita harus kembali lagi ke layar editor sct371 terlebih dahulu dan mengetikkan perintah RTREE seperti berikut di atas perintah END_SCREEN.


IMAGE(report) {LSTFLD_ADVANCE} {BASE_ROW=2}
/--SCT371------------Mencetak Faktur Pembelian---------------------------------\
| /--------------------------------------------------------------------------\ |
| |   Device   :  _                                                          | |
| \--------------------------------------------------------------------------/ |
\-----------------------------------------------------------------------------/


FIELD(report)
      r_dev          NOCHANGE              ZERO       5

DEFAULTS(qrts)
pmbnofak	INIT_QUERY	{pmbnofak}

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

Setelah menuliskan perintah RTREE maka langkah selanjutnya adalah membuat program rts untuk menampilkan format laporan seperti yang kita inginkan. Buka kembali editor vi dan ketikkan vi prt9000/sct371.rts. Setelah masuk ke layar editor marilah kita membuat program rts untuk layar 371 ini dengan mengetikkan perintah sebagai berikut:


START

SEARCH
FILE "pmb.dat" ALL
FILE "ppd.dat" DTN "pmb.dat" BY_FIELD pmbnofak   USING_KEY ppdfakurtidx
FILE "brg.dat" JTN "ppd.dat" BY_FIELD ppdbrg     USING_KEY brgkodidx
FILE "sup.dat" JTN "pmb.dat" BY_FIELD pmbsup     USING_KEY supkodidx

SELECT
pmbnofak = ppdnofak

CONTROL
   1 pmbnofak
   2 pmbtothrg
   3 pmbtotppn
   4 pmbtotfak
   5 ppdnourt
   6 ppdbrg

SORT USING_KEY
NO_MOD  pmbnofak
NO_MOD  ppdnourt
NO_MOD  ppdbrg
NO_MOD  ppdlok

DISPLAY
     DEVICE         r_dev
     PAGE_LENGTH    66
     THOUSAND_SEPARATOR PERIOD
     DECIMAL_POINT COMMA
     SCREEN_LINES   24
     SET_INITIAL    27   77
     SETFONT0       27 77  /* 12 cpi */
     SETFONT1       27 80

IMAGE

REPORT_HDR
+
+@xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
g_persh
+                                     FAKTUR PEMBELIAN
+/------------------------------------------------------------------------------------------------\
CONTROL_HDR(1)
+|No Faktur      : @xxxxxxxxxxxxxx      Tgl Fak : @xxxxxxx      Tgl jt : @xxxxxxx                 |
                  pmbnofak                       pmbtglfak             pmbtgljtp
+|Supplier       : @xxxxxxxxx           Nama    : @wwwwwwwwwwwwwwwwwwwwwwwww                      |
                  pmbsup                         supnama
+|-----------------------------------t------t-------------------t---------------t-----------------|
+|       N a m a    B a r a n g      |Lok.  |   Jumlah Barang   | Harga Satuan  |   Sub Total     |
+|-----------------------------------|------|-------------------|---------------|-----------------|
BODY
+|@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|@xxxxx|@9,99999999.0 @wwww|@999,999,999.00|@99999,999,999.00|
OUTLINE 6 ppdbrg  ppdlok ppdtmp  brgsat ppdhrg ppdsubtot

CONTROL_FTR(1)
+|-----------------------------------.------.-------------------.---------------|-----------------|
+|                                              ***   JUMLAH    ***             |@9,999,999,999.00|
 pmbtothrg
+|                                              ***   PPN       ***             |@9,999,999,999.00|
 pmbtotppn
+|                                              ***   TOTAL     ***             |@9,999,999,999.00|
 pmbtotfak
+\------------------------------------------------------------------------------.-----------------/
+
+@
SETFONT1 ""
PAGE_FTR
+
+
+
EXIT