ERP Entegrasyonları - Dinamik Kodlama TDBRadioGroup

Sayfayı Yazdır | Pencereyi Kapat

Dinamik Kodlama TDBRadioGroup

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=2273
Tarih: 22 Kasım 2024 Saat 12:18
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Dinamik Kodlama TDBRadioGroup

Mesajı Yazan: fameto
Konu: Dinamik Kodlama TDBRadioGroup
Mesaj Tarihi: 16 Eylül 2010 Saat 16:25

Merhaba;
Sizlerden bir yardim talebim olacak. Ben cari kartlarda cari kilit durumunda bir degisiklik oldugunda belirledigim kisiye mail olarak bilgi göndermek istiyorum. ancak birtürlü C_yedek1 radiogrubunun item index degisikligini algilatamiyorum bununla ilgili bilgi verebilirmisiniz?
Ör;
C_yedek1.PropertyValue("ItemIndex") böyle kullanmaya çalisiyorum ancak kabul etmiyor.
RadioGroup u nasil kullanirim?
Simdiden tesekkürler.

Cevaplar:

Mesajı Yazan: Conari
Mesaj Tarihi: 16 Eylül 2010 Saat 17:07

Dinamik kodlama hiç yapmadim ama düz mantik ile

onchange de kod yazabilirsin diye düsünüyorum tabi kayit tamamlanmazsa mail de hatali gider. bunun içinde MSSQL den mail gönderte bilirsiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: rifatgunduz
Mesaj Tarihi: 16 Eylül 2010 Saat 17:39

Selam Ahmet,

Asagidaki kod ile Kilidi degistiginde kendine mail gönderebilirsin. Mail gönder yerine yazacagin kodu zaten biliyorsun. Birde bu kodu CariMas_Inq objesinin BeforePost eventina yazmalisin.

Görüsürüz Ahmetcim.

DB = "KURUMSAL10.." '''Veritabani Adi Degistirmeyi unutma
Set QRY = NETSISCORE.NetLibDB.GetNewQuery
STR = "SELECT C_YEDEK1 FROM " & DB & "TBLCASABIT WHERE (SUBE_KODU=" & NETSISCORE.NetLibSession.LogicalSegmentValue & " OR SUBE_KODU=-1) AND CARI_KOD='" & CARI_KOD.Text & "'"
QRY.RECSQL(STR)
'msgbox CARIMAS_INQ.Fields(54).AsString '''''Gerekirse 2 msgboxi aç deger kontrolu yap.
'msgbox QRY.FieldByName("C_YEDEK1").AsString
If CARIMAS_INQ.Fields(54).AsString <> QRY.FieldByName("C_YEDEK1").AsString Then
Msgbox "Mail Gönder"
Else
End If

QRY.Close
Set QRY = Nothing

-------------
Rifat Gündüz

www.netsis.com.tr

Mesajı Yazan: fameto
Mesaj Tarihi: 16 Eylül 2010 Saat 19:25

Çok Tesekkür Ederim Abi isime Yaradi