NDI’da kullanılan rehber butonu, rehber tanımlama ekranından tanımlanan sabit rehberleri açar. Ancak bazı durumlar vardırki, kullanacağımız rehber belirli kısıtlar gerektirebilir. Bu gibi durumlarda NETOPENX nesnesi kullanılarak istenilen kısıt yahut daha önce belirlenmiş bir seçim sonucu istenilen bir rehber açılabilir. Aşağıdaki örnekte belirli bir kod sahasına girişten önce bir combobox yardımı ile ilgili sahaya bağlı rehberin ne rehberi olacağı seçilecek ve bu seçim sonucunda ilgili rehber açılacaktır. Bu kısa açıklama doğrultusunda bir NDI ekranı açalım ve aşağıdaki talimatları gerçekleştirelim.
-
Formumuza bir combobox yerleşrirelim ve itemlarını aşağıdaki gibi tanımlayalım. Comboboxın ismi SECIM olsun.
*Cari
*Muhasebe - Daha Sonra bir textbox yerleştirelim ve ismine KOD diyelim.
- Şimdide bir rehber butonu yerleştirelim ve ismine KODREH diyelim. Ancak rehber butonun REHBER KODU özelleğini boş bırakalım.
- Şimdi rehber butonunun ONCLICK olayına aşağıdaki kodu yazalım;
Set Krnl = createobject(“netopenx40.kernel”)
Set Srkt = Krnl.yenisirketaktifexe(kernel.values(“TS_CORE”))if Secim.ItemIndex= 0 then
CMKod = Srkt.GenelRehber(“tblcasabit”, “Cari_Kod”, “Cari Kodu”, 1 , “Cari_İsim”, “Cari_İsim”, 1, “M_Kod”, “Muhasebe_Kodu”, 1, “”, “”, 1, “”, “”, 1 ,”Cari Rehber”, “”, 1, “”)
Kod.TEXT = CMKodelse
CMKod = Srkt.GenelRehber(“tblmuplan”, “Hesap_kodu”, “Hesap Kodu”, 1, “Hs_Adi”, “Hesap Adi”, 1, “”, “”, 1, “”, “”, 1, “”, “”, 1,”Hesap Planı Rehber”, “agm=’M'”, 1, “”)
Kod.TEXT = CMKodend if
Set Srkt = Nothing
Set Krnl = Nothing
Yukarıdaki ekranı çalıştırıp comboboxtan cari seçildiğinde cari rehberi muhasebe seçildiğinde ise sadece muavin hesapkodu rehberi gelecektir. Şimdide rehber parametrelerini inceleyelim.
- tblmuplan –> rehberin veri alacağı table yahut view ismi .
- “Hesap_kodu”, “Hesap Kodu”, 1 –> sırasıyla veri getirilecek kolon adı, rehbere çıkacak kolon adı, alan tipi 0 numeric 1 string, bir rehberde maximum 5 kolon tanımlanabilir.
- “Hesap Planı Rehber” –> rehberin ismi.
- “agm=’M'” –> rehbere getirelecek kayıtlara kısıt verilmesi.
- Sondaki 1′de rehber kolonlarından soldan başlayarak kaç kolonun döndüreleceği belirtiliyor. Örneğin burada iki yazmış olsaydı herhangi bir hesap kodunun üstüne tıklanıldığında HESAP_KODU;HESAP_ADI (100-01-001;YTL KASA) şeklinde bir kayıt dönecekti.
Umarım anlatılanlar faydalı olmuştur.
Loading ...
