T100——菜单action控制单身栏位的修改

通过菜单ACTION来控制单身栏位内容的编辑修改；

 

范例axmt500：

   DEFINE l_xmdcua012_bk  DYNAMIC ARRAY OF RECORD #170701 ljr
          xmdcua012 LIKE xmdc_t.xmdcua012
          END RECORD
   DEFINE l_i_2 INT #170701 ljr

 

 

         #應用 a43 樣板自動產生(Version:4)
         ON ACTION action_modify_xmdcua012
            LET g_action_choice="action_modify_xmdcua012"
            IF cl_auth_chk_act("action_modify_xmdcua012") THEN
               
               #add-point:ON ACTION action_modify_xmdcua012 name="menu.action_modify_xmdcua012"
                DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)
                    INPUT ARRAY g_xmdc_d FROM s_detail1.*
                        ATTRIBUTE(COUNT = g_rec_b,WITHOUT DEFAULTS, #MAXCOUNT = g_max_rec,
                                  INSERT ROW = FALSE, 
                                  DELETE ROW = FALSE,
                                  APPEND ROW = FALSE)
                    END INPUT
                    
                BEFORE DIALOG 
                    #在修改结算单价前，先把旧的结算单价备份，后面作对比判断哪行被更改了
                    CALL cl_set_comp_entry("xmdcua012",TRUE)
                    CALL cl_set_comp_entry("xmdc027,xmdcua007,xmdc001,xmdcud011,xmdc019,xmdc002,xmdc006",FALSE)
                    CALL cl_set_comp_entry("xmdcua009,xmdc007,xmdcud012,xmdcud013,xmdcud014,xmdcua010,xmdc008",FALSE)
                    CALL cl_set_comp_entry("xmdc009,xmdc024,xmdc012,xmdc013,xmdc045,xmdc016,xmdc017,xmdc010,xmdc011",FALSE)
                    CALL cl_set_comp_entry("xmdc015,xmdc046,xmdc047,xmdc048,xmdc023,xmdc020,xmdc021,xmdc022",FALSE)
                    CALL cl_set_comp_entry("xmdcunit,xmdcorga,xmdc052,xmdc049,xmdc053,xmdc050,xmdcsite,xmdc058",FALSE)
                    CALL cl_set_comp_entry("xmdc059,xmdc060,xmdc061,xmdcua001,xmdcua002,xmdcua003,xmdcua004,xmdcua005",FALSE)
                    CALL cl_set_comp_entry("xmdcua006,xmdcua011,l_pmao009,l_pmao010",FALSE)
                    
                    FOR l_i_2=1 TO g_xmdc_d.getLength()
                        LET l_xmdcua012_bk[l_i_2].xmdcua012 = g_xmdc_d[l_i_2].xmdcua012
                    END FOR
                    
                    ON ACTION accept
                        #判断结算单价是否已被修改，只处理已经被修改的行
                        FOR l_i_2=1 TO g_xmdc_d.getLength()
                            IF NOT cl_null(g_xmdc_d[l_i_2].xmdcseq) THEN 
                                IF g_xmdc_d[l_i_2].xmdcua012 = l_xmdcua012_bk[l_i_2].xmdcua012 OR g_xmdc_d[l_i_2].xmdcua012 IS NULL THEN
                                    CONTINUE FOR
                                ELSE
                                    CALL axmt500_setPrice2_2(g_xmdc_d[l_i_2].xmdcseq,
                                                            g_xmdc_d[l_i_2].xmdc007,
                                                            g_xmdc_d[l_i_2].xmdcua012)
                                        RETURNING g_xmdc_d[l_i_2].xmdcua013,g_xmdc_d[l_i_2].xmdcua014,
                                                  g_xmdc_d[l_i_2].xmdcua015,g_xmdc_d[l_i_2].xmdcua016
                                    DISPLAY BY NAME g_xmdc_d[l_i_2].xmdcua013,g_xmdc_d[l_i_2].xmdcua014,
                                                            g_xmdc_d[l_i_2].xmdcua015,g_xmdc_d[l_i_2].xmdcua016
                                    #更新结算单价修改者、修改时间
                                    LET g_xmdc_d[l_i_2].xmdcua017 = g_user
                                    LET g_xmdc_d[l_i_2].xmdcua018 = cl_get_current()
                                    UPDATE xmdc_t SET xmdcua017=g_xmdc_d[l_i_2].xmdcua017,xmdcua018=g_xmdc_d[l_i_2].xmdcua018
                                        WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=g_xmda_m.xmdadocno AND xmdcseq=g_xmdc_d[l_i_2].xmdcseq
                                    SELECT ooag011 INTO g_xmdc_d[l_i_2].xmdcua017_desc FROM ooag_t 
                                        WHERE ooagent=g_enterprise AND ooag001=g_xmdc_d[l_i_2].xmdcua017
                                    DISPLAY BY NAME g_xmdc_d[l_i_2].xmdcua017,g_xmdc_d[l_i_2].xmdcua018,g_xmdc_d[l_i_2].xmdcua017_desc
                                END IF
                            END IF
                        END FOR
                        
                        ACCEPT DIALOG
                    
                    ON ACTION cancel      #在dialog button (放棄)
                        
                        EXIT DIALOG
                    
                    ON ACTION close       #在dialog 右上角 (X)

                        EXIT DIALOG
                    
                    ON ACTION exit        #toolbar 離開
                        
                        EXIT DIALOG
                    
                    #交談指令共用ACTION
                    &include "common_action.4gl" 
                        CONTINUE DIALOG 
                        
                END DIALOG
               #END add-point
               
            END IF

 

 

