fmb_pay_supp_v1: 21 programs convert in part

go_item('Search.PB_Search');
execute_trigger('WHEN-BUTTON-PRESSED');

go_item('Search.PB_Search');
execute_trigger('WHEN-BUTTON-PRESSED');

FUNCTION fn_get_early_disc RETURN Number IS

v_Disc  Number;
BEGIN
  If :Frm_Early_Pay_Disc >0 and :T_Pay_Detail.Pay_Amt > 0 Then
     v_Disc := Round(:T_Pay_Detail.Pay_Amt * :Payd_Early_Pay_Disc_Perc/100,2);
  Else
    v_Disc := 0;
  End If;
  Return v_Disc;
  
END;

If :T_Pay_Detail.PayD_OS_Id Is Not Null Then
  SELECT Supp_Name 
  INTO :T_Pay_Detail.Supp_Name 
  FROM M_Supplier 
  WHERE Supp_Code=:T_Pay_Detail.PayD_Supp_Code;
  
  SELECT OS_Final_Txn_Code, OS_Doc_No, OS_Invoice_No, OS_Invoice_Due_Dt, Os_Invoice_Dt, Os_Divn_Code
  INTO :T_Pay_Detail.Os_Txn_Code, :T_Pay_Detail.Os_Doc_No, :T_Pay_Detail.OS_Invoice_No, :T_Pay_Detail.Os_Due_Dt,:T_Pay_Detail.OS_DOC_DT, :T_Pay_Detail.Payd_Divn_Code
  FROM T_OS 
  WHERE Os_Id=:T_Pay_Detail.PayD_OS_Id;
End If;
------/*Janisha*/-- To show the pay amount in query mode
If :T_Pay_Detail.PayD_DrCr_Flag = 'C' Then
  :T_Pay_Detail.Pay_Amt := :T_Pay_Detail.PayD_LC_Amt;
Else
  :T_Pay_Detail.Pay_Amt := :T_Pay_Detail.PayD_LC_Amt * -1;
End If;


----------Janisha on 26-05-2013 to populate into the currency rate in query mode----------------
If :T_Pay_Detail.Payd_Curr_Code Is Not Null Then
    Select Curr_Buying 
    Into :T_Pay_Detail.Payd_Curr_Rate 
    From M_Currency
    Where Curr_Code=:T_Pay_Detail.Payd_Curr_Code;
End If;
 Set_Record_Property(:System.Trigger_Record,:System.Trigger_Block,Status,Query_Status);

-----------------------
If :Payh_Supp_TT_Amt >0 Then
   :Load_Curr_Rate := ROund(:T_Pay_Detail.Tot_Pay_Amt /:PayH_Supp_TT_Amt,3);
End If;

--Os_Doc_Dt := C.Doc_Dt;

DECLARE
   founditem   CHAR (1);
BEGIN
   founditem := 'N';
   GO_BLOCK ('Ctrl_Pay_Detail');
   FIRST_RECORD;

   LOOP
      IF TRIM (:search.sdocno) IS NOT NULL
      THEN
         IF TRIM (:ctrl_pay_detail.os_doc_no) LIKE
                                                  TRIM (:search.sdocno)
                                                  || '%'
         THEN
            founditem := 'Y';
            EXIT;
         END IF;
      ELSIF TRIM (:search.sinvoice) IS NOT NULL
      THEN
         IF TRIM (:ctrl_pay_detail.os_invoice_no) LIKE
                                                TRIM (:search.sinvoice)
                                                || '%'
         THEN
            founditem := 'Y';
            EXIT;
         END IF;
      END IF;

      EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
      NEXT_RECORD;
   END LOOP;

   :search.sdocno := '';
   :search.sinvoice := '';

   IF founditem = 'N'
   THEN
      show_message ('Msg_Alert', 'Finished Search;No Match Found');
      FIRST_RECORD;
   END IF;
END;

--If :Load_Supp_Code Is Null Then
If :Load_Supp_Code Is NOT  Null Then
  SELECT Supp_Name, Supp_Cr_Days, Supp_Email
  INTO :Load_Supp_Name, :Load_Supp_Cr_Days, :Load_Supp_Email
  FROM M_Supplier 
  WHERE Supp_Code=:Load_Supp_Code;
  
  :PayH_Desc2 := 'Settlement of bills upto ' || To_Char(:PayH_Process_Dt-:Load_Supp_Cr_Days, :Global.DateFormat);

    ------------25-05-2013-------------------------
  /*  If :parameter.Supp_Active Is not Null Then
   If  :Load_Supp_Code<>:parameter.Supp_Active Then
      :parameter.Supp_Active:=:Load_Supp_Code;
     End If;
     End If;
     */--27-05-2013

  SELECT nvl(Supp_Cr_Days,0)
  INTO :Supp_Cr_Days
  FROM M_Supplier
  WHERE supp_code=:Load_Supp_Code;

  SELECT SUM(Nvl(Dr,0))-Sum(Nvl(Cr,0))
  INTO :Supp_Hold_Amt
  FROM(
        SELECT DECODE (os_drcr_flag, 'D', os_balance, 0) Dr,
                DECODE (os_drcr_flag, 'C', os_balance, 0) Cr
        FROM t_os
         WHERE os_comp_code = :Global.company
         AND os_main_acnt_code =:T_Pay_Head.Load_Supp_Code
         AND os_invoice_dt <=:T_Pay_Head.PayH_Process_Dt
         AND os_balance > 0
         AND NVL (os_hold, 'N') = 'Y');
End If;
-----------25-05-2013-----------------
If  :System.Form_Status <> 'Query' Then 
  If :Parameter.Supp_Active Is Not Null Then
    If :Payh_Sup_Tot<=0 Then
      Show_Message('Msg_Alert', 'Supplier '||:Parameter.Supp_Active ||' Failed Validation.Pay Amount Goes '||:Payh_Sup_Tot);
      Raise Form_Trigger_Failure;
    End If;
  End If;
End If;
--------------------------

Declare
  v_Curr_Block VarChar2(30);
Begin
  If :Load_Supp_Code Is Not Null AND :Load_Supp_Bank_Code Is Not Null AND Nvl(:Load_Oth_Amt,0) <> 0 Then
    v_Curr_Block := :System.Current_Block;
  
   Go_Block('T_Pay_Detail');
   Set_Block_Property ('T_Pay_Detail', Insert_Allowed, Property_True);
   Set_Block_Property ('T_Pay_Detail', Delete_Allowed, Property_True);
   Last_Record;
   Next_Record;
    /*
    First_Record;
    Loop
      If :System.Last_Record='TRUE' Then
        Exit;
      End If;
      Next_Record;
    End Loop;    
    */
    If :Parameter.Supp_Active Is Not Null Then
      If :Load_Supp_Code<>:Parameter.Supp_Active Then
       :Parameter.Supp_Active:=:Load_Supp_Code;
      End If;
    Else
        :Parameter.Supp_Active:=:Load_Supp_Code;
    End If;
    
    :T_Pay_Detail.PayD_Supp_Code := :Load_Supp_Code;
    :T_Pay_Detail.PayD_Supp_Bank_Code := :Load_Supp_Bank_Code;
    :T_Pay_Detail.Supp_Name := :Load_Supp_Name;
    :T_Pay_Detail.PayD_Pay_Type := 'O';
    :T_Pay_Detail.PayD_Curr_Code := :Load_Curr_Code;
    :T_Pay_Detail.PayD_Curr_Rate := :Load_Curr_Rate;
    If Nvl(:Load_Oth_Amt, 0) > 0 Then
      :T_Pay_Detail.PayD_LC_Amt := :Load_Oth_Amt;
      :T_Pay_Detail.PayD_Fc_Amt := :Load_Oth_Amt/Nvl(:T_Pay_Detail.PayD_Curr_Rate,0);
      :T_Pay_Detail.PayD_DrCr_Flag := 'C';
    Else
      :T_Pay_Detail.PayD_LC_Amt := Abs(:Load_Oth_Amt);
      :T_Pay_Detail.PayD_Fc_Amt := Abs(:Load_Oth_Amt)/Nvl(:T_Pay_Detail.PayD_Curr_Rate,0);
      :T_Pay_Detail.PayD_DrCr_Flag := 'D';
    End If;
    :T_Pay_Detail.PayD_Flag := 'M';
    :T_Pay_Detail.PayD_Cr_USer:= :Global.User;
    :T_Pay_Detail.PayD_Cr_Dt := SysDate;
    :Load_Oth_Amt := 0;
   
    :Parameter.Oth :='Y';
    Set_Item_Property('PB_Load', Enabled, Property_False);
    Set_Item_Property('PB_Manual_Load', Enabled, Property_False);
  End If;
End;  

Declare
  v_Count Number;
  v_Active_Bank Char(1);
  v_Curr_Code VarChar2(10);
Begin
  If :Load_Supp_Bank_Code Is Not Null Then
    SELECT Bank_Name INTO :Load_Supp_Bank_Name FROM M_Bank WHERE Bank_Code=:Load_Supp_Bank_Code;
    
     SELECT Count(*) INTO v_Count 
     FROM M_Supplier_Bank
     WHERE SuppB_Supp_Code=:Load_Supp_Code
       AND SuppB_Bank_Code=:Load_Supp_Bank_Code;

    If v_Count = 0 Then
      Show_Message('Msg_Alert', 'Bank not defined for the supplier!');
    Else
      --Bank
      --Ac_No
      --Swift Code
      --branch=>address1
      --street=>address2
      --country
      --interbank
      --interbankswift
      --active
      /*
      SELECT SUBSTR('Account# ' || RTrim(Nvl(SuppB_Ac_No, ' ')) || '
      ' || 'Account Name: ' || RTrim(Nvl(SuppB_Ac_Name, ' ')) || '
      ' || 'Swift Code: ' || Nvl(SuppB_Swift_Code, ' ') || '
      ' || 'Country: ' || Nvl(SuppB_Country_Code, ' ') || '
      ' || 'Active: ' || Nvl(SuppB_Active_YN, 'N') || '
      ' || 'Inter Bank ' || Nvl(SuppB_Inter_Bank, ' ') || '
      ' || 'Inter Bank Swift ' || Nvl(SuppB_Inter_Swift_Code, ' '), 1, 2000), SuppB_Curr_Code, SuppB_Active_YN 
      INTO :Bank_Dtl, v_Curr_Code, v_Active_Bank 
      FROM M_Supplier_Bank
      WHERE SuppB_Supp_Code=:Load_Supp_Code
      AND SuppB_Bank_Code = :Load_Supp_Bank_Code;
      */

      SELECT SuppB_Ac_No, SuppB_Swift_Code, Suppb_Active_YN, SuppB_Curr_Code, SuppB_Inter_Bank, SuppB_Inter_Swift_Code
      INTO :Load_Supp_Ac_No, :Load_Supp_Swift, v_Active_Bank, v_Curr_Code, :Load_Supp_Inter_Bank, :Load_Supp_Inter_Swift_Code
      FROM M_Supplier_Bank
      WHERE SuppB_Supp_Code =:Load_Supp_Code
        AND SuppB_Bank_Code =:Load_Supp_Bank_Code;
      
      If v_Curr_Code Is Not Null Then
        :Load_Curr_Code := v_Curr_Code;
        SELECT Curr_Buying INTO :Load_Curr_Rate 
        FROM M_Currency 
        WHERE Curr_Code=v_Curr_Code;
      End If;
      
      If Nvl(v_Active_Bank, 'N') = 'N' Then
        Show_Message('Msg_Alert', 'Bank not active!');
        Raise Form_Trigger_Failure;
      End If;

    End If;
  End If; 
