ERP Özel Ekran Modülü - Ndi Rehber Kisiti Verme Dinamik..

Ndi Rehber Kisiti Verme Dinamik..

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Özel Uyarlamalar
Forum Adı: ERP Özel Ekran Modülü
Forum Tanımlaması: Özel Ekran Modülü İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2343
Tarih: 22 Kasım 2024 Saat 18:19
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Ndi Rehber Kisiti Verme Dinamik..

Mesajı Yazan: hakan055
Konu: Ndi Rehber Kisiti Verme Dinamik..
Mesaj Tarihi: 25 Kasım 2010 Saat 16:06

Merhaba arkadaslar,

NDI da olusturdugum formdaki rehbere kisit vermek istiyorum ama bunu rehber özelliklerinden degil dizaynda vermek istiyorum. Dizayndaki rehber butonuna tikladigim da

grupkodu.text = "urun"

veya

grupkodu.text = "hammadde"

ise

çagirdigim rehberdeki grup kodu urun olanlari veya hammadde olanlari getirmesini istiyorum bu arada grupkodu.text deki veri degisken.. rehbere ndi dizaynda kisiti nasil verebiliriz? Ilginize simdiden tesekkür ederim..

-------------
Susmak kabullenmek değil, cevaptır anlayabilene... Bilki kısa cümleler kuruyorsa insan, uzun yorgunlukları vardır sadece..

Cevaplar:

Mesajı Yazan: hakan055
Mesaj Tarihi: 09 Aralık 2010 Saat 00:13

RIFAT GÜNDÜZ ÜSTADIN KATKILARIYLA ASAGIDAKI KOD ILE ÇALISTIRABILIR DURUMDA...

SET Q=NETSISCORE.NetLibDB.GetNewQuery
S1="SELECT STOK_ADI,KOD_3 FROM "&VT&"..TBLSERITRA JOIN "&VT&"..TBLSTSABIT ON ("&VT&"..TBLSERITRA.STOK_KODU="&VT&"..TBLSTSABIT.STOK_KODU) WHERE GCKOD='C' AND SERI_NO='"&UP_BLKNO.Text&"'"
Q.RECSQL(S1)

BLOKKOD3 = Q.FIELDBYNAME("KOD_3").ASVARIANT

Kod baslangici

Dim Kernel1
Dim Sirket1
Dim Sonuc
Set Kernel1 = CreateObject("NETOPENX50.Kernel")
Set Sirket1 = Kernel1.yeniSirket(vtMSSQL, "VERITABANIADI", "TEMELSET", "", "NETSISKULLANICI", "NETSISSIFRE", 0)
Sonuc=Sirket1.GenelRehber("TABLOVEYAVIEWADI", "VERITABANINDAKI KOLON ÖRNEK : STOK_KODU", "REHBERDE GÖZÜCEK ISIM STOK KODU", 1, "STOK_ADI", "STOK ADI", 2,"KOD_1", "KOD1", 3, "KOD_2", "KOD2", 4, "KOD_3", "KOD3", 5, "PRF LOKUP", "VERILECEK KISIT ÖRNEK STOK_KODU LIKE 'PLK%' AND KOD_3='"&BLOKKOD3&"'" ,0, "")

if len(sonuc)>1 then
'dönen degerin yazdiralacagi text

UP_KLMSTOKKODU.Text=left(sonuc,Instr(1,Sonuc,";")-1)
else
Netsiscore.Netlibwin32.ShowNetsismesaj "Seçim yapiniz!!!",2
end if

Set Sirket1   = Nothing
Set Sonuc     = Nothing
Kernel1.FreeNetsisLibrary
Set Kernel1   = Nothing

Rastgele....

-------------
Susmak kabullenmek değil, cevaptır anlayabilene... Bilki kısa cümleler kuruyorsa insan, uzun yorgunlukları vardır sadece..