DECLARE
  CURSOR c1 IS 
    SELECT ea.app_trx_Number,
           ea.trx_Date,
           ea.Customer_Name,
           ea.Inv_Amount,
           ea.Receipt_Number,
           ea.rcpt_Amt,
           ea.Comments,
           ea.Deposit_Date,
           ea.Exchange_Rate,
           ea.Amount_dr,
           ea.Amount_cr,
           ea.Receipt_Date
    FROM   Ear_Export_tt_dtl_v ea
    WHERE  ea.Receipt_Date BETWEEN :EAR_EXPORT_TT_DTL_CONTROL.fFrom_Date
                                   AND :EAR_EXPORT_TT_DTL_CONTROL.fTo_Date;
BEGIN
  OPEN c1;
  
  Go_Block('ear_export_tt_dtl_v1');
  --first_record;
  
  LOOP
    FETCH c1 INTO :ear_export_tt_dtl_v1.fapp_trx_Number,
    :ear_export_tt_dtl_v1.ftrx_Date,
    :ear_export_tt_dtl_v1.fCustomer_Name,
    :ear_export_tt_dtl_v1.Finv_Amount,
    :ear_export_tt_dtl_v1.fReceipt_Number,
    :ear_export_tt_dtl_v1.frcpt_Amt,
    :ear_export_tt_dtl_v1.fComments,
    :ear_export_tt_dtl_v1.fDeposit_Date,
    :ear_export_tt_dtl_v1.fExchange_Rate,
    :ear_export_tt_dtl_v1.fAmount_dr,
    :ear_export_tt_dtl_v1.fAmount_cr,
    :ear_export_tt_dtl_v1.fReceipt_Date;
    
    EXIT WHEN c1%NOTFOUND;
    
    Down;
  END LOOP;
  
  First_Record;
  
  CLOSE c1;
END;

BEGIN
  Go_Block('ear_export_tt_dtl_v1');
  
  First_Record;
  
  LOOP
    INSERT INTO Ear_Export_tt_dtl
               (InvNo,
                Customer_Name,
                Inv_Amount,
                rept_No,
                tt_Amount,
                ttNo,
                Exchange_Rate,
                tt_Date,
                Bank_ref_No)
    VALUES     (:ear_export_tt_dtl_v1.fapp_trx_Number,
                :ear_export_tt_dtl_v1.fCustomer_Name,
                :ear_export_tt_dtl_v1.Finv_Amount,
                :ear_export_tt_dtl_v1.fReceipt_Number,
                :ear_export_tt_dtl_v1.frcpt_Amt,
                :ear_export_tt_dtl_v1.fComments,
                :ear_export_tt_dtl_v1.fExchange_Rate,
                :ear_export_tt_dtl_v1.fReceipt_Date,
                :ear_export_tt_dtl_v1.fBank_ref_No);
    
    EXIT WHEN SQL%NOTFOUND;
  END LOOP;
  
  IF Name_In('system.form.status') = 'changed' THEN
    COMMIT;
  END IF;
  
  First_Record;
END;