產生出貨單編號 (很棘手問題)

moonsoft

最初由 frogprince-erp 发布
[B]哦？先去看看 [/B]

献丑了

hbwp2008

[QUOTE]最初由 moonsoft 发布
[B]





謝謝!!!!!!我去看看。

hbwp2008

想來想去，還是開一個彈性欄位，只要user 一檢料，它會對wsh_new_deliveries這個表插入數據，利用這一特性，開立一個彈性欄位，只要user 一檢料，它會對wsh_new_deliveries這個表中attribute11插入按照我們規定編號原則(年(4碼)+月(2碼)+流水碼(6碼)，流水號一定要是連續)，不知這種方法可行不？？？請大家幫幫忙，出出注意。  先謝謝

黑枪

顶.

chirsdong

可以试试在表上加trigger

黑枪

最初由 chirsdong 发布
[B]可以试试在表上加trigger [/B]

基表上直接加TRIGGER实现插入或者删除应该是不可以的...

那样的话不能保证数据的完成性..

如果自己客制一个TABLE 专门用来储存这些编号..
不知道可以不...

rock1124

可以的...我有写过..

黑枪

最初由 rock1124 发布
[B]可以的...我有写过.. [/B]

能不能共享一下?

rock1124

BEGIN
        IF :EQPMOVEM.INEMPNO IS NULL THEN
                        MSG.ERROR('Äæ¦ì¡G "'||GET_ITEM_PROPERTY('EQPMOVEM.INEMPNO', PROMPT_TEXT)||'"'||'    ¤§Äæ¦ì­È¥²¶·¿é¤J !');
        END IF;
        IF :EQPMOVEM.MOVEDATE IS NULL THEN
                         MSG.ERROR('½Ð¿é¤J²¾¦s¤é´Á !');
        END IF;

  --²¾¦s³æ¸¹¡G¦Û°Ê½s¸¹¨ú¸¹
  BEGIN
    SELECT 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||
            LPAD(NVL(SUBSTR(MAX(MOVENO),-4),0)+1, 4, '0')
      INTO :EQPMOVEM.MOVENO
      FROM EQPMOVEM
     WHERE MOVENO LIKE 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||'%';
  EXCEPTION WHEN OTHERS THEN
                  :EQPMOVEM.MOVENO := 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||'0001';
  END;

你参照一下这段程式

黑枪

最初由 rock1124 发布
[B]BEGIN
        IF :EQPMOVEM.INEMPNO IS NULL THEN
                        MSG.ERROR('Äæ¦ì¡G "'||GET_ITEM_PROPERTY('EQPMOVEM.INEMPNO', PROMPT_TEXT)||'"'||'    ¤§Äæ¦ì­È¥²¶·¿é¤J !');
        END IF;
        IF :EQPMOVEM.MOVEDATE IS NULL THEN
                         MSG.ERROR('½Ð¿é¤J²¾¦s¤é´Á !');
        END IF;

  --²¾¦s³æ¸¹¡G¦Û°Ê½s¸¹¨ú¸¹
  BEGIN
    SELECT 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||
            LPAD(NVL(SUBSTR(MAX(MOVENO),-4),0)+1, 4, '0')
      INTO :EQPMOVEM.MOVENO
      FROM EQPMOVEM
     WHERE MOVENO LIKE 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||'%';
  EXCEPTION WHEN OTHERS THEN
                  :EQPMOVEM.MOVENO := 'M'||TO_CHAR(:EQPMOVEM.MOVEDATE,'YYMM')||'0001';
  END;

你参照一下这段程式 [/B]

谢谢...
研究哈先..