AR Cash Discounts Report

 AR Cash Discounts Report

SELECT AL1.COMPANY_CODE,

       AL1.PERIOD_NAME,

       AL1.CORP_CODE,

       AL1.CORP_NAME,

       AL1.INVOICE_NUMBER,

       AL1.INVOICE_DATE,

       AL1.CUSTOMER_CODE,

       AL1.CURRENCY_CODE,

       AL1.CASH_RECEIPT_NUMBER,

       AL1.RECEIPT_DATE,

       SUM(AL1.EARNED_DISCOUNT_TAKEN) EARNED_DISCOUNT_TAKEN,

       SUM(AL1.UNEARNED_DISCOUNT_TAKEN) UNEARNED_DISCOUNT_TAKEN

  FROM (SELECT APL.ORG_ID                            Org_Id,

       CDE.SEGMENT1                                  Company_Code,

       PRD.PERIOD_NAME                               Period_Name,

       PRD.PERIOD_YEAR                               Period_YYYY,

       CAC.ACCOUNT_NUMBER                            Corp_Code,

       PAR.PARTY_NAME                                Corp_Name, 

       CST.LOCATION                                  Customer_Code, 

--       SUBSTR(NVL(LOC.ADDRESS_LINES_PHONETIC,PAR.PARTY_NAME),1,50)  Customer Name, 

       PTS.PARTY_SITE_NAME                           Customer_Name,

       APL.APPLICATION_TYPE                          Application_Type,

       RTX.NAME                                      Invoice_Transaction_Name,

       MET.NAME                                      Receipt_Method,

       RCP.CURRENCY_CODE                             Currency_Code,

       RCP.RECEIPT_NUMBER                            Cash_Receipt_Number,

       to_char( RCP.RECEIPT_DATE,'mm/dd/yyyy hh:mi:ss AM')   Receipt_Date,

       APL.APPLY_DATE                                Apply_Date,

       APL.CREATION_DATE                             Apply_Creation_Date,

       TRUNC(APL.CREATION_DATE)                      Apl_Creation_Date,

       APL.STATUS                                    Application_Status,

       CTX.TRX_NUMBER                                Invoice_Number,

         to_char( CTX.TRX_DATE,'mm/dd/yyyy hh:mi:ss AM')                                  Invoice_Date, 

       PMT.DUE_DATE                                  Due_Date,

       PMT.ACTUAL_DATE_CLOSED                        Actual_Date_Closed,

       APL.AMOUNT_APPLIED                            Amount_Applied,

       APL.EARNED_DISCOUNT_TAKEN                     Earned_Discount_Taken,

       APL.UNEARNED_DISCOUNT_TAKEN                   Unearned_Discount_Taken,

       APL.RECEIVABLES_CHARGES_APPLIED               Receivable_Charges_Applied,

       APL.CASH_RECEIPT_ID                           Cash_Receipt_Id,

       PMT.AMOUNT_DUE_ORIGINAL                       Invoice_Amount,

       PMT.AMOUNT_DUE_REMAINING                      Remaining_Inv_Amt,

       APL.APPLIED_PAYMENT_SCHEDULE_ID               Applied_Pmt_Schedule_Id, 

       USR.USER_ID                                Appl_Created_by_Id,

       USR.USERNAME                               Appl_Created_by_Name,

       CTX.ATTRIBUTE6                                Biz_Ownership_Cd

FROM AR_CASH_RECEIPTS_ALL            RCP, 

     AR_PAYMENT_SCHEDULES_ALL        PMT, 

     AR_RECEIVABLE_APPLICATIONS_ALL  APL,

     AR_RECEIVABLES_TRX_ALL          RTX,

     AR_RECEIPT_METHODS              MET,

     RA_CUSTOMER_TRX_ALL             CTX,  

     GL_CODE_COMBINATIONS            CDE, 

     GL_PERIODS                      PRD, 

     HZ_CUST_ACCOUNTS                CAC,

     HZ_CUST_SITE_USES_ALL           CST,

     HZ_CUST_ACCT_SITES_ALL          SIT,

     HZ_CUST_SITE_USES_ALL           CSH,

     HZ_PARTIES                      PAR,

     HZ_PARTY_SITES                  PTS,

     HZ_LOCATIONS                    LOC,

     PER_USERS                        USR --FND_USER is Replaced

WHERE RCP.CASH_RECEIPT_ID(+)             = APL.CASH_RECEIPT_ID

  and PMT.PAYMENT_SCHEDULE_ID            = APL.APPLIED_PAYMENT_SCHEDULE_ID

  and CDE.CODE_COMBINATION_ID            = APL.CODE_COMBINATION_ID

  and CAC.CUST_ACCOUNT_ID                = PMT.CUSTOMER_ID

  and APL.GL_DATE                        BETWEEN PRD.START_DATE AND PRD.END_DATE 

  AND PRD.PERIOD_SET_NAME                = '4-4-5'

  AND PRD.PERIOD_TYPE                    LIKE 'MONTH%'

  AND APL.DISPLAY                        = 'Y'

  AND CST.SITE_USE_ID(+)                 = PMT.CUSTOMER_SITE_USE_ID 

  and CSH.SITE_USE_ID(+)                 = CTX.SHIP_TO_SITE_USE_ID

  and RTX.RECEIVABLES_TRX_ID(+)          = APL.RECEIVABLES_TRX_ID 

  and MET.RECEIPT_METHOD_ID(+)           = RCP.RECEIPT_METHOD_ID

  AND PAR.PARTY_ID(+)                    = CAC.PARTY_ID

  AND CTX.CUSTOMER_TRX_ID(+)             = PMT.CUSTOMER_TRX_ID

  AND USR.USERNAME                       = APL.CREATED_BY

  AND SIT.CUST_ACCT_SITE_ID(+)           = CST.CUST_ACCT_SITE_ID

  AND PTS.PARTY_SITE_ID(+)               = SIT.PARTY_SITE_ID

  AND LOC.LOCATION_ID(+)                 = PTS.LOCATION_ID) AL1

 WHERE 1=1

 AND (AL1.EARNED_DISCOUNT_TAKEN <> 0 OR AL1.UNEARNED_DISCOUNT_TAKEN <> 0)

 AND Al1.COMPANY_CODE = nvl(:p_company_code,Al1.COMPANY_CODE)

 AND Al1.PERIOD_NAME = nvl(:p_period_name,Al1.PERIOD_NAME)

 AND Al1.CUSTOMER_CODE = nvl(:p_customer_code,Al1.CUSTOMER_CODE)

 AND Al1.INVOICE_NUMBER = nvl(:p_invoice_number,Al1.INVOICE_NUMBER)

 AND Al1.CORP_CODE = nvl(:p_corp_code,Al1.CORP_CODE)

 GROUP BY AL1.COMPANY_CODE,

          AL1.PERIOD_NAME,

          AL1.CORP_CODE,

          AL1.CORP_NAME,

           AL1.INVOICE_NUMBER,

           AL1.INVOICE_DATE,

          AL1.CUSTOMER_CODE,

          AL1.CURRENCY_CODE,

          AL1.CASH_RECEIPT_NUMBER,

          AL1.RECEIPT_DATE

 ORDER BY AL1.CORP_NAME,AL1.CASH_RECEIPT_NUMBER