Canias ERP Troia 26 Personel Yönetim Sistemi 9 Insert İşlemi 1

Merhaba, Personel Yönetim Sistemini geliştirmeye kaldığımız yerden devam ediyoruz.

Bugün yapacağımız işlem NEW butonu yeni kayıt ekleme ile ilgili olacak.

Şu anda mevcut sistemde Detay Dialog’una NEW butonu ile girdiğimizde EditBox’lar son seçimden kalmış veriler ile doldurulmuş oluyor.

Ama yapmak istediğimiz şu eğer tabloda herhangi bir değer seçilmeden NEW dersek bütün EditBox’lar boş gelsin isteyeceğiz.

Öncelikle mevcut durumu bir görelim.

Verileri referans aldığını görüyoruz.

İstediğimiz işlem ise şu Grid üzerinde bir yere tıklamadığımda hiçbir veri yazılmasın EditBox’lara.

Bunun için şunu kontrol etmemiz yeterli olacak. Grid seçilimi ve MODI değeri 0 mı?

Ana dialog üzerinde Grid’in SELECTED özelliğini tutacak bir INTEGER değer tanımlayalım.

OBJECT:
INTEGER COPYR,
INTEGER MODI;

SELECT * 
 FROM EDUTESTTABLE 
 WHERE 1=2 
 INTO PERSONELBILGISI;

INTEGER COPYR değişkenini tanımladık.

Şimdi NEW butonuna bakalım.

MODI=0;

COPYR=PERSONELBILGISI_SELECTED;

CALL DIALOG EDUPERSON02;

PERSONELBILGISI bizim Gridimizin ismiydi. Ve SELECTED durumunu kodda olduğu gibi COPYR değişkenine atadık.

PERSONELBILGISI_SELECTED bu flag geriye ya 0 döner ya 1.

Şimdi Detay Dialogumuzun AFTER metoduna odaklanalım.

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


IF MODI == 0 && COPYR == 0 THEN
 PERSONELBILGISI_PERSONELNO='';
 PERSONELBILGISI_PERSONELNAME='';
 PERSONELBILGISI_PERSONELLASTNAME='';
 PERSONELBILGISI_BIRTHDATE=SYS_CURRENTDATE;
 PERSONELBILGISI_PHONENUMBER='';
 PERSONELBILGISI_DEPARTMENT='';
 PERSONELBILGISI_MAIL='';
 PERSONELBILGISI_STARTDATE=SYS_CURRENTDATE;
 PERSONELBILGISI_ADRESS='';
ENDIF;

IF değeri ile MODI den gelen değerin 0 olmasını ve COPYR değişkeninden gelen değerinden 0 olmasını kontrol ettik. Çünkü bunun anlamı Grid üzerinde hiç bir alan seçilmemiştir.

Böyle ise EditBox’ları boşalttık.

Bunu yapmak için farklı yöntemler mevcut bu yazımda normal bir değişkene değer atama işlemi yapar gibi yaptım.

PERSONELBILGISI_PERSONELNO='';

SYS_CURRENTDATE sistem değişkenidir ve o andaki tarihi ekler.

Kodlarımız tamam olduğuna göre şimdi durumlarımızı kontrol edelim.

İşte başardık tamda istediğimiz gibi oldu.

Bir sonraki yazımda görüşmek üzere.