145
UPDATE jmlpenumpang, permintaan WHERE tanggal = now AND
nopenerbangan = nopenerbangan
CLOSE Jadwal Terbang
END
FormJMaintenance
INPUT namapesawat, tipemaint, utilisasi
OPEN file Jadwal Maintenance
READ Jadwal Maintenance.hitung WHERE namapesawat = namapesawat AND
tipemaint = tipemaint
OPEN file Maintenance
READ Maintenance.selang WHERE tipemaint = tipemaint
IF Cek Status CLICK THEN
x = ROUNDUP((selang - hitung)/(utilisasi * 60))
Maintenance Berikut = now + x
CLOSE Jadwal Maintenance
CLOSE Maintenance
END
FormTMaintenance
Tanggal = now
OPEN file Jadwal Maintenance
 |