:std_net_pay_amount:=(:std_invoice_gross-:std_wht_val);

	:std_sc_val:=Calculate_service_charge(:std_vatable_amount,:std_sc_pcntg);
	:std_cl_val:=Calculate_catering_levy(:std_vatable_amount, :std_cl_pcntg);
	:std_vatable_amount:=Calculate_Vatable_amount(:STD_VATABLE,:STD_INVOICE_GROSS,:STD_SC_PCNTG,:STD_CL_PCNTG);
	:std_vat_amt:=calculate_vat_amount(:std_vatable_amount);
	:std_wht_val:=Calculate_wht_amount(:std_vatable_amount,:std_wht_pcntg);
	--:std_net_pay_amount:=(:std_invoice_gross-:std_wht_val);



FUNCTION Calculate_net_pay_amount 
(i_std_invoice_gross number,i_std_wht_val number)
RETURN number IS

	
BEGIN
  
  :STD_NET_PAY_AMOUNT:=(i_std_invoice_gross-i_std_wht_val);
  
    
END;

--set_window_property('WINDOW1',window_state,maximize);
--go_block('CONTROL');
--go_item('TEXT_ITEM7');


alter table BCD_ICT_SV_TAX_DATA add (
std_cost_adj_tacn varchar2(200),
std_inv_adj_tadn varchar2(200))

CUST_PRPO_FILE_NAME varchar2(200),
OUR_INV_FILE_NAME varchar2(200),
OTHER_DOCS_FILE_NAME varchar2(200))


declare
	P_CUST_PRPO_FILE_NAME varchar2(500);
	begin
P_CUST_PRPO_FILE_NAME  := GET_FILE_NAME();

:BCD_ICT_SV_TAX_DATA.CUST_PRPO_FILE_NAME  := P_CUST_PRPO_FILE_NAME ;

	end;




Select Sub_Ar_Doc_Number Code, SUB_AR_CODE||'-'||TO_CHAR(SUB_AR_DATE,'DD/MM/YYYY')||'-'||NVL(SUB_AR_NARRATION,SUB_AR_OTHER_REFERENCE) Description From Id_Travel_Ar_Header Where Sub_Ar_Company = :GLOBAL.COMPANY_CODE and   SUB_AR_DOC_BASE = 'INV'  AND   EXISTS (select TICKET_CARD_RECEIPT_NUMBER from id_TICKET_DETAILS WHERE TICKET_COMPANY       = SUB_AR_COMPANY AND   TICKET_CARD_RCT_TYPE = SUB_AR_DOC_TYPE AND   TICKET_CARD_RECEIPT_NUMBER = SUB_AR_DOC_NUMBER) order by 1



declare
my_cmd varchar2(300);

Begin
	
	
  my_cmd := 'rundll32 shell32,ShellExec_RunDLL '||:USER_FILE_NAME_WITH_TAX;
  HOST(my_cmd);


end;


IB19030218/IB19050156/IB19050157/IB19060033/IB19050241/IB19060071/IB19060072/IB19060073/IB19060086/IB19060087/IB19060090/IB19060115/IB19070013IB19070018/