Pada program pembelian ini kita akan menggunakan file ppd sebagai trans dan file pcm sebagai transa. Untuk dapat menghubungkan file master dengan file detail kita akan menggunakan perintah SUBFILE seperti yang sudah dijelaskan pada bab sebelumnya. Untuk itu marilah kita ketikkan perintah sebagai berikut di atas perintah END_SCREEN.
IMAGE(transt) {CLR_LINES=14} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=11} |---t--------t----------t--t------t------t----t---------t----------t------t-------t----------| |NO |KATEGORI|KD BARANG |SB|LOKASI|UKURAN|SAT | JUMLAH |HRG BRUTO |DISC %|DIS NIL| SUB.TOTAL| |---|--------|----------|--|------|------|----|---------|----------|------|-------|----------| \---.--------.----------.--.------.------.----.---------.----------.------.-------.----------/ IMAGE(trans) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=15} {COVER_MASTER} |___|________|__________|_ |______|______|____|______.__|_______.__|__.__ |_______|__________| FIELD(trans) ppdurt2 NOCHANGE INPUTRI 2 /* kode barang */ ppdkat ALLCAPS SCROLL INPUTRI 3 /* kode barang */ ppdbrg ALLCAPS SCROLL INPUTRI 5 /* kode barang */ ppdsubtran NOCHANGE INPUTRI 6 /* kode barang */ ppdlok ALLCAPS SCROLL INPUTRI 7 /* Lokasi */ ppdkdukr ALLCAPS SCROLL INPUTRI 8 ppdsat ALLCAPS SCROLL INPUTRI 9 /* unit sat kecil */ ppdtmp2 NUMERIC INPUTRI 10 /* unit sat kecil */ ppdhrg3 NUMERIC INPUTRI 11 /*Harga Bruto*/ ppdperdis NUMERIC INPUTRI 12 /* Disc */ ppdtotdis NUMERIC INPUTRI 13 ppdtotfak PROTECT INPUTRI 14 /* unit sat kecil */ DEFAULTS(trans) ppdsubtran DFALT_LIST S B ppdtype2 INIT PB ppdsts INIT OPEN ppdsatbsr INIT 1 SUBFILE(trans) SFL_LINES(5) /* Rumusnya : 22 - base_row trans */ SFL_TITLE(transt) SFL_TARGET /* Index file detil Field master */ ppdfakurtidx pmbnofak SFL_MAP /* Field master Field Detil Type Map */ pmbnofak ppdnofak REPLACE pmbsup ppdplg REPLACE pmbtglfak ppdtglfak REPLACE pmbcab ppdcab REPLACE pmbdvs ppddvs REPLACE pmbscr ppdscr REPLACE
Dengan menuliskan perintah di atas maka file detail trans dan file master telah terhubung. Setelah kita mengisi data di file master dan menyimpannya kemudian tekan tombol 1d untuk masuk ke file detail trans seperti ditunjukkan pada gambar di bwh ini.
Berikutnya kita akan menghubungkan file master dengan file detail transa dengan mengetikkan perintah sebagai berikut di atas perintah END_SCREEN.
IMAGE(transat) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=11} |-----t---t--------------t----t----------t------------t--------t--------------t--------------------| |Type |S/O| Nomor Cek |Sts |Rek Kas/Bk| Nama Bank |Tgl Jtp | Nilai | Keterangan | |-----|---|--------------|----|----------|------------|--------|--------------|--------------------| \-----.---.--------------.----.----------.------------.--------.--------------.--------------------/ IMAGE(transa) {NO_CLS} {LSTFLD_ADVANCE} {FRSFLD_BACKUP} {BASE_ROW=14} {COVER_MASTER} | _ | _ |______________|____|__________|____________|________|___________.__|____________________| FIELD(transa) pcmtype NOCHANGE INPUTRI 1 pcmtype2 NOCHANGE INPUTRI 2 pcmnocek ALLCAPS INPUTRI 3 pcmsts PROTECT NONE 4 pcmnobbm ALLCAPS INPUTRI 5 pcmbank PROTECT NONE 6 pcmtgljtp NONE {DD-MM-YY} INPUTRI 7 pcmtotal NUMERIC INPUTRI 8 pcmket ALLCAPS SCROLL INPUTRI 9 DEFAULTS(transa) pcmtype DFALT_LIST T C M pcmtype2 DFALT_LIST S O pcmsts INIT OPEN SUBFILE(transa) SFL_LINES(6) /* Rumusnya : 22 - base_row trans */ SFL_TITLE(transat) SFL_TARGET /* Index file detil Field master */ pcmnoprcidx pmbnofak SFL_MAP /* Field master Field Detil Type Map */ pmbnofak pcmnoprc pmbsup pcmplg ppdtglfak pcmtgl ppdtype2 pcmtype3 pmbscr pcmscr
Dengan demikian file detail transa telah terhubung ke file master seperti yang terlihat dari gambar di bawah ini. Tambahkan perintah HOOKS, EDITS, MAP, SCAN, dan DEFAULT sesuai kebutuhan yang anda inginkan.
Sebelum melangkah ke langkah selanjutnya yaitu membuat program POSTING, alangkah baiknya bila kita mengenal terlebih dahulu field - field ppd dan pcm yang digunakan di program pembelian ini. Karena pada bab sebelumnya kita telah membahas file pcm, maka kali ini kita hanya akan membahas file ppd saja.
Nama file : ppd file ini menyimpan semua informasi aktivitas barang. File ini akan menjadi detail dari semua transaksi yang berhubungan dengan barang seperti penjualan, pembelian, dll ppdurt2 : nomor urut ppdkat : kategori barang ppdbrg : nama barang ppdlok : lokasi barang ppdperdis : diskon per barang ppdtotdis : total diskon ppdtotfak : total faktur