Prosedürel Tasarım

GİRİŞ/GÜNCELLEME/SİLME

PERSONEL BİLGİLERİ

switch(EVENT) {

CASE ('EKLE' butonuna basıldı):

    PERSONEL tablosuna ekle

    IF(Kayıt var)"Kayıt daha önce girilmiş" mesajı ver

    ELSE "Kayıt eklendi" mesajı ver

CASE ('GETIR' butonuna basıldı):

    PERSONEL tablosunu oku

    IF(Kayıt var)Kaydı görüntüle

    ELSE "Kayıt bulunamadı" mesajı ver

CASE ('DEGISTIR' butonuna basıldı):

    PERSONEL tablosunda kaydı güncelle

   "Kayıt değiştirildi" mesajı ver

CASE ('SIL' butonuna basıldı):

    Kaydı PERSONEL tablosundan sil

   "Kayıt silindi" mesajı ver

CASE ('TEMIZLE' butonuna basıldı):

    Ekranı temizle

CASE ('CIKIS' butonuna basıldı): Çık

}

MAAŞ BİLGİLERİ

switch(EVENT) {

CASE ('EKLE' butonuna basıldı):

    MAAS tablosuna ekle

    IF(Kayıt var)"Kayıt daha önce girilmiş" mesajı ver

    ELSE "Kayıt eklendi" mesajı ver

CASE ('GETIR' butonuna basıldı):

    MAAS tablosunu oku

    IF(Kayıt var)Kaydı görüntüle

    ELSE "Kayıt bulunamadı" mesajı ver

CASE ('DEGISTIR' butonuna basıldı):

    MAAS tablosunda kaydı güncelle

   "Kayıt değiştirildi" mesajı ver

CASE ('SIL' butonuna basıldı):

    Kaydı MAAS tablosundan sil

   "Kayıt silindi" mesajı ver

CASE ('TEMIZLE' butonuna basıldı):

    Ekranı temizle

CASE ('CIKIS' butonuna basıldı): Çık

}

KATSAYI BİLGİLERİ

switch(EVENT) {

CASE ('EKLE' butonuna basıldı):

    KATSAYI tablosuna ekle

    IF(Kayıt var)"Kayıt daha önce girilmiş" mesajı ver

    ELSE "Kayıt eklendi" mesajı ver

CASE ('GETIR' butonuna basıldı):

    KATSAYI tablosunu oku

    IF(Kayıt var)Kaydı görüntüle

    ELSE "Kayıt bulunamadı" mesajı ver

CASE ('DEGISTIR' butonuna basıldı):

    KATSAYI tablosunda kaydı güncelle

   "Kayıt değiştirildi" mesajı ver

CASE ('SIL' butonuna basıldı):

    Kaydı KATSAYI tablosundan sil

   "Kayıt silindi" mesajı ver

CASE ('TEMIZLE' butonuna basıldı):

    Ekranı temizle

CASE ('CIKIS' butonuna basıldı): Çık

}

MAAŞ HESAPLAMA(TAHAKKUK)

KATSAYI tablosunu oku

DO

MAAŞ tablosunu oku

Taban maaş hesapla

Puanlardan tazminatları hesapla

Gelir vergisine tabi maaş hesapla

Damga vergisine tabi maaş hesapla

IF (kişi terfi etmiş) yükseliş kesintisi hesapla

Şahıs karşılığı emekli sandığı aidatı hesapla

Kurum karşılığı emekli sandığı aidatı hesapla

Gelir vergisi hesapla

Damga vergisi hesapla

Yasal kesinti toplamını bul

Özel kesinti toplamını bul

Net maaş hesapla

Kaydı güncelle

WHILE (MAAS tablosunda kayıt var)

"Tahakkuk tamamlandı" mesajı ver