307: the Debit Memo transaction */
308:
309: SELECT nvl(max(instr(trx_number,'-NDJ')) + 4,0) --bug 6011423
310: INTO X_first_position
311: FROM ra_customer_trx
312: WHERE related_customer_trx_id=X_original_customer_trx_id
313: AND trx_number like '%-NDJ%';
314:
315: SELECT nvl(MAX(TO_NUMBER(SUBSTR(trx_number,X_first_position,LENGTH(trx_number)-
314:
315: SELECT nvl(MAX(TO_NUMBER(SUBSTR(trx_number,X_first_position,LENGTH(trx_number)-
316: X_first_position+1)))+1,1) --bug 6011423
317: INTO X_next_sequence
318: FROM ra_customer_trx
319: WHERE related_customer_trx_id=X_original_customer_trx_id
320: AND trx_number LIKE '%-NDJ%';
321:
322: /* If the selects failure, then this is the first
339: RETURN X_trx_number;
340: END generate_interest_DM_number;
341:
342: /************************************************************************/
343: /* Procedure ins_ra_customer_trx */
344: /* Purpose : Get the fields to insert into ra_customer_trx */
345: /************************************************************************/
346:
347: PROCEDURE ins_ra_customer_trx (
340: END generate_interest_DM_number;
341:
342: /************************************************************************/
343: /* Procedure ins_ra_customer_trx */
344: /* Purpose : Get the fields to insert into ra_customer_trx */
345: /************************************************************************/
346:
347: PROCEDURE ins_ra_customer_trx (
348: X_inv_cust_trx_id IN NUMBER,
343: /* Procedure ins_ra_customer_trx */
344: /* Purpose : Get the fields to insert into ra_customer_trx */
345: /************************************************************************/
346:
347: PROCEDURE ins_ra_customer_trx (
348: X_inv_cust_trx_id IN NUMBER,
349: X_new_cust_trx_id IN OUT NOCOPY NUMBER,
350: X_set_of_books_id IN OUT NOCOPY NUMBER,
351: X_lastlogin IN OUT NOCOPY NUMBER,
378: X_global_attribute6 VARCHAR2(150);
379: X_global_attribute7 VARCHAR2(150);
380: X_org_id NUMBER(15);
381:
382: l_trx_rec ra_customer_trx%ROWTYPE;
383:
384:
385: BEGIN
386: /* SELECT ra_customer_trx_s.nextval
382: l_trx_rec ra_customer_trx%ROWTYPE;
383:
384:
385: BEGIN
386: /* SELECT ra_customer_trx_s.nextval
387: INTO X_new_cust_trx_id
388: FROM sys.dual;
389: */
390:
436: X_global_attribute5,
437: X_global_attribute6,
438: X_global_attribute7,
439: X_org_id
440: FROM ra_customer_trx
441: WHERE customer_trx_id = X_inv_cust_trx_id;
442:
443: /* INSERT INTO ra_customer_trx (
444: customer_trx_id,
439: X_org_id
440: FROM ra_customer_trx
441: WHERE customer_trx_id = X_inv_cust_trx_id;
442:
443: /* INSERT INTO ra_customer_trx (
444: customer_trx_id,
445: last_update_date,
446: last_updated_by,
447: creation_date,
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: RAISE_APPLICATION_ERROR( -20000,
570: 'IL: Id da Transacao Invalido'||sqlerrm );
571: END ins_ra_customer_trx;
572:
573: /************************************************************************/
574: /* Procedure ins_ra_customer_trx_lines */
575: /* Purpose : Get the fields to insert into ra_customer_trx_lines */
570: 'IL: Id da Transacao Invalido'||sqlerrm );
571: END ins_ra_customer_trx;
572:
573: /************************************************************************/
574: /* Procedure ins_ra_customer_trx_lines */
575: /* Purpose : Get the fields to insert into ra_customer_trx_lines */
576: /************************************************************************/
577:
578: PROCEDURE ins_ra_customer_trx_lines (
571: END ins_ra_customer_trx;
572:
573: /************************************************************************/
574: /* Procedure ins_ra_customer_trx_lines */
575: /* Purpose : Get the fields to insert into ra_customer_trx_lines */
576: /************************************************************************/
577:
578: PROCEDURE ins_ra_customer_trx_lines (
579: X_new_customer_trx_id IN NUMBER,
574: /* Procedure ins_ra_customer_trx_lines */
575: /* Purpose : Get the fields to insert into ra_customer_trx_lines */
576: /************************************************************************/
577:
578: PROCEDURE ins_ra_customer_trx_lines (
579: X_new_customer_trx_id IN NUMBER,
580: X_invoice_amount IN NUMBER,
581: X_set_of_books_id IN NUMBER,
582: X_user_id IN NUMBER,
584: X_customertrx_line_id IN OUT NOCOPY NUMBER
585: ) IS
586: l_org_id NUMBER(15);
587: BEGIN
588: SELECT ra_customer_trx_lines_s.nextval
589: INTO X_customertrx_line_id
590: FROM dual;
591:
592: SELECT org_id into l_org_id
589: INTO X_customertrx_line_id
590: FROM dual;
591:
592: SELECT org_id into l_org_id
593: FROM ra_customer_trx_all
594: Where customer_trx_id = x_new_customer_trx_id;
595:
596: INSERT INTO ra_customer_trx_lines (
597: customer_trx_line_id,
592: SELECT org_id into l_org_id
593: FROM ra_customer_trx_all
594: Where customer_trx_id = x_new_customer_trx_id;
595:
596: INSERT INTO ra_customer_trx_lines (
597: customer_trx_line_id,
598: last_update_date,
599: last_updated_by,
600: creation_date,
629: X_invoice_amount,
630: 'S',
631: l_org_id
632: );
633: END ins_ra_customer_trx_lines;
634:
635: /***************************************************************************/
636: /* Procedure ins_ra_cust_trx_line_salesreps */
637: /* Purpose : Get the fields to insert into ra_cust_trx_line_salesreps */
646: ) IS
647: l_org_id NUMBER(15);
648: BEGIN
649: SELECT org_id into l_org_id
650: FROM ra_customer_trx_all where
651: customer_trx_id = x_new_cust_trx_id;
652:
653: INSERT INTO ra_cust_trx_line_salesreps (
654: cust_trx_line_salesrep_id,
743: l_org_id NUMBER(15);
744:
745: BEGIN
746:
747: SELECT org_id into l_org_id from ra_customer_trx_all where
748: customer_trx_id = x_customer_trx_id;
749: SELECT chart_of_accounts_id into x_struct_num FROM gl_sets_of_books
750: WHERE set_of_books_id = x_set_of_books_id;
751:
951:
952: /* Replace Insert by AR's table handler. Bug # 2249731 */
953:
954: SELECT org_id into l_org_id from
955: ra_customer_trx_all
956: where customer_trx_id = X_customer_trx_id;
957: l_ps_rec.last_update_date := sysdate;
958: l_ps_rec.last_updated_by := X_user_id;
959: l_ps_rec.creation_date := sysdate;
1049: -- currency code.
1050: -----------------------------------------------------
1051: SELECT invoice_currency_code, minimum_accountable_unit, precision
1052: INTO X_invoice_currency_code, x_minimum_accountable_unit, x_precision
1053: FROM ra_customer_trx, fnd_currencies_vl
1054: WHERE customer_trx_id = X_original_customer_trx_id
1055: AND invoice_currency_code = currency_code;
1056:
1057: jl_br_ar_generate_debit_memo.ins_ra_batches ( X_batch_source_id,
1060: X_user_id,
1061: X_batch_id );
1062:
1063:
1064: jl_br_ar_generate_debit_memo.ins_ra_customer_trx (
1065: X_original_customer_trx_id,
1066: X_new_customer_trx_id,
1067: X_set_of_books_id,
1068: X_last_login,
1080: X_batch_id,
1081: X_interest_DM_date
1082: );
1083:
1084: jl_br_ar_generate_debit_memo.ins_ra_customer_trx_lines (
1085: X_new_customer_trx_id,
1086: X_invoice_amount,
1087: X_set_of_books_id,
1088: X_user_id,