BUL (Eğer kayıt bulunamaz ise 2 seçenekli mesaj çıkacak Tekar ARA ve iptal, Tekrar ARA ya tıklandığında BUL scripti tekrardan başlayacaktır. )
Set Error Capture [ On ]
Allow User Abort [ Off ]
Go to Layout [ original layout ]
Enter Find Mode [ ]
[ Pause ]
Perform Find [ ]
If [ Get ( LastError )=401 ]
Show Custom Dialog [ Title: "Hata Mesajı"; Message: "Aradığınız kayıt bulunamadı."; Default Button: “ARA” , Commit: “Yes” ; Button 2: “IPTAL”, Commit: “No” ]
If [ Get ( LastMessageChoice ) = 1 ]
Perform Script [ “Bul_AYS” ]
End If
If [ Get ( LastMessageChoice ) = 2 ]
Go to Layout [ original layout ]
Show All Records
Enter Browse Mode
Halt Script
End If
Else
Go to Layout [ “Bul_Liste_Odunc” (AYS) ]
End If
SİL SCRIPT
Show Custom Dialog [ Title: "Sil Uyarı Mesajı"; Message: "Bu kaydı silmek istediğinizden emin misiniz? "; Default Button: “Sil”, Commit: “Yes” ; Button 2: “iptal” , Commit: “No” ]
If [ Get ( LastMessageChoice )=1 ]
Delete Record/Request
[ No dialog ]
End If