[Home] [Help]
283: x_msg_data OUT NOCOPY VARCHAR2) IS
284:
285: CURSOR c_null_vib_rows IS
286: SELECT v.rowid, v.*, mmt.organization_id, l.layer_date
287: FROM gmf_batch_vib_details v,
288: gmf_batch_requirements r,
289: gmf_incoming_material_layers l,
290: mtl_material_transactions mmt,
291: mtl_transaction_lot_numbers mtln
416: BEGIN
417: SELECT -sum(nvl(consume_ib_doc_qty,0)), l.ROWID
418: INTO l_rev_consume_ib_doc_qty, l_rowid
419: FROM gmf_outgoing_material_layers l,
420: gmf_batch_vib_details v
421: WHERE l.mmt_transaction_id = p_tran_rec.reverse_id and
422: l.lot_number = p_tran_rec.lot_number and
423: l.layer_id = v.consume_layer_id (+)
424: GROUP BY l.ROWID;
498: IF g_debug <= gme_debug.g_log_statement THEN
499: gme_debug.put_line ('If ingredient qty is more then what is needed.');
500: END IF;
501:
502: UPDATE gmf_batch_vib_details
503: SET consume_layer_id = l_layer_id,
504: consume_layer_date = p_tran_rec.transaction_date
505: WHERE ROWID = n.rowid;
506:
529: , FROM_NAME => NULL
530: , TO_NAME => NULL
531: );
532:
533: INSERT INTO gmf_batch_vib_details(
534: prod_layer_id,
535: prod_layer_pri_qty,
536: consume_layer_id,
537: consume_layer_date,
574: , FROM_NAME => NULL
575: , TO_NAME => NULL
576: );
577:
578: UPDATE gmf_batch_vib_details
579: SET consume_layer_id = l_layer_id,
580: consume_ib_doc_qty = l_remaining_ib_doc_qty,
581: consume_ib_pri_qty = l_consume_ib_pri_qty,
582: consume_layer_date = p_tran_rec.transaction_date
682: x_msg_data OUT NOCOPY VARCHAR2) IS
683:
684: CURSOR c_null_vib_rows IS
685: SELECT v.rowid, v.*, t.organization_id, l.layer_date
686: FROM gmf_batch_vib_details v,
687: gmf_batch_requirements r,
688: gmf_incoming_material_layers l,
689: mtl_material_transactions t
690: WHERE
754: BEGIN
755: SELECT -sum(consume_ib_doc_qty), l.ROWID
756: INTO l_rev_consume_ib_doc_qty, l_rowid
757: FROM gmf_resource_layers l,
758: gmf_batch_vib_details v
759: WHERE l.poc_trans_id = p_rsrc_rec.reverse_id and
760: l.layer_id = v.consume_layer_id
761: GROUP BY l.ROWID;
762:
811:
812: -- If resource usage is more then what is needed.
813: IF n.consume_ib_doc_qty <= l_remaining_ib_doc_qty THEN
814:
815: UPDATE gmf_batch_vib_details
816: SET consume_layer_id = l_layer_id
817: WHERE ROWID = n.rowid;
818:
819: l_remaining_ib_doc_qty := l_remaining_ib_doc_qty - n.consume_ib_doc_qty;
839: , TO_NAME => NULL
840: );
841:
842:
843: INSERT INTO gmf_batch_vib_details(
844: prod_layer_id,
845: prod_layer_pri_qty,
846: consume_layer_id,
847: consume_layer_date,
885: , TO_NAME => NULL
886: );
887:
888:
889: UPDATE gmf_batch_vib_details
890: SET consume_layer_id = l_layer_id,
891: consume_ib_pri_qty = l_consume_ib_pri_qty,
892: consume_ib_doc_qty = l_remaining_ib_doc_qty
893: WHERE ROWID = n.rowid;