function AfterPForm return boolean is
led varchar2(4);
/*cursor a is
select ledger_id from gl_ledgers where name=:led_des;*/
begin
	  /*for rec in a loop
  	led:=rec.ledger_id;
  end loop;  
  close a;*/
  IF :LED_DES = 'MBB PRIMARY LEDGER' THEN
  	LED:= '2021' ;
  ELSE  	 
  	LED:='2023';
  END IF;
  
	/*DELETE FROM XXMBB_NOSVOS_TMP_VO_NO WHERE EFFECTIVE_DATE BETWEEN 
	'01'
    || '-'
    || TO_CHAR(to_date(:N_Date,'DD-MM-YY'),'MON-YY')
  AND to_date(:N_Date,'DD-MM-YY')
  AND LEDGER_ID =  LED and name_rdf='NOSVOS';  
	COMMIT;
	DELETE FROM XXMBB_NOSVOS_BAL_TMP_VO_NO WHERE 
	PERIOD_NAME = TO_CHAR(add_months(to_date(:N_Date,'DD-MM-YY'),-1),'MON-YY')
	and ledger_id = LED and name_rdf='NOSVOS';
	COMMIT;*/
	
	--/* sumathi commented on 19-12-2014-- temp
	SRW.DO_SQL('TRUNCATE TABLE XXMBB_NOSVOS_TMP_VO_NO');
	SRW.DO_SQL('TRUNCATE TABLE XXMBB_NOSVOS_BAL_TMP_VO_NO');
	-- */

	
  insert /*+ APPEND */ into XXMBB_NOSVOS_TMP_VO_NO
   SELECT code_combination_id,
    (accounted_dr) AS accounted_dr,
    (accounted_cr) AS accounted_cr,
    EFFECTIVE_DATE AS EFFECTIVE_DATE,
    LEDGER_ID LEDGER_ID,
    'NOSVOS'
  FROM gl_je_lines
  WHERE LEDGER_ID = LED
  AND effective_date BETWEEN '01'
    || '-'
    || TO_CHAR(to_date(:N_Date,'DD-MM-YY'),'MON-YY')
  AND to_date(:N_Date,'DD-MM-YY')
  AND status ='P'
  ;     
  commit;
  insert /*+ APPEND */  into XXMBB_NOSVOS_BAL_TMP_VO_NO
	select 
	code_combination_id
	,begin_balance_dr
	,begin_balance_cr
	,period_net_dr
	,period_net_cr
	,period_name
	,ledger_id
	,'NOSVOS'
	from gl_balances
	where
	period_name = TO_CHAR(add_months(to_date(:N_Date,'DD-MM-YY'),-1),'MON-YY')
	AND ledger_id = LED
	and currency_code = 'MYR'
	and actual_flag = 'A';
	COMMIT;
  return (TRUE);
end;