Kontrollü silme nasıl yapılır?

Question

Arkadaşlar silme işlemini programın her formunda değilde sadece benim istedim Layout ve formlarda yapmasını istiyorum. Ayrıca Kullanıcı kontrolünde yapmalıyım ki Admin ve yetkili kişiler dışında silme Olmasın.

Answer 1

TEK TEK SİLME

Set Variable [ $LN; Value:Get ( LayoutName) ]
If [ $LN = "inceleme" ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Bu formda veri silemezsiniz. Bu kaydı silmek için DÜZENLEME Formuna geçmeniz gerekmektedir."; Default Button: “OK”, Commit:
“Yes” ]
Halt Script
End If
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 ]
Else
Go to Layout [ original layout ]
End If

TÜM KAYITLARI SİLEME, Scriptin enaltına bakın. Bu  scripti  Kayıtlar Menüsünden Tüm kayıtları sil e atadım Sadece Kayıtlar Formunda aktif oluyor. Aktif pasif olmasını da daha sonra anlatırım. Custom Menu den yapıyorsunuz.

If [ Get ( LayoutName ) = "Yeni_Kayit" or Get ( LayoutName ) = "Odunc" ]
Show Custom Dialog [ Title: "Sil Uyarı Mesajı"; Message: "Toplam " & Get ( TotalRecordCount ) & " Kayittan " & Get ( FoundCount ) & " Kaydın tümünü silmek istediğinizden emin
misiniz? "; Default Button: “Sil”, Commit: “Yes” ; Button 2: “iptal”, Commit: “No” ]
If [ Get ( LastMessageChoice )=1 ]
Delete All Records
[ No dialog ]
Halt Script
Else
Go to Layout [ original layout ]
Halt Script
End If
End If
Show Custom Dialog [ Title: "Uyarı"; Message: "Bu formda TÜM KAYITLARI silemezsiniz. Bu kaydı silmek için KAYITLAR Formuna geçmeniz gerekmektedir."; Default Button: “OK”, Commit:
“Yes” ]
Halt Script

Answer 2

Scriptin kodunuda verirseniz sevinirim, müsait olduğumda bende kendi kodumu ekleyeceğim

Answer 3

Custom Privilege Set!