140: IF (AD_EVENT_REGISTRY_PKG.Is_Event_Done( p_Owner => 'JA',
141: p_Event_Name => 'JAI_EXISTENCE_OF_TABLES' ) = FALSE )
142: OR lv_sob_currency <> 'INR' THEN
143:
144: fnd_file.put_line(fnd_file.output,'This report is for Financials for India Customers only' );
145: return;
146:
147: END IF;
148:
157: CLOSE cur_orgn_name;
158:
159: END IF;
160:
161: fnd_file.put_line(fnd_file.output,'Concurrent Program Name: India - Program to Update OPM Cost' );
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
158:
159: END IF;
160:
161: fnd_file.put_line(fnd_file.output,'Concurrent Program Name: India - Program to Update OPM Cost' );
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
159: END IF;
160:
161: fnd_file.put_line(fnd_file.output,'Concurrent Program Name: India - Program to Update OPM Cost' );
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
160:
161: fnd_file.put_line(fnd_file.output,'Concurrent Program Name: India - Program to Update OPM Cost' );
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
168:
161: fnd_file.put_line(fnd_file.output,'Concurrent Program Name: India - Program to Update OPM Cost' );
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
168:
169: ln_receipt_count := 0;
162: fnd_file.new_line(fnd_file.output,1);
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
168:
169: ln_receipt_count := 0;
170:
163: fnd_file.put_line(fnd_file.output,'Parameters :' );
164: fnd_file.new_line(fnd_file.output,1);
165: fnd_file.put_line(fnd_file.output,' Organization Name :'||lv_orgn_name );
166: fnd_file.put_line(fnd_file.output,' Receipt Start Date :'||ld_start_date );
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
168:
169: ln_receipt_count := 0;
170:
171: fnd_file.new_line(fnd_file.output,6);
167: fnd_file.put_line(fnd_file.output,' Receipt End Date :'||ld_end_date );
168:
169: ln_receipt_count := 0;
170:
171: fnd_file.new_line(fnd_file.output,6);
172:
173: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Begins**********************************' );
174:
175: FOR receipt_rec IN cur_receipt_records(ld_start_date,ld_end_date) LOOP
169: ln_receipt_count := 0;
170:
171: fnd_file.new_line(fnd_file.output,6);
172:
173: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Begins**********************************' );
174:
175: FOR receipt_rec IN cur_receipt_records(ld_start_date,ld_end_date) LOOP
176:
177: fnd_file.new_line(fnd_file.output,2);
173: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Begins**********************************' );
174:
175: FOR receipt_rec IN cur_receipt_records(ld_start_date,ld_end_date) LOOP
176:
177: fnd_file.new_line(fnd_file.output,2);
178:
179: OPEN cur_receipt_num(receipt_rec.shipment_line_id);
180: FETCH cur_receipt_num INTO lv_receipt_num;
181: CLOSE cur_receipt_num;
189: END IF;
190:
191: lv_receipt_processed := 'N';
192:
193: fnd_file.new_line(fnd_file.output,2);
194: fnd_file.put_line(fnd_file.output,'Receipt Number :' ||lv_receipt_num );
195: fnd_file.put_line(fnd_file.output,'Organization Name :' ||lv_orgn_name );
196:
197:
190:
191: lv_receipt_processed := 'N';
192:
193: fnd_file.new_line(fnd_file.output,2);
194: fnd_file.put_line(fnd_file.output,'Receipt Number :' ||lv_receipt_num );
195: fnd_file.put_line(fnd_file.output,'Organization Name :' ||lv_orgn_name );
196:
197:
198: FOR rcv_costing_records IN cur_rcv_costing_records(receipt_rec.shipment_line_id) LOOP
191: lv_receipt_processed := 'N';
192:
193: fnd_file.new_line(fnd_file.output,2);
194: fnd_file.put_line(fnd_file.output,'Receipt Number :' ||lv_receipt_num );
195: fnd_file.put_line(fnd_file.output,'Organization Name :' ||lv_orgn_name );
196:
197:
198: FOR rcv_costing_records IN cur_rcv_costing_records(receipt_rec.shipment_line_id) LOOP
199:
243: ln_costing_amt_func_curr := round((ln_costing_amt_func_curr * ln_apportion_factor)/rcv_costing_records.primary_quantity,5);
244: /* end for bug 7655123 */
245:
246: --Added by JMEENA for bug#7268999
247: fnd_file.put_line(fnd_file.output,'ln_costing_amount before conversion:'||ln_costing_amount );
248: ln_costing_amount:= ln_costing_amount/NVL(rcv_costing_records.currency_conversion_rate,1);
249: fnd_file.put_line(fnd_file.output,'ln_costing_amount After conversion:'||ln_costing_amount );
250: --End of bug#7268999
251:
245:
246: --Added by JMEENA for bug#7268999
247: fnd_file.put_line(fnd_file.output,'ln_costing_amount before conversion:'||ln_costing_amount );
248: ln_costing_amount:= ln_costing_amount/NVL(rcv_costing_records.currency_conversion_rate,1);
249: fnd_file.put_line(fnd_file.output,'ln_costing_amount After conversion:'||ln_costing_amount );
250: --End of bug#7268999
251:
252: /*bug 8966461 - negative quantities will lead to apportion factor becoming negative.
253: * Therefore, if we divide by ABS(quantity) then costing amount will be negative.
276:
277: END IF;
278:
279: lv_receipt_processed := 'Y';
280: fnd_file.new_line(fnd_file.output,1);
281: fnd_file.put_line(fnd_file.output,'Transaction Type :' ||rcv_costing_records.transaction_type );
282: fnd_file.put_line(fnd_file.output,'Transaction Quantity :' ||rcv_costing_records.quantity );
283: fnd_file.put_line(fnd_file.output,'Non recoverable taxes per unit:' ||ln_costing_amount );
284: fnd_file.put_line(fnd_file.output,'Cost Update Successful' );
277: END IF;
278:
279: lv_receipt_processed := 'Y';
280: fnd_file.new_line(fnd_file.output,1);
281: fnd_file.put_line(fnd_file.output,'Transaction Type :' ||rcv_costing_records.transaction_type );
282: fnd_file.put_line(fnd_file.output,'Transaction Quantity :' ||rcv_costing_records.quantity );
283: fnd_file.put_line(fnd_file.output,'Non recoverable taxes per unit:' ||ln_costing_amount );
284: fnd_file.put_line(fnd_file.output,'Cost Update Successful' );
285: END LOOP;
278:
279: lv_receipt_processed := 'Y';
280: fnd_file.new_line(fnd_file.output,1);
281: fnd_file.put_line(fnd_file.output,'Transaction Type :' ||rcv_costing_records.transaction_type );
282: fnd_file.put_line(fnd_file.output,'Transaction Quantity :' ||rcv_costing_records.quantity );
283: fnd_file.put_line(fnd_file.output,'Non recoverable taxes per unit:' ||ln_costing_amount );
284: fnd_file.put_line(fnd_file.output,'Cost Update Successful' );
285: END LOOP;
286:
279: lv_receipt_processed := 'Y';
280: fnd_file.new_line(fnd_file.output,1);
281: fnd_file.put_line(fnd_file.output,'Transaction Type :' ||rcv_costing_records.transaction_type );
282: fnd_file.put_line(fnd_file.output,'Transaction Quantity :' ||rcv_costing_records.quantity );
283: fnd_file.put_line(fnd_file.output,'Non recoverable taxes per unit:' ||ln_costing_amount );
284: fnd_file.put_line(fnd_file.output,'Cost Update Successful' );
285: END LOOP;
286:
287: IF lv_receipt_processed = 'N' THEN
280: fnd_file.new_line(fnd_file.output,1);
281: fnd_file.put_line(fnd_file.output,'Transaction Type :' ||rcv_costing_records.transaction_type );
282: fnd_file.put_line(fnd_file.output,'Transaction Quantity :' ||rcv_costing_records.quantity );
283: fnd_file.put_line(fnd_file.output,'Non recoverable taxes per unit:' ||ln_costing_amount );
284: fnd_file.put_line(fnd_file.output,'Cost Update Successful' );
285: END LOOP;
286:
287: IF lv_receipt_processed = 'N' THEN
288:
285: END LOOP;
286:
287: IF lv_receipt_processed = 'N' THEN
288:
289: fnd_file.new_line(fnd_file.output,1);
290: fnd_file.put_line(fnd_file.output,'The Receipt was already Cost updated');
291:
292: END IF;
293:
286:
287: IF lv_receipt_processed = 'N' THEN
288:
289: fnd_file.new_line(fnd_file.output,1);
290: fnd_file.put_line(fnd_file.output,'The Receipt was already Cost updated');
291:
292: END IF;
293:
294: ln_receipt_count := ln_receipt_count + 1;
293:
294: ln_receipt_count := ln_receipt_count + 1;
295:
296: END LOOP;
297: fnd_file.new_line(fnd_file.output,2);
298: fnd_file.put_line(fnd_file.output,'Total number of receipts processed :' ||ln_receipt_count);
299: fnd_file.new_line(fnd_file.output,2);
300:
301: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Ends**********************************' );
294: ln_receipt_count := ln_receipt_count + 1;
295:
296: END LOOP;
297: fnd_file.new_line(fnd_file.output,2);
298: fnd_file.put_line(fnd_file.output,'Total number of receipts processed :' ||ln_receipt_count);
299: fnd_file.new_line(fnd_file.output,2);
300:
301: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Ends**********************************' );
302: COMMIT;
295:
296: END LOOP;
297: fnd_file.new_line(fnd_file.output,2);
298: fnd_file.put_line(fnd_file.output,'Total number of receipts processed :' ||ln_receipt_count);
299: fnd_file.new_line(fnd_file.output,2);
300:
301: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Ends**********************************' );
302: COMMIT;
303: EXCEPTION
297: fnd_file.new_line(fnd_file.output,2);
298: fnd_file.put_line(fnd_file.output,'Total number of receipts processed :' ||ln_receipt_count);
299: fnd_file.new_line(fnd_file.output,2);
300:
301: fnd_file.put_line(fnd_file.output,'**********************************OPM Cost Update Ends**********************************' );
302: COMMIT;
303: EXCEPTION
304: WHEN OTHERS THEN
305: retcode := 2;
303: EXCEPTION
304: WHEN OTHERS THEN
305: retcode := 2;
306: errbuf := SUBSTR(SQLERRM,1,200);
307: fnd_file.put_line(fnd_file.log,'Error while processing receipt :'||lv_receipt_num);
308: ROLLBACK;
309: END opm_cost_adjust;
310:
311: END jai_rcv_opm_costing_pkg;