create or replace function GET_ZNJ(
JFJZRQ in date,
YJE in number,
ZNJBL in number,
ZT in varchar2,
SJJFRQ in date,
MIAN_ZNJ in varchar2,
ZNJ_JMCS in number
) return NUMBER is
V_ZNJ NUMBER(14,2);
V_DATE date;
V_DAYS number;
begin
V_ZNJ := 0;
IF ZT <= '4' THEN
V_DATE := SYSDATE;
END IF;
IF ZT >= '5' THEN
V_DATE := SJJFRQ;
END IF;
V_DAYS := trunc(V_DATE) - trunc(JFJZRQ);
IF MIAN_ZNJ = '1' THEN --不予減免1
BEGIN
V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0)
END;
END;
ELSIF MIAN_ZNJ = '0' THEN --全部減免0
BEGIN
V_ZNJ := 0;
END;
ELSIF MIAN_ZNJ = '2' THEN --日期減免2
BEGIN
V_ZNJ := CASE WHEN V_DAYS - ZNJ_JMCS <= 0 THEN 0
ELSE NVL(ROUND((V_DAYS - ZNJ_JMCS) * YJE * ZNJBL,2),0)
END;
END;
ELSIF MIAN_ZNJ = '3' THEN --比例減免3
BEGIN
V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
ELSE NVL(ROUND(ROUND(V_DAYS * YJE * ZNJBL,2) * (1 - ZNJ_JMCS),2),0)
END;
END;
ELSIF MIAN_ZNJ = '4' THEN --定額減免4
BEGIN
V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0) - ZNJ_JMCS
END;
IF V_ZNJ < 0 THEN
V_ZNJ := 0;
END IF;
END;
ELSE --不予減免
BEGIN
V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0)
END;
END;
END IF;
-- 滯納金大于應(yīng)繳金額時,滯納金=應(yīng)繳金額
IF V_ZNJ > YJE THEN
V_ZNJ := YJE;
END IF;
return V_ZNJ;
end GET_ZNJ;
另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務(wù)器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應(yīng)用場景需求。
名稱欄目:oracle滯納金的計算-創(chuàng)新互聯(lián)
文章出自:http://vcdvsql.cn/article4/jipie.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供服務(wù)器托管、外貿(mào)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、品牌網(wǎng)站設(shè)計、域名注冊、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容