Genero 的部落格

新舊二版 需存在。
1. 於 IE 管理附加元件中移除。
2. 重新 Web 登入 安裝。

1. 了解需求          (如: 需要有出貨單複製的功能)
2. 思考程式邏輯與執行畫面     (畫面可以輸入來源單號)
3. 測試主 SQL程式  (Insert into select )
4. Code 檢核條件   (來源單據需要符合的條件)
5. 找尋類似程式      (p_zz 程式編號  *p* + 原設計者)
6. 程式修改       
7. 測試

在 FUNCTION 中，如果執行到 RETURN 時，會傳回需要的值，
並立即停止此 FUNCTION 。所以要注意，所加的程式段 與
FUNCTION 中 RETURN 的相對位置。
FUNCTION t600_chk_oga03(p_cmd)
   .........................
   .........................
   # 120507-------------------- (s)
   IF NOT cl_null(g_oga.oga03) AND g_dbs = 'tuoc13' AND
        (   g_oga.oga01[1,4] = 'P122' OR g_oga.oga01[1,4] = 'P125'
         OR g_oga.oga01[1,4] = 'P721' OR g_oga.oga01[1,4] = 'P725')
   THEN
        LET g_oga.oga15='US2'
        SELECT gem02 INTO g_buf FROM gem_file WHERE gem01='US2'
         AND gemacti='Y'         
        LET g_oga.oga14=''
        DISPLAY BY NAME g_oga.oga15,g_oga.oga14
        DISPLAY g_buf TO gem02
   END IF
   # 120507-------------------- (e) 
  
   RETURN TRUE
  # 如果整段加在後面，程式是不會執行的。

起因 :  2012/05 發現 2012/03 傳票金額有小數點，因傳票與分錄底稿均有錯誤，故需要分二個部份來處理 :
1. 分錄底稿部份

   # 要找到HAC7單別最近一次入庫日期和數量 
     # SELECT MAX(tlf026) INTO l_1no FROM tlf_file 
     #     WHERE tlf01 = sr.imn03 AND tlf902= 'HS24' AND tlf904 = sr.imn17 
     #           AND tlf026 LIKE 'HAC7%'
     # 上面的寫法只會找到最大的號碼，並不是最近一次的入庫
     # 用 FETCH FIRST 來找，CURSOR 需要先 OPEN ，並且需要設為 SCROLL CURSOR
     # 先找出那張入庫單 
       DECLARE r512_x_cur SCROLL CURSOR FOR
       SELECT tlf026  FROM tlf_file
           WHERE tlf01 = sr.imn03 AND tlf902= 'HS24' AND tlf904 = sr.imn17
                 AND tlf026 LIKE 'HAC7%'  ORDER BY tlf06 DESC
      
       OPEN r512_x_cur
       FETCH FIRST r512_x_cur INTO l_1no             
      
       IF NOT cl_null(l_1no) THEN
          SELECT tlf06, tlf10  INTO l_1d, l_1q  FROM tlf_file WHERE tlf026 = l_1no
       END 
       # tlf026為單據編號 
       # tlf06  為入庫日期
       # tlf10  為入庫數量

INPUT g_file,g_disk,g_check,g_date,g_vender,g_meno,g_currency
          WITHOUT DEFAULTS FROM FORMONLY.n1,FORMONLY.b,FORMONLY.c,FORMONLY.d1,FORMONLY.v1,FORMONLY.m1,FORMONLY.c1
 AFTER FIELD v1       
             SELECT pmc22 INTO l_pmc22 FROM pmc_file WHERE pmcacti = 'Y' and pmc05 = '1' and pmc01 = g_vender
             IF SQLCA.sqlcode = 100 THEN
                CALL cl_err('','aap-000',1)
                NEXT FIELD v1
             ELSE
                LET g_currency = l_pmc22
             #  DISPLAY BY NAME g_currency
             #  使用 DISPLAY BY NAME 變數 g_currency 需與畫面檔欄位名稱 FORMONLY.c1 相同
                DISPLAY g_currency TO FORMONLY.c1          
             END IF
END INPUT 

IF STATUS THEN
     CALL cl_err("Show Errot Message",status,1)
     LET g_success = 'N'
     RETURN
END IF
IF SQLCA.sqlcode  != 0 THEN
     CALL cl_err("Show Errot Message",SQLCA.sqlcode,1)
     LET g_success = 'N'
     RETURN
END IF
-----------------------------------------------------------------------------------
STATUS 與 SQLCA.sqlcode 二者差別在於，

INSERT INTO pmi_file (pmi01,pmi02,pmi03,pmi04,pmi05,pmi06,pmi07,pmiconf,pmiacti,pmiuser,pmigrup,pmimodu,pmidate,pmi08,pmi081,pmi09)
 VALUES(g_pmi01,g_date,'U06','','N','1','N','Y','Y',g_user,'UAI','',g_date,'I043','0',g_user)
# INSERT 之後，放一個執行成功與否的檢核。
# 如果 STATUS = 0 表示執行成功 ，則不會進入下方 IF 錯誤程式
IF STATUS THEN
    CALL cl_err("insert_prep:",status,1)
     LET g_success = 'N'
     RETURN 
END IF