End;

Declare
  Cursor C1 is 
  Select * from (
  select 1 Sl_No, Paysd_Txn_Type,Paysd_Doc_No,Paysd_Doc_Dt,Paysd_Divn_Code,Paysd_Anly_Code,
    Paysd_Ref,Paysd_DrCr_Flag,Paysd_Req_Amt,
    Paysd_Actual_Amt,Paysd_Remarks,Paysd_Adj_Amt,Paysd_Os_Id
  from t_pay_suppstmt_detail a 
  Where Paysd_Payh_Id In (select Max(PayH_id) from  T_Pay_head
  where PayH_Comp_Code = :Global.Company And Payh_Supp_Code =:PayH_Supp_Code)
  Union All
  Select 2 Sl_No, Os_Final_Txn_Code , Os_Doc_No , Os_Invoice_Dt ,Os_Divn_Code,Os_Anly_Code_1, 
         Os_Invoice_no,Os_Drcr_Flag,0,OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal,
                Os_Remarks,0,Os_Id
          From T_Os
         Where Os_Comp_Code = :Global.Company
           And Os_Main_Acnt_Code = :PayH_Supp_Code
           And Sign (Os_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0)) = 1
           And Os_Invoice_Dt + :Supp_Cr_Days Between :PayH_Process_Dt_Fm and  :Payh_Process_Dt
           And Os_Drcr_Flag = 'D'
           And Nvl (Os_Hold, 'N') <> 'Y'
  Union All
  Select 3 Sl_No, Pdc_Txn_Code , To_Number(Pdc_No) , Pdc_Chq_Dt ,Pdc_Divn_Code,Pdc_Anly_Code_1, 
         Null,'D',0,Pdc_Lc_Amt,
                Pdc_Desc,0,Null
          From T_Pdc
         Where Pdc_Comp_Code = :Global.Company
           And Pdc_Party_Main_Acnt_Code = :PayH_Supp_Code
           and Pdc_Type_flag ='I'
           And Nvl(Pdc_Status,'O') <>'C'
           and Pdc_Chq_Dt >= Nvl(:Payh_Dt,trunc(sysdate)) -90
           And  Nvl(pdc_Confirmed,'N')  ='N')
           Order by Sl_No,Paysd_Doc_Dt;
           
 
 

  
Begin
  Go_Block('T_Pay_Suppstmt_Detail');
  Last_Record;
  For Cur in C1 Loop
    If C1%NotFound Then 
      Exit;
    End If;
    :Paysd_Doc_Dt := Cur.Paysd_Doc_Dt;
    :Paysd_Doc_No  := Cur.Paysd_Doc_No;
    :Paysd_Txn_Type := Cur.Paysd_Txn_Type;
    :Paysd_Ref    :=Cur.Paysd_Ref;
    :Paysd_DrCr_Flag := Cur.Paysd_DrCr_Flag;
    :Paysd_Req_Amt  := Cur.Paysd_Req_Amt;
    :Paysd_Actual_Amt := Cur.Paysd_Actual_Amt;
    :Paysd_Adj_Amt   := Cur.Paysd_Adj_Amt;
    :Paysd_Remarks    :=Cur.Paysd_Remarks;
    :Paysd_Os_Id      :=Cur.PAYSD_OS_ID;
    :Paysd_Divn_Code      :=Cur.PAYSD_Divn_Code;
    :Paysd_Anly_Code      :=Cur.PAYSD_Anly_Code;
    
    Next_Record;
  End Loop;
  Set_Item_Property('Btn_Prv_Load',Enabled,Property_False);
End;


  
      

Declare
  v_Count Number;
  v_Days  Number;
Begin
  --If :Load_Supp_Code Is Null Then
  If :Load_Supp_Code Is NOT  Null Then
    select Count(*) into v_Count From M_Supplier Where Supp_Code=:Load_Supp_Code;
    If Nvl(v_Count,0) = 0 Then
        Show_Message('Msg_Alert', 'Supplier not found in Supplier master');
        Raise Form_Trigger_Failure;
    End If;        
    --SELECT Supp_Name, Supp_Cr_Days, Supp_Email
    --INTO :Load_Supp_Name, :Load_Supp_Cr_Days, :Load_Supp_Email
    --FROM M_Supplier 
    --WHERE Supp_Code=:Load_Supp_Code;
  
    
    SELECT Supp_Name, Supp_Cr_Days, Supp_Email, SuppB_Bank_Code,SuppB_Ac_No
    INTO :Load_Supp_Name, :Load_Supp_Cr_Days, :Load_Supp_Email,:Load_Supp_Bank_Code,:Load_Supp_Ac_No
    FROM M_Supplier, M_Supplier_Bank
    WHERE Supp_Code=SuppB_Supp_Code(+)
    And Supp_Code=:Load_Supp_Code;
    
  
  
    
    :PayH_Desc2 := 'Settlement of bills upto ' || To_Char(:PayH_Process_Dt-:Load_Supp_Cr_Days, :Global.DateFormat);
  
      ------------25-05-2013-------------------------
    /*  If :parameter.Supp_Active Is not Null Then
     If  :Load_Supp_Code<>:parameter.Supp_Active Then
        :parameter.Supp_Active:=:Load_Supp_Code;
       End If;
       End If;
       */--27-05-2013
  
    SELECT nvl(Supp_Cr_Days,0)
    INTO  :Supp_Cr_Days
    FROM M_Supplier
    WHERE supp_code=:Load_Supp_Code;
    
    
    
    SELECT SUM(Nvl(Dr,0))-Sum(Nvl(Cr,0))
    INTO :Supp_Hold_Amt
    FROM(
          SELECT DECODE (os_drcr_flag, 'D', os_balance, 0) Dr,
                  DECODE (os_drcr_flag, 'C', os_balance, 0) Cr
          FROM t_os
           WHERE os_comp_code = :Global.company
           AND os_main_acnt_code =:T_Pay_Head.Load_Supp_Code
           AND os_invoice_dt <=:T_Pay_Head.PayH_Process_Dt
           AND os_balance > 0
           AND NVL (os_hold, 'N') = 'Y');
  End If;
  -----------25-05-2013-----------------
  If  :System.Form_Status <> 'Query' Then 
    If :Parameter.Supp_Active Is Not Null Then
      If :Payh_Sup_Tot<=0 Then
        Show_Message('Msg_Alert', 'Supplier '||:Parameter.Supp_Active ||' Failed Validation.Pay Amount Goes '||:Payh_Sup_Tot);
        Raise Form_Trigger_Failure;
      End If;
    End If;
  End If;
End;

:PAYH_SUPP_CODE := :LOAD_SUPP_CODE;

  :Frm_En_Early_Pay :=Fn_Get_Supp_Param(:PayH_Supp_Code,'SUPP_EN_EARLY_PAY');
  :Frm_Early_Pay_Disc :=Fn_Get_Supp_Param(:PayH_Supp_Code,'SUPP_EARLY_PAY_DISC');
    
--Set_Item_Property('Load_Supp_Code',Enabled,Property_false); commented by Srisankar

--------------------------

PROCEDURE create_csv IS
  v_values DBMS_UTILITY.maxname_array;

  v_val varchar2(2000);
  v_qry_line varchar2(1000);
  v_qry varchar2(10000);
  v_ctr number := 1;
  v_qry_ref varchar2(50);

  CURSOR cur_sql (p_ref in varchar2) IS SELECT SQL_TEXT FROM M_CUSTOM_SQL
  WHERE SQL_REF=p_ref
  ORDER BY sql_sl_no;
  v_Dt       Date;
  ---26-05-2013----------
  v_file_prfx varchar2(10);
  v_file_extn varchar2(10);
BEGIN    
    --Increase revision number and set file name to have this revision number
  Set_Block_Property('T_Pay_Head', Update_Allowed, Property_True);
      
  :PayH_Rev_No := Nvl(:PayH_Rev_No, 0) + 1;
  ------------/*Janisha*/-- get the file name prefix and extension 
  v_file_prfx :=FN_GET_MAIN_ACNT_PARAM(:PayH_Bank_Main_Acnt_Code, :Global.Company, 'ACNT_PAR_PAYFILE_PREFIX');
  
  v_file_extn :=FN_GET_MAIN_ACNT_PARAM(:PayH_Bank_Main_Acnt_Code, :Global.Company, 'ACNT_PAR_PAYFILE_EXTN');
---------------------------
   -- :File_Name := 'ffcpmt_' || :PayH_Batch_No || '_' || :PayH_Rev_No || '.csv'; Commented on 27-05-2013 to remove the hard coding of  file prefix and extension
   
   :File_Name := v_file_prfx || :PayH_Batch_No || '_' || :PayH_Rev_No || Nvl(v_file_extn,'.csv');
   
    Set_Block_Property('T_Pay_Head', Update_Allowed, Property_False);
  
    --find out dynamic sql ref
    v_qry_ref := FN_GET_MAIN_ACNT_PARAM(:PayH_Bank_Main_Acnt_Code, :Global.Company, 'SUP_SCRIPT_QRY_REF');
    ---
    Select Sysdate INTO v_Dt From Dual; 
    ------

   If v_qry_ref Is Not Null Then
        --find dynamic query to generate csv
        Open cur_sql(v_qry_ref);
        Loop
            Fetch cur_sql INTO v_qry_line;
            EXIT WHEN cur_sql%NOTFOUND;
            
            v_qry := Nvl(v_qry, ' ') || ' ' || nvl(v_qry_line, ' ');
            
        End Loop;


        v_values := FN_RUN_CUSTOM_SUPP_QRY(v_qry, :PayH_Id);
       

        --set initial values of bean if query returns values
        Set_Custom_Property('CTRL.CSVBEAN', 1,'FILE_PATH',:File_Path);
        Set_Custom_Property('CTRL.CSVBEAN', 1,'FILE_NAME',:File_Name);
        
        While v_ctr <= v_values.LAST Loop
            v_val := v_values(v_ctr);
            v_ctr := v_ctr + 1;

          --Add Value to CSV File
            Set_Custom_Property('CTRL.CSVBEAN', 1, 'ADD_ROWDATA', v_val);
        End Loop;
        
        --Send End Message and Create CSV file
        Set_Custom_Property('CTRL.CSVBEAN', 1,'CREATE_FILE','Yes');
        --Janisha on 20-05-2013 to log the csv generation --------------
         Proc_Insert_DivnTxn_Csv_Log(:PayH_Comp_Code,:PayH_Divn_Code,:PayH_Ayr_Code,:PayH_Txn_Code,:PayH_Id,:PayH_Id,v_Dt,:Global.User);
      standard.commit;
  ----------------------------------

        Show_Message('Msg_Alert', 'CSV Created Successfully');
    End If;
END;

Declare
  v_Curr_Block VarChar2(30);
  v_TT_Txn  Varchar2(10);
  v_Count   Number;
  v_main_ac   Varchar2(10);
