137
OPEN file Jadwal Maintenance
READ Jalan.tipemaint, (Maintenance.selang – Jadwal Maintenance.hitung) AS
sisa WHERE Jadwal
Maintenance.namapesawat = namapesawat AND sisa <
100 ORDER BY Jadwal Maintenance.tipemaint DESC.
cek = tipemaint
IF Recordcount > 0 THEN IF cek
=
“A Check” THEN OPEN file
Jadwal Maintenance
UPDATE hitung = 0, statusm = false, mulai = now + 1, selesai = now +
durasi WHERE tipemaint = “A Check” AND namapesawat = namapesawat
CLOSE Jadwal Maintenance
IF cek = “B Check” THEN
OPEN file Jadwal Maintenance
UPDATE hitung = 0, statusm = false, mulai = now + 1, selesai = now +
durasi WHERE tipemaint = “B Check” AND namapesawat = namapesawat
UPDATE hitung = 0 WHERE tipemaint = “A Check” AND namapesawat =
namapesawat
CLOSE Jadwal Maintenance IF
cek = “C Check” THEN OPEN
file Jadwal Maintenance
UPDATE hitung = 0, statusm = false mulai = now + 1, selesai = now +
durasi WHERE tipemaint = “C Check” AND namapesawat = namapesawat
 |