Oracle EBS Interface/API(13)-MRP Forcast 创建预测名称和预测物料导入

Forcast预测名称创建和预测物料导入API名：MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE
其参数说明:

如下同时导入多组Forecast预测数据

DECLARE
  --预测明细
  Lt_Fcs_Interface_Tab Mrp_Forecast_Interface_Pk.t_Forecast_Interface;
  --预测名称
  Lt_Fcs_Designator_Tab Mrp_Forecast_Interface_Pk.t_Forecast_Designator;
  Var_Bool              BOOLEAN;
BEGIN
  Lt_Fcs_Interface_Tab(1).Inventory_Item_Id := 2135323;
  Lt_Fcs_Interface_Tab(1).Forecast_Designator := 'T1909201';
  Lt_Fcs_Interface_Tab(1).Organization_Id := 129;
  Lt_Fcs_Interface_Tab(1).Forecast_Date := Trunc(SYSDATE) + 10;
  Lt_Fcs_Interface_Tab(1).Bucket_Type := 1;
  Lt_Fcs_Interface_Tab(1).Quantity := 100;
  Lt_Fcs_Interface_Tab(1).Process_Status := 2;
  Lt_Fcs_Interface_Tab(1).Confidence_Percentage := 100;
  Lt_Fcs_Interface_Tab(1).Source_Code := 'TEST_01';
  Lt_Fcs_Interface_Tab(1).Source_Line_Id := 12;
  --预测T1909201
  Lt_Fcs_Designator_Tab(1).Organization_Id := 129;
  Lt_Fcs_Designator_Tab(1).Forecast_Designator := 'T1909201';
  --========================================================================
  Lt_Fcs_Interface_Tab(2).Inventory_Item_Id := 2135323;
  Lt_Fcs_Interface_Tab(2).Forecast_Designator := 'T1909201';
  Lt_Fcs_Interface_Tab(2).Organization_Id := 129;
  Lt_Fcs_Interface_Tab(2).Forecast_Date := Trunc(SYSDATE) + 10;
  Lt_Fcs_Interface_Tab(2).Bucket_Type := 1;
  Lt_Fcs_Interface_Tab(2).Quantity := 100;
  Lt_Fcs_Interface_Tab(2).Process_Status := 2;
  Lt_Fcs_Interface_Tab(2).Confidence_Percentage := 100;
  Lt_Fcs_Interface_Tab(2).Source_Code := 'TEST_02';
  Lt_Fcs_Interface_Tab(2).Source_Line_Id := 1;
  --预测T1909201
  Lt_Fcs_Designator_Tab(2).Organization_Id := 129;
  Lt_Fcs_Designator_Tab(2).Forecast_Designator := 'T1909201';
  --Call Api
  Var_Bool := Mrp_Forecast_Interface_Pk.Mrp_Forecast_Interface(Lt_Fcs_Interface_Tab
                                                              ,Lt_Fcs_Designator_Tab);
  IF (Var_Bool = TRUE) THEN
    Dbms_Output.Put_Line('预测导入成功!');
  ELSE
    Dbms_Output.Put_Line('预测导入失败');
  END IF;
  --预测物料导入状态和错误信息
  FOR i IN 1 .. Lt_Fcs_Interface_Tab.Count LOOP
    Dbms_Output.Put_Line('Return Status = ' || Lt_Fcs_Interface_Tab(i).Process_Status);
    Dbms_Output.Put_Line('Error Message = ' || Lt_Fcs_Interface_Tab(i).Error_Message);
  END LOOP;
  COMMIT;
END;