FilemakerTurk, AYS Bilişim ve Beyaz Net tarafından desteklenmektedir.
Filemaker Danışmanınız
AYS Bilişim
Mehmet KAYA
 0532 231 07 27
 0216 318 55 80
 mkaya@aysbilisim.net
						

clear (temizle) işlemi

+2 oy
83 kez görüntülendi

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

27, Şubat, 27 Scripts kategorisinde avanoslu (6,920 puan) tarafından soruldu

1 cevap

+2 oy
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.
27, Şubat, 27 kurucay2000 (9,280 puan) tarafından cevaplandı
Hocam ilginiz için teşekkürler bir iki küçük değişiklik ile hallettim.
...