16.2. Mengenal Perintah SCREEN, IMAGE, FIELD dan END_SCREEN.

Mari kita membuat tampilan Master Pengeluaran Kas dengan menggunakan 4 perintah di atas. Perintah SCREEN selalu mengawali setiap program Ksystem. IMAGE menggambar tampilan yang akan muncul di layar, FIELD menjelaskan field field yang ada di tampilan dan END_SCREEN selalu mengakhiri setiap program Ksystem. Untuk keterangan lebih detail bisa dilihat di keterangan setiap perintah di bab pertama.

  1. Login dengan user ksystem di Linux, masuk ke terminal dengan pilihan Application->System Tools, Terminal. Untuk Windows buka terminal DOS dan cd \ksystem

  2. mkdir prt9000

  3. vi prt9000/sct271

Untuk membantu mempercepat pengetikan program, gunakan template yang sudah disediakan di direktori kerangka. Ketik :r kerangka/master kemudian sesuaikan sehingga sesuai dengan tampilan di bawah sbb:


SCREEN 271 QUERY_TYPE Program Kas Keluar
SCR_FILE bkk

IMAGE(master) 
/--SCT271------------------------------Pengeluaran KAS/BANK/GIRO-----------------------------------\
| /-------------------------\ /------------------------\ /---------------------------------------\ |
| |No.Bukti: ______________ | |Tanggal : ________      | |Rek.: __   ___________   _____________ | |
| |Jenis   : __   Type:___  | |Penerima: ____________  | |Nama: ________________________________ | |
| |Cab/Div : ____  /_______ | |Status  : ____ __ _____ | |Ket.: ________________________________ | |
| \-------------------------/ \------------------------/ \---------------------------------------/ |
|                                                                                        ___ ____  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
|                                                                                                  |
| /------------TOTAL BIAYA------------------------t--------------------TOTAL KAS-----------------\ |
| | __________________________________________.__ | _________________________________________.__ | |
| |                                               |                                              | |
| |                                               |                                              | |
| \-----------------------------------------------.----------------------------------------------/ |
\--------------------------------------------------------------------------------------------------/

FIELD(master)
   bkknum        ALLCAPS                     INPUTRI    1 /* Nomor Bukti */
   bkktgl        NONE {DD-MM-YY}             INPUTRI    7 /* Tanggal */

   bkkkb         ALLCAPS NOCHANGE            INPUTRI    11  /* Nomor Bukti */
   bkknobbm 	 ALLCAPS                     INPUTRI    12
   bbmket        PROTECT                     INPUTRI    13 /* Total Biaya */

   bkktype       ALLCAPS NOCHANGE            INPUTRI    2
   bkkstsexp     ALLCAPS NOCHANGE            INPUTRI    3
   bkkkode 	 ALLCAPS                     INPUTRI    8 /* Kode Penerima*/
   bkknama       ALLCAPS SCROLL              INPUTRI    14 /* Nama Penerima */


   bkkcab        ALLCAPS SCROLL       	     INPUTRI    4 
   bkkdvs        ALLCAPS SCROLL              INPUTRI    5 
   bkksts        PROTECT ALLCAPS             INPUTRI    9  /* Status */
   bkkstsapr     PROTECT ALLCAPS             INPUTRI    10  /* Status */
   bkktdkapr     PROTECT ALLCAPS             INPUTRI    11  /* Status */
   bkkket        ALLCAPS SCROLL              INPUTRI    15 /* Total Biaya */

   bkktype2       PROTECT QPROTECT UNSEEN   INPUTRI     19 /* Status */
   bkkscr         PROTECT QPROTECT          INPUTRI     20 /* Status */


   bkktotal      NUMERIC                     BIG    21 /* Total Biaya */
   bkkjmlmut     NUMERIC                     BIG    22 /* Total Biaya */

END_SCREEN

Program Ksystem menyediakan tempat di layar sebesar 100 karakter ke kanan dan 24 baris ke bawah. Dalam IMAGE, sebuah field diwakili dengan garis bawah sepanjang yang diinginkan, jadi pada tampilan


| |No.Bukti: ______________ | |Tanggal : ________      | |Rek.: __   ___________   _____________ | |

ada 5 field yang ditampilkan. Nama dari field field ini ditulis di bagian FIELD dengan urutan dari kiri ke kanan baru ke baris bawahnya. Maka dengan melihat bagian FIELD


FIELD(master)
   bkknum        ALLCAPS                     INPUTRI    1 /* Nomor Bukti */
   bkktgl        NONE {DD-MM-YY}             INPUTRI    7 /* Tanggal */

   bkkkb         ALLCAPS NOCHANGE            INPUTRI    11  /* Kas/Bank*/
   bkknobbm 	 ALLCAPS                     INPUTRI    12
   bbbmket       PROTECT                     INPUTRI    13 /* Total Biaya */

