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