easyflow新增ERP單據 – 大尊的數位筆記本

由TIPTOP畫面生成easyflow畫面
取得XML後，再使用TIPTOP表單設計精靈(SYSI020)來生成

DEFINE n om.DomNode
LET n = ui.Interface.getRootNode()
CALL n.writeXml("/u1/topprod/tiptop/aimt324.xml")

TT端所需的基本CODE
1.新增送簽按鍵

FUNCTION t324_ef()

     CALL aws_condition()#判斷送簽資料
     IF g_success = 'N' THEN
         RETURN
     END IF
##########
# CALL aws_efcli2()
# 傳入參數: (1)單頭資料, (2-6)單身資料
# 回傳值  : 0 開單失敗; 1 開單成功
##########

   IF aws_efcli2(base.TypeInfo.create(g_imm),base.TypeInfo.create(g_imn),'','','','')
   THEN
       LET g_success='Y'
       LET g_imm.imm99='S'
       DISPLAY BY NAME g_imm.imm99
   ELSE
       LET g_success='N'
   END IF
END FUNCTION

FUNCTION t324_menu()
    ................
          WHEN "approval_status"
            IF cl_chk_act_auth() THEN  #DISPLAY ONLY
               IF aws_condition2() THEN
                    CALL aws_efstat2()
               END IF
            END IF

         WHEN "easyflow_approval"
            IF cl_chk_act_auth() THEN
                 CALL t324_ef()
            END IF
    ................
END FUNCTION

FUNCTION t324_bp(p_ud)
    ................
    #@ON ACTION 簽核狀況
      ON ACTION approval_status
         LET g_action_choice="approval_status"
         EXIT DISPLAY

    #@ON ACTION easyflow送簽
      ON ACTION easyflow_approval
         LET g_action_choice = "easyflow_approval"
         EXIT DISPLAY
    ................
END FUNCTION

1.在新增單據時，就要即時顯示是否簽核
詢找AFTER FIELD imm01，再找到CALL s_check_no(
下方加入

                IF g_pmk_t.pmk01 IS NULL OR
                   (g_pmk.pmk01 != g_pmk_t.pmk01 ) THEN
                   LET  g_pmk.pmkmksg = g_smy.smyapr
                   DISPLAY BY NAME g_pmk.pmkmksg   #簽核否
                END IF

2.送簽中不可修改資料，找到CALL t***_bp(“G”)，新增如下

    IF g_imm.imm99 matches '[Ss]' THEN
        IF g_action_choice="detail" OR g_action_choice="delete" OR g_action_choice="modify" OR g_action_choice="related_document" OR g_action_choice="void" THEN
            CALL cl_err('','apm-030',0)
            LET g_action_choice = NULL
        END IF
    END IF

3.自動確認(過帳)功能，在MAIN找到INITIALIZE g_***.* TO NULL
增加如下

IF g_bgjob='Y' and ARG_VAL(2) = "efconfirm" THEN
    #let g_sql = "echo ",ARG_VAL(1)," ",g_user," ",g_prog," >> /u1/out/temp123.txt"
    #RUN g_sql
    call t324_q()
    CALL t324_y_chk()
    IF g_success = "Y" THEN

        CALL t324_y_upd()
        call t324_s()

        select imm03 into g_imm.imm03 from imm_file where imm01=g_argv1
        IF g_imm.imm03 = 'N' THEN
            call t324_z()
            CALL cl_err('josh ','-0101',1)
        END IF

    END IF
    return
END IF

XML parser error:
更新寄出流程名單中的相關資料時發生錯誤. 位置 0 沒有資料列。 !
此訊息即沒有對應的使用者編號

錯誤顯示
自動確認(過帳)如發生錯誤在ef顯示
CALL cl_err(‘josh ‘,’aim1008’,1)

cl_confirm會造成自動確認時停止，所以要改