System_Entries.sql - ---------------------Functions for chqcanc

git-svn-id: http://15.206.35.175/svn/proteus/business-java/trunk@192394 ce508802-f39f-4f6c-b175-0d175dae99d5

webitm-fin/module-resource/sql/System_Entries.sql

@@ -693,3 +693,40 @@ create unique index pay_ibca_det_u on pay_ibca_det ("TRAN_ID","REF_NO","REF_SER"
   tablespace "ITM_DIS_I1" ;
   
 ----------------------------SYSTEM EVENTS ENTRY ADDED BY VARSHA V ON 24-10-18 [END]---------------------------
+  
+---------------------Functions added by Varsha V [26-10-18] [START]------------------------------
+  
+create or replace 
+function      fn_chqcanc_amount ( ls_ref_ser char, ls_ref_no char) 
+return number as
+ls_amount number (15,2);
+begin
+if ls_ref_ser = 'E-PAY' then
+   select net_amt into ls_amount from payment_exp where tran_id = ls_ref_no; 
+elsif ls_ref_ser =  'M-PAY' then
+  select net_amt into ls_amount from misc_payment where tran_id = ls_ref_no; 
+end if;
+if ls_amount is null then
+      ls_amount := 0;
+end if;
+return ls_amount;
+end;
+/
+
+create or replace 
+function      fn_chqcanc_currency ( ls_ref_ser char, ls_ref_no char) 
+return char is ls_curr_code char(5); 
+begin
+if ls_ref_ser = 'E-PAY' then
+   select curr_code into ls_curr_code from payment_exp where tran_id = ls_ref_no; 
+elsif ls_ref_ser =  'M-PAY' then
+  select curr_code into ls_curr_code from misc_payment where tran_id = ls_ref_no; 
+end if;
+if ls_curr_code is null then
+      ls_curr_code := '';
+end if;
+return ls_curr_code;
+end;
+/
+
+---------------------Functions added by Varsha V [26-10-18] [END]------------------------------
\ No newline at end of file