form开发的一个小问题

erpgame

CUXABLEPLWG.doc (420 KB, 下载次数: 7)

2011/8/24 14:10 上传

点击文件名下载附件
doc改成fmb 我按照temolate.fmb 做了个form  只有一个数据块 ,form 的第一个导航块设置为该块 form级的触发器 pre_form 里面改了 程序单元 app_custom 包体 close_window 里面也改了 ;为什么挂到 EBS 运行后 点 右上角的叉叉 关闭窗口 无法关闭 ,提示为:
frm-40110 : 在第一个块

犯了个如此低级的错误:
app_custom 包体里面 close_window 代码 是这样写的

  if (wnd = '<wipmmc>') then
    app_window.close_first_window;
  elsif (wnd = '<another window>') then
    --defer relations
    --close related windows   
    null;  
  elsif (wnd = '<yet another window>') then
    --defer relations
    --close related windows   
    null;
  end if;

实际应该为 (没有这对 <> ):

  if (wnd = 'wipmmc') then
    app_window.close_first_window;
  elsif (wnd = '<another window>') then
    --defer relations
    --close related windows   
    null;  
  elsif (wnd = '<yet another window>') then
    --defer relations
    --close related windows   
    null;
  end if;

苍天啊 !

还是感谢   
o5591673
的帮助

视图语句:
CREATE OR REPLACE VIEW CUX_WIP_BATCHECOM_V AS
SELECT WE.WIP_ENTITY_NAME,
       WDJ.WIP_ENTITY_ID,
       WDJ.Description WIP_Description,
       WDJ.Organization_Id,
       WDJ.PRIMARY_ITEM_ID,
       MSI.Segment1 ITEM_CODE,
       MSIT.DESCRIPTION/*MSI.Description*/ ITEM_Description,
       DECODE((SELECT COUNT('Y')
                FROM WIP_OPERATIONS
               WHERE WIP_ENTITY_ID = WDJ.WIP_ENTITY_ID),
              0,
              'N',
              'Y') ROUTING,
       WDJ.Start_Quantity,
       NVL(WDJ.QUANTITY_COMPLETED, 0) QUANTITY_COMPLETED,
       NVL(WDJ.START_QUANTITY - WDJ.QUANTITY_COMPLETED -
           WDJ.QUANTITY_SCRAPPED,
           0) QUANTITY_REMAINING,
       WDJ.Completion_Subinventory,
       WDJ.Attribute6 WIP_ENTITY_LINE,
       WDJ.Scheduled_Start_Date,
       WDJ.SCHEDULED_COMPLETION_DATE,
       WDJ.SCHEDULE_GROUP_ID,
       WDJ.STATUS_TYPE,
       WDJ.JOB_TYPE,
       WDJ.Class_Code,
       WDJ.ATTRIBUTE_CATEGORY,
       WDJ.ATTRIBUTE1,
       WDJ.ATTRIBUTE2,
       WDJ.ATTRIBUTE3,
       WDJ.ATTRIBUTE4,
       WDJ.ATTRIBUTE5,
       WDJ.ATTRIBUTE6,
       WDJ.ATTRIBUTE7,
       WDJ.ATTRIBUTE8,
       WDJ.ATTRIBUTE9,
       WDJ.ATTRIBUTE10,
       WDJ.ATTRIBUTE11,
       WDJ.ATTRIBUTE12,
       WDJ.ATTRIBUTE13,
       WDJ.ATTRIBUTE14,
       WDJ.ATTRIBUTE15,
       WDJ.CREATED_BY,
       WDJ.CREATION_DATE,
       WDJ.LAST_UPDATED_BY,
       WDJ.LAST_UPDATE_DATE,
       WDJ.LAST_UPDATE_LOGIN
  FROM WIP_ENTITIES       WE,
       WIP_DISCRETE_JOBS  WDJ,
       MTL_SYSTEM_ITEMS_B MSI,
       MTL_SYSTEM_ITEMS_TL    MSIT   
WHERE WE.WIP_ENTITY_ID = WDJ.WIP_ENTITY_ID
   AND WE.ORGANIZATION_ID = WDJ.ORGANIZATION_ID
   AND MSI.Inventory_Item_Id = WDJ.Primary_Item_Id
   AND msi.organization_id = wdj.organization_id
   AND MSI.MTL_TRANSACTIONS_ENABLED_FLAG = 'Y'
   AND MSI.INVENTORY_ITEM_ID = MSIT.INVENTORY_ITEM_ID
   AND MSI.ORGANIZATION_ID = MSIT.ORGANIZATION_ID      
   AND MSIT.LANGUAGE = USERENV('LANG')

erpgame

只能按 F4 来关闭窗口 why?

o5591673

你的窗口有个属性close allowed 你有没有改为yes?

erpgame

o5591673 发表于 2011/8/24 13:12
你的窗口有个属性close allowed 你有没有改为yes?

是为YES 的

o5591673

能传上来看看吗，要看了才知道

erpgame

o5591673 发表于 2011/8/24 13:59
能传上来看看吗，要看了才知道

一楼已经更新了

o5591673

我说的FMB，大哥

erpgame

o5591673 发表于 2011/8/24 14:27
我说的FMB，大哥

把后缀改成 fmb 就可以了

o5591673

你的FORM属性Console Window 不是你的块，要改成你的块

erpgame

o5591673 发表于 2011/8/24 15:17
你的FORM属性Console Window 不是你的块，要改成你的块

我是这样解决的   WIPMMC 块的 前一 和后一导航块去掉后  可以关了 但是 弹出个 进度指示的窗口  无语 啊

erpgame

这个 控制台窗口 是做什么用的 和 关闭窗口似乎没什么关系一样....

jery.zhang

将你加入的block 作为block块里的第一个block试试看

blueworm

1.  把 Form Property 的 First Navigation Data Block 由 WIPMMC 改為 <Null>
2.  把 Block ：WIPMMC 由第三個移到第一個
3.  Program Units : app_custom.close_window 修改下列 Scripts
  -- if (wnd = '<WIPMMC>') then
  if (wnd = 'WIPMMC') then
    app_window.close_first_window;
  elsif (wnd = '<another window>') then
    --defer relations
    --close related windows   
    null;  
  elsif (wnd = '<yet another window>') then
    --defer relations
    --close related windows   
    null;
  end if;

erpgame

jery.zhang 发表于 2011/8/24 16:29
将你加入的block 作为block块里的第一个block试试看

已经找到错误在哪儿了  不过还是谢谢你  一楼已经更新了 解决办法

erpgame

blueworm 发表于 2011/8/24 16:40
1.  把 Form Property 的 First Navigation Data Block 由 WIPMMC 改為
2.  把 Block ：WIPMMC 由第三個移 ...

非常的谢谢你

其实就是第三点的错误导致的

Iforit

解決了就好 這種屬於低級出錯  下次不會了 呵呵

Iforit

解決了就好 這種屬於低級出錯  下次不會了 呵呵

Iforit

解決了就好 這種屬於低級出錯  下次不會了 呵呵

dr_ego

{:soso_e153:}

雷击车

已经找到错误在哪儿了