DECLARE
  CURSOR c1 IS 
    SELECT sr_no,
           voucher_date,
           net_hkd,
           net_usd
    FROM   purchase_master
    WHERE  supplier_id = :payment_detail.ac_code
           AND company_id = :global.company_id;
   CURSOR c2 IS 
     SELECT sr_no,
            voucher_date,
            net_hkd,
            net_usd
     FROM   sales_master
     WHERE  customer_id = :payment_detail.ac_code
            AND company_id = :global.company_id;
BEGIN
  Go_block('INVOICE_DETAIL');
  
  Show_view('INVOICE_DETAIL');
  
  IF :PAYMENT_DETAIL.TYPE = 'PURCHASE' THEN
    OPEN c1;
    
    first_record;
    
    LOOP
      FETCH c1 INTO :INVOICE_DETAIL.invoice_no,
      :INVOICE_DETAIL.invoice_date,
      :INVOICE_DETAIL.amt_hkd,
      :INVOICE_DETAIL.amt_usd;
      
      EXIT WHEN c1%NOTFOUND;
      
      next_record;
    END LOOP;
    
    CLOSE c1;
  ELSIF :PAYMENT_DETAIL.TYPE = 'SALES' THEN
    OPEN c2;
    
    first_record;
    
    LOOP
      FETCH c2 INTO :INVOICE_DETAIL.invoice_no,
      :INVOICE_DETAIL.invoice_date,
      :INVOICE_DETAIL.amt_hkd,
      :INVOICE_DETAIL.amt_usd;
      
      EXIT WHEN c2%NOTFOUND;
      
      next_record;
    END LOOP;
    
    CLOSE c2;
  END IF;
END;