使用标准API Inv_Item_Grp 更新物料属性,可以修改大部分字段,包括物料编码、物料描述等属性。
10年积累的成都网站制作、成都网站设计、外贸营销网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计后付款的网站建设流程,更有澜沧免费网站建设让你可以放心的选择与我们合作。不可修改字段:PRIMARY_UNIT_OF_MEASURE, TRACKING_QUANTITY_IND, ONT_PRICING_QTY_SOURCE, SECONDARY_UOM_CODE, SECONDARY_DEFAULT_IND, DUAL_UOM_DEVIATION_HIGH, DUAL_UOM_DEVIATION_LOW 和 ENGINEERING_ITEM_FLAG.
脚本如下:
DECLARE l_Item_Rec Inv_Item_Grp.Item_Rec_Type; x_Item_Rec Inv_Item_Grp.Item_Rec_Type; x_Error_Tbl Inv_Item_Grp.Error_Tbl_Type; x_Return_Status VARCHAR2(1); BEGIN Fnd_Global.Apps_Initialize(User_Id => 0, Resp_Id => 20634, Resp_Appl_Id => 401); --Item l_Item_Rec.Inventory_Item_Id := 3374628; l_Item_Rec.Organization_Id := 176; --可修改: l_Item_Rec.Segment1 := 'CCITSpeed001-1'; --不可修改字段:PRIMARY_UNIT_OF_MEASURE, TRACKING_QUANTITY_IND, ONT_PRICING_QTY_SOURCE, SECONDARY_UOM_CODE, SECONDARY_DEFAULT_IND, DUAL_UOM_DEVIATION_HIGH, DUAL_UOM_DEVIATION_LOW 和 ENGINEERING_ITEM_FLAG --API Inv_Item_Grp.Update_Item(p_Commit => Fnd_Api.g_False, p_Item_Rec => l_Item_Rec, x_Item_Rec => x_Item_Rec, x_Return_Status => x_Return_Status, x_Error_Tbl => x_Error_Tbl); Dbms_Output.Put_Line('x_Return_Status:' || x_Return_Status); --Result IF x_Return_Status <> Fnd_Api.g_Ret_Sts_Success THEN -- ROLLBACK; FOR i IN 1 .. x_Error_Tbl.Count LOOP Dbms_Output.Put_Line('Transaction ID :' || x_Error_Tbl(i) .Transaction_Id); Dbms_Output.Put_Line('Unique ID :' || x_Error_Tbl(i) .Unique_Id); Dbms_Output.Put_Line('Message Name :' || x_Error_Tbl(i) .Message_Name); Dbms_Output.Put_Line('Message Text: :' || x_Error_Tbl(i) .Message_Text); Dbms_Output.Put_Line('Table Name :' || x_Error_Tbl(i) .Table_Name); Dbms_Output.Put_Line('Column Name :' || x_Error_Tbl(i) .Column_Name); Dbms_Output.Put_Line('Organization ID :' || x_Error_Tbl(i) .Organization_Id); END LOOP; IF (x_Return_Status = Fnd_Api.g_Ret_Sts_Unexp_Error) THEN RAISE Fnd_Api.g_Exc_Unexpected_Error; ELSIF (x_Return_Status = Fnd_Api.g_Ret_Sts_Error) THEN RAISE Fnd_Api.g_Exc_Error; END IF; ELSE -- COMMIT; Dbms_Output.Put_Line('ok:' || x_Item_Rec.Item_Number); END IF; END;已测试。
另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。