Begin
  If :Payh_Pay_Mode <> 'T' Then
     Show_Message('Msg_Alert', 'Payment mode is not TT');
     Raise Form_Trigger_Failure;  
  End If;

  If :Payh_Pay_Mode = 'T' and Nvl(:PayH_Supp_Tt_Amt,0) =0   Then
     Show_Message('Msg_Alert', 'TT Amount cannot be zero');
     Raise Form_Trigger_Failure;  
  End If;

  
  If Nvl(:Payh_Approval_Status,'N') <> 'F' Then
     Show_Message('Msg_Alert', 'Payment not approved');
     Raise Form_Trigger_Failure;  
  End If;

  Select count(*) into v_Count From T_Tele_Transfer Where TTrans_Payh_Id =:Payh_Id;
  If v_Count > 0 Then
     Show_Message('Msg_Alert', 'TT already generated');
     Raise Form_Trigger_Failure;  
  End If;
 
  
  v_Count := 0;      
  v_TT_Txn :=Fn_get_Company_Param(:Global.Company,'COM_TT_TXN_CODE');
  If v_TT_Txn is Null Then
      Show_Message('Msg_Alert', 'TT Txn code not defined');
      Raise Form_Trigger_Failure;  
  Else
      Select count(*) Into v_Count from m_final_txn where final_txn_code= v_TT_Txn;
      If Nvl(v_Count,0) =0 Then
        Show_Message('Msg_Alert', 'Invalid TT Txn code');
        Raise Form_Trigger_Failure;  
      End If;        
  End If;
  Select Supp_Main_acnt_Code into v_Main_ac From M_Supplier Where Supp_Code =:PayH_Supp_Code;
  
  Insert Into  T_Tele_Transfer (
   Ttrans_Id, Ttrans_Comp_Code, Ttrans_Ayr_Code, 
   Ttrans_Divn_Code, Ttrans_Dept_Code, Ttrans_Txn_Code, 
   Ttrans_Doc_Dt, Ttrans_Doc_No, Ttrans_Bank_Main_Acnt_Code, 
   Ttrans_Party_Main_Acnt_Code, Ttrans_Party_Address, Ttrans_Party_Bank_Code, 
   Ttrans_Party_Bank_Address, Ttrans_Party_Bank_Ac_No, Ttrans_Party_Bank_Swift, 
   Ttrans_Party_Bank_Aba_No, Ttrans_Anly_Code_1, Ttrans_Curr_Code, 
   Ttrans_Fc_Amt, Ttrans_Lc_Amt, Ttrans_Desc, 
   Ttrans_Remarks, Ttrans_Poh_Id, Ttrans_Confirmed, 
   Ttrans_Conf_Dt, Ttrans_Conf_User, Ttrans_Approval_Path_Id, 
   Ttrans_Approval_Status, Ttrans_Approval_Remarks, Ttrans_Approval_Dt, 
   Ttrans_Status, Ttrans_Due_Dt, Ttrans_Th_Id, 
   Ttrans_Closed, Ttrans_Closed_Dt, Ttrans_Cr_User, 
   Ttrans_Cr_Dt, Ttrans_Edt_User, Ttrans_Edt_Dt,TTrans_Payh_Id) 
   Values (Fn_Get_Next_Id('Tele_Transfer'),:Global.Company,:Payh_Ayr_Code,
   :PayH_Divn_Code,:Payh_Dept_Code,v_TT_Txn,
   Trunc(Sysdate),Fn_Get_Next_Doc_No(:Global.Company, v_TT_Txn, :PayH_Divn_Code, 'D'), :PayH_bank_Main_Acnt_Code, 
   v_Main_Ac,Null,:Load_Supp_Bank_Code,
   Null,:Load_Supp_Ac_No,:Load_Supp_Swift,
   :PayH_Supp_Bank_Aba_No,Null,:Load_Curr_Code,
   :PayH_Supp_TT_Amt,:T_Pay_Detail.Net_Pay_Amt,:Payh_Desc1,
   :Payh_Remarks,Null,'N',
   Null,Null,Null,
   'F','AUTO APPROVE[PAYMENT PREPARATION]',Null,
   Null,Null,Null,
   Null,Null,:Global.User,
   Sysdate,Null,Null,:Payh_Id);
   Standard.Commit;
   v_Count := 0;

   Select count(*) into v_Count From T_Tele_Transfer Where TTrans_Payh_Id =:Payh_Id;
   If v_Count > 0 Then
     Select TTrans_Doc_No into :TT_Req_No From  T_Tele_Transfer Where TTrans_Payh_Id =:Payh_Id;
   End If;
   Show_Message('Msg_Alert', 'TT Generated Successfully');     
     
End;  

If :PayH_Pay_Mode In ('B', 'C','T') Then
  Declare
    PL_Id    ParamList;
    v_Report VarChar2(30);
    v_Rep_Id  Report_Object;
    v_Rep_Job_Id VarChar2(100);
    v_Job_Id VarChar2(100);
    v_Rep_Status VarChar2(100);
    v_Rep_URL VarChar2(1000);
    v_Host_Name VarChar2(100) := :Global.Rep_Host_Name;
    v_Port    VarChar2(100) := :Global.Rep_Port;
    v_Rep_Server VarChar2(100) := :Global.Rep_Server;
    v_Log_Id   Number(10);
    v_Dt       Date;
  Begin
    v_Report := 'rep_pay_supp_draft';
     PL_Id := Get_Parameter_List(v_Report);
    If Not Id_Null(Pl_Id) Then
      Destroy_Parameter_List(Pl_Id);
    End If;
    Pl_Id:=Create_Parameter_List(v_Report);
    Select Sysdate INTO v_Dt From Dual; 
    
     
    Add_Parameter(PL_Id, 'Comp_Code', Text_Parameter, :Global.Company);
    Add_Parameter(PL_Id, 'Txn_Code', Text_Parameter, :PayH_Txn_Code);
    Add_Parameter(PL_Id, 'Ayr_Code', Text_Parameter, :Payh_Ayr_Code);
    Add_Parameter(PL_Id, 'Divn', Text_Parameter, :PayH_Divn_Code);
    Add_Parameter(PL_Id, 'Doc_No', Text_Parameter, :PayH_No);
    Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
    Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
    Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
    Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');

    --Find Report Object
     v_Rep_Id := Find_Report_Object('rep_pay_supp');
          
    --Communication Mode
    Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
    Set_Report_Object_Property(v_Rep_Id, Report_Desformat, Nvl(:Frm_Rep_Desformat,'PDF'));

    If :Mnu_Dest_Name = 'PRINTER' Then
         Set_Report_Object_Property(v_Rep_Id, Report_DesType, PRINTER);
         If :Mnu_Printer_Name Is Not Null Then
          Set_Report_Object_Property(v_Rep_Id, Report_DesName, :Mnu_Printer_Name);
         End If;
      Else
         Set_Report_Object_Property(v_Rep_Id, Report_DesType,CACHE);
      End If;
  
      
      --Specify Report Server and Report File Name
    Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
    Set_Report_Object_Property(v_Rep_Id, Report_FileName, v_Report);

    --Run Report
    v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
    v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);      
          
    Proc_Insert_DivnTxn_Print_Log(:PayH_Comp_Code,:PayH_Divn_Code,:PayH_Ayr_Code,:PayH_Txn_Code,:PayH_No,:PayH_No,v_Dt,:Global.User);
    standard.commit;
 
     
          If v_Rep_Status = 'FINISHED' Then
           If Upper(Nvl(:Mnu_Dest_Name,'CACHE')) = 'CACHE' Then
            v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
      
              v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
              --    Message(v_Rep_URL);
              Web.Show_Document(v_Rep_URL, '_blank');
             End If;
    Else
        Message('Error Running Report');
    End If;
    
  End ; 
End If;

    
  
  
  

If :PayH_Pay_Mode In ('B', 'C','T') Then
  Declare
    PL_Id    ParamList;
    v_Report VarChar2(30);
    v_Rep_Id  Report_Object;
    v_Rep_Job_Id VarChar2(100);
    v_Job_Id VarChar2(100);
    v_Rep_Status VarChar2(100);
    v_Rep_URL VarChar2(1000);
    v_Host_Name VarChar2(100) := :Global.Rep_Host_Name;
    v_Port    VarChar2(100) := :Global.Rep_Port;
    v_Rep_Server VarChar2(100) := :Global.Rep_Server;
    v_Log_Id   Number(10);
    v_Dt       Date;
  Begin
    v_Report := 'rep_pay_supp_recons';
  
     PL_Id := Get_Parameter_List(v_Report);
    If Not Id_Null(Pl_Id) Then
      Destroy_Parameter_List(Pl_Id);
    End If;
    Pl_Id:=Create_Parameter_List(v_Report);
    Select Sysdate INTO v_Dt From Dual; 
    
     
    Add_Parameter(PL_Id, 'Comp_Code', Text_Parameter, :Global.Company);
    Add_Parameter(PL_Id, 'Txn_Code', Text_Parameter, :PayH_Txn_Code);
    Add_Parameter(PL_Id, 'Ayr_Code', Text_Parameter, :Payh_Ayr_Code);
    Add_Parameter(PL_Id, 'Divn', Text_Parameter, :PayH_Divn_Code);
    Add_Parameter(PL_Id, 'Doc_No', Text_Parameter, :PayH_No);
    Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
    Add_Parameter(PL_Id, 'Cr_User', Text_Parameter, :Payh_Cr_User);
    Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
    Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
    Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');

    --Find Report Object
     v_Rep_Id := Find_Report_Object('rep_pay_supp');
          
    --Communication Mode
    Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
    Set_Report_Object_Property(v_Rep_Id, Report_Desformat, Nvl(:Frm_Rep_Desformat,'PDF'));

    If :Mnu_Dest_Name = 'PRINTER' Then
         Set_Report_Object_Property(v_Rep_Id, Report_DesType, PRINTER);
         If :Mnu_Printer_Name Is Not Null Then
          Set_Report_Object_Property(v_Rep_Id, Report_DesName, :Mnu_Printer_Name);
         End If;
      Else
         Set_Report_Object_Property(v_Rep_Id, Report_DesType,CACHE);
      End If;
  
      
      --Specify Report Server and Report File Name
    Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
    Set_Report_Object_Property(v_Rep_Id, Report_FileName, v_Report);

    --Run Report
    v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
    v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);      
          
    Proc_Insert_DivnTxn_Print_Log(:PayH_Comp_Code,:PayH_Divn_Code,:PayH_Ayr_Code,:PayH_Txn_Code,:PayH_No,:PayH_No,v_Dt,:Global.User);
    standard.commit;
 
     
          If v_Rep_Status = 'FINISHED' Then
           If Upper(Nvl(:Mnu_Dest_Name,'CACHE')) = 'CACHE' Then
            v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
      
              v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
              --    Message(v_Rep_URL);
              Web.Show_Document(v_Rep_URL, '_blank');
             End If;
    Else
        Message('Error Running Report');
    End If;
    
  End ; 
End If;

    
  
  
  

