[Home] [Help]
86: -- DESCRIPTION
87: -- This procedure will get the expenditure and costing data for
88: -- Freight, Tax, and other special chargs from AP invoices with
89: -- destination type of INVENTORY or SHOP FLOOR, and push these
90: -- data to PA_TRANSACTION_INTERFACES.
91: --
92: -- PARAMETERS
93: -- X_Project_Id IN
94: -- X_Start_Date IN
124: -- l_msg_token2 VARCHAR2(30);
125: -- l_msg_token3 VARCHAR2(30);
126: -- l_msg_count NUMBER;
127:
128: l_Freight_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
129: l_Tax_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
130: l_Misc_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
131: l_Batch_Name PA_Transaction_Interface_All.Batch_Name%TYPE;
132: l_Receipt_Num RCV_Shipment_Headers.Receipt_Num%TYPE;
125: -- l_msg_token3 VARCHAR2(30);
126: -- l_msg_count NUMBER;
127:
128: l_Freight_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
129: l_Tax_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
130: l_Misc_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
131: l_Batch_Name PA_Transaction_Interface_All.Batch_Name%TYPE;
132: l_Receipt_Num RCV_Shipment_Headers.Receipt_Num%TYPE;
133: l_User_Conv_Type GL_Daily_Conversion_Types.User_Conversion_Type%TYPE;
126: -- l_msg_count NUMBER;
127:
128: l_Freight_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
129: l_Tax_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
130: l_Misc_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
131: l_Batch_Name PA_Transaction_Interface_All.Batch_Name%TYPE;
132: l_Receipt_Num RCV_Shipment_Headers.Receipt_Num%TYPE;
133: l_User_Conv_Type GL_Daily_Conversion_Types.User_Conversion_Type%TYPE;
134: l_Start_Date DATE;
127:
128: l_Freight_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
129: l_Tax_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
130: l_Misc_Exp_Comment PA_Transaction_Interface_All.Expenditure_Comment%TYPE;
131: l_Batch_Name PA_Transaction_Interface_All.Batch_Name%TYPE;
132: l_Receipt_Num RCV_Shipment_Headers.Receipt_Num%TYPE;
133: l_User_Conv_Type GL_Daily_Conversion_Types.User_Conversion_Type%TYPE;
134: l_Start_Date DATE;
135: l_End_Date DATE;
611: where gl.set_of_books_id = ap.set_of_books_id;
612:
613: -----------------------------------------------------------------------------------
614: -- Loop for transfering Special Charge from Invoice_Distribution to
615: -- PA_Transaction_Interfaces
616: -----------------------------------------------------------------------------------
617:
618: fnd_message.set_name('PJM','CONC-APINV Start Loop');
619: PJM_CONC.put_line(fnd_message.get || ' ...');
751:
752: end if;
753:
754: -----------------------------------------------------------------------
755: -- Insert into PA_TRANSACTION_INTERFACES table
756: -----------------------------------------------------------------------
757:
758: fnd_message.set_name('PJM','CONC-APINV Insert');
759: PJM_CONC.put_line('... ' || fnd_message.get);
787: ELSE /* non BP org */
788: l_transaction_source := 'Inventory';
789: END IF; /* check for BP org */
790:
791: INSERT INTO pa_transaction_interface
792: (transaction_source,
793: batch_name,
794: expenditure_ending_date,
795: employee_number,
1043:
1044: end if;
1045:
1046: -----------------------------------------------------------------------
1047: -- Insert into PA_TRANSACTION_INTERFACES table
1048: -----------------------------------------------------------------------
1049:
1050: fnd_message.set_name('PJM','CONC-APINV Insert');
1051: PJM_CONC.put_line('... ' || fnd_message.get);
1079: ELSE /* non BP org */
1080: l_transaction_source := 'Inventory';
1081: END IF; /* check for BP org */
1082:
1083: INSERT INTO pa_transaction_interface
1084: (transaction_source,
1085: batch_name,
1086: expenditure_ending_date,
1087: employee_number,