kita lihat bahwa field pertama adalah bkknum, disusul oleh bkktgl, bkkkb, bkknobbm dan bbmket Nomor di kolom terakhir adalah urutan field pada saat kita tekan enter.

  1. kspar prt9000/sct271

    gunakan user:root, password:root (kecuali sudah diubah sendiri) Bila ada kesalahan pada saat kspar dan kspar mengeluarkan pesan kesalahan nomor tertentu, lihatlah informasi kesalahan ini di file error.h. Fungsi kspar prt9000/sct271 ini menghasilkan frm9000/sct271.frm

  2. ksgen -x9000

    Perintah ksgen akan menggabung sct271 yang ada di frm9000/sct271 ke sistem menu Ksystem sehingga dapat diakses via ksrun. Semua program standar Ksystem ada di direktori atau folder prg. Jadi ada prg/scr111, prg/scr201 dst. Ksgen -x9000 ini akan menghasilkan file scrdef9000.str

  3. ksrun -x9000

    Ksrun -x9000 ini akan membaca sistem menu yang ada di scrdef9000.str. sesudah login, pilih menu 271, maka akan tampil tampilan sbb:

Dari gambar di atas kita lihat bahwa tulisan SCT271 berada di baris pertama dan bertabrakan dengan tombol tombol perintah yang juga ada di baris pertama. Mari kita pindah tulisan SCT271 ke baris ke dua. Sekalian kita beri warna pada kotak kotak yang ada. dengan cara mengubah baris


IMAGE(master) 
    menjadi
IMAGE(master) {BASE_ROW=2} {FRSFLD_BACKUP} {LSTFLD_ADVANCE} {IMG_BOX_COLOR1=250,228,205} {IMG_BOX_COLOR2=191,245,196} {IMG_BOX_COLOR3=166,214,240} {IMG_BOX_COLOR4=239,255,151} 

Gunakan editor vi untuk mengubah baris di atas. {BASE_ROW=2} akan membuat IMAGE ini dimulai dari baris ke 2. {FRSFLD_BACKUP} akan membuat kursor di field pertama akan pindah ke field terakhir bila kita tekan tombol Backspace. {LSTFLD_ADVANCE} akan membuat kursor yang ada di field terakhir berpindah ke field pertama bila kita tekan enter. {IMG_BOX_COLOR1=250,228,205} akan memberi warna pada kotak atas kiri. {IMG_BOX_COLOR2} akan memberi warna pada kotak di sebelah kanannya dst. Warna ini adalah warna RGB (Red Green Blue) yang sudah umum. jalankan lagi kspar prt9000/sct271. Anda tidak perlu mengeluarkan program ksrun yang sedang berjalan. Anda cukup keluar dari layar 271 dengan menekan tombol escape yang akan membawa anda ke layar menu, kemudian masuk lagi ke sct271. Program yang sudah kita geser ke bawah akan muncul sbb:

Mari kita coba menambah rekord dengan menekan tombol 't', kursor akan berada di field No.Bukti. Sekarang kita tekan enter dan kursor akan pindah ke field jenis. Hal ini terjadi karena urutan field pertama adalah bkknum dan ke 2 adalah bkktype. Kalau kita tekan enter lagi maka kursor akan berada di field bkkstsexp. Untuk mengetahui kursor sekarang berada di field apa, gunakan tombol F7 untuk menampilkan nama field. Tekan F7 lagi untuk kembali ke mode normal.

Sesudah kita menyelesaikan program pertama kita, marilah kita belajar untuk memahami file bkk yang dipakai di sct271.


	Nama File: bkk

	Fungsi: File transaksi Pengeluaran kas, Penerimaan kas, Pengeluaran Kas Bon dan Penyelesaian Kas bon.

	Field field utama

	bkknum: Nomor transaksi

	bkktgl: Tanggal Transaksi

	bkknobbm: No. Rekening buku besar bila pengeluaran hanya butuh satu rekening kas atau bank.

	bkkjmlmut: Total nilai uang yang dikeluarkan, 
	   mis. Tunai 100rb, Cek 200rb, total=300rb

	bkktotal: Total perincian biaya yang dikeluarkan, 
	   mis.biaya transport=200rb, biaya pemasaran 100rb, total = 300rb.

	bkktype: Jenis pengeluaran
	   PU: Pengeluaran Umum
	   HL: Hutang Lain, mis. hutang ke Bank atau ke orang lain
	   PL: Piutang Lain, Piutang di luar usaha.
	   PP: Piutang Pegawai

	bkkstsexp: Jenis pengeluaran yang merinci bkktype = PU
	   BI: Biaya umum biasa
	   BAT: Biaya Aktiva Tetap. Pengeluaran untuk pemeliharaan aktiva tetap seperti mobil sehingga kita bisa tahu biaya per mobil.

	bkktype2: Jenis transaksi. 
	   KK: Kas keluar
	   KM: Kas masuk
	   BS: Bon Sementara

	bkkkb: Tipe pengeluaran kas, 
	   KS untuk tunai 
	   BK untuk pengeluaran dari Bank.

	bkkcab: Cabang yang pengeluaran kas

	bkkdvs: Divisi yang mengeluarkan

	bkksts: Status dari transaksi ini
	   OPEN: belum diposting.
	   CLSD: sudah posting.