Sunday, January 13, 2013

membuat program gaji dengan exbase

DO WHILE .T.
    CLEAR
    STORE 0 TO nAnak, nGaji, nLembur
    cNip = SPACE(5)
    STORE SPACE(35) TO cNama, cJab
    cStat = SPACE(2)
    @ 1,4 SAY "Nomor Pegawai    : " GET cNip
    @ 2,4 SAY "Nama Pegawai     : " GET cNama
    @ 3,4 SAY "Jabatan          : " GET cJab
    @ 4,4 SAY "sTatus  (S/K/J/D): " Get cStat
    READ
    cStat = UPPER (cStat)
    IF cStat = "K" .OR.cStat = "J" .OR. cStat = "D" THEN
        @ 4,30 SAY "Jumlah Anak : " GET nAnak
    ENDIF
   
    @ 5,4 SAY "Gaji Pokok       : " GET nGaji
    @ 6,4 SAY "Jam Lembur       : " GET nLembur
    READ
    @  8,1 TO 23,78 DOUBLE
    @ 10,2 TO 10,77
    SET COLOR TO G+
    @  9,27 SAY "PT. MAHAKAM INDAH PERMAI"
    @ 11,30 SAY "SLIP GAJI KARYAWAN"
    SET COLOR TO
    @ 12,30 SAY "=================="
    @ 14,3 SAY "Nomor Induk Pegawai : "+UPPER (cNip)
    @ 15,3 SAY "Nama Pegawai        : "+UPPER (cNama)
    @ 16,3 SAY "Jabatan             : "+UPPER (cJab)
    IF cStat = "K" THEN
        cSK = "Kawin"
        nTjk = 100000 + 50000 * nAnak
    else
        IF cStat = "J" THEN
            cSK = "Janda"
            nTjk = 200000 + 50000 * nAnak
        else
            IF cStat = "D" THEN
                cSK = "Duda"
                nTjk = 150000 + 50000 * nAnak
            ELSE
                IF cStat = "S"
                    cSK = "Singe"
                    nTjk= 100000
                ELSE
                    cSK = "Tidak Jelas"
                    nTjk = 0
                ENDIF
            ENDIF
        ENDIF
    ENDIF
    @ 17,3 SAY "Status Keluarga     : "+cSK
    nUlemb = nLembur * nGaji / 173
    nInsentif = 0.25 * (nGaji + nTjk + nUlemb)
    nTHP = nGaji + nTjk + nUlemb + nInsentif
    nTHPS= nTHP * 12
    IF nTHPS > 50000000
        nPPH=0.3*(nTHPS-500000000)+0.25*250000000+0.15
        *200000000+0.05*50000000
    ELSE
        IF nTHPS > 250000000
            nPPH=0.25*(nTHPS-250000000)+0.15*200000000+0.05*50000000
        ELSE
            IF nTHPS > 50000000
                nPPH = 0.15*(nTHPS-50000000)+0.05*50000000
            ELSE
                nPPH = 0.05 * nTPHS
            ENDIF
        ENDIF
    ENDIF
    nPPhb = nPPh/12
    nTP = nTHP-nPPhb
    @ 19,3 SAY "Gaji Pokok          : Rp"
    @ 20,3 SAY "Tunjangan Keluarga  : Rp"
    @ 21,3 SAY "Upah Lembur         : Rp"
    @ 19,41 SAY "Insentif           : Rp"
    @ 20,41 SAY "THP                : Rp"
    @ 21,41 SAY "pajak per bulan    : Rp"
    @ 22,41 SAY "TP                 : Rp"
    @ 19,28 SAY nGaji PICT "99,999,999"
    @ 20,28 SAY nTjk PICT "99,999,999"
    @ 21,28 SAY nUlemb PICT "99,999,999"
    @ 19,66 SAY nInsentif PICT "99,999,999"
    @ 20,66 SAY nTHP PICT "99,999,999"
    @ 21,66 SAY nPPhb PICT "99,999,999"
    @ 22,66 SAY nTP PICT "99,999,999"
    cLagi = "  "
    SET COLOR TO B+*
    @ 7,50 SAY "Mau Proses Lagi ? [Y/T] " GET cLagi
    SET COLOR TO
    READ
    IF UPPER (cLagi) = "T"
        CLEAR
        SET COLOR TO G+*
        @ 11,30 SAY "- (*_*) - THANK YOU - (*_*) - "
        SET COLOR TO
        EXIT
    ENDIF
ENDDO

No comments: