ORA : perubahan NPWP PT.XYZ

aplikasi menggunakan DB : Oracle 8i ini mengalami perubahan di tahun 2009 dikarenakan kebijakan pemerintah indonesia terhadap NPWP. dengan pengurangan faktor pajak.
akan terjadi selisih UP20 % dari harga pajak normal.

PERUBAHAN DIKARENAKAN NPWP 2009

- PENAMBAHAN TABLE NPWP
CREATE TABLE HERRU_NPWP (
NRP VARCHAR2(5) ,
NO_NPWP VARCHAR2(20) ,
STATUS CHAR(1)
)
TABLESPACE USERS PCTFREE 10
STORAGE(INITIAL 10240 NEXT 10240 PCTINCREASE 50 )
PARALLEL (DEGREE 1 INSTANCES 1 )


- INSERT 212 NPWP KARYAWAN KE TABLE NPWP

**********************************************************************
- PERUBAHAN DATA VALUE TUNJANGAN JABATAN MAX DARI 1.296.000 MENJADI 6.000.000
SELECT REF_CODE, REF_NAME, VALUE FROM HERRU_REFERENCES
WHERE REF_CODE LIKE '%BJ%';

UPDATE HERRU_REFERENCES
SET VALUE= 6000000
WHERE REF_CODE ='BJ01';

**********************************************************************
- PERUBAHAN PTKP !!
- PERUBAHAN NILAI PTKP UNTUK WAJIB PAJAK
SELECT * FROM HERRU_REFERENCES
WHERE REF_CODE LIKE 'PT%'

UPDATE HERRU_REFERENCES
SET VALUE= 15840000
WHERE REF_CODE ='PT01';

- PERUBAHAN NILAI PTKP UNTUK WAJIB PAJAK KAWIN
SELECT * FROM HERRU_REFERENCES
WHERE REF_CODE LIKE 'PT%'

UPDATE FMHRD_REFERENCES
SET VALUE= 1320000
WHERE REF_CODE ='PT02';

- PERUBAHAN NILAI PTKP UNTUK WAJIB PAJAK ANAK
SELECT * FROM HERRU_REFERENCES
WHERE REF_CODE LIKE 'PT%'

UPDATE HERRU_REFERENCES
SET VALUE= 1320000
WHERE REF_CODE ='PT03';

*********************************************************************
- PERUBAHAN KATEGORI WAJIB PAJAK
SELECT REF_CODE,REF_NAME, VALUE FROM HERRU_REFERENCES
WHERE REF_CODE LIKE 'PK%'

-- PERUBAHAN PADA PENDAPATAN KENA PAJAK KATEGORI PK004, PK08 200JUTA
UPDATE HERRU_REFERENCES
SET VALUE= 0
WHERE REF_CODE ='PK04' OR REF_CODE ='PK08';

-- PERUBAHAN PADA PENDAPATAN KENA PAJAK KATEGORI PK06, PK07 100JUTA
UPDATE HERRU_REFERENCES
SET VALUE= 500000000
WHERE REF_CODE ='PK06' OR REF_CODE ='PK07';

-- PERUBAHAN PADA PENDAPATAN KENA PAJAK KATEGORI PK03, PK05, 50JUTA
UPDATE HERRU_REFERENCES
SET VALUE= 250000000
WHERE REF_CODE ='PK03' OR REF_CODE ='PK05';

-- PERUBAHAN PADA PENDAPATAN KENA PAJAK KATEGORI PK01, PK02, PKF2, PKF3, PKF4 25JUTA
UPDATE HERRU_REFERENCES
SET VALUE= 50000000
WHERE REF_CODE ='PK01' OR REF_CODE ='PK02' OR REF_CODE ='PKF2' OR REF_CODE ='PKF3'OR REF_CODE ='PKF4';

-- PERUBAHAN KATEGORI PAJAK FINAL 1 DARI 17.280.000
UPDATE HERRU_REFERENCES
SET VALUE= 21120000
WHERE REF_CODE ='PKF1'


***********************************************************************
-- PROSENTASE PAJAK
SELECT REF_CODE, REF_NAME, VALUE FROM HERRU_REFERENCES
WHERE REF_CODE LIKE 'RT%'

-- PERUBAHAN PROSENTASE TARIF PAJAK 35%, REF CODE = RT03
UPDATE HERRU_REFERENCES
SET VALUE= 0
WHERE REF_CODE ='RT03'

-- PERUBAHAN PROSENTASE TARIF PAJAK 25%, REF CODE = RT05
UPDATE HERRU_REFERENCES
SET VALUE= 30
WHERE REF_CODE ='RT05'

-- PERUBAHAN PROSENTASE TARIF PAJAK 15%, REF CODE = RT04
UPDATE HERRU_REFERENCES
SET VALUE= 25
WHERE REF_CODE ='RT04'

-- PERUBAHAN PROSENTASE TARIF PAJAK 10%, REF CODE = RT02
UPDATE HERRU_REFERENCES
SET VALUE= 15
WHERE REF_CODE ='RT02'

*************************************************************
PERUBAHAN PADA SISI PROCEDURE
- TAX_PROC : 3 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- REAL_TAX : 1 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- SPT21 : 1 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- TAX_BONUS : 1 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- TAX_PROCESSING : 3 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- TAX_SUBSIDI : 1 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

- TAX_THR : 2 PERUBAHAN PADA TAX KATEGORI DENGAN PENJELASAN
* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009

-------- DATA PERUBAHAN :
-- elsif var18 <= varTaxCategory4 then * PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009 elsif var18 > varTaxCategory3 then
varTaxNo := varTaxProsenCategory1 * varTaxCategory1 / 100;
varTaxNo := varTaxNo + varTaxProsenCategory12 * (varTaxCategory2 - varTaxCategory1) / 100;
varTaxNo := varTaxNo + varTaxProsenCategory2 * (varTaxCategory3 - varTaxCategory2) / 100;
varTaxNo := varTaxNo + (var18 - varTaxCategory3) * varTaxProsenCategory3 /100;

/* PERUBAHAN DENGAN PENGURANGAN KRITERIA JANUARI 2009
elsif var18 > varTaxCategory4 then
varTaxNo := varTaxProsenCategory1 * varTaxCategory1 / 100;
varTaxNo := varTaxNo + (varTaxCategory2 - varTaxCategory1) * varTaxProsenCategory12 / 100;
varTaxNo := varTaxNo + varTaxProsenCategory2 * (varTaxCategory3 - varTaxCategory2) / 100;
varTaxNo := varTaxNo + varTaxProsenCategory3 * (varTaxCategory4 - varTaxCategory3) / 100;
varTaxNo := varTaxNo + (var18 - varTaxCategory4) * varTaxProsenCategory4 / 100;
*/
--------- end if;

- penambahan variable varstatnpwp number(1):=1 ;
- melakukan select guna mendapatkan status per karyawan
begin
select status into varstatnpwp from fmhrd_npwp
where nrp = varNRP;
exception when no_data_found then
null;
end;
- memberikan validasi jika karyawan tidak mempunyai NPWP
if varstatnpwp = 0 then
varTax := ((varTax * 20)/100)+ varTax;
end if;