求forecast的接口程序,急用,谢谢

hphubei

API是直接写入真实表的吧

huak

最初由 hphubei 发布
[B]API是直接写入真实表的吧 [/B]

最后都是写入真实表

yefq2008

最初由 hphubei 发布
[B]API是直接写入真实表的吧 [/B]

你讲到了接口表。写个PACKAGE将数据导到接口表，而这个PACKAGE也可以称之为API。当然，接口模式包括open interface 和open api两种模式。你说的API是不是指得是OPEN API模式。从功能角度看，Open Api和Open Interface一样,差异体现在程序开发上。通过PL/SQL直接调用开放的API Procedure，把数据导入目标Product表。

lanzhuo

最初由 yefq2008 发布
[B]用API好了...先把excel里的数据导到一张新建的临时表里,然后写个procedure把临时表的一些字段导到接口表中就OK了.然后上EBS提交个并发请求 [/B]

谢谢楼上。

但这样用户提交后，因为是提交个并发请求，程序可能只需运行很短时间，但系统调度可能安排比较长。所以好象会造成等待，用户看到是‘假死机’现象，而且导入结果只能放在LOG文件，不能实时返回结果。

有其他办法吗？

所谓API，是否一个package调用oracle一些标准package,API的过程？

现在我们是两个数据库之间做接口，可以直接表交换数据，不需用excel里的数据导到一张新建的临时表里。

huak

最初由 lanzhuo 发布
[B]

谢谢楼上。

但这样用户提交后，因为是提交个并发请求，程序可能只需运行很短时间，但系统调度可能安排比较长。所以好象会造成等待，用户看到是‘假死机’现象，而且导入结果只能放在LOG文件，不能实时返回结果。

有其他办法吗？

所谓API，是否一个package调用oracle一些标准package,API的过程？

现在我们是两个数据库之间做接口，可以直接表交换数据，不需用excel里的数据导到一张新建的临时表里。 [/B]

说白了，就是你自己写个PACKAGE 调用ORACLE 提供的API 来导入数据。

qunlbao

最初由 smail6102 发布
[B]哪位大虾有写forecast的接口程序,现在急用,不胜感激. [/B]

TEM_FORECAST_HISTORY is a temporary table for storing source data,
please refer to script as below :

DECLARE
   L_INV_ORG            TEM_FORECAST_HISTORY.INV_ORG%TYPE;
   L_FORECAST_SET       TEM_FORECAST_HISTORY.FORECAST_SET%TYPE;
   L_FORECAST           TEM_FORECAST_HISTORY.FORECAST%TYPE;
   L_ITEM                                        TEM_FORECAST_HISTORY.ITEM%TYPE;
   L_PERIOD_BUCKET      TEM_FORECAST_HISTORY.PERIOD_BUCKET%TYPE;
         L_PERIOD_START_DATE  TEM_FORECAST_HISTORY.PERIOD_START_DATE%TYPE;
   L_NO_OF_BUCKETS      TEM_FORECAST_HISTORY.NO_OF_BUCKETS%TYPE;
   L_QUANTITY           TEM_FORECAST_HISTORY.QUANTITY%TYPE;
   L_COUNT_ITEM         NUMBER;
   L_ITEM_ID            NUMBER;
   L_ORGANIZATION_ID    NUMBER;
   L_rec_count          NUMBER := 0;
   CURSOR c_fh_line is
     select INV_ORG,FORECAST_SET,FORECAST,ITEM,PERIOD_BUCKET,
            to_date(PERIOD_START_DATE,'dd/mm/yy') PERIOD_START_DATE,
            NO_OF_BUCKETS,QUANTITY
     from TEM_FORECAST_HISTORY
     where process_flag is null ;
     --where item = 'NTM510RSS' ;
   
   CURSOR c_item_count is
     select count(*)  
     from mtl_system_items
     where segment1 = L_item
     and ORGANIZATION_ID = 103;
      
   CURSOR c_item is   
     select INVENTORY_ITEM_ID
     from mtl_system_items
     where segment1 = L_item
     and ORGANIZATION_ID = 103;
   
   CURSOR c_org_id is
     select ORGANIZATION_ID
     from MRP_FORECAST_DSGN_SN
     where FORECAST_SET = L_FORECAST_SET
     and   FORECAST_DESIGNATOR = L_FORECAST;
     
   t_forecast_interface_tab    MRP_FORECAST_INTERFACE_PK.t_forecast_interface;
   t_forecast_designator_tab   MRP_FORECAST_INTERFACE_PK.t_forecast_designator;
   var_bool                    BOOLEAN;
