138
UPDATE hitung = 0 WHERE (tipemaint = “A Check” OR tipemaint = “B
Check”) AND namapesawat = namapesawat
CLOSE Jadwal Maintenance IF
cek = “D Check” THEN OPEN
file Jadwal Maintenance
UPDATE hitung = 0, statusm = false, mulai = now + 1, selesai = now +
durasi WHERE tipemaint = “D Check” AND namapesawat = namapesawat
UPDATE hitung = 0 WHERE (tipemaint = “A Check” OR tipemaint = “B
Check” or tipemaint = “C Check”) AND namapesawat = namapesawat
CLOSE Jadwal Maintenance
SHOWMESSAGE “Jadwal tidak dapat disimpan karena Pesawat harus
menjalani Maintenance”
ELSE
OPEN file Jadwal Terbang
WRITE tanggal, namapesawat, nopenerbangan, asal, tujuan, wktberangkat,
wkttiba = wktberangkat + blocktime TO Jadwal Terbang
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung = hitung + blocktime WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
IF Hapus CLICK THEN
INPUT tanggal, nopenerbangan
 |