Pada program pembayaran hutang ini kita akan menggunakan pbd sebagai file detail trans dan pcm sebagai file detail transa. Seperti biasa kita akan membuat file detail dengan perintah SUB_FILE. Untuk itu marilah ketikkan perintah berikut di atas perintah END_SCREEN.
/*------------------------------SUBFILE INFORMATION (trans)------------------------------*/ IMAGE(transt) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=9} |--t--t-------------t----t---t--------t--------t------t----------t--------------t------------|-----| |FL|Ty| No.Faktur |Cab |Div|Tgl.Fak |Tgl.Jtp | Rek |Byr Asing | Bayar Rp | Byr Riil Rp| Ket | |--|--|-------------|----|---|--------|--------|------|----------|--------------|------------|-----| \--.--.-------------.----.---.--------.--------.------.----------.--------------.------------.-----/ IMAGE(trans) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=13} |_ |__|_____________|___ |___|________|________|______|_______.__|______________|____________|_____| FIELD(trans) pbdyt NOCHANGE INPUTRI 1 pbdtype NOCHANGE INPUTRI 2 pbdnofak ALLCAPS SCROLL INPUTRI 3 pbdcab ALLCAPS SCROLL INPUTRI 4 pbddvs ALLCAPS SCROLL INPUTRI 5 pbdtglfak NONE NOLIMIT {DD-MM-YY} INPUTRI 6 pbdtgljtp NONE NOLIMIT {DD-MM-YY} INPUTRI 7 pbdnobbm ALLCAPS SCROLL INPUTRI 8 pbdjmlasg NUMERIC INPUTRI 9 pbdjml NUMERIC INPUTRI 10 pbdsisa NUMERIC INPUTRI 11 pbdket ALLCAPS SCROLL INPUTRI 12 DEFAULTS(trans) pbdsts INIT OPEN SUBFILE(trans) SFL_LINES(7) SFL_TITLE(transt) SFL_TARGET pbdbukurtidx pbcnoprc SFL_MAP pbcnoprc pbdnobuk pbctgl pbdtglbyr pbcsup pbdsup pbcscr pbdscr
Dengan mengetikkan perintah di atas kita telah menghubungkan file master pbc dan file detail trans pbd seperti yang terlihat dari gambar di bawah ini. Tambahkan perintah HOOK, MAP, EDIT, DEFAULT, dan SCAN sesuai yang anda inginkan.
Setelah itu kita akan menghubungkan file detail transa pcm dengan file master pbc. Caranya sama yaitu dengan menggunakan perintah SUBFILE. Oleh karena itu marilah ketikkan perintah di bawah ini di atas perintah END_SCREEN.
/*------------------------------ SUBFILE INFORMATION ------------------------------*/ IMAGE(transat) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=9} /----t---t-------------t----------t----------t--------t----------------t----t------- t-------------\ |Type|S/O| Nomor Cek | Kas/Bank |Nama Bank |Tgl Jtp | Nilai |Mt.U| Kurs | Nilai Asing | |----|---|-------------|----------|----------|--------|----------------|----|--------|-------------/ \----.---.-------------.----------.----------.--------.----------------.----.--------.-------------/ IMAGE(transa) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=12} {COVER_MASTER} | _ | _ |_____________|__________|__________|________|_____________.__|____|_____.__|__________.__| FIELD(transa) pcmtype NOCHANGE ALLCAPS INPUTRI 1 pcmtype2 NOCHANGE INPUTRI 2 pcmnocek ALLCAPS SCROLL INPUTRI 4 pcmnobbm ALLCAPS INPUTRI 5 pcmbank ALLCAPS SCROLL INPUTRI 6 pcmtgljtp NONE NOLIMIT {DD-MM-YY} INPUTRI 7 pcmtotal NUMERIC INPUTRI 8 pcmkd1 ALLCAPS INPUTRI 10 /* Mata Uang */ pcmdf7 NUMERIC INPUTRI 11 /* Kurs */ pcmdf6 NUMERIC INPUTRI 12 /* Ttl Dlm Mt Asing */ DEFAULTS(transa) pcmtype DFALT_SCAN T "Tunai" C "Cek" M "Mutasi" U "Uang Muka/Titipan" pcmsts INIT OPEN SUBFILE(transa) SFL_LINES(8) SFL_TITLE(transat) SFL_TARGET pcmty3prcidx pbctype pbcnoprc SFL_MAP pbcnoprc pcmnoprc pbcsup pcmplg pbctgl pcmtgl pbctype pcmtype3 pbcdvs pcmdvs pbccab pcmcab pbcscr pcmscr
Dengan demikian kita telah membuat file detail transa yang sederhana seperti yang terlihat dari gambar di bawah ini. Tambahkan perintah EDIT, HOOKS, SCAN, DEFAULT sesuai yang anda inginkan.
Sebelum kita lanjutkan dengan membuat program POSTING, alangkah baiknya bila kita mengenal terlebih dahulu field - field pbd yang digunakan. Untuk file pcm tidak dibahas lagi karena sudah dibahas di bab sebelumnya.
nama file : pbd fungsi : menyimpan informasi pembayaran per faktur. Jadi data ini terbentuk saat anda memilih nomor faktur yang dibayar hutangnya. pbdsts : OPEN (data belum diposting) CLSD (data sudah diposting) pbdnofak : nomor faktur yang akan dibayar hutangnya pbdtglbyr : tanggal bayar hutang pbdtglfak : tanggal faktur pbdtype : type faktur pbdsup : kode suplier pbdtgljtp : tanggal jatuh tempo faktur