BEGIN
   FOR fhrec IN c_fh_line LOOP
       L_rec_count          := L_rec_count + 1;   
      L_INV_ORG             := fhrec.INV_ORG;
      L_FORECAST_SET        := fhrec.FORECAST_SET;
      L_FORECAST            := fhrec.FORECAST;
      L_ITEM                                        := fhrec.ITEM;
      L_PERIOD_BUCKET       := fhrec.PERIOD_BUCKET;
            L_PERIOD_START_DATE   := fhrec.PERIOD_START_DATE;
      L_NO_OF_BUCKETS       := fhrec.NO_OF_BUCKETS;
      L_QUANTITY            := fhrec.QUANTITY;
      
      open c_org_id;
                        fetch c_org_id into L_ORGANIZATION_ID;
                        close c_org_id;
                          
      open c_item_count;
                        fetch c_item_count into L_COUNT_ITEM;
                        close c_item_count;
                       
                        if L_COUNT_ITEM > 0 then
                           open c_item;
                           fetch c_item into L_ITEM_ID;
                           close c_item;
                        else
                           L_ITEM_ID := NULL;   
                        end if;
                        /*dbms_output.put_line('inventory_item_id = '||L_ITEM_ID);
                        dbms_output.put_line('forecast_designator = '||L_FORECAST);
                        dbms_output.put_line('organization_id = '||L_ORGANIZATION_ID);
                        dbms_output.put_line('forecast_date = '||L_PERIOD_START_DATE);
                        dbms_output.put_line('bucket_type = '||L_NO_OF_BUCKETS);
                        dbms_output.put_line('quantity = '||L_QUANTITY); */
                       
                        if L_ITEM_ID is not null then
         t_forecast_interface_tab(L_rec_count).inventory_item_id := L_ITEM_ID;
         t_forecast_interface_tab(L_rec_count).forecast_designator := L_FORECAST;
         t_forecast_interface_tab(L_rec_count).organization_id := L_ORGANIZATION_ID;
         t_forecast_interface_tab(L_rec_count).forecast_date :=  L_PERIOD_START_DATE;
         t_forecast_interface_tab(L_rec_count).bucket_type := 3;   --L_NO_OF_BUCKETS
         t_forecast_interface_tab(L_rec_count).quantity := L_QUANTITY;
         t_forecast_interface_tab(L_rec_count).process_status := 2;
         t_forecast_interface_tab(L_rec_count).confidence_percentage := 100;
         t_forecast_designator_tab(L_rec_count).organization_id := L_ORGANIZATION_ID;
         t_forecast_designator_tab(L_rec_count).forecast_designator := L_FORECAST;
         
         
                  
         --dbms_output.put_line('Return Status = '||t_forecast_interface_tab(1).process_status);
         --dbms_output.put_line('Error Message = '||t_forecast_interface_tab(1).error_message);
         update TEM_FORECAST_HISTORY
                   set process_flag = 'Y'
                   where ITEM = L_ITEM and FORECAST = L_FORECAST
                   and to_date(PERIOD_START_DATE,'dd/mm/yy') = L_PERIOD_START_DATE ;
                   
               
           else
              update TEM_FORECAST_HISTORY
                set process_flag = 'N'
                where ITEM = L_ITEM and FORECAST = L_FORECAST
                and to_date(PERIOD_START_DATE,'dd/mm/yy') = L_PERIOD_START_DATE ;
           end if;  
   END LOOP;
   var_bool := MRP_FORECAST_INTERFACE_PK.MRP_FORECAST_INTERFACE (t_forecast_interface_tab,
          t_forecast_designator_tab);
           
   commit;
EXCEPTION  
   WHEN OTHERS THEN
      dbms_output.put_line(SQLERRM || L_ITEM);
      rollback;   
   
END;

/