Troia’ da projemize devam ediyoruz.

Bugün bahsedeceğim konu MODI değişkeni.

IAS’ın kendisinin bir standart olarak oluşturduğu bu değeri standartlara uygun kod yazmak için bilmenizde fayda var.

Neden fayda var?

Çünkü çalıştığınız firmada ekiple ortak bir kod geliştirme ortamına sahipseniz belli standartlara uymak kod anlaşılırlığını artırır. Aynı zamanda firmanıza dışarıdan gelen IAS danışmanları ile doğru kodsal iletişimi kurabilmeniz belki sorunların daha çabuk çözülmesini sağlamak için standartlara uygun kod geliştirmekte fayda vardır.

MODI INTEGER bir değişkendir.

Ve görevi formlar arası geçiş yaparken hangi butona bastığımız geçtiğimiz formda anlamamızı ve buna göre işlem yapmamızı sağlıyor.

Formumuza bir bakalım.

Şimdi burada Göz ile girdiğimizde farklı işlerin olmasını kalemle girdiğimiz daha farklı ve artı ile girildiğinde bambaşka işlerin olmasını istiyoruz.

İşte hangi tuşa bastığımızı hafızada tutacak olan değişkenimiz MODI dir.

MODI nin aldığı standart değerler mevcuttur. 3 Değer alır.

Aşağıdaki resimde de bunu görüyoruz.

Şimdi o zaman şunu yapalım.

Öncelikle detay ekranımızı bir görelim.

Şunu yapacağız.

SHOW butonu ile girmek demek sadece verilere bakacağım ben demektir. Onun için SHOW ile gidersem SAVE butonunun ENABLE’ını false yapalım.

MODI değişkenine her yerden ulaşmak için öncelikle BEFORE metodu içinde tanımlayalım.

OBJECT:
INTEGER MODI;

SELECT * 
	FROM EDUTESTTABLE 
	WHERE 1=2 
	INTO PERSONELBILGISI;

Şimdi SHOW metodu içinde MODI değerini 2 yapacağız.

MODI=2;

IF PERSONELBILGISI_SELECTED == 1 THEN
CALL DIALOG EDUPERSON02;
ENDIF;

Geçiş yaptığımız Diyalogun AFTER kodlarında DISABLE, ENABLE durumlarını kontrol edelim.

IF MODI == 2 THEN
	SET SAVE TO DISABLE;
ELSE
	SET SAVE TO ENABLE;
ENDIF;

Kodlarla söylediğimiz şey şu MODI değeri 2 gelirse bu SHOW olarak gelmiş demektir. O zaman SAVE butonuna erişimi kapat ama yok öyle değilse o zamanda aç diyoruz.

Bir de diğerlerinin kodlarını yazalım.

MODI=1;

IF PERSONELBILGISI_SELECTED == 1 THEN
	CALL DIALOG EDUPERSON02;
ENDIF;
IF MODI == 2 THEN
	SET SAVE TO DISABLE;
ELSE
	SET SAVE TO ENABLE;
ENDIF;
MODI=0;

CALL DIALOG EDUPERSON02;

Tek tek sayfalarımıza bakalım.

AÇILIŞ

SEARCH

SHOW

CHANGE

NEW

İstediğimiz işlemi yaptığımıza göre bir sonraki yazımda görüşmek üzere.


What's Your Reaction?

hate hate
0
hate
fail fail
0
fail
fun fun
0
fun
geeky geeky
0
geeky
love love
0
love
lol lol
0
lol
omg omg
0
omg
win win
0
win
Murat Bilginer
21 Şubat 1992 Doğumlu. Endüstri Mühendisi olarak Lisansını 2016 yılında tamamlamıştır. Industryolog Akademi - NGenius oluşumlarının kurucusudur. Şu anda kendi şirketi Brainy Tech ile hem Yazılım Hizmetleri Sunmakta Hem de Online Eğitimler Vermektedir.