cari bilgileri getirmek
Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP Entegrasyonları
Forum Tanımlaması: ERP Entegrasyonları İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=1214
Tarih: 22 Kasım 2024 Saat 11:35
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: cari bilgileri getirmek
Mesajı Yazan: amanbre
Konu: cari bilgileri getirmek
Mesaj Tarihi: 16 Kasım 2008 Saat 16:04
cari kodunu bildigim bir carinin bilgilerini getirmek istiyorum..Kodum söyle ve gerisini getiremedim yardimlarinizi bekliyorum..
Kernel kernel = new Kernel();
Sirket sirket = default(Sirket);
Cari cari = default(Cari);
CariTemelBilgi cariTmlBlg = default(CariTemelBilgi);
CariEkBilgi cariEkBlg = default(CariEkBilgi);
cariTemel.CARI_KOD = Session["cKod"].ToString();
sirket = NetsisKernel.yeniSirket(NetOpenX40.TVTTipi.vtMSSQL, "GUNSU", "TEMELSET", "", "Netsis", "Net1", 0);
cari =kernel.yeniCari(sirket);
cariTmlBlg = cari.TemelBilgi();
cariEkBlg = cari.EkBilgi();
cari kodunu verip geri dönüsünde cari adresini alabilecegim kod satiri lazim..
|
Cevaplar:
Mesajı Yazan: pirodex
Mesaj Tarihi: 12 Şubat 2009 Saat 11:00
Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Cari As NetOpenX40.Cari
Dim CariTemel As NetOpenX40.CariTemelBilgi
Dim CariEk As NetOpenX40.CariEkBilgi
Sirket = Kernel.yeniSirket(TVTTipi.vtMSSQL, "FAYDA09", "TEMELSET", "", "NETSIS", "NET1", 0)
Cari = Kernel.yeniCari(Sirket)
CariTemel = Cari.TemelBilgi
CariEk = Cari.EkBilgi
Try
If Cari.kayitOku(otAc, "CASABIT.CARI_KOD='aranilan_cari_kodu_buraya'") Then
'Cari.kayitOku(otIlk)
'MsgBox("kayit açildi")
'Cari.kayitOku(otIlk)
Cari.kayitOku(otIlk)
MsgBox(Cari.TemelBilgi.CARI_KOD & " --- " & Cari.TemelBilgi.CARI_ISIM & " --- " & Cari.EkBilgi.CARI_KOD & " ")
'Cari.kayitOku(otSonraki)
'MsgBox(Cari.TemelBilgi.CARI_KOD & " --- " & Cari.TemelBilgi.CARI_ISIM & " " & Cari.TemelBilgi.RISK_SINIRI & " " & Cari.RiskBul(True, TCariRiskTipi.crtBorcToplam, Cari.TemelBilgi.CARI_KOD, System.DateTime.Now, "", "").ToString())
'Cari.kayitOku(otSonraki)
'MsgBox(Cari.TemelBilgi.CARI_KOD & " --- " & Cari.TemelBilgi.CARI_ISIM)
'Cari.kayitOku(otOnceki)
'MsgBox(Cari.TemelBilgi.CARI_KOD & " --- " & Cari.TemelBilgi.CARI_ISIM)
'Cari.kayitOku(otSon)
'MsgBox(Cari.TemelBilgi.CARI_KOD & " --- " & Cari.TemelBilgi.CARI_ISIM)
End If
Sirket = Nothing
Cari = Nothing
CariTemel = Nothing
CariEk = Nothing
Call Kernel.FreeNetsisLibrary()
Kernel = Nothing
Catch ex As Exception
End Try
|
Mesajı Yazan: gazimuhtar
Mesaj Tarihi: 24 Ağustos 2009 Saat 14:02
bu bilgileri gosterirken textbox yada baska bir sey kullanmiyormusunuz bunlar sadece kotlar datagrid yada datagridwiev filan eger bole cok basit de olsa bir sadece kodlarini degilde tasarim sayfasi ile birlikte bir ornek atilirsa cok daha fayadali olacagina inaniyorum rapid e upload edip linkini verirseniz sevinirim ben visual 2008 kullaniyorum
-------------
KONTROLSUZ GÜÇ GÜÇ DEĞİLDİR
|
|