[Home] [Help]
77: DISTINCT
78: MIN(HP.PARTY_NAME),
79: MAX(HP.PARTY_NAME)
80: FROM
81: AR_CASH_RECEIPTS ACR,
82: HZ_PARTIES HP,
83: HZ_CUST_ACCOUNTS HCA
84: WHERE ( ACR.GLOBAL_ATTRIBUTE1 is NULL
85: AND ACR.GLOBAL_ATTRIBUTE2 is NULL )
90: DISTINCT
91: MIN(RECEIPT_DATE),
92: MAX(RECEIPT_DATE)
93: FROM
94: AR_CASH_RECEIPTS CR
95: WHERE ( CR.GLOBAL_ATTRIBUTE1 is NULL
96: AND CR.GLOBAL_ATTRIBUTE2 is NULL );
97: CURSOR GET_LOCATION_INFO IS
98: SELECT
192: MIN(RECEIPT_DATE),
193: MAX(RECEIPT_DATE)
194: INTO P_RECEIPT_FROM,P_RECEIPT_TO
195: FROM
196: AR_CASH_RECEIPTS CR
197: WHERE TO_NUMBER(CR.GLOBAL_ATTRIBUTE1) >= P_RA_FROM
198: AND TO_NUMBER(CR.GLOBAL_ATTRIBUTE1) <= P_RA_TO;
199: IF (P_RECEIPT_FROM IS NULL) AND (P_RECEIPT_TO IS NULL) THEN
200: /*SRW.MESSAGE(32
303: HZ_CUST_ACCOUNTS HCA,
304: HZ_CUST_SITE_USES HCSU,
305: HZ_LOCATIONS HL,
306: HZ_CUST_ACCT_SITES HCAS,
307: AR_CASH_RECEIPTS CR,
308: AR_CASH_RECEIPT_HISTORY CRH,
309: HZ_PARTY_SITES HPS
310: WHERE HP.PARTY_ID = HCA.PARTY_ID
311: AND ( HP.PARTY_NAME >= C_FROM
322: AND CR.RECEIPT_DATE <= P_RECEIPT_TO
323: AND CRH.STATUS = 'CLEARED'
324: AND CRH.CASH_RECEIPT_ID = CR.CASH_RECEIPT_ID
325: AND CR.PAY_FROM_CUSTOMER = HCA.CUST_ACCOUNT_ID;
326: CURSOR UPDATE_AR_CASH_RECEIPTS(C_CUST IN NUMBER,C_CURRENCY IN VARCHAR2,C_SITE_USE_ID IN NUMBER) IS
327: SELECT
328: ROWID
329: FROM
330: AR_CASH_RECEIPTS CR
326: CURSOR UPDATE_AR_CASH_RECEIPTS(C_CUST IN NUMBER,C_CURRENCY IN VARCHAR2,C_SITE_USE_ID IN NUMBER) IS
327: SELECT
328: ROWID
329: FROM
330: AR_CASH_RECEIPTS CR
331: WHERE CR.PAY_FROM_CUSTOMER = C_CUST
332: AND CR.CURRENCY_CODE = C_CURRENCY
333: AND CR.CUSTOMER_SITE_USE_ID = C_SITE_USE_ID
334: AND CR.GLOBAL_ATTRIBUTE1 is NULL
360: ,CP_DOC_SEQ_ID);
361: CP_DOC_VALUE := C_RECEIPT;
362: P_RA_TO := C_RECEIPT;
363: AR_DOC_SEQUENCE_AUDIT_P;
364: FOR receipt_row IN UPDATE_AR_CASH_RECEIPTS(C_CUST,C_CURRENCY,C_SITE_USE_ID) LOOP
365: UPDATE
366: AR_CASH_RECEIPTS cr
367: SET
368: CR.GLOBAL_ATTRIBUTE1 = C_RECEIPT
362: P_RA_TO := C_RECEIPT;
363: AR_DOC_SEQUENCE_AUDIT_P;
364: FOR receipt_row IN UPDATE_AR_CASH_RECEIPTS(C_CUST,C_CURRENCY,C_SITE_USE_ID) LOOP
365: UPDATE
366: AR_CASH_RECEIPTS cr
367: SET
368: CR.GLOBAL_ATTRIBUTE1 = C_RECEIPT
369: ,CR.GLOBAL_ATTRIBUTE2 = TO_CHAR(SYSDATE
370: ,'YYYY/MM/DD HH24:MI:SS')