141
UPDATE wktberangkat = wktberangkat + lamadelay, wkttiba = wkttiba + lama
delay WHERE tanggal = now AND wktberangkat >= berangkat AND
namapesawat = namapesawat
CLOSE Jadwal Terbang
IF jenisdelay = waktu tiba THEN
UPDATE wktberangkat = wktberangkat + lamadelay, wkttiba = wkttiba + lama
delay WHERE tanggal = now AND wktberangkat >= tiba AND namapesawat
=
namapesawat
UPDATE wkttiba = wkttiba + lamadelay WHERE tanggal = now AND wkttiba =
tiba AND namapesawat = namapesawat
CLOSE Jadwal Terbang
OPEN file Jadwal Maintenance
UPDATE hitung = hitung + lamadelay WHERE namapesawat = namapesawat
CLOSE Jadwal Maintenance
END
FormUJadwal
INPUT namapesawat, nopenerbangan
OPEN file Jadwal Terbang
READ wktberangkat AS berangkat WHERE tanggal = now AND nopenerbangan =
nopenerbangan
READ Jadwal Terbang WHERE tanggal = now ORDER BY namapesawat,
 |