clear (temizle) işlemi

Question

iyi günler sayın hocalarım, Arşive Gönder butonu altında aşağıdaki script yazılı, arşive gönderiyor bir sıkıntı yok ancak gönderme işlemi sonrası Arşiv Numarası Hariç tüm alanların temizlenmesi ve kaydın silinmemesi lazım, burda takıldım, (galiba 18. satırda bir şey olması lazım) teşekkür eder, kolaylıklar dilerim.

 

1 Set Error Capture [On]
2 If [Get (FoundCount)=0]
3 Show Custom Dialog ["DİKKAT!"; "Hiç Kayıt Bulunamadı"]
4 Exit Script [Text Result: ]
5 End If
6 If [Get (FoundCount )>1]
7 8 Show Custom Dialog ["DİKKAT!"; "Birden Fazla Kayıt Bulundu. Lüten Yeniden arama yapınız."]
Exit Script [Text Result: ]
9 End If
18 If [Get (FoundCount) >0 and district archive_thc:: Ayrilma_Nedeni=""]
11 Show Custom Dialog ["UYARI"; "Ayrılma Nedeni Girilmeden Arşive Gönderilmez"]
12 End If
13 If [district archive_thc:: Ayrilma_Nedeni ≠ ""] 14
Import Records [With dialog: Off; Table: district archive_thc_archive; "Yönetici.fmp12"; Add; Windows ANSI]
Show Custom Dialog ["Mesajınız Var"; "Bu Personel Arşive Aktarılmıştır."]
15
16 Go to Layout ["district archive_thc" (district archive_thc); Animation: None]
17 Enter Browse Mode [Pause: Off]
18 
19 Show All Records
20 End If

Answer 1

Set Error Capture [On]

If [Get (FoundCount)=0]
    Show Custom Dialog ["DİKKAT!"; "Hiç Kayıt Bulunamadı"]
    Exit Script [Text Result: ]
End If

If [Get (FoundCount)>1]
    Show Custom Dialog ["DİKKAT!"; "Birden Fazla Kayıt Bulundu. Lütfen Yeniden Arama Yapınız."]
    Exit Script [Text Result: ]
End If

If [Get (FoundCount) > 0 and district archive_thc::Ayrilma_Nedeni = ""]
    Show Custom Dialog ["UYARI"; "Ayrılma Nedeni Girilmeden Arşive Gönderilmez"]
Else If [district archive_thc::Ayrilma_Nedeni ≠ ""]
    # Arşiv numarasını oluşturabilirsiniz, örneğin bir otomatik artan numara.
    Set Field [district archive_thc_archive::Arşiv_Numarası; YourAutoIncrementField]

    # Diğer alanları temizle
    Set Field [district archive_thc::Alan1; ""]
    Set Field [district archive_thc::Alan2; ""]
    # ... Diğer alanları temizle ...

    Import Records [With dialog: Off; Table: district archive_thc_archive; "Yönetici.fmp12"; Add; Windows ANSI]
    Show Custom Dialog ["Mesajınız Var"; "Bu Personel Arşive Aktarılmıştır."]

    Go to Layout ["district archive_thc" (district archive_thc); Animation: None]
    Enter Browse Mode [Pause: Off]
    Show All Records
End If

Not: " YourAutoIncrementField" kısmını, arşiv numarasını tutmak için kullanacağınız otomatik artan bir alanın adı ile değiştirmeniz gerekecektir. Projenizde bir denermisiniz.

Comments

Hocam ilginiz için teşekkürler bir iki küçük değişiklik ile hallettim.