摘要:
标准签出客制后,建议到对应4gl目录,客制目录 r.c afap280_01r.l afap280_01 ALL 常用Shell操作命令: r.c:编译程序,需在4gl路径之下执行,产生的42m会自动搬至该目录下;r.cs:为小程序测试用,产生的42m仍在4gl目录下; r.l:打包可执行档或共享程 阅读全文
摘要:
例子: #設定科目名稱 IF g_prog = 'aapt300' THEN CALL cl_set_comp_att_text("lbl_apca036",cl_getmsg("aap-00288",g_dlang)) CALL cl_set_comp_att_text("l_apcb021_de 阅读全文
摘要:
IF g_bgjob <> "Y" THEN #更新交易對像信用餘額檔: LET ls_value = cl_getmsg('axm-00547',g_lang)," ",l_pmab.pmab003 CALL cl_progress_no_window_ing(ls_value)END IF 阅读全文
摘要:
范例: 代码: #add-point:input段落 name="ui_dialog.input" INPUT BY NAME g_master.bdate,g_master.edate,g_master.l_group ATTRIBUTE(WITHOUT DEFAULTS) AFTER FIELD 阅读全文
摘要:
1、r.d 作业编码 2、ctrl+d3、输入 watch g_errparam.code if g_errparam.code='错误编码', 点几次OK, 再直接run程序,会自动跳到错误提示行。 如在循环中,可watch l_ac if l_ac>10 也可以使用CTRL + D 改变变量的值 阅读全文
摘要:
例子:cxmp541 1 #excel匯出功能 2 ON ACTION exporttoexcel 3 LET g_action_choice="exporttoexcel" 4 IF cl_auth_chk_act("exporttoexcel") THEN 5 #browser 6 CALL g 阅读全文
摘要:
1 PRIVATE FUNCTION axmt500_update_xmdc028() 2 ###更改出货库位 3 DEFINE l_i INT 4 DEFINE l_index INT 5 6 DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM) 7 INP 阅读全文
摘要:
范例:cxrr001 效果:增加英文版报表选择 1、azzi301,复制cxrr001_g01,把样板编号改为cxrr001_g01_01; 2、下载cxrr001_g01的GR样板,把cxrr001_g01整份复制为cxrr001_g01_01,改修后再上传; (注意:zh_CN下复制了,zh_T 阅读全文
摘要:
capr110_g01,按扣账日期打印排序: 在adzp188——“字段”中加入pmds001的话,产生的代码的变量是:pmds_t_pmds001 ;当在“群组”—“印出排序” 再添加pmds001 的话,产生的排序的变量是pmds001,此时会产生错误,原因在record中没有pmds001这个 阅读全文
摘要:
范例:cxmr540_g01 范例代码: ON EVERY ROW #add-point:rep.everyrow.before name="rep.everyrow.before" ####初始化 IF cl_null(g_i) THEN LET g_i=0 END IF IF cl_null(l 阅读全文