[Home] [Help]
86: x_prev_time := x_cur_time;
87:
88: /**********************************************************
89: Delete all rows from the
90: ic_perd_bal table for this warehouse.
91: **********************************************************/
92:
93: FND_MESSAGE.set_name('GMI', 'ICCAL_DELETE_PERD_MSG');
94: FND_MESSAGE.set_token('WHSE', x_whse_code);
96: x_cur_time := sysdate;
97: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
98: x_prev_time := x_cur_time;
99:
100: l_iret := GMICCAL.delete_ic_perd_bal(P_fiscal_year, P_period, x_whse_code);
101: IF (l_iret < 0) THEN
102: FND_MESSAGE.SET_NAME('GMI','IC_PERD_BAL_DELETE_ERR');
103: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
104: X_msg := FND_MESSAGE.GET;
98: x_prev_time := x_cur_time;
99:
100: l_iret := GMICCAL.delete_ic_perd_bal(P_fiscal_year, P_period, x_whse_code);
101: IF (l_iret < 0) THEN
102: FND_MESSAGE.SET_NAME('GMI','IC_PERD_BAL_DELETE_ERR');
103: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
104: X_msg := FND_MESSAGE.GET;
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
106: /*BEGIN BUG#2589255 James Bernard */
115: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
116: to_char(x_cur_time, 'hh24:mi:ss') );
117: x_prev_time := x_cur_time;
118: /***********************************************************
119: Insert into ic_perd_bal for this warehouse.
120: *********************************************************/
121:
122: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
123: FND_MESSAGE.set_token('WHSE', x_whse_code);
327: inventory_close
328:
329: DESCRIPTION:
330: This PL/SQL procedure is responsible for
331: inserting rows from the ic_perd_bal in conjuction
332: with the running of a preliminary or Final close.
333: This is the initial seeding of this table.
334: Then it calculates the usage and yield
335:
411: AND delete_mark = 0
412: AND reason_code = v_reason_code;
413:
414: /* Bug 3684980 - changed to ic_item_mst_b for perf. */
415: /* Also only populated ic_perd_bal with non-zero rows */
416: Cursor get_loct_onhand is
417: SELECT v.item_id ,v.lot_id ,
418: whse_code ,location ,ROUND(loct_onhand,9) onhand,
419: ROUND(loct_onhand2,9) onhand2,
519: COMMIT;
520:
521: /* Debugging statements - Bug 3684980 */
522: x_cur_time := sysdate;
523: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Before insert into ic_perd_bal - '||
524: to_char(x_cur_time, 'hh24:mi:ss') );
525: x_prev_time := x_cur_time;
526:
527: LOOP
536: FETCH lot_status_cur into x_lot_status;
537: CLOSE lot_status_cur;
538:
539:
540: INSERT INTO ic_perd_bal
541: (perd_bal_id, gl_posted_ind, period_id, fiscal_year, --bug#2230683
542: period, item_id, lot_id,
543: whse_code, location, loct_onhand, loct_onhand2,
544: loct_usage, loct_usage2, loct_yield, loct_yield2,
558: END LOOP;
559: CLOSE get_loct_onhand;
560: /* Debugging statements - Bug 3684980 */
561: x_cur_time := sysdate;
562: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' After insert into ic_perd_bal - '||
563: to_char(x_cur_time, 'hh24:mi:ss') );
564: x_prev_time := x_cur_time;
565:
566: /***********************************************
594: l_prev_location := l_location;
595:
596: /* Debugging statements - Bug 3684980 */
597: x_cur_time := sysdate;
598: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Before Updating ic_perd_bal with transaction quantities - '||
599: to_char(x_cur_time, 'hh24:mi:ss') );
600: x_prev_time := x_cur_time;
601:
602: LOOP
603: /*==========================================
604: This first condition checks to see if something
605: has changed or we do not have anymore rows. If
606: this condition is true, it is time to write our
607: results to the ic_perd_bal table.
608: ==========================================*/
609: IF (l_prev_item_id <> l_item_id OR
610: l_prev_lot_id <> l_lot_id OR
611: l_prev_location <> l_location OR
615: let's grab what we accumulated and update
616: the perpetual balances for this item, lot,
617: and location.
618: ==========================================*/
619: UPDATE ic_perd_bal
620: SET loct_onhand = loct_onhand - ROUND(l_delta_qty, 9),
621: loct_onhand2 = loct_onhand2 - ROUND(l_delta_qty2, 9),
622: loct_usage = ROUND(l_usage_qty, 9),
623: loct_usage2 = ROUND(l_usage_qty2, 9),
637: This could be because of a 'PURGE EMPTY BALANCES'
638: was run on this particular item. Therefore, the
639: row does not exist so we have to insert it!
640: ============================================*/
641: INSERT INTO ic_perd_bal
642: (perd_bal_id, gl_posted_ind, period_id, lot_id, --bug#2230683
643: whse_code, location, item_id,
644: fiscal_year, period, loct_onhand, loct_onhand2,
645: loct_usage, loct_usage2, loct_yield, loct_yield2,
733:
734: CLOSE get_trans;
735: /* Debugging statements - Bug 3684980 */
736: x_cur_time := sysdate;
737: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' After Updating ic_perd_bal with transaction quantities - '||
738: to_char(x_cur_time, 'hh24:mi:ss') );
739: x_prev_time := x_cur_time;
740:
741: END IF;