[Home] [Help]
96: --* *
97: --* 10-Feb-2004 PJS Exchange rates catered for on TRNI/TRNR transactions if the movement is *
98: --* between companies that use different currencies. *
99: --* *
100: --* 11-Feb-2004 PJS Set the actual_cost_ind in GME_BATCH_HEADER if the program is being run *
101: --* in 'final' mode. *
102: --* *
103: --* 12-Feb-2004 PJS Various changes for bugs 3399618, 3401451, 3397388 and 3397408. These *
104: --* reported different manifestations of the same problem of either adding *
479: TYPE l_total_alt_cost IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
480: total_alt_cost_tab l_total_alt_cost ;
481: org_coll_size PLS_INTEGER; /* Number of rows in org_collection */
482:
483: TYPE uncostable_batches_tab IS TABLE OF gme_batch_header.batch_id%TYPE INDEX BY PLS_INTEGER;
484: l_uncostable_batches_tab uncostable_batches_tab;
485:
486: TYPE org_coll_typ IS RECORD
487: (
496:
497: /* Bug 13386258-VC */
498: TYPE batch_details_typ IS RECORD
499: (
500: batch_id gme_batch_header.batch_id%TYPE
501: , step_tab SYSTEM.gmf_step_tab
502: );
503: TYPE batch_details_tbl IS TABLE OF batch_details_typ INDEX BY PLS_INTEGER;
504: c_batch_details batch_details_tbl;
562: l_lot_number mtl_lot_numbers.lot_number%type; /* INVCONV sschinch */
563: l_source_lot_number mtl_lot_numbers.lot_number%type; /* INVCONV sschinch */
564: l_orgn_id NUMBER;
565:
566: l_batch_no gme_batch_header.batch_no%TYPE; /* Bug 4297815 */
567: l_base_ccy_code VARCHAR2(4); /* Bug 4038722 Dinesh Vadivel */
568:
569:
570: l_tmp BOOLEAN; -- Bug 3476508
5137:
5138: -- Explode the batch
5139:
5140: /* SELECT nvl(routing_id,0) INTO l_routing
5141: FROM gme_batch_header
5142: WHERE batch_type = 0
5143: AND batch_id = transaction_row.doc_id; -- Bug 13038249 */
5144:
5145: l_routing := transaction_row.routing_id; -- Bug 13038249
7536: --program_id = l_program_id,
7537: last_update_date = sysdate
7538: WHERE transaction_id = transaction_row.transaction_id;*/
7539:
7540: UPDATE gme_batch_header
7541: SET actual_cost_ind = 1
7542: WHERE batch_id = transaction_row.doc_id;
7543:
7544: END IF;
10425: gme_material_details gme,
10426: mtl_transaction_lot_numbers mtln,
10427: (Select pair_type, transaction_id1, transaction_id2 From gme_transaction_pairs where pair_type = 1) gtp, -- PK Bug 9069363
10428: gmf_process_organizations_gt gpo,
10429: gme_batch_header gbh,
10430: gmf_lot_costed_items_gt lcig
10431: WHERE
10432: gpo.organization_id = mmt.organization_id
10433: -- AND gpo.legal_entity_id = l_le_id -- B 8687115
10800: gme_material_details gme,
10801: mtl_transaction_lot_numbers mtln,
10802: (Select pair_type, transaction_id1, transaction_id2 From gme_transaction_pairs where pair_type = 1) gtp, -- PK Bug 9069363
10803: gmf_process_organizations_gt gpo,
10804: gme_batch_header gbh,
10805: gmf_lot_costed_items_gt lcig
10806: WHERE
10807: gpo.organization_id = mmt.organization_id
10808: -- AND gpo.legal_entity_id = l_le_id -- B 8687115
11203: /* Bug 12704358 */
11204: CURSOR batch_status_cursor(p_batch_id NUMBER)
11205: IS
11206: SELECT batch_status
11207: FROM gme_batch_header
11208: WHERE batch_id = p_batch_id
11209: AND NVL(ACTUAL_CMPLT_DATE,l_final_run_date) <= l_final_run_date;
11210:
11211: BEGIN
11399: process_receipt;
11400: /*ELSIF transaction_row.doc_type = 'PROD' INVCONV sshchinch*/
11401: ELSIF (transaction_row.transaction_source_type_id = BATCH) THEN
11402:
11403: SELECT batch_no INTO l_batch_no FROM gme_batch_header
11404: WHERE batch_id = transaction_row.doc_id;
11405:
11406: OPEN batch_status_cursor(transaction_row.doc_id);
11407: FETCH batch_status_cursor INTO l_batch_status;