16.5. Mengenal Perintah EDIT

Perintah EDIT berfungsi untuk membantu mengecek apakah data yang kita masukkan ke dalam field sudah benar. Ketikkan perintah di bawah ini seperti biasa sebelum perintah END_SCREEN.


/*--------------------------------EDIT(master)-----------------------*/
CALCS()
cbknbiayaAtauBPO	bkktype != "PU" || bkkstsexp == "BPO" 
cbkknobbm1      	bkknobbm != BLANKS 

EDITS(master)
Harus masukkan KS(Kas)  BK(Bank) bkkkb MANDATORY
Nomor Bukti sudah ada 		bkknum DUPKEY bkknumidx 
Harus masukan Nomor Bukti 	bkknum MANDATORY
Harus masukan Tanggal 		bkktgl MANDATORY
Penerima harus diisi            bkkkode  MANDATORY_IF cbknbiayaAtauBPO
Jumlah Kas/Bank Harus diisi bkkjmlmut MANDATORY_IF cbkknobbm1
Keterangan harus diisi bkkket MANDATORY
Harus Masukkan kode Cabang bkkcab MANDATORY
Harus Masukkan Divisi bkkdvs MANDATORY
Kode cabang ini tidak ada bkkcab VALIDATE cabnoidx mcab 

MAP(mcab)
cabno		bkkcab		REPLACE
cabbkjln	bkkbgn		REPLACE
	

Sesudah melakukan kspar prt9000/sct271, cobalah masuk ke sct271 dan lakukan tambah rekord dengan menekan tombol t. Tekan enter sampai ke tampilan Cab/Div. Pada saat menekan enter lagi, maka akan tampil pesan "Harus Masukkan kode Cabang". Pesan ini ditampilkan karena field bkkcab kita set MANDATORY atau harus diisi. Coba sekarang anda isi dengan ABC terus tekan enter, maka akan muncul pesan "Kode cabang ini tidak ada". Pesan ini tampil karena ada perintah VALIDATE di field bkkcab yang mengecek apakah isian kode ABC ini ada di file cab dengan mengecek index cabnoidx. Kode ABC ternyata tidak ada di file cab. Coba kita keluar dari layar 271 dan masuk ke scr113 yang menyimpan data master cabang. Di scr113 kita cari cabang yang tersedia dengan menekan tombol 'c' kemudian End, maka akan muncul cabang dengan kode PST.