T100整单操作维护交运方式

开发流程：

建立程式citi005  设计器-规格/程序-下载

点击 buttonedit 

设置如图属性

 如图添加整单按钮

定位搜索

添加函数

################################################################################
# Descriptions...: 整单操作交运方式
# Memo...........:
# Usage..........: CALL s_aooi150_ins (传入参数)
#                  RETURNING 回传参数
# Input parameter: 传入参数变量1   传入参数变量说明1
#                : 传入参数变量2   传入参数变量说明2
# Return code....: 回传参数变量1   回传参数变量说明1
#                : 回传参数变量2   回传参数变量说明2
# Date & Author..: 日期 20190604 By pb
# Modify.........:
################################################################################
PRIVATE FUNCTION citi005_input_itacuc013()
DEFINE l_dat         LIKE type_t.typeud021  
CALL s_transaction_begin()
    INPUT BY NAME g_itacuc_m.itacuc013
    ATTRIBUTE(WITHOUT DEFAULTS
         #自訂ACTION(master_input)
         
     
         BEFORE INPUT
            AFTER FIELD itacuc013
         AFTER INPUT
            let l_dat = cl_get_current()
            UPDATE itacuc_t SET itacuc013 = g_itacuc_m.itacuc013,itacuc021 = l_dat   
               WHERE itacucent = g_enterprise #AND itacucdocno = g_itacuc_m.itacucdocno    
             IF SQLCA.SQLCODE THEN
                INITIALIZE g_errparam TO NULL 
                LET g_errparam.extend = "itacuc_t:",SQLERRMESSAGE 
                LET g_errparam.code = SQLCA.SQLCODE 
                LET g_errparam.popup = TRUE 
                CALL s_transaction_end('N','0')
                CALL cl_err()
                NEXT FIELD CURRENT
             ELSE
                CALL s_transaction_end('Y','0')
             END IF               
         END  INPUT
END FUNCTION

{</section>}

设计器-规格/程序-上传

在azzi903中将按钮从弹出式菜单移到整单操作中

 测试ok