129: INTO l_func_currency
130: FROM gl_ledgers
131: WHERE ledger_id = l_ledger_id;
132:
133: fnd_file.put_line(fnd_file.output,'Data Extract File');
134:
135: l_output_string := 'Netting Agreement:,,'||l_agreement_details.agreement_name;
136: fnd_file.put_line(fnd_file.output,l_output_string);
137:
132:
133: fnd_file.put_line(fnd_file.output,'Data Extract File');
134:
135: l_output_string := 'Netting Agreement:,,'||l_agreement_details.agreement_name;
136: fnd_file.put_line(fnd_file.output,l_output_string);
137:
138: l_output_string := 'Start Date:,,'||to_char(l_agreement_details.agreement_start_date,'DD-MON-YY');
139: fnd_file.put_line(fnd_file.output,l_output_string);
140:
135: l_output_string := 'Netting Agreement:,,'||l_agreement_details.agreement_name;
136: fnd_file.put_line(fnd_file.output,l_output_string);
137:
138: l_output_string := 'Start Date:,,'||to_char(l_agreement_details.agreement_start_date,'DD-MON-YY');
139: fnd_file.put_line(fnd_file.output,l_output_string);
140:
141: l_output_string := 'End Date:,,';
142:
143: IF l_agreement_details.agreement_end_date IS NOT NULL THEN
143: IF l_agreement_details.agreement_end_date IS NOT NULL THEN
144: l_output_string := l_output_string||to_char(l_agreement_details.agreement_end_date,'DD-MON-YY');
145: END IF;
146:
147: fnd_file.put_line(fnd_file.output,l_output_string);
148:
149: l_output_string := 'Transaction Due Date:,,'||to_char(l_batch_details.transaction_due_date,'DD-MON-YY');
150: fnd_file.put_line(fnd_file.output,l_output_string);
151:
146:
147: fnd_file.put_line(fnd_file.output,l_output_string);
148:
149: l_output_string := 'Transaction Due Date:,,'||to_char(l_batch_details.transaction_due_date,'DD-MON-YY');
150: fnd_file.put_line(fnd_file.output,l_output_string);
151:
152: l_output_string := 'Settlement Date:,,'||to_char(l_batch_details.settlement_date,'DD-MON-YY');
153: fnd_file.put_line(fnd_file.output,l_output_string);
154:
149: l_output_string := 'Transaction Due Date:,,'||to_char(l_batch_details.transaction_due_date,'DD-MON-YY');
150: fnd_file.put_line(fnd_file.output,l_output_string);
151:
152: l_output_string := 'Settlement Date:,,'||to_char(l_batch_details.settlement_date,'DD-MON-YY');
153: fnd_file.put_line(fnd_file.output,l_output_string);
154:
155: l_output_string := 'Deploying Company Currency:,,'|| l_batch_details.batch_currency;
156: fnd_file.put_line(fnd_file.output,l_output_string);
157:
152: l_output_string := 'Settlement Date:,,'||to_char(l_batch_details.settlement_date,'DD-MON-YY');
153: fnd_file.put_line(fnd_file.output,l_output_string);
154:
155: l_output_string := 'Deploying Company Currency:,,'|| l_batch_details.batch_currency;
156: fnd_file.put_line(fnd_file.output,l_output_string);
157:
158: l_output_string := 'Supplier Netted Amount:,,'||l_batch_details.total_netted_amt;
159: fnd_file.put_line(fnd_file.output,l_output_string);
160:
155: l_output_string := 'Deploying Company Currency:,,'|| l_batch_details.batch_currency;
156: fnd_file.put_line(fnd_file.output,l_output_string);
157:
158: l_output_string := 'Supplier Netted Amount:,,'||l_batch_details.total_netted_amt;
159: fnd_file.put_line(fnd_file.output,l_output_string);
160:
161: l_output_string := 'Customer Netted Amount:,,'||l_batch_details.total_netted_amt;
162: fnd_file.put_line(fnd_file.output,l_output_string);
163:
158: l_output_string := 'Supplier Netted Amount:,,'||l_batch_details.total_netted_amt;
159: fnd_file.put_line(fnd_file.output,l_output_string);
160:
161: l_output_string := 'Customer Netted Amount:,,'||l_batch_details.total_netted_amt;
162: fnd_file.put_line(fnd_file.output,l_output_string);
163:
164: l_output_string := ' ';
165: fnd_file.put_line(fnd_file.output,l_output_string);
166: fnd_file.put_line(fnd_file.output,l_output_string);
161: l_output_string := 'Customer Netted Amount:,,'||l_batch_details.total_netted_amt;
162: fnd_file.put_line(fnd_file.output,l_output_string);
163:
164: l_output_string := ' ';
165: fnd_file.put_line(fnd_file.output,l_output_string);
166: fnd_file.put_line(fnd_file.output,l_output_string);
167:
168: l_output_string := 'Transactions Netted per Batch Number:,'|| l_batch_details.batch_number||',';
169: l_output_string := l_output_string || 'Batch Name:,'|| l_batch_details.batch_name;
162: fnd_file.put_line(fnd_file.output,l_output_string);
163:
164: l_output_string := ' ';
165: fnd_file.put_line(fnd_file.output,l_output_string);
166: fnd_file.put_line(fnd_file.output,l_output_string);
167:
168: l_output_string := 'Transactions Netted per Batch Number:,'|| l_batch_details.batch_number||',';
169: l_output_string := l_output_string || 'Batch Name:,'|| l_batch_details.batch_name;
170: fnd_file.put_line(fnd_file.output,l_output_string);
166: fnd_file.put_line(fnd_file.output,l_output_string);
167:
168: l_output_string := 'Transactions Netted per Batch Number:,'|| l_batch_details.batch_number||',';
169: l_output_string := l_output_string || 'Batch Name:,'|| l_batch_details.batch_name;
170: fnd_file.put_line(fnd_file.output,l_output_string);
171:
172: l_invoice_count := 0;
173: FOR l_invoice IN c_get_ap_invoices(l_batch_details.agreement_id) LOOP
174: l_invoice_count := l_invoice_count + 1;
178: l_supplier_number := l_invoice.supplier_number;
179: l_supplier_site := l_invoice.supplier_site;
180:
181: l_output_string := ' ';
182: fnd_file.put_line(fnd_file.output,l_output_string);
183:
184: l_output_string := 'Supplier:,'|| l_supplier;
185: fnd_file.put_line(fnd_file.output,l_output_string);
186:
181: l_output_string := ' ';
182: fnd_file.put_line(fnd_file.output,l_output_string);
183:
184: l_output_string := 'Supplier:,'|| l_supplier;
185: fnd_file.put_line(fnd_file.output,l_output_string);
186:
187: l_output_string := 'Supplier Number:,'|| l_supplier_number;
188: fnd_file.put_line(fnd_file.output,l_output_string);
189:
184: l_output_string := 'Supplier:,'|| l_supplier;
185: fnd_file.put_line(fnd_file.output,l_output_string);
186:
187: l_output_string := 'Supplier Number:,'|| l_supplier_number;
188: fnd_file.put_line(fnd_file.output,l_output_string);
189:
190: l_output_string := 'Site:,'|| l_supplier_site;
191: fnd_file.put_line(fnd_file.output,l_output_string);
192:
187: l_output_string := 'Supplier Number:,'|| l_supplier_number;
188: fnd_file.put_line(fnd_file.output,l_output_string);
189:
190: l_output_string := 'Site:,'|| l_supplier_site;
191: fnd_file.put_line(fnd_file.output,l_output_string);
192:
193: l_output_string := ' ';
194: fnd_file.put_line(fnd_file.output,l_output_string);
195:
190: l_output_string := 'Site:,'|| l_supplier_site;
191: fnd_file.put_line(fnd_file.output,l_output_string);
192:
193: l_output_string := ' ';
194: fnd_file.put_line(fnd_file.output,l_output_string);
195:
196: l_output_string := 'Invoice Number,Invoice Date,Invoice Currency,Invoice Amount,Ledger Currency,Ledger Amount, Netted Amount ('||l_batch_details.batch_currency||')';
197: fnd_file.put_line(fnd_file.output,l_output_string);
198:
193: l_output_string := ' ';
194: fnd_file.put_line(fnd_file.output,l_output_string);
195:
196: l_output_string := 'Invoice Number,Invoice Date,Invoice Currency,Invoice Amount,Ledger Currency,Ledger Amount, Netted Amount ('||l_batch_details.batch_currency||')';
197: fnd_file.put_line(fnd_file.output,l_output_string);
198:
199: END IF;
200:
201: IF l_supplier <> l_invoice.supplier OR
206: l_supplier_number := l_invoice.supplier_number;
207: l_supplier_site := l_invoice.supplier_site;
208:
209: l_output_string := ' ';
210: fnd_file.put_line(fnd_file.output,l_output_string);
211:
212: l_output_string := 'Supplier:,'|| l_supplier;
213: fnd_file.put_line(fnd_file.output,l_output_string);
214:
209: l_output_string := ' ';
210: fnd_file.put_line(fnd_file.output,l_output_string);
211:
212: l_output_string := 'Supplier:,'|| l_supplier;
213: fnd_file.put_line(fnd_file.output,l_output_string);
214:
215: l_output_string := 'Supplier Number:,'|| l_supplier_number;
216: fnd_file.put_line(fnd_file.output,l_output_string);
217:
212: l_output_string := 'Supplier:,'|| l_supplier;
213: fnd_file.put_line(fnd_file.output,l_output_string);
214:
215: l_output_string := 'Supplier Number:,'|| l_supplier_number;
216: fnd_file.put_line(fnd_file.output,l_output_string);
217:
218: l_output_string := 'Site:,'|| l_supplier_site;
219: fnd_file.put_line(fnd_file.output,l_output_string);
220:
215: l_output_string := 'Supplier Number:,'|| l_supplier_number;
216: fnd_file.put_line(fnd_file.output,l_output_string);
217:
218: l_output_string := 'Site:,'|| l_supplier_site;
219: fnd_file.put_line(fnd_file.output,l_output_string);
220:
221: l_output_string := ' ';
222: fnd_file.put_line(fnd_file.output,l_output_string);
223:
218: l_output_string := 'Site:,'|| l_supplier_site;
219: fnd_file.put_line(fnd_file.output,l_output_string);
220:
221: l_output_string := ' ';
222: fnd_file.put_line(fnd_file.output,l_output_string);
223:
224: l_output_string := 'Invoice Number,Invoice Date,Invoice Currency,Invoice Amount,Ledger Currency,Ledger Amount, Netted Amount ('||l_batch_details.batch_currency||')';
225: fnd_file.put_line(fnd_file.output,l_output_string);
226:
221: l_output_string := ' ';
222: fnd_file.put_line(fnd_file.output,l_output_string);
223:
224: l_output_string := 'Invoice Number,Invoice Date,Invoice Currency,Invoice Amount,Ledger Currency,Ledger Amount, Netted Amount ('||l_batch_details.batch_currency||')';
225: fnd_file.put_line(fnd_file.output,l_output_string);
226:
227: END IF;
228:
229: l_output_string := l_invoice.invoice_number||',';
235: l_invoice.ledger_amount := l_invoice.invoice_amount;
236: END IF;
237: l_output_string := l_output_string || to_char(l_invoice.ledger_amount) || ',';
238: l_output_string := l_output_string || to_char(l_invoice.netted_amount);
239: fnd_file.put_line(fnd_file.output,l_output_string);
240: END LOOP;
241:
242:
243: l_transaction_count := 0;
249: l_customer_number := l_transaction.customer_number;
250: l_location := l_transaction.location;
251:
252: l_output_string := ' ';
253: fnd_file.put_line(fnd_file.output,l_output_string);
254:
255: l_output_string := 'Customer:,'|| l_customer;
256: fnd_file.put_line(fnd_file.output,l_output_string);
257:
252: l_output_string := ' ';
253: fnd_file.put_line(fnd_file.output,l_output_string);
254:
255: l_output_string := 'Customer:,'|| l_customer;
256: fnd_file.put_line(fnd_file.output,l_output_string);
257:
258: l_output_string := 'Customer Account Number:,'|| l_customer_number;
259: fnd_file.put_line(fnd_file.output,l_output_string);
260:
255: l_output_string := 'Customer:,'|| l_customer;
256: fnd_file.put_line(fnd_file.output,l_output_string);
257:
258: l_output_string := 'Customer Account Number:,'|| l_customer_number;
259: fnd_file.put_line(fnd_file.output,l_output_string);
260:
261: l_output_string := 'Location:,'|| l_location;
262: fnd_file.put_line(fnd_file.output,l_output_string);
263:
258: l_output_string := 'Customer Account Number:,'|| l_customer_number;
259: fnd_file.put_line(fnd_file.output,l_output_string);
260:
261: l_output_string := 'Location:,'|| l_location;
262: fnd_file.put_line(fnd_file.output,l_output_string);
263:
264: l_output_string := ' ';
265: fnd_file.put_line(fnd_file.output,l_output_string);
266:
261: l_output_string := 'Location:,'|| l_location;
262: fnd_file.put_line(fnd_file.output,l_output_string);
263:
264: l_output_string := ' ';
265: fnd_file.put_line(fnd_file.output,l_output_string);
266:
267: l_output_string := 'Transaction Number,Transaction Date,Transaction Currency,Transaction Amount,Ledger Currency,Ledger Amount,Netted Amount ('||l_batch_details.batch_currency||')';
268: fnd_file.put_line(fnd_file.output,l_output_string);
269:
264: l_output_string := ' ';
265: fnd_file.put_line(fnd_file.output,l_output_string);
266:
267: l_output_string := 'Transaction Number,Transaction Date,Transaction Currency,Transaction Amount,Ledger Currency,Ledger Amount,Netted Amount ('||l_batch_details.batch_currency||')';
268: fnd_file.put_line(fnd_file.output,l_output_string);
269:
270: END IF;
271:
272: IF l_customer <> l_transaction.customer OR
277: l_customer_number := l_transaction.customer_number;
278: l_location := l_transaction.location;
279:
280: l_output_string := ' ';
281: fnd_file.put_line(fnd_file.output,l_output_string);
282:
283: l_output_string := 'Customer:,'|| l_customer;
284: fnd_file.put_line(fnd_file.output,l_output_string);
285:
280: l_output_string := ' ';
281: fnd_file.put_line(fnd_file.output,l_output_string);
282:
283: l_output_string := 'Customer:,'|| l_customer;
284: fnd_file.put_line(fnd_file.output,l_output_string);
285:
286: l_output_string := 'Customer Number:,'|| l_customer_number;
287: fnd_file.put_line(fnd_file.output,l_output_string);
288:
283: l_output_string := 'Customer:,'|| l_customer;
284: fnd_file.put_line(fnd_file.output,l_output_string);
285:
286: l_output_string := 'Customer Number:,'|| l_customer_number;
287: fnd_file.put_line(fnd_file.output,l_output_string);
288:
289: l_output_string := 'Location:,'|| l_location;
290: fnd_file.put_line(fnd_file.output,l_output_string);
291:
286: l_output_string := 'Customer Number:,'|| l_customer_number;
287: fnd_file.put_line(fnd_file.output,l_output_string);
288:
289: l_output_string := 'Location:,'|| l_location;
290: fnd_file.put_line(fnd_file.output,l_output_string);
291:
292: l_output_string := ' ';
293: fnd_file.put_line(fnd_file.output,l_output_string);
294:
289: l_output_string := 'Location:,'|| l_location;
290: fnd_file.put_line(fnd_file.output,l_output_string);
291:
292: l_output_string := ' ';
293: fnd_file.put_line(fnd_file.output,l_output_string);
294:
295: l_output_string := 'Transaction Number,Transaction Date,Transaction Currency,Transaction Amount,Ledger Currency,Ledger Amount,Netted Amount ('||l_batch_details.batch_currency||')';
296: fnd_file.put_line(fnd_file.output,l_output_string);
297:
292: l_output_string := ' ';
293: fnd_file.put_line(fnd_file.output,l_output_string);
294:
295: l_output_string := 'Transaction Number,Transaction Date,Transaction Currency,Transaction Amount,Ledger Currency,Ledger Amount,Netted Amount ('||l_batch_details.batch_currency||')';
296: fnd_file.put_line(fnd_file.output,l_output_string);
297:
298: END IF;
299:
300: l_output_string := l_transaction.transaction_number||',';
303: l_output_string := l_output_string || to_char(l_transaction.transaction_amount) || ',';
304: l_output_string := l_output_string || l_func_currency || ',';
305: l_output_string := l_output_string || to_char(l_transaction.ledger_amount) || ',';
306: l_output_string := l_output_string || to_char(l_transaction.netted_amount);
307: fnd_file.put_line(fnd_file.output,l_output_string);
308: END LOOP;
309:
310: retcode := 0;
311: EXCEPTION