PRIVATE FUNCTION axmt500_setPrice2_2(l_xmdcseq,l_xmdc007,l_xmdcua012)
#修改结算单价,根据新的结算单价计算结算金额等，更新、回传并显示

    DEFINE l_xmdcseq LIKE xmdc_t.xmdcseq    #单身项次
    DEFINE l_xmdc001 LIKE xmdc_t.xmdc001    #单身料号
    DEFINE l_xmdc007 LIKE xmdc_t.xmdc007    #单身数量
    DEFINE l_xmdcua012 LIKE xmdc_t.xmdcua012  #单身结算单价
    
    DEFINE l_xmdcua013 LIKE xmdc_t.xmdcua013    #回传参数，结算金额
    DEFINE l_xmdcua014 LIKE xmdc_t.xmdcua014    #回传参数，结算未税单价
    DEFINE l_xmdcua015 LIKE xmdc_t.xmdcua015    #回传参数，结算未税金额
    DEFINE l_xmdcua016 LIKE xmdc_t.xmdcua016    #回传参数，结算税额
    
    #判断订单的单价是否含税
    #单价含税
    IF g_xmda_m.xmda013 THEN 
        LET l_xmdcua013 = l_xmdcua012 * l_xmdc007
        LET l_xmdcua014 = l_xmdcua012 / (1 + g_xmda_m.xmda012 / 100)
        LET l_xmdcua015 = l_xmdcua014 * l_xmdc007
        LET l_xmdcua016 = l_xmdcua013 - l_xmdcua015
    #单价不含税
    ELSE
        LET l_xmdcua013 = l_xmdcua012 * l_xmdc007
        LET l_xmdcua014 = 0.00
        LET l_xmdcua015 = 0.00
        LET l_xmdcua016 = 0.00
    END IF    
    #更新
    UPDATE xmdc_t SET xmdcua012=l_xmdcua012,
                      xmdcua013=l_xmdcua013,
                      xmdcua014=l_xmdcua014,
                      xmdcua015=l_xmdcua015,
                      xmdcua016=l_xmdcua016
      WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=g_xmda_m.xmdadocno AND xmdcseq=l_xmdcseq
    #返回值
    RETURN l_xmdcua013,l_xmdcua014,l_xmdcua015,l_xmdcua016
END FUNCTION