Form 小問題

polaris

Form 小問題

我修改的 Receipt Form 出現了如下的問題

當我完成收貨并保存後， Receipt 會顯示函數的返回值（序列號）。 （該程序正常，得到的 Receipt 也能在數據庫中查到。）
然后關閉Receipt Header (001) 窗口再打開（并沒有完全退出該 Form），Receipt就再也看不到了。

請高人指點一下
  我要怎么樣才能把Receipt 顯示出來？

polaris

在線等， 還請各路高手施救！！

gaoyiming

把你的内容贴出来, 最好图片
不要搞成 让别人下载的, 下载还需要积分的

polaris

Doc1.doc (69.5 KB, 下载次数: 0)

2008/1/30 08:48 上传

点击文件名下载附件

不好意思， 我沒有貼過圖上來， 也不知道是不是這樣做的。

polaris

skyczn

谁知道你修改了什么地方？你不说清楚，神仙也不知道原因哪。

skyczn

系统标准的Form不建议直接修改，先考虑是否能使用Form个性化或者custom.pll文件实现你的功能

polaris

在這個 form 里我修改了以下幾個地方：
1. key-exit  (form level)
      --rcv_form_control.form_exit('KEY-EXIT');
  bg_rcv_form_control.form_exit('KEY-EXIT');
---package "bg_rcv_form_control" 改自 "rcv_form_control"， 把原來的 form 的名字改為我現在的
2. when-new-record-instance (data block level, under "HEADER" block)
    bg_init_receipt_num('NEW');  --- add
3. pre-insert (data block level, under "HEADER" block)
    bg_init_receipt_num('POST'); ---add
4. add procedure (program unit)
PROCEDURE BG_INIT_RECEIPT_NUM (p_event in varchar2) IS
v_sob_id  number := null;
v_org_id  number := null;
v_mtl    varchar2(50);
v_exp    varchar2(50);
v_mtl_name varchar2(50);
v_exp_name varchar2(50);
v_rec_num   varchar2(30);
BEGIN
fnd_profile.get('GL_SET_OF_BKS_ID',v_sob_id);
begin
     SELECT
          v.pre_mtl_rcv, v.mtl_rcv_seq_name,
          v.pre_exp_rcv, v.exp_rcv_seq_name
     INTO v_mtl, v_mtl_name,
          v_exp, v_exp_name
     FROM gl_sets_of_books_dfv v,
          gl_sets_of_books sob
    WHERE v.row_id = sob.ROWID
      AND v_sob_id = sob.set_of_books_id;
exception when others then
  message('bg_init_receipt_num has exception', acknowledge);
   null;
end;

  if (v_mtl is not null and v_exp is not null) then
   -- the customization setup is done, starts the initilization
   
    if p_event = 'NEW' then
   
     default_value('.','HEADER.RECEIPT_NUM');
     set_item_property('HEADER.BG_RECEIPT_NUM',visible, property_true);
     set_item_property('HEADER.RECEIPT_NUM',visible, property_false);
   
    elsif p_event = 'POST' then
     set_item_property('HEADER.BG_RECEIPT_NUM',visible, property_false);
     set_item_property('HEADER.RECEIPT_NUM',visible, property_true);
     FND_PROFILE.GET('MFG_ORGANIZATION_ID', v_org_id );
      v_rec_num := bg_get_rcv_num (v_org_id, NAME_IN ('HEADER.ATTRIBUTE1'));
/*function bg_get_rcv_num is create in DB. it will return "column1||sequence"*/
        COPY (v_rec_num, 'HEADER.RECEIPT_NUM');
    end if;
   
  end if;
   
END;

這里所提到的 RECEIPT_NUM 就是上圖的 “Receipt”

polaris

問題還是沒有解決哪， 沒有哪位可以幫忙嗎？

polaris

在 Receipt Header (001) 窗口上的 Receipt 是由兩個 Item BG_RECEIPT_NUM 和 RECEIPT_NUM 重叠在一起顯示的。可能這個是造成不能顯示的最大原因吧。 有沒有人可以指點一下要怎么做嗎？

skyczn

你用examine检查下，当前字段是否是你想要得字段，可以用代码或者个性化功能设置Item的显示隐藏属性。

polaris

謝謝！
終於解決問題了。

polaris

現在我修改了幾個地方後再咝