If :PayH_Pay_Mode In ('B', 'C','T') Then
  Declare
    PL_Id    ParamList;
    v_Report VarChar2(30);
    v_Rep_Id  Report_Object;
    v_Rep_Job_Id VarChar2(100);
    v_Job_Id VarChar2(100);
    v_Rep_Status VarChar2(100);
    v_Rep_URL VarChar2(1000);
    v_Host_Name VarChar2(100) := :Global.Rep_Host_Name;
    v_Port    VarChar2(100) := :Global.Rep_Port;
    v_Rep_Server VarChar2(100) := :Global.Rep_Server;
    v_Log_Id   Number(10);
    v_Dt       Date;
  Begin
    v_Report := 'rep_pay_supp_sum';
  
     PL_Id := Get_Parameter_List(v_Report);
    If Not Id_Null(Pl_Id) Then
      Destroy_Parameter_List(Pl_Id);
    End If;
    Pl_Id:=Create_Parameter_List(v_Report);
    Select Sysdate INTO v_Dt From Dual; 
    
     
    Add_Parameter(PL_Id, 'Comp_Code', Text_Parameter, :Global.Company);
    Add_Parameter(PL_Id, 'Txn_Code', Text_Parameter, :PayH_Txn_Code);
    Add_Parameter(PL_Id, 'Ayr_Code', Text_Parameter, :Payh_Ayr_Code);
    Add_Parameter(PL_Id, 'Divn', Text_Parameter, :PayH_Divn_Code);
    Add_Parameter(PL_Id, 'Doc_No', Text_Parameter, :PayH_No);
    Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
    Add_Parameter(PL_Id, 'Cr_User', Text_Parameter, :Payh_Cr_User);
    Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
    Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
    Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');

    --Find Report Object
     v_Rep_Id := Find_Report_Object('rep_pay_supp');
          
    --Communication Mode
    Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
    Set_Report_Object_Property(v_Rep_Id, Report_Desformat, Nvl(:Frm_Rep_Desformat,'PDF'));

    If :Mnu_Dest_Name = 'PRINTER' Then
         Set_Report_Object_Property(v_Rep_Id, Report_DesType, PRINTER);
         If :Mnu_Printer_Name Is Not Null Then
          Set_Report_Object_Property(v_Rep_Id, Report_DesName, :Mnu_Printer_Name);
         End If;
      Else
         Set_Report_Object_Property(v_Rep_Id, Report_DesType,CACHE);
      End If;
  
      
      --Specify Report Server and Report File Name
    Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
    Set_Report_Object_Property(v_Rep_Id, Report_FileName, v_Report);

    --Run Report
    v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
    v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);      
          
    Proc_Insert_DivnTxn_Print_Log(:PayH_Comp_Code,:PayH_Divn_Code,:PayH_Ayr_Code,:PayH_Txn_Code,:PayH_No,:PayH_No,v_Dt,:Global.User);
    standard.commit;
 
     
          If v_Rep_Status = 'FINISHED' Then
           If Upper(Nvl(:Mnu_Dest_Name,'CACHE')) = 'CACHE' Then
            v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
      
              v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
              --    Message(v_Rep_URL);
              Web.Show_Document(v_Rep_URL, '_blank');
             End If;
    Else
        Message('Error Running Report');
    End If;
    
  End ; 
End If;

    
  
  
  

DECLARE
  v_cnt NUMBER;
  load_flag char(1):='N';
  v_lcnt Number:=0;
BEGIN
  Go_Block('Ctrl_Pay_Detail');
  First_Record;
  Last_Record;
  v_cnt:=:system.trigger_record;
  
  First_Record;
  Set_Block_Property('T_Pay_Detail', Insert_Allowed, Property_True);
  Set_Block_Property('T_Pay_Detail', Delete_Allowed, Property_True);
  Go_Block('T_Pay_Detail');
  :System.Message_Level := '10';--26-05-2013
  First_Record;
  -----16-05-2013-----------
  Loop
    If :System.Last_Record='TRUE' Then
      Exit;
    End If;
      If :T_Pay_Detail.PayD_Flag IN('M','R') AND :T_Pay_Detail.Payd_Os_Id Is Not Null  Then
        
          Delete_Record;
          Previous_Record;
 
    Else
      Next_Record;
    End If;

  End Loop;
-------------18-05-2013----------
       Last_Record;
       If :T_Pay_Detail.PayD_Flag IN('M','R') AND :T_Pay_Detail.Payd_Os_Id Is Not Null Then
       Delete_Record;
       Else
         Next_record;
       End If;
       
  ------------------------
  For i IN 1..v_cnt
  Loop
    If :Ctrl_Pay_Detail.load='Y' Then
    ------------------
    
      :T_Pay_Detail.PayD_Id:=:Ctrl_Pay_Detail.PayD_id;
      :T_Pay_Detail.PayD_PayH_Id:=:Ctrl_Pay_Detail.PayD_PayH_Id;
      :T_Pay_Detail.PayD_Th_Id:=:Ctrl_Pay_Detail.PayD_Th_Id;
      :T_Pay_Detail.PayD_Supp_Code:=:Ctrl_Pay_Detail.PayD_Supp_Code;
      :T_Pay_Detail.Supp_Name:=:Ctrl_Pay_Detail.Supp_Name;
      :T_Pay_Detail.PayD_Supp_Bank_Code:=:Ctrl_Pay_Detail.PayD_Supp_Bank_Code;
      :T_Pay_Detail.PayD_OS_Id := :Ctrl_Pay_Detail.PayD_OS_Id;
      :T_Pay_Detail.OS_Txn_Code := :Ctrl_Pay_Detail.OS_Txn_Code;
      :T_Pay_Detail.OS_Doc_Dt := :Ctrl_Pay_Detail.OS_Doc_Dt;
      :T_Pay_Detail.OS_Invoice_No := :Ctrl_Pay_Detail.OS_Invoice_No;
      :T_Pay_Detail.OS_Due_Dt := :Ctrl_Pay_Detail.OS_Due_Dt;
      :T_Pay_Detail.PayD_Orig_LC_Amt := :Ctrl_Pay_Detail.PayD_Orig_LC_Amt;
      :T_Pay_Detail.PayD_Bal := :Ctrl_Pay_Detail.PayD_Bal;
       :T_Pay_Detail.PayD_DrCr_Flag := :Ctrl_Pay_Detail.PayD_DrCr_Flag;
       :T_Pay_Detail.PayD_FC_Amt := :Ctrl_Pay_Detail.PayD_FC_Amt;
      :T_Pay_Detail.PayD_LC_Amt := :Ctrl_Pay_Detail.PayD_LC_Amt;
      :T_Pay_Detail.PayD_Pay_Type := :Ctrl_Pay_Detail.PayD_Pay_Type;
      :T_Pay_Detail.PayD_Curr_Code := :Ctrl_Pay_Detail.PayD_Curr_Code;
      :T_Pay_Detail.PayD_Curr_Rate := :Ctrl_Pay_Detail.PayD_Curr_Rate;
      :T_Pay_Detail.PayD_Flag := :Ctrl_Pay_Detail.PayD_Flag;
      :T_Pay_Detail.PayD_Cr_USer:= :Ctrl_Pay_Detail.PayD_Cr_USer;
      :T_Pay_Detail.PayD_Cr_Dt := :Ctrl_Pay_Detail.PayD_Cr_Dt;
      :T_Pay_Detail.Payd_Remarks:=:Ctrl1.Remarks;
      
      If (  :T_Pay_Detail.OS_Doc_Dt + (:Supp_Cr_Days - Nvl(:Adj_Days,0))) > :PayH_Process_Dt Then
          If Nvl(:Frm_En_Early_Pay,'N') ='Y' and   :T_Pay_Detail.PayD_DrCr_Flag ='C' Then
            :T_Pay_Detail.Payd_Early_Pay_Disc_Perc :=:Frm_Early_Pay_Disc; 
          End If;
      End If;
      
      v_lcnt:=v_lcnt+1;
    End If;
    Go_Block('Ctrl_Pay_Detail');
    Next_Record;
   Go_Block('T_Pay_Detail');
   If :T_Pay_Detail.Payd_Supp_Code Is Not Null Then
      Next_Record;
  End If;
    --Next_Record;    
  End Loop;
  
    ---Added on 19-05-2013--------------  
   If v_lcnt>0 Then
   Proc_Insert_Update_Setting;
   :Parameter.Oth:='N';
   Set_Item_Property('PB_Oth', Enabled, Property_False);
   End If;
 
    go_block('T_Pay_Detail');
    
  END;

If :Payh_Pay_Mode ='C' Then
  Declare
    PL_Id  ParamList;
    v_Report VarChar2(30) := 'rep_voucher';
    v_Rep_Id  Report_Object;
    v_Rep_Job_Id VarChar2(100);
    v_Job_Id VarChar2(100);
    v_Rep_Status VarChar2(100);
    v_Rep_URL VarChar2(1000);
    v_Host_Name VarChar2(100) := :Global.Rep_Host_Name;
    v_Port  VarChar2(100) := :Global.Rep_Port;
    v_Rep_Server VarChar2(100) := :Global.Rep_Server;
    v_Doc_Fm    Number(10);
    v_Doc_To    Number(10);
    v_Txn       Varchar2(10);
    v_Ayr_Code  Varchar2(10);
    v_Divn      Varchar2(10);
    v_Prv_Ayr_Code  Varchar2(10);
    v_Cur_Ayr_Code  Varchar2(10);
    --01-06-2013-----------
    v_Alert     Number;
    
  Begin
    
  
      v_alert := SHOW_ALERT ('PROCESS_ALERT');
  
  If v_alert = alert_button1 Then  
    
    If :PayH_Approval_Status ='F' Then 
      If Nvl(:PayH_Process_Status,'N') ='N'  Then
        Set_Block_Property('T_Pay_Head', Update_Allowed, Property_True);
        :PayH_Process_Status :='F'; 
         :PayH_Edt_User :=:Global.User;
        Select Sysdate INTO :PayH_Edt_Dt From Dual;
        Commit_Form;
        Set_Block_Property('T_Pay_Head', Update_Allowed, Property_False);
        
        
        Select  Min(Th_Doc_No) ,Max(Th_Doc_No),Th_Txn_Code,Th_Ayr_Code,TH_Divn_Code
        INTO v_Doc_Fm,v_Doc_To,v_Txn,v_Ayr_Code,v_Divn From 
        (Select Th_Id,Th_Doc_No,Th_Comp_Code,Th_Txn_Code,Th_Ayr_Code,Th_Divn_Code From T_Cur_Trans_Header
        Union all
        Select Th_Id,Th_Doc_No,Th_Comp_Code,Th_Txn_Code,Th_Ayr_Code,Th_Divn_Code From T_Prv_Trans_Header
        ),T_Pay_Detail
        Where Th_Id =Payd_Th_Id
        and Payd_PayH_Id =:PayH_Id
        Group by Th_Txn_Code,Th_Ayr_Code,TH_Divn_Code ;
        If v_Doc_Fm is Not Null Then
          v_Cur_ayr_Code :=Fn_Get_Ayr_Code(:Global.Company,'C');
          v_Prv_Ayr_Code :=Fn_Get_Ayr_Code(:Global.Company,'P');  
          -- 
          If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
            If v_Cur_Ayr_Code = v_Ayr_Code Then
              UPDATE T_Cur_Trans_Header SET TH_Prn_Count = Decode(Nvl(TH_Prn_Count,0), 9, 9, Nvl(TH_Prn_Count,0)+1)
              WHERE TH_Comp_Code = :Global.Company
              AND TH_AYr_Code = v_Ayr_Code
              AND TH_Txn_Code = v_Txn
              AND TH_Doc_No Between v_Doc_Fm AND v_Doc_To;
            Else
              UPDATE T_Cur_Trans_Header SET TH_Prn_Count = Decode(Nvl(TH_Prn_Count,0), 9, 9, Nvl(TH_Prn_Count,0)+1)
              WHERE TH_Comp_Code = :Global.Company
              AND TH_AYr_Code = v_Ayr_Code
              AND TH_Txn_Code = v_Txn
              AND TH_Doc_No Between v_Doc_Fm AND v_Doc_To;
            End If;
          End If;    
      
         
        
          PL_Id := Get_Parameter_List(v_Report);
          If Not Id_Null(Pl_Id) Then
            Destroy_Parameter_List(Pl_Id);
          End If;
          Pl_Id:=Create_Parameter_List(v_Report);
        
          Add_Parameter(PL_Id, 'Comp_Code', Text_Parameter, :Global.Company);
          Add_Parameter(PL_Id, 'AYr_Code', Text_Parameter, v_Ayr_Code);
          Add_Parameter(PL_Id, 'Txn', Text_Parameter, v_Txn);
          Add_Parameter(PL_Id, 'Doc_No_Fm', Text_Parameter, v_Doc_Fm);
          Add_Parameter(PL_Id, 'Doc_No_To', Text_Parameter, v_Doc_To);
          Add_Parameter(PL_Id, 'Divn', Text_Parameter, v_Divn);
          Add_Parameter(PL_Id, 'Usr_Id', Text_Parameter, :Global.User);
          Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
          Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
          Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');
      
      
          --Find Report Object
          v_Rep_Id := Find_Report_Object('Rep_Voucher');
        
          :Frm_Rep_Desformat :=Fn_Get_Final_Txn_Param(v_Txn, :Global.Company, 'FINAL_REP_DESFORMAT');
          :Frm_Printer := Fn_Get_Final_Txn_Param(v_Txn, :Global.Company, 'FINAL_TXN_PRINTER');
           :Frm_Report  := Fn_Get_Final_Txn_Param(v_Txn, :Global.Company, 'FINAL_REPORT');
          --Communication Mode
          Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
          Set_Report_Object_Property(v_Rep_Id, Report_Desformat, Nvl(:Frm_Rep_Desformat,'PDF'));
      
          
          
          --Handled Destination Type and Name
          If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
            Set_Report_Object_Property(v_Rep_Id, Report_DesType, PRINTER);
            If Nvl(:Frm_Printer,:Mnu_Printer_Name) Is Not Null Then
              Set_Report_Object_Property(v_Rep_Id, Report_DesName, Nvl(:Frm_Printer,:Mnu_Printer_Name));
            End If;
          Else
            Set_Report_Object_Property(v_Rep_Id, Report_DesType, CACHE);
          End If;
  
          
          --Specify Report Server and Report File Name
          Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
          Set_Report_Object_Property(v_Rep_Id, Report_FileName, Nvl(:Frm_Report ,v_Report));
          
          --Run Report
          v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
          v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);
          
           SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'DEFAULT_PRINTER',:Mnu_Printer_Name);
    
          If v_Rep_Status = 'FINISHED' Then
            If Upper(:Mnu_Dest_Name) = 'PRINTER' Then
                 v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
                 v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
                 Message(v_Rep_URL);
                 SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'FILE_NAME',v_Rep_URL);
                 SET_CUSTOM_PROPERTY('CTRL.PRINTBEAN',1,'PRINT_FILE','');
                 --Web.Show_Document(v_Rep_URL, '_blank');
            Elsif Upper(:Mnu_Dest_Name) = 'CACHE' Then
                  v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
                 v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
                 Message(v_Rep_URL);
                 Web.Show_Document(v_Rep_URL, '_blank');
            End If;
          Else
            Message('Error Running Report');
          End If;
        End If;
      Else
        Show_Message('Msg_Alert','Already processed');
      End If;  
    
    End If;
   End If;
  End;
  End If;
  

