ORA : adjusment SPT PT.HERRU

Perubahan yang dilakukan dengan TOAD untuk koneksi ke ORacle HRis

-- SELECT no 6

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP06'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- UPDATE NO 6

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP06'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- SELECT no 7

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP07'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- UPDATE NO 7

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP07'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- SELECT no 9

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP09'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- UPDATE NO 9

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP09'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS';

-- Lihat data No.10 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP10'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update NO. 10

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP10'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--**************************************************

-- Lihat data No.13 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP13'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No. 13

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP13'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--******************************************************

-- Lihat data No.14 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP14'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.14

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP14'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--********************************************************

-- Lihat data No.16 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP16' and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.16

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP16'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--*****************************************************

-- Lihat data No.17 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP17'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.17

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP17'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--************************************************************

-- Lihat data No.18 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP18'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.18

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP18'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--************************************************************

-- Lihat data No.19 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP19'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.19

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP19'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

--************************************************************

-- Lihat data No.21 sebelumnya

select gendat_NRP,decrypt(:NRP,amount) --into varamount

from herru_taxes

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP21'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'

-- Update No.21

Update herru_taxes set amount =encrypt(:NRP,:Vmount)

where gendat_nrp = :NRP

and gendat_vend_vnd_code = :perush

and res_code = 'SP21'

and to_char(payresult_date,'YYYY') = :tahun

and res_mode = 'MDSS'