Invoice TO Payments Based On Gl Code

/* Formatted on 2015/06/29 16:14 (Formatter Plus v4.8.8) */

(SELECT (CASE

            WHEN acl.currency_code = 'USD'

               THEN aia.exchange_rate * aipl.amount

            WHEN acl.currency_code = 'EUR'

               THEN aia.exchange_rate * aipl.amount

            WHEN acl.currency_code = 'HKD'

               THEN aia.exchange_rate * aipl.amount

            WHEN acl.currency_code = 'AED'

               THEN aia.exchange_rate * aipl.amount

            ELSE aipl.amount

         END

        ) payment_amount,aia.gl_date gl_date_invoice ,

        aia.invoice_num, aia.invoice_amount , aia.invoice_id ,aia.invoice_date , aia.voucher_num, acl.check_number, acl.check_id,

        asp.vendor_name supplier_name, asp.segment1 supplier_number,

        aia.accts_pay_code_combination_id account_id, gk.segment3 segment3,aipl.accounting_date gl_date_payment,

        acl.status_lookup_code

   FROM ap_checks_all acl,

        ap_invoice_payments_all aipl,

        ap_invoices_all aia,

        ap_suppliers asp,

        gl_code_combinations gk

  WHERE aipl.check_id = acl.check_id

    AND aipl.invoice_id = aia.invoice_id

    AND aia.vendor_id = asp.vendor_id(+)

    AND aia.accts_pay_code_combination_id = gk.code_combination_id

    AND aipl.accounting_date BETWEEN :p_from_date AND :p_to_date

    AND gk.segment7 = 321002

    AND gk.segment1 = 10

    AND aipl.check_id IN ('243643'))