17.2. Membuat File Detail

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