Chapter 19. Membuat Program Pembayaran Hutang

Pada bab kali ini kita akan membuat program pembayaran hutang. Program ini akan kita masukkan ke layar 471. Seperti biasa langkah pertama untuk membuat suatu screen adalah dengan membuat file masternya terlebih dahulu. Untuk program pembayaran hutang ini kita akan menggunakan file pbc sebagai file master.

19.1. Membuat File Master

Buka editor vi dan ketikkan vi prt9000/sct471. Setelah kita masuk ke layar editor sct471 ketikkan perintah sebagai berikut untuk membuat file master.


SCREEN 471 QUERY_TYPE Pembayaran Hutang
SCR_FILE pbc

LOCAL
PGM_FIELDS
ltomdet_d	STRING		20
ltomdet_2d	STRING		20
lselisih	DFLOAT		8

IMAGE(master) {BASE_ROW=2} {FRSFLD_BACKUP} {LSTFLD_ADVANCE} {IMG_BOX_COLOR1=250,228,240} {IMG_BOX_COLOR2=208,209,250} {IMG_BOX_COLOR3=150,200,225} {IMG_BOX_COLOR4=191,245,196}
/---SCT471-----------------------------PEMBAYARAN HUTANG ------------------------------------------\
| /---------------------------\ /---------------------------------------------\ /----------------\ |
| |No.Bukti:______________    | |Suplier __ :__________  ______               | |Tanggal:________| |
| |Cab/Dvs :________ /______  | |Nama       :________________________________ | |Status :_____   | |
| |Hut.Cab :______            | |Keterangan :________________________________ | |                | |
| \---------------------------/ \---------------------------------------------/ \----------------/ |
|  __________________  _________________                          ____           User     :______  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
| /--------TOTAL BAYAR-----------t-----------TOTAL FAKTUR-----------\ /---------SELISIH----------\ |
| |______________________________|__________________________________| |__________________________| |
| |                              |                                  | |                          | |
| |                              |                                  | |                          | |
| \------------------------------.----------------------------------/ \--------------------------/ |
\--------------------------------------------------------------------------------------------------/

FIELD(master)
   pbcnoprc        ALLCAPS          INPUTRI         1
   pbctype         NOCHANGE         INPUTRI         6
   pbcsup          ALLCAPS          INPUTRI         7
   pbcplg          PROTECT          INPUTRI         8  /* juga sebagai pelanggan */
   pbctgl          NONE {DD-MM-YY}  INPUTRI         12

   pbccab          ALLCAPS SCROLL   INPUTRI         2
   pbcdvs          ALLCAPS SCROLL   INPUTRI         3
   supnama         PROTECT          NONE            10
   pbcsts          ALLCAPS PROTECT  INPUTRI         13

   pbccab2         ALLCAPS SCROLL   INPUTRI         4  /* Hutang Cabang  */
   pbcket          ALLCAPS SCROLL   INPUTRI         11


   ltomdet_d       TOMBOL           INPUTRI         18 /* Tombol Detil d*/
   ltomdet_2d      TOMBOL           INPUTRI         19 /* Tombol Detil 2d*/

   pbcscr          PROTECT NOCHANGE NONE            20
   pbccrtusr       PROTECT SCROLL   NONE            20
   pbctotcek       PROTECT          BIG             21
   pbctotfak       PROTECT          BIG             22
   lselisih        PROTECT          BIG             23

CALCS()
cselisih        pbctotcek - pbctotfak

DEFAULTS(master)
pbctgl                   INIT           {g_tgltrn}
pbcscr                   INIT           {g_scrnumstr}
pbcscr                   INIT_QUERY     {g_scrnumstr}
ltomdet_d                INIT           "1d.Isi No.Faktur"
ltomdet_2d               INIT           "2d.Isi Kas/Bank"
pbctype                  DFALT_LIST     DN LN
pbcsts                   INIT           OPEN
pbccrtusr                INIT           {g_usrkode}

EDITS(master)
tombol d tidak		ltomdet_d	SHOW_SFL trans
tombol 2d tidak		ltomdet_2d	SHOW_SFL transa

END_SCREEN

Dengan demikian kita telah membuat file master pembayaran hutang yang sederhana seperti yang terlihat dari gambar di bawah ini. Tambahkan perintah EDIT, DEFAULT, SCAN, HOOK sesuai yang anda inginkan.

Sebelum kita melangkah ke langkah selanjutnya yaitu membuat file detail, alangkah baiknya bila kita mengetahui terlebih dahulu field - field pbc yang digunakan di file master ini.


nama file	: pbc
fungsi		: menyimpan bukti pembayaran hutang ke supplier
pbctype		: type pembayaran hutan ke supplier ( DN:Dalam Negri, LN:Luar Negri )
pbcscr		: asal screen di mana data diisi
pbcsts		: OPEN (data belum diposting)
		  CLSD (data sudah diposting)
pbctgl		: tanggal pembayaran hutang
pbcnoprc	: nomor bukti pembayaran hutang
pbcsup		: kode supplier
pbctotcek	: total pembayaran hutang
pbctotfak	: total hutang untuk faktur tersebut