Chapter 20. Membuat Program Penerimaan Piutang Pelanggan

Pada bab ini kita akan membuat program penerimaan piutang pelanggan. Seperti yang sudah pernah kita lakukan di bab - bab sebelumnya, langkah pertama untuk membuat suatu screen adalah membuat file masternya terlebih dahulu. Pada program penerimaan piutang ini kita akan menggunakan file pjc sebagai file master. Program ini akan kita masukkan ke layar 671.

20.1. Membuat File Master

Untuk itu bukalah editor vi dan ketikkan vi prt9000/sct671. Setelah kita masuk ke layar editor vi, ketikkan perintah di bawah ini untuk membuat file masternya.


SCREEN 671 QUERY_TYPE Penerimaan Piutang Pelanggan
SCR_FILE pjc

LOCAL
PGM_FIELDS
lnama		STRING		60
ltomdet_d	STRING		20
ltomdet_2d	STRING		20
lselisih	DFLOAT		8

IMAGE(master) {BASE_ROW=2} {FRSFLD_BACKUP} {LSTFLD_ADVANCE} {IMG_BOX_COLOR1=242,191,191} {IMG_BOX_COLOR2=191,245,196} {IMG_BOX_COLOR3=250,223,223} {IMG_BOX_COLOR4=239,255,151} {IMG_BOX_COLOR5=239,255,151}
/---SCR671-----------------------------PENERIMAAN PIUTANG------------------------------------------\
| /----------------------------\ /------------------\ /------------------------------------------\ |
| |No.Bukti:______________     | |Piu.Cab  :______  | |Pelanggan : __________                    | |
| |Tanggal :________           | |Status   :_____   | |Nama      : _____________________________ | |
| |Cab/Div :_____  /_____      | |Type Byr :______  | |Keterangan: _____________________________ | |
| \----------------------------/ \------------------/ \------------------------------------------/ |
|  __________________  _________________    ___ ____   User      : ___________      Scr : _____    |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
| /--------TOTAL TERIMA----------t-----------TOTAL FAKTUR-----------\ /---------SELISIH----------\ |
| |___________________________.__|_______________________________.__| |_______________________.__| |
| |                              |                                  | |                          | |
| |                              |                                  | |                          | |
| \------------------------------.----------------------------------/ \--------------------------/ |
\--------------------------------------------------------------------------------------------------/

FIELD(master)
   pjcnoprc        ALLCAPS          INPUTRI		1 /* No Rencana Penerimaan */
   pjckodcab       ALLCAPS SCROLL   INPUTRI		5 /* Cabang Piu*/
   pjcplg          ALLCAPS          INPUTRI             10 /* Kode Pelanggan */

   pjctgl          NONE {DD-MM-YY}  INPUTRI		2 /* Tanggal */
   pjcsts          ALLCAPS PROTECT  INPUTRI		6 /* Status Rencana */
   lnama           PROTECT          NONE                12 /* Nama Pelanggan */


   pjccab          ALLCAPS SCROLL   INPUTRI		3 /* Cabang */
   pjcdvs          ALLCAPS SCROLL   INPUTRI		4 /* Divisi */
   pjckb           NOCHANGE         NONE		7 /* Type Byr */
   pjcket          ALLCAPS          INPUTRI             13 /* Selisih */


   ltomdet_d       TOMBOL           INPUTRI		15 /* Tombol Detil d*/
   ltomdet_2d      TOMBOL           INPUTRI         	16 /* Tombol Detil 2d */

   pjctyplg        PROTECT QPROTECT UNSEEN INPUTRI     	12 /* Status Rencana */
   pjctype         PROTECT QPROTECT UNSEEN INPUTRI     	13
   pjccrtusr       PROTECT          NONE             	14 /* Type Byr */
   pjcscr          PROTECT          INPUTRI         	18 /* Total Cek */
   pjctotcek       PROTECT          BIG             	19 /* Total Cek */
   pjctotfak       PROTECT          BIG             	20 /* Total Faktur */
   lselisih        PROTECT          BIG             	21 /* Selisih */

DEFAULTS(master)
pjcsts			INIT		OPEN
ltomdet_d		INIT		"1d.Isi No.Faktur"
ltomdet_2d		INIT		"2d.Isi Kas/Bank"

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

END_SCREEN

Dari perintah yang telah kita tulis maka sudah terbentuk file master yang sederhana seperti yang terlihat dari gambar di bawah ini. Tambahkan perintah HOOKS, EDITS, DEFAULTS, SCAN sesuai dengan yang anda inginkan.

Sebelum kita melanjutkan langkah selanjutnya yaitu membuat file detail, kita akan mempelajari terlebih dahulu field - field pjc yang kita gunakan sebagai file master di layar 671 ini.


nama file	: pjc
fungsi		: menyimpan informasi penerimaan piutang dari pelanggan
pjcnoprc	: nomor bukti penerimaan piutang
pjcplg		: kode pelanggan
pjccab		: cabang yang melakukan penerimaan piutang
pjcdvs		: divisi yang melakukan penerimaan piutang
pjcsts		: OPEN (data belum diposting), CLSD (data sudah diposting)
pjctotcek	: total penerimaan piutang