136
SHOWMESSAGE “Tanggal yang sudah lewat tidak dapat disusun kembali”
ELSE
IF tiba = ‘ ’ THEN
INPUT wktberangkat, nopenerbangan, asal, tujuan
OPEN file Rute
READ blocktime WHERE asal = asal AND tujuan = tujuan
ELSE
INPUT nopenerbangan, asal, tujuan
OPEN file Rute
READ blocktime WHERE asal = asal AND tujuan = tujuan
IF Simpan CLICK THEN
IF asal <> tjn THEN
SHOWMESSAGE “Rute Asal tidak sesuai dengan Rute Tujuan sebelumnya”
ELSE
wkttiba = wktberangkat + blocktime
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = tanggal AND nopenerbangan =
nopenerbangan
IF Recordcount > 0 THEN
SHOWMESSAGE “Tanggal dan No. Penerbangan terduplikasi”
ELSE
OPEN file Maintenance
 |