Declare
  CURSOR Cur_Supp IS
  SELECT Supp_Code, Supp_Name, SuppB_Bank_Code Supp_Bank_Code, OS_Id Doc_OS_Id, OS_Final_Txn_Code Doc_Txn_Code, OS_Doc_No Doc_No, 
  OS_Invoice_No Invoice_No, OS_Invoice_Dt Doc_Dt, OS_Invoice_Due_Dt Due_Dt, OS_LC_Amt Orig_Amt, OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal, OS_Hold Doc_Hold, OS_DrCr_Flag DrCr_Flag 
  FROM T_OS, M_Supplier_Bank, M_Supplier
  WHERE OS_Comp_Code = :Global.Company
  AND OS_Main_Acnt_code = Supp_Main_Acnt_Code
  AND Sign(OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0)) = 1 
  AND OS_Invoice_Dt > :PayH_Process_Dt
  AND OS_DrCr_Flag = 'D'
  AND SuppB_Supp_Code=Supp_Code
  AND SuppB_Bank_Code=:Load_Supp_Bank_Code
  AND Supp_Code = :Load_Supp_Code
  AND Nvl(OS_Hold, 'N') <> 'Y'
  UNION ALL
  SELECT Supp_Code, Supp_Name, SuppB_Bank_Code Supp_Bank_Code, OS_Id Doc_OS_Id, OS_Final_Txn_Code Doc_Txn_Code, OS_Doc_No Doc_No, OS_Invoice_No Invoice_No, 
  OS_Invoice_Dt Doc_Dt, OS_Invoice_Due_Dt Due_Dt, OS_LC_Amt Orig_Amt, OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal, OS_Hold Doc_Hold, OS_DrCr_Flag DrCr_Flag 
  FROM T_OS, M_Supplier_Bank, M_Supplier
  WHERE OS_Comp_Code = :Global.Company
  AND OS_Main_Acnt_code = Supp_Main_Acnt_Code
  AND Sign(OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0)) = 1 
  --AND OS_Invoice_Due_Dt > :PayH_Process_Dt/*Calcualted due date based on the supplier credit days at run time -- see the below line */
  AND OS_Invoice_Dt + :Supp_Cr_Days > :PayH_Process_Dt
  AND OS_DrCr_Flag = 'C'
  AND SuppB_Supp_Code=Supp_Code
  AND SuppB_Bank_Code=:Load_Supp_Bank_Code
  AND Supp_Code = :Load_Supp_Code
  AND Nvl(OS_Hold, 'N') <> 'Y'
  order by 8;
  
  
  v_Curr_Block VarChar2(30);
  v_Confirm_Del Char(1) := 'N';
  v_Skip Char(1) := 'N';
  v_Alert Number;
  v_Bal   Number;
  v_Transit Number;
  v_Tot_Pay Number := 0;
  v_cnt  Number;
Begin
  If :Load_Supp_Code Is Null OR (:PayH_Pay_Mode in('B') and :Load_Supp_Bank_Code Is Null) 
      OR (:Load_Supp_Bank_Code Is Null And :PayH_Pay_Mode in('B')) Then
    Show_Message('Msg_Alert', 'Supplier or Bank cannot be null');
    Raise Form_Trigger_Failure;
  End If;
    If :Parameter.Supp_Active Is Not Null Then
      If :Load_Supp_Code<>:Parameter.Supp_Active Then
       :Parameter.Supp_Active:=:Load_Supp_Code;
      End If;
    Else
        :Parameter.Supp_Active:=:Load_Supp_Code;
    End If;
  --Clear Old Records of the supplier
  --Check if the supplier already loaded before
  v_Curr_Block := :System.Current_Block;
  
  Set_Block_Property('Ctrl_Pay_Detail', Insert_Allowed, Property_True);
  Set_Block_Property('Ctrl_Pay_Detail', Delete_Allowed, Property_True);
  Go_Block('Ctrl_Pay_Detail');
  
  First_Record;
  
  -------Janisha---------Check whether the supplier already loaded in manual load window----------------

    Last_Record;
    v_cnt :=:System.Trigger_Record;
    First_Record ;
   
    For i in 1..v_cnt
 
    Loop
   
    If :Ctrl_Pay_Detail.PayD_Supp_Code = :Load_Supp_Code Then
        Show_Message('Msg_Alert', 'Supplier Already Loaded');
          v_Skip := 'Y';
          Exit;
    End If;
    Next_Record;
  End Loop;
  ------------------18-05-2013
  Last_Record;
  If :Ctrl_Pay_Detail.PayD_Supp_Code is not null Then
    next_record;
  End If;
  
  ------------------18-05-2013
  
  
  If Nvl(v_Skip, 'N') = 'N' Then
    For c in Cur_Supp Loop
      v_Bal := c.Bal;
    
      --check if any unprocessed balance in supplier payment
      SELECT Sum(PayD_LC_Amt) INTO v_Transit
      FROM T_Pay_Head, T_Pay_Detail 
      WHERE PayH_Id = PayD_PayH_Id
      AND PayD_OS_Id = c.Doc_Os_Id
      AND (PayH_Approval_Status  /* ='P' */ IN ('P','V')--Include the documents in review status also
       AND PayH_Valid_Till >= Trunc(SysDate)
        OR   (PayH_Approval_Status IN ('F', 'N') AND Nvl(PayH_Process_Status, 'N') = 'N')
          AND PayH_Valid_Till >= Trunc(SysDate));
      
      v_Bal := v_Bal - Nvl(v_Transit, 0);
        If v_Bal > 0 Then
        If Nvl(:Load_Curr_Code, :Global.BaseCurrency) = :Global.BaseCurrency Then
          :Ctrl_Pay_Detail.PayD_Curr_Code := :Global.BaseCurrency;
          :Ctrl_Pay_Detail.PayD_Curr_Rate := 1;
        Else
          :Ctrl_Pay_Detail.PayD_Curr_Code := :Load_Curr_Code;
          :Ctrl_Pay_Detail.PayD_CUrr_Rate := :Load_Curr_Rate;
        End If;
  
        :Ctrl_Pay_Detail.PayD_Supp_Code := c.Supp_Code;
        :Ctrl_Pay_Detail.PayD_Supp_Bank_Code := c.Supp_Bank_Code;
        :Ctrl_Pay_Detail.Supp_Name := c.Supp_Name;
        :Ctrl_Pay_Detail.PayD_OS_Id := c.Doc_OS_Id;
        :Ctrl_Pay_Detail.OS_Txn_Code := c.Doc_Txn_Code;
        :Ctrl_Pay_Detail.OS_Doc_Dt := c.Doc_Dt;
        :Ctrl_Pay_Detail.OS_Invoice_No := c.Invoice_No;
        :Ctrl_Pay_Detail.OS_Due_Dt := c.Due_Dt;
        :Ctrl_Pay_Detail.PayD_Orig_LC_Amt := c.Orig_Amt;
        :Ctrl_Pay_Detail.PayD_Bal := v_Bal;
         :Ctrl_Pay_Detail.PayD_DrCr_Flag := C.DrCr_Flag;
 
    

        If Nvl(c.Doc_Hold, 'N') = 'Y' Then
          :Ctrl_Pay_Detail.PayD_FC_Amt := 0;
          :Ctrl_Pay_Detail.PayD_LC_Amt := 0;
          :Ctrl_Pay_Detail.PayD_Pay_Type := 'H';
        Else
          If Nvl(:Load_Max_Amt, 0) > 0 AND :Ctrl_Pay_Detail.PayD_DrCr_Flag = 'C' AND v_Bal > :Load_Max_Amt - v_Tot_Pay Then
            v_Bal := :Load_Max_Amt - v_Tot_Pay;
          End If;

          :Ctrl_Pay_Detail.PayD_LC_Amt := v_Bal;
          :Ctrl_Pay_Detail.PayD_Fc_Amt := v_Bal/Nvl(:Ctrl_Pay_Detail.PayD_Curr_Rate, 0);
          :Ctrl_Pay_Detail.PayD_Pay_Type := 'P';

          If :Ctrl_Pay_Detail.PayD_DrCr_Flag = 'D' Then
            v_Tot_Pay := v_Tot_Pay - Nvl(v_Bal, 0);
          Else
            v_Tot_Pay := v_Tot_Pay + Nvl(v_Bal, 0);
          End If;
          
          If Nvl(:Load_Max_Amt, 0) > 0 AND v_Tot_Pay >= Nvl(:Load_Max_Amt, 0) Then
            Exit;
          End If;
        End If;
        :Ctrl_Pay_Detail.PayD_Flag := 'M';
        :Ctrl_Pay_Detail.PayD_Cr_USer:= :Global.User;
        :Ctrl_Pay_Detail.PayD_Cr_Dt := SysDate;
      Next_Record;
      End If;
      End Loop;

  End If;
