[Home] [Help]
55: --| for the component. |
56: --| 04/12/2006 vchu Fixed bug 5154755: Added logic to rollback |
57: --| the newly created Sales Order, if its |
58: --| unit_selling_price is NULL. Also added the |
59: --| logic to update the JMF_SHIKYU_COMPONENTS |
60: --| record to update the price list id and |
61: --| currency even if there are too many |
62: --| effective price list lines. |
63: --| 04/13/2006 vchu Polished up the FND Log Messages. |
83: --| the line level table parameter of the |
84: --| Process Order API. |
85: --| Also fixed a stamping issue of the |
86: --| primary_uom_price column of the |
87: --| JMF_SHIKYU_COMPONENTS table in cases where |
88: --| the value of the uom and primary uom |
89: --| columns are the same primary UOM is active |
90: --| in the price list. This caused an |
91: --| allocation issue for the sync-ship |
1091:
1092: -- Update the shikyu component with the price list id and
1093: -- the currency although the pricing UOM and shikyu component
1094: -- price could not be obtained
1095: UPDATE jmf_shikyu_components
1096: SET currency = l_currency_code
1097: , price_list_id = l_price_list_id
1098: , last_update_date = sysdate
1099: , last_updated_by = FND_GLOBAL.user_id
1108: THEN
1109: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1110: , G_PKG_NAME
1111: , '>> ' || l_program
1112: || ': New Msg: After updating jmf_shikyu_components for shipment:' || p_subcontract_po_shipment_id
1113: || 'p_item_id:' || p_item_id
1114: );
1115: END IF;
1116:
1223: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1224: THEN
1225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1226: , G_PKG_NAME
1227: , '>> ' || l_program || ': Updating JMF_SHIKYU_COMPONENTS table'
1228: );
1229: END IF;
1230:
1231: lStmtNo := 200;
1229: END IF;
1230:
1231: lStmtNo := 200;
1232:
1233: UPDATE jmf_shikyu_components
1234: SET primary_uom_price = l_unit_price
1235: , primary_uom = l_primary_uom_code
1236: , uom = l_price_list_uom
1237: , currency = l_currency_code
1248: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1249: THEN
1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1251: , G_PKG_NAME
1252: , '>> ' || l_program || ': Updated JMF_SHIKYU_COMPONENTS table'
1253: );
1254: END IF;
1255:
1256: END IF; /* IF p_subcontract_po_shipment_id IS NOT NULL */