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.
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