[Home] [Help]
412: */
413: DII.PROJFUNC_BILL_AMOUNT Proj_line_amt,
414: Decode(P_Transfer_Mode,'INTERCOMPANY',
415: DII.CC_REV_CODE_COMBINATION_ID,P_WO_Ccid) rev_ccid
416: FROM RA_INTERFACE_LINES I,
417: PA_DRAFT_INVOICE_ITEMS DII
418: WHERE I.INTERFACE_LINE_ATTRIBUTE1||'' = P_Project_Num
419: AND rtrim(ltrim(I.INTERFACE_LINE_ATTRIBUTE2)) =
420: rtrim(ltrim(to_char(P_Inv_Num)))
439: I.INTERFACE_LINE_ATTRIBUTE7 ATTR7,
440: I.CONVERSION_RATE CRATE,
441: I.CONVERSION_DATE CDATE,
442: I.CONVERSION_TYPE CTYPE
443: FROM RA_INTERFACE_LINES I
444: WHERE I.INTERFACE_LINE_ATTRIBUTE1||'' = P_Project_Num
445: AND rtrim(ltrim(I.INTERFACE_LINE_ATTRIBUTE2)) =
446: rtrim(ltrim(to_char(P_Inv_Num)))
447: -- AND I.INTERFACE_LINE_CONTEXT = P_Batch_Src -- Performance Bug 2695303
764:
765: /*Added the select statement for bug 7665769 */
766: SELECT min(to_number(rtrim(ltrim(I.Interface_Line_Attribute6))))
767: INTO l_min_line
768: FROM ra_interface_lines I
769: WHERE rtrim(ltrim(I.Interface_Line_Attribute2)) = rtrim(ltrim(to_char(P_Inv_Num)))
770: AND I.Interface_Line_Attribute1 = P_Project_Num
771: AND I.BATCH_SOURCE_NAME = P_Batch_Src
772: AND I.TRX_NUMBER = P_Trx_Num;
798: NULL,
799: P_Batch_Src,
800: FND_GLOBAL.USER_ID,SYSDATE,FND_GLOBAL.USER_ID,SYSDATE,FND_GLOBAL.USER_ID,
801: l_org_id
802: FROM RA_Interface_lines I
803: WHERE rtrim(ltrim(I.Interface_Line_Attribute2)) =
804: rtrim(ltrim(to_char(P_Inv_Num)))
805: AND to_number(rtrim(ltrim(I.Interface_Line_Attribute6))) = l_min_line --Modified the condition for bug 7665769
806: AND I.Interface_Line_Attribute1 = P_Project_Num
876: ORG_DI.PROJFUNC_INVTRANS_RATE_DATE exchg_date,
877: ORG_DI.PROJFUNC_INVTRANS_RATE_TYPE exchg_type,
878: ORG_DI.INV_CURRENCY_CODE inv_curr_code,
879: INT_LINE.CONVERSION_RATE exchg_rate
880: FROM ra_interface_lines INT_LINE,
881: pa_draft_invoices ORG_DI
882: WHERE INT_LINE.interface_line_attribute1||'' = P_Project_Num
883: AND ORG_DI.request_id = P_Request_Id
884: AND ltrim(rtrim(INT_LINE.interface_line_attribute2))
904: CM_DI.PROJFUNC_INVTRANS_RATE_DATE exchg_date,
905: CM_DI.PROJFUNC_INVTRANS_RATE_TYPE exchg_type,
906: CM_DI.INV_CURRENCY_CODE inv_curr_code,
907: INT_LINE.CONVERSION_RATE exchg_rate
908: FROM ra_interface_lines INT_LINE,
909: pa_draft_invoices CM_DI,
910: pa_draft_invoices ORG_DI,
911: ra_customer_trx TRX,
912: ra_batch_sources SOURCE
929: PA_ORIG_INV_AMT NUMBER;
930: PA_CM_INV_AMT NUMBER;
931: AR_ORIG_INV_AMT NUMBER;
932: CM_INV_CONV_AMT NUMBER;
933: PA_CM_INTERFACE_AMT RA_INTERFACE_LINES.AMOUNT%TYPE;
934: ROUND_OFF_AMT NUMBER;
935: L_MAX_LINE RA_INTERFACE_LINES.INTERFACE_LINE_ATTRIBUTE6%TYPE;
936: l_rate NUMBER;
937: PA_EXCHG_TYPE PA_DRAFT_INVOICES.INV_RATE_TYPE%TYPE;/* bug 2142736*/
931: AR_ORIG_INV_AMT NUMBER;
932: CM_INV_CONV_AMT NUMBER;
933: PA_CM_INTERFACE_AMT RA_INTERFACE_LINES.AMOUNT%TYPE;
934: ROUND_OFF_AMT NUMBER;
935: L_MAX_LINE RA_INTERFACE_LINES.INTERFACE_LINE_ATTRIBUTE6%TYPE;
936: l_rate NUMBER;
937: PA_EXCHG_TYPE PA_DRAFT_INVOICES.INV_RATE_TYPE%TYPE;/* bug 2142736*/
938:
939:
955: --
956: -- /* In case of Cancellation, Update the line amount of the invoice line
957: -- with the line amount of the original invoice line amount in AR */
958: --
959: -- UPDATE RA_INTERFACE_LINES L
960: -- SET (L.AMOUNT,L.UNIT_SELLING_PRICE)
961: -- = ( SELECT sign(L.AMOUNT)*TRX.EXTENDED_AMOUNT,
962: -- sign(L.UNIT_SELLING_PRICE) *TRX.EXTENDED_AMOUNT
963: -- from RA_CUSTOMER_TRX_LINES TRX
1008: -- CM_INV_CONV_AMT:= PA_CM_INV_AMT * (AR_ORIG_INV_AMT/PA_ORIG_INV_AMT);
1009: --
1010: -- /* Update the amount of the crediting Invoice in AR interface
1011: -- table */
1012: -- UPDATE RA_INTERFACE_LINES
1013: -- SET AMOUNT = PA_CURRENCY.round_trans_currency_amt(AMOUNT
1014: -- *(AR_ORIG_INV_AMT/PA_ORIG_INV_AMT) ,
1015: -- cur_get_inv_info.invoice_currency_code),
1016: -- UNIT_SELLING_PRICE = PA_CURRENCY.round_trans_currency_amt(
1027: -- SELECT SUM(L.AMOUNT),
1028: -- MAX(L.INTERFACE_LINE_ATTRIBUTE6)
1029: -- INTO PA_CM_INTERFACE_AMT,
1030: -- L_MAX_LINE
1031: -- FROM RA_INTERFACE_LINES L
1032: -- WHERE L.INTERFACE_LINE_ATTRIBUTE1 = P_Project_Num
1033: -- AND ltrim(rtrim(L.INTERFACE_LINE_ATTRIBUTE2))
1034: -- = to_char(cur_get_inv_info.cm_inv_num)
1035: -- AND L.BATCH_SOURCE_NAME = cur_get_inv_info.SOURCE
1040: -- ROUND_OFF_AMT := CM_INV_CONV_AMT- PA_CM_INTERFACE_AMT;
1041: --
1042: -- /* Adjust the round off error amount with the maximum invoice
1043: -- line */
1044: -- UPDATE RA_INTERFACE_LINES A
1045: -- SET A.AMOUNT = A.AMOUNT + ROUND_OFF_AMT,
1046: -- A.UNIT_SELLING_PRICE = A.UNIT_SELLING_PRICE + ROUND_OFF_AMT
1047: -- WHERE A.INTERFACE_LINE_ATTRIBUTE1 = P_Project_Num
1048: -- AND ltrim(rtrim(A.INTERFACE_LINE_ATTRIBUTE2))