End;

DECLARE
   pl_id   paramlist;
   v_Enable_Pay Varchar2(10);
   v_Count   Number;
--------------------------
BEGIN
  --If :PayH_Pay_Mode = 'C' Then
    If Round(nvl(:Supp_Statement_Net,0),2) <> Round(Nvl(:T_pay_detail.Net_Pay_Amt,0),2)  Then
      Show_Message ('Msg_Alert', 'Amount not tally');
      Raise Form_Trigger_Failure;
    End if;
  --End If;

    If :PayH_Payment_Dt is Null Then
       Show_Message('Msg_Alert', 'Payment date cannot be null');
       Raise Form_Trigger_Failure;  
    End If;
    
    If :PayH_Process_Dt is Null Then
       Show_Message('Msg_Alert', 'Process date cannot be null');
       Raise Form_Trigger_Failure;  
    End If;


  If :Payh_Pay_Mode = 'T' and Nvl(:PayH_Supp_Tt_Amt,0) =0   Then
     Show_Message('Msg_Alert', 'TT Amount cannot be zero');
     Raise Form_Trigger_Failure;  
  End If;

  
  IF :SYSTEM.form_status = 'CHANGED'   THEN

  v_Enable_Pay := Fn_Get_Main_Acnt_Param(:PayH_Bank_Main_Acnt_Code, :Global.Company, 'ENABLE_SUP_PAY');
  If Nvl(v_Enable_Pay, 'N') <> 'Y' and :Payh_Pay_Mode ='B' Then
    Show_Message('Msg_Alert', 'Supplier Payment Not Enabled for This Account!');
    Raise Form_Trigger_Failure;
  End If;

    
     Go_Block('T_Pay_Detail');
     First_Record;
    Loop
  
      If :System.Last_Record='TRUE' Then
        Exit;
      End If;
 
       Next_Record;
    End Loop;

      
    IF FORM_SUCCESS THEN
      -----------------------------------
     
       If :Parameter.Supp_Active Is Not Null Then
         If :Sup_Pay_Tot Is Not Null  Then
          
          :T_Pay_Head.Payh_Sup_Tot:=    :Sup_Pay_Tot;
        End If;
       End If;
    
      If :Parameter.Supp_Active is Not Null Then
        If :PayH_Sup_Tot<=0 Then  /*Janisha*/--To prevent a document to get saved with zero or negative amount for a particular supplier
                   Show_Message('Msg_Alert', 'Supplier '||:parameter.Supp_Active ||' Failed Validation.Pay Amount goes  '||:PayH_Sup_Tot);
           Raise Form_Trigger_Failure;
          End If;
        End If;
         If nvl(:T_Pay_Detail.Tot_Pay_Amt,0) <=0 Then /*Janisha*/--To prevent a document to get saved with zero or negative amount.
          Show_Message('Msg_Alert', 'Payment Amount Cannot be Zero or Negative');
        Raise Form_Trigger_Failure;
         End If;
         -----------------------------------------------------
        
      COMMIT;
      Select Count(*) into v_Count from wt_Pay_Head
      Where PayH_Comp_Code =:Global.Company
      And Payh_Divn_Code =:Payh_Divn_Code
      And PayH_Supp_Code = :Load_Supp_Code
      And PayH_Process_Dt = :PayH_Process_Dt
      And Nvl(PayH_Load_Flag,'N') ='N';
      If v_Count > 0 Then
        Update  wt_Pay_Head set PayH_Load_Flag ='Y'
        Where PayH_Comp_Code =:Global.Company
        And Payh_Divn_Code =:Payh_Divn_Code
        And PayH_Supp_Code = :Load_Supp_Code
        And PayH_Process_Dt = :PayH_Process_Dt
        And Nvl(PayH_Load_Flag,'N') ='N';
        Standard.commit;
      End If;
      
      IF :SYSTEM.form_status <> 'QUERY' THEN     -- added by rincy to check commit_form success
         
        RAISE form_trigger_failure;
      END IF;
    END IF;
  END IF;

   --EXIT_FORM;
   
  --Print automatically if default value set to print, document approved, and not printed already
/*
  select count(*) INTO :Prn_Count From Txn_Print_Log
  Where Log_Comp_Code =:GrH_Comp_Code
  and Log_Loc_Code =:GrH_Loc_Code
  and Log_Ayr_Code =:GrH_Ayr_Code
  and Log_Txn_Code =:GrH_Txn_Code
  and :GrH_NO Between log_No_From and Log_No_To;
     
  If Nvl(:Prn_Count, 0) = 0 AND Nvl(:Frm_Skip_Print, 'N') = 'N' Then
    PL_Id := Get_Parameter_List(v_report);
    If Not Id_Null(Pl_Id) Then
      Destroy_Parameter_List(Pl_Id);
    End If;
  
    PL_Id := Create_Parameter_List(v_report);

    Add_Parameter(PL_Id, 'Parm_Comp_Code', TEXT_PARAMETER, :Grh_Comp_Code);
    Add_Parameter(PL_Id, 'Parm_Loc_Code', TEXT_PARAMETER, :GRH_Loc_Code);
    Add_Parameter(PL_Id, 'Parm_Txn_Code', TEXT_PARAMETER, :GRH_Txn_Code);
    Add_Parameter(PL_Id, 'Parm_AYr_Code', TEXT_PARAMETER, :GRH_AYr_Code);
    Add_Parameter(PL_Id, 'Parm_No_From', TEXT_PARAMETER, :GRH_No);
    Add_Parameter(PL_Id, 'Parm_No_To', TEXT_PARAMETER, :GRH_No);
    Add_Parameter(PL_Id, 'Parm_User', Text_Parameter, :Global.User);
    Add_Parameter(Pl_Id, 'ParamForm', Text_Parameter, 'No');
    --Add_Parameter(Pl_Id, 'DesType', Text_Parameter, 'Printer');
    Add_Parameter(PL_Id, 'Rep_Id', Text_Parameter, :Global.System_Product || '.' || :Parameter.Menu_Code);
    Add_Parameter(PL_Id, 'Comp_Name', Text_Parameter, :Global.Company_Name);
    
            
   --Find Report Object
    v_Rep_Id := Find_Report_Object('print_grn');
    
    --Communication Mode
    Set_Report_Object_Property(v_Rep_Id, Report_Comm_Mode, Synchronous);
    Set_Report_Object_Property(v_Rep_Id, Report_Desformat, 'PDF');

  --Handled Destination Type and Name
    If :Frm_Printer_Name Is Not Null Then
      Set_Report_Object_Property(v_Rep_Id, Report_DesName, :Frm_Printer_Name);
    --End If;
    Else      
      Set_Report_Object_Property(v_Rep_Id, Report_DesType, CACHE);
    End If;
 
  --Specify Report Server and Report File Name
    Set_Report_Object_Property(v_Rep_Id, Report_Server, v_Rep_Server);
    Set_Report_Object_Property(v_Rep_Id, Report_FileName, v_Report);
    
     
  --Run Report
    v_Rep_Job_Id := Run_Report_Object(v_Rep_Id, PL_Id);
    v_Rep_Status := Report_Object_Status(v_Rep_Job_Id);


  If v_Rep_Status = 'FINISHED' Then
    If Upper(:DesType) = 'CACHE' Then
      v_Job_Id := SubStr(v_Rep_Job_Id, length(v_Rep_Server)+2);
  
      v_Rep_URL := 'http://' || v_Host_Name || ':' || v_Port || '/reports/rwservlet/getjobid' || v_Job_Id || '?server=' || v_Rep_Server;
                Message(v_Rep_URL);
      Web.Show_Document(v_Rep_URL, '_blank');
    End If;
  Else
    Message('Error Running Report');
  End If;
  
    Clear_Form;
    Init_Form;
  End If;
 Exception
  When Others then Show_Message('Alert1', ERROR_CODE || ' ' || ERROR_TEXT);
  */
End;

Declare
   Cursor Cur_Supp
   Is
      Select   Supp_Code, Substr(Supp_Name, 1, 95) Supp_Name, Suppb_Bank_Code Supp_Bank_Code,
               Os_Divn_Code Doc_Divn_Code, Os_Id Doc_Os_Id, Os_Final_Txn_Code Doc_Txn_Code,
               Os_Doc_No Doc_No, Substr(Os_Invoice_No,1,25) Invoice_No,
               Os_Invoice_Dt Doc_Dt, Os_Invoice_Due_Dt Due_Dt,
               Os_Lc_Amt Orig_Amt, OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal, Os_Hold Doc_Hold,
               Os_Drcr_Flag Drcr_Flag
          From T_Os, M_Supplier_Bank, M_Supplier
         Where Os_Comp_Code = :Global.Company
           And Os_Main_Acnt_Code = Supp_Main_Acnt_Code
           And Sign (Os_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0)) = 1
           And Os_Invoice_Dt  + (:Supp_Cr_Days -Nvl(:Adj_Days,0))  <= :Payh_Process_Dt
           And Os_Drcr_Flag = 'D'
           And Suppb_Supp_Code(+) = Supp_Code
           And decode(:PayH_Pay_Mode, 'B',Suppb_Bank_Code,'~') = decode(:PayH_Pay_Mode, 'B',:Load_Supp_Bank_Code,'~') --srisankar decode added for chq processing
           And Supp_Code = :Load_Supp_Code
           And Nvl (Os_Hold, 'N') <> 'Y'
           And (:divn is Null or Os_Divn_Code =:Divn)
      Union All
      Select   Supp_Code, Substr(Supp_Name, 1, 95) Supp_Name, Suppb_Bank_Code Supp_Bank_Code,
               Os_Divn_Code Doc_Divn_Code, Os_Id Doc_Os_Id, Os_Final_Txn_Code Doc_Txn_Code,
               Os_Doc_No Doc_No, Substr(Os_Invoice_No,1,25) Invoice_No,
               Os_Invoice_Dt Doc_Dt, Os_Invoice_Due_Dt Due_Dt,
               Os_Lc_Amt Orig_Amt, OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal, Os_Hold Doc_Hold,
               Os_Drcr_Flag Drcr_Flag
          From T_Os, M_Supplier_Bank, M_Supplier
         Where Os_Comp_Code = :Global.Company
           And Os_Main_Acnt_Code = Supp_Main_Acnt_Code
           And Sign (Os_Balance- Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0)) = 1
           --And Os_Invoice_Due_Dt <= :Payh_Process_Dt  --Calcualted Due Date Based On The Supplier Credit Days At Run Time -- See The Below Line 
           And Os_Invoice_Dt + (:Supp_Cr_Days -Nvl(:Adj_Days,0)) <= :Payh_Process_Dt
           And Os_Drcr_Flag = 'C'
           And Suppb_Supp_Code(+) = Supp_Code
           And decode(:PayH_Pay_Mode, 'B',Suppb_Bank_Code,'~') = decode(:PayH_Pay_Mode, 'B',:Load_Supp_Bank_Code,'~')  --srisankar decode added for chq processing
           And Supp_Code = :Load_Supp_Code
           And Nvl (Os_Hold, 'N') <> 'Y'
           And (:divn is Null or Os_Divn_Code =:Divn)
      Order By 9;   



   V_Curr_Block    Varchar2(30);
   V_Confirm_Del   Char (1)      := 'N';
   V_Skip          Char (1)      := 'N';
   V_Alert         Number;
   V_Bal           Number;
   V_Transit       Number;
   V_Tot_Pay       Number        := 0;
   --Jabir/Temp/To Remove After Automatching
   V_Ctr           Number        := 0;
   ---18-05-2013
   V_Cnt           Number        := 0;
   v_lcnt          Number         :=0;
Begin
  If :Parameter.Supp_Active Is Not Null Then
    If :Load_Supp_Code<>:Parameter.Supp_Active Then
      :Parameter.Supp_Active:=:Load_Supp_Code;
    End If;
  Else
    :Parameter.Supp_Active:=:Load_Supp_Code;
  End If;
  
  
  
  If  :Load_Supp_Code Is Null Or (:PayH_Pay_Mode in('B') and :Load_Supp_Bank_Code Is Null) Then 
    Show_Message ('Msg_Alert', 'Supplier Or Bank Cannot Be Null');
    Raise Form_Trigger_Failure;
  End If;
   
 
  V_Curr_Block := :System.Current_Block;
  Set_Block_Property ('T_Pay_Detail', Insert_Allowed, Property_True);
  Set_Block_Property ('T_Pay_Detail', Delete_Allowed, Property_True);
  Go_Block ('T_Pay_Detail');
  First_Record;
  Last_Record;
  V_Cnt := :System.Trigger_Record;
  First_Record;
  V_Confirm_Del := 'N';
   
  
   
  For I In 1 .. V_Cnt  Loop
    If :System.Last_Record = 'True' Then
      Exit;
    End If;
    
    If (:T_Pay_Detail.Payd_Supp_Code = :Load_Supp_Code) /*16-05-2013*/ And (:T_Pay_Detail.Payd_Flag Not In ('M', 'R')) /*16-05-2013*/ Then
      If Nvl (V_Confirm_Del, 'N') = 'N' Then
        V_Alert := Show_Alert ('Confirm_Supp_Load_Again');
      
        If V_Alert = Alert_Button2 Then
          V_Skip := 'Y';
          Exit;
        End If;
        V_Confirm_Del := 'Y';
      End If;
      
      Delete_Record;
    Else
      Next_Record;
    End If;
  End Loop;
  
  If (:T_Pay_Detail.Payd_Supp_Code = :Load_Supp_Code) And :T_Pay_Detail.Payd_Flag Not In ('M', 'R') Then
    Delete_Record;
  End If;
  
  If :T_Pay_Detail.Payd_Supp_Code Is Not Null Then
    Next_Record;
  End If;

  
  
  :System.Message_Level := '10';
  
  If Nvl (V_Skip, 'N') = 'N' Then
    For C In Cur_Supp  Loop  
      V_Bal := C.Bal;
      Select Sum (Payd_Lc_Amt) Into V_Transit
      From T_Pay_Head, T_Pay_Detail
      Where Payh_Id = Payd_Payh_Id
      And Payd_Os_Id = C.Doc_Os_Id
      And (Payh_Approval_Status IN ('P','V') And Payh_Valid_Till >= To_Date (Sysdate, 'DD-Mon-YY')
      Or (Payh_Approval_Status In ('F', 'N') And Nvl (Payh_Process_Status, 'N') = 'N')
      And Payh_Valid_Till >= To_Date (Sysdate, 'DD-Mon-YY'));
      
      V_Bal := V_Bal - Nvl (V_Transit, 0);
      
      If V_Bal > 0 Then
        If Nvl (:Load_Curr_Code, :Global.Basecurrency) =:Global.Basecurrency Then
          :T_Pay_Detail.Payd_Curr_Code := :Global.Basecurrency;
          :T_Pay_Detail.Payd_Curr_Rate := 1;
        Else
          :T_Pay_Detail.Payd_Curr_Code := :Load_Curr_Code;
          :T_Pay_Detail.Payd_Curr_Rate := :Load_Curr_Rate;
        End If;
      
        :T_Pay_Detail.Payd_Supp_Code := C.Supp_Code;
        :T_Pay_Detail.Payd_Supp_Bank_Code := C.Supp_Bank_Code;
        :T_Pay_Detail.Supp_Name := C.Supp_Name;
        :T_Pay_Detail.Payd_Divn_Code := C.Doc_Divn_Code;
        :T_Pay_Detail.Payd_Os_Id := C.Doc_Os_Id;
        :T_Pay_Detail.Os_Txn_Code := C.Doc_Txn_Code;
        :T_Pay_Detail.Os_Doc_Dt := C.Doc_Dt;
        :T_Pay_Detail.Os_Invoice_No := C.Invoice_No;
        :T_Pay_Detail.Os_Due_Dt := C.Due_Dt;
        :T_Pay_Detail.Payd_Orig_Lc_Amt := C.Orig_Amt;
        :T_Pay_Detail.Payd_Bal := v_Bal;
        :T_Pay_Detail.Payd_Drcr_Flag := C.Drcr_Flag;
        v_lcnt   :=v_lcnt+1;
        
        If (C.Doc_Dt + (:Supp_Cr_Days - Nvl(:Adj_Days,0))) > :PayH_Process_Dt Then
          If Nvl(:Frm_En_Early_Pay,'N') ='Y' and C.Drcr_Flag ='C' Then
            :T_Pay_Detail.Payd_Early_Pay_Disc_Perc :=:Frm_Early_Pay_Disc; 
          End If;
        End If;
        
        If Nvl (C.Doc_Hold, 'N') = 'Y' Then
          :T_Pay_Detail.Payd_Fc_Amt := 0;
          :T_Pay_Detail.Payd_Lc_Amt := 0;
          :T_Pay_Detail.Payd_Pay_Type := 'H';
        Else
          If  Nvl (:Load_Max_Amt, 0) > 0 And :T_Pay_Detail.Payd_Drcr_Flag = 'C' And V_Bal > :Load_Max_Amt - V_Tot_Pay Then
            V_Bal := :Load_Max_Amt - V_Tot_Pay;
          End If;
      
          :T_Pay_Detail.Payd_Lc_Amt := V_Bal;
          :T_Pay_Detail.Payd_Fc_Amt := V_Bal / Nvl (:T_Pay_Detail.Payd_Curr_Rate, 0);
          :T_Pay_Detail.Payd_Pay_Type := 'P';
      
          If :T_Pay_Detail.Payd_Drcr_Flag = 'D'  Then
            V_Tot_Pay := V_Tot_Pay - Nvl (V_Bal, 0);
          Else
            V_Tot_Pay := V_Tot_Pay + Nvl (V_Bal, 0);
          End If;
      
          If Nvl (:Load_Max_Amt, 0) > 0  And V_Tot_Pay >= Nvl (:Load_Max_Amt, 0)  Then
            Exit;
          End If;
        End If;
      
        :T_Pay_Detail.Payd_Flag := 'A';
        :T_Pay_Detail.Payd_Cr_User := :Global.User;
        :T_Pay_Detail.Payd_Cr_Dt := Sysdate;
        Next_Record;
      End If;
    End Loop;
  End If;
  
  First_Record;
  If v_lcnt>0 Then
    Proc_Insert_Update_Setting;
    :Parameter.Oth :='N';
    Set_Item_Property('PB_Oth', Enabled, Property_False);
  End If;
  
  Set_Item_Property('Load_Supp_Code', Enabled, Property_False);
  Set_Block_Property ('T_Pay_Detail', Insert_Allowed, Property_True);
  Set_Block_Property ('T_Pay_Detail', Delete_Allowed, Property_False);
  Set_Block_Property ('T_Pay_Detail', Update_Allowed, Property_True);
  
  Go_Block (V_Curr_Block);
End;

Declare



  Cursor Cur_Supp
  Is
    Select Supp_Name, Suppb_Bank_Code Supp_Bank_Code,
    Os_Id Doc_Os_Id, Os_Final_Txn_Code Doc_Txn_Code,
    Os_Doc_No Doc_No, Os_Invoice_No Invoice_No,
    Os_Invoice_Dt Doc_Dt, Os_Invoice_Due_Dt Due_Dt,
    Os_Lc_Amt Orig_Amt, OS_Balance-Nvl(Os_Unconf_Pdc,0) - Nvl(Os_Payd_Amt,0) Bal, Os_Hold Doc_Hold,
    Os_Drcr_Flag Drcr_Flag,Payh_Supp_Stmt_Amt,
    Payd_Id, Payd_Payh_Id, Payd_Process_Flag, 
     Payd_Supp_Code, Payd_Supp_Bank_Code, Payd_Os_Id, 
    Payd_Drcr_Flag, Payd_Orig_Lc_Amt, Payd_Bal, 
     Payd_Disc_Perc, Payd_Pay_Type, Payd_Curr_Code, 
     Payd_Fc_Amt, Payd_Lc_Amt, Payd_Flag, 
     Payd_Rem, Payd_Cr_User, Payd_Cr_Dt, 
     Payd_Edt_User, Payd_Edt_Dt, Payd_Remarks, 
     Payd_Ticked        
    From Wt_Pay_Head,Wt_Pay_Detail,M_Supplier,T_Os, M_Supplier_Bank
         Where Payh_Id =Payd_Payh_id 
           and    Payd_Os_Id =Os_Id
           and Payh_Supp_Code =Supp_Code
           and PayH_Comp_Code = :Global.Company
           And PayH_Supp_Code = :Load_Supp_Code
           And PayH_Process_Dt = :PayH_Process_Dt
           And Payh_Divn_Code =:Payh_Divn_Code
           And Suppb_Supp_Code(+) = Supp_Code
           And decode(:PayH_Pay_Mode, 'B',Suppb_Bank_Code,'~') = decode(:PayH_Pay_Mode, 'B',:Load_Supp_Bank_Code,'~')
   Order By Payd_Id;   


  Cursor Cur_Suppstmt
  Is  Select  Paysd_Id, Paysd_Payh_Id, Paysd_Txn_Type, 
       Paysd_Doc_Dt, Paysd_Doc_No, Paysd_Ref, 
       Paysd_Drcr_Flag, Paysd_Actual_Amt, Paysd_Req_Amt, 
       Paysd_Adj_Amt, Paysd_Remarks, Paysd_Cr_User, 
       Paysd_Cr_Dt, Paysd_Edt_User, Paysd_Edt_Dt, 
       Paysd_Os_Id From Wt_Pay_Head,Wt_Suppstmt_Detail
      Where Payh_Id =Paysd_Payh_id 
           and PayH_Comp_Code = :Global.Company
           And PayH_Supp_Code = :Load_Supp_Code
           And PayH_Process_Dt = :PayH_Process_Dt
           And Payh_Divn_Code =:Payh_Divn_Code
      Order By Paysd_Id;   



  Cursor Cur_SuppUnres
  Is Select Payu_Id, Payu_Payh_Id, Payu_Txn_Type, 
       Payu_Doc_Dt, Payu_Doc_No, Payu_Ref, 
       Payu_Amt, Payu_Remarks, Payu_Cr_User, 
       Payu_Cr_Dt, Payu_Edt_User, Payu_Edt_Dt From Wt_Pay_Head,Wt_Pay_Undesignated
         Where Payh_Id =PayU_Payh_id 
           and PayH_Comp_Code = :Global.Company
           And PayH_Supp_Code = :Load_Supp_Code
           And Payh_Divn_Code =:Payh_Divn_Code
           And PayH_Process_Dt = :PayH_Process_Dt
      Order By PayU_Id;   





   V_Curr_Block    Varchar2 (30);
   V_Confirm_Del   Char (1)      := 'N';
   V_Skip          Char (1)      := 'N';
   V_Alert         Number;
   V_Bal           Number;
   V_Transit       Number;
   V_Tot_Pay       Number        := 0;
   V_Ctr           Number        := 0;
   V_Cnt           Number        := 0;
   v_lcnt          Number         :=0;
   v_Count         Number;
Begin
  
  :Frm_En_Early_Pay :=Fn_Get_Supp_Param(:PayH_Supp_Code,'SUPP_EN_EARLY_PAY');
  :Frm_Early_Pay_Disc :=Fn_Get_Supp_Param(:PayH_Supp_Code,'SUPP_EARLY_PAY_DISC');

  
  Select Count(*) into v_Count from wt_Pay_Head
  Where PayH_Comp_Code =:Global.Company
  And Payh_Divn_Code =:Payh_Divn_Code
  And PayH_Supp_Code = :Load_Supp_Code
  And PayH_Process_Dt = :PayH_Process_Dt
  And Nvl(PayH_Load_Flag,'N') ='N';
  If Nvl(v_Count,0) > 0 Then
    Select Payh_Supp_Stmt_Amt into :Payh_Supp_Stmt_Amt
    From wt_Pay_Head
    Where PayH_Comp_Code =:Global.Company
    And Payh_Divn_Code =:Payh_Divn_Code
    And PayH_Supp_Code = :Load_Supp_Code
    And PayH_Process_Dt = :PayH_Process_Dt
    And Nvl(PayH_Load_Flag,'N') ='N';
  
    If :Parameter.Supp_Active Is Not Null Then
      If :Load_Supp_Code<>:Parameter.Supp_Active Then
        :Parameter.Supp_Active:=:Load_Supp_Code;
      End If;
    Else
      :Parameter.Supp_Active:=:Load_Supp_Code;
    End If;
    --  :Load_Supp_Bank_Code Is Null =>  (:PayH_Pay_Mode = 'B' and :Load_Supp_Bank_Code Is Null) Srisankar for cheque processing
    If  :Load_Supp_Code Is Null Or (:PayH_Pay_Mode in('B') and :Load_Supp_Bank_Code Is Null) Then 
      Show_Message ('Msg_Alert', 'Supplier Or Bank Cannot Be Null');
      Raise Form_Trigger_Failure;
    End If;
    --Clear Old Records Of The Supplier
    --Check If The Supplier Already Loaded Before
    V_Curr_Block := :System.Current_Block;
    Set_Block_Property ('T_Pay_Detail', Insert_Allowed, Property_True);
    Set_Block_Property ('T_Pay_Detail', Delete_Allowed, Property_True);
    Go_Block ('T_Pay_Detail');
    First_Record;
  
    Last_Record;
    V_Cnt := :System.Trigger_Record;
    First_Record;
    V_Confirm_Del := 'N';
    For I In 1 .. V_Cnt Loop
      If :System.Last_Record = 'True' Then
         Exit;
      End If;
  
      If (:T_Pay_Detail.Payd_Supp_Code = :Load_Supp_Code) 
        And (:T_Pay_Detail.Payd_Flag Not In ('M', 'R')) Then
        If Nvl (V_Confirm_Del, 'N') = 'N' Then
           V_Alert := Show_Alert ('Confirm_Supp_Load_Again');
           If V_Alert = Alert_Button2 Then
              V_Skip := 'Y';
              Exit;
           End If;
  
           V_Confirm_Del := 'Y';
        End If;
        Delete_Record;
    
      Else
        Next_Record;
      End If;
    End Loop;
   
    If (:T_Pay_Detail.Payd_Supp_Code = :Load_Supp_Code) And :T_Pay_Detail.Payd_Flag Not In ('M', 'R') Then
       Delete_Record;
    End If;
   
    If :T_Pay_Detail.Payd_Supp_Code Is Not Null Then
      Next_Record;
    End If;
     
    :System.Message_Level := '10';
    If Nvl (V_Skip, 'N') = 'N' Then
    
     For C In Cur_Supp Loop
       If Cur_Supp%Notfound then
           Exit;
       End If;
       
       V_Bal := C.Payd_Bal;
  
       Select Sum (Payd_Lc_Amt) Into V_Transit
       From T_Pay_Head, T_Pay_Detail
       Where Payh_Id = Payd_Payh_Id
       And Payd_Os_Id = C.Payd_Os_Id
       And (Payh_Approval_Status IN ('P','V') --Include the documents in review status also 
       And Payh_Valid_Till >= To_Date (Sysdate, 'DD-Mon-YY')
       Or     (    Payh_Approval_Status In ('F', 'N')
       And Nvl (Payh_Process_Status, 'N') = 'N'
       )
       And Payh_Valid_Till >= To_Date (Sysdate, 'DD-Mon-YY')
       );
  
       V_Bal := V_Bal - Nvl (V_Transit, 0);
       If V_Bal > 0 Then
         If Nvl (:Load_Curr_Code, :Global.Basecurrency) =:Global.Basecurrency Then
            :T_Pay_Detail.Payd_Curr_Code := :Global.Basecurrency;
            :T_Pay_Detail.Payd_Curr_Rate := 1;
         Else
            :T_Pay_Detail.Payd_Curr_Code := :Load_Curr_Code;
            :T_Pay_Detail.Payd_Curr_Rate := :Load_Curr_Rate;
         End If;
  
         :T_Pay_Detail.Payd_Supp_Code := C.Payd_Supp_Code;
         :T_Pay_Detail.Payd_Supp_Bank_Code := C.Payd_Supp_Bank_Code;
         :T_Pay_Detail.Supp_Name  := C.Supp_Name;
         :T_Pay_Detail.Payd_Os_Id := C.Payd_Os_Id;
         :T_Pay_Detail.Os_Txn_Code := C.Doc_Txn_Code;
         :T_Pay_Detail.Os_Doc_Dt := C.Doc_Dt;
           If (C.Doc_Dt + (:Supp_Cr_Days - Nvl(:Adj_Days,0))) > :PayH_Process_Dt Then
              If Nvl(:Frm_En_Early_Pay,'N') ='Y' and C.Drcr_Flag ='C' Then
                 :T_Pay_Detail.Payd_Early_Pay_Disc_Perc :=:Frm_Early_Pay_Disc; 
              End If;
           End If;

         :T_Pay_Detail.Os_Invoice_No := C.Invoice_No;
         :T_Pay_Detail.Os_Due_Dt := C.Due_Dt;
         :T_Pay_Detail.Payd_Orig_Lc_Amt := C.Payd_Orig_Lc_Amt;
         If  v_Bal <=C.Payd_Lc_Amt Then
           :T_Pay_Detail.Payd_Bal := v_Bal;
           :T_Pay_Detail.Payd_Lc_Amt := V_Bal;
           :T_Pay_Detail.Payd_Fc_Amt := V_Bal / Nvl (:T_Pay_Detail.Payd_Curr_Rate, 1);
         Else  
            :T_Pay_Detail.Payd_Bal := C.Payd_Bal;
           :T_Pay_Detail.Payd_Fc_Amt := C.Payd_Fc_Amt;
           :T_Pay_Detail.Payd_Lc_Amt := C.Payd_Lc_Amt;
         End If; 
           :T_Pay_Detail.Payd_Pay_Type := C.Payd_Pay_Type;
           :T_Pay_Detail.Payd_Drcr_Flag := C.Drcr_Flag;
           v_lcnt   :=v_lcnt+1;
         If Nvl (C.Doc_Hold, 'N') = 'Y' Then
           :T_Pay_Detail.Payd_Fc_Amt := 0;
           :T_Pay_Detail.Payd_Lc_Amt := 0;
           :T_Pay_Detail.Payd_Pay_Type := 'H';
         End If;
  
              :T_Pay_Detail.Payd_Flag := C.Payd_Flag;
              :T_Pay_Detail.Payd_Cr_User := :Global.User;
              :T_Pay_Detail.Payd_Cr_Dt := Sysdate;
              Next_Record;
           End If;
        End Loop;
        End If;
        First_Record;
        Go_Block('T_Pay_SuppStmt_Detail');
        First_Record;
        For Cur in Cur_Suppstmt Loop
          If Cur_Suppstmt%Notfound Then
            Exit;
          End If;
  
            :Paysd_Txn_Type := Cur.Paysd_Txn_Type;
            :Paysd_Doc_Dt := Cur.Paysd_Doc_Dt;
            :Paysd_Doc_No := Cur.Paysd_Doc_No;
            :Paysd_Ref := Cur.Paysd_Ref;
            :Paysd_Drcr_Flag:=Cur.Paysd_Drcr_Flag;
            :Paysd_Actual_Amt := Cur.Paysd_Actual_Amt;
            :Paysd_Req_Amt := Cur.Paysd_Req_Amt; 
             :Paysd_Adj_Amt := Cur.Paysd_Adj_Amt;
             :Paysd_Remarks := Cur.Paysd_Remarks;
            :Paysd_Os_Id   := Cur.Paysd_Os_Id; 
            Next_Record;
        End Loop; 
        Go_Block('T_Pay_Undesignated');
        First_Record;
        
        For Cur1 in Cur_SuppUnres Loop
          If Cur_SuppUnres%Notfound Then
            Exit;
          End If;
          :Payu_Txn_Type := Cur1.Payu_Txn_Type; 
            :Payu_Doc_Dt := Cur1.Payu_Doc_Dt;
            :Payu_Doc_No := Cur1.Payu_Doc_No;
            :Payu_Ref := Cur1.Payu_Ref; 
           :Payu_Amt := Cur1.Payu_Amt;
           :Payu_Remarks:= Cur1.Payu_Remarks;
           Next_Record;
        End Loop;
     Go_Block('T_Pay_Detail');       
        
        
      ---Added on 19-05-2013--------------  
     If v_lcnt>0 Then
      Proc_Insert_Update_Setting;
      :Parameter.Oth :='N';
      Set_Item_Property('PB_Oth', Enabled, Property_False);
      
     End If;
     ----------------
     Set_Item_Property('Load_Supp_Code', Enabled, Property_False);
     Set_Block_Property ('T_Pay_Detail', Insert_Allowed, Property_True);
     Set_Block_Property ('T_Pay_Detail', Delete_Allowed, Property_False);
     Set_Block_Property ('T_Pay_Detail', Update_Allowed, Property_True);
      Set_Item_Property('Load_Draft_Btn', Enabled, Property_False);
     Go_Block (V_Curr_Block);
  Else
     Show_Message ('Msg_Alert', 'No data to load');    
  End If;
     
End;