上一页 1 ··· 3 4 5 6 7 8 下一页
摘要: 标准签出客制后,建议到对应4gl目录,客制目录 r.c afap280_01r.l afap280_01 ALL 常用Shell操作命令: r.c:编译程序,需在4gl路径之下执行,产生的42m会自动搬至该目录下;r.cs:为小程序测试用,产生的42m仍在4gl目录下; r.l:打包可执行档或共享程 阅读全文
posted @ 2019-03-21 10:50 AaronLi 阅读(1266) 评论(0) 推荐(0) 编辑
摘要: 例子: #設定科目名稱 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 阅读全文
posted @ 2019-03-05 15:19 AaronLi 阅读(355) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2018-12-28 17:24 AaronLi 阅读(345) 评论(0) 推荐(0) 编辑
摘要: 范例: 代码: #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 阅读全文
posted @ 2018-04-23 16:51 AaronLi 阅读(1227) 评论(0) 推荐(1) 编辑
摘要: 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 改变变量的值 阅读全文
posted @ 2018-01-24 09:13 AaronLi 阅读(790) 评论(0) 推荐(0) 编辑
摘要: 例子: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 阅读全文
posted @ 2018-01-23 09:15 AaronLi 阅读(854) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2017-10-19 15:43 AaronLi 阅读(901) 评论(0) 推荐(0) 编辑
摘要: 范例:cxrr001 效果:增加英文版报表选择 1、azzi301,复制cxrr001_g01,把样板编号改为cxrr001_g01_01; 2、下载cxrr001_g01的GR样板,把cxrr001_g01整份复制为cxrr001_g01_01,改修后再上传; (注意:zh_CN下复制了,zh_T 阅读全文
posted @ 2017-10-11 13:43 AaronLi 阅读(517) 评论(0) 推荐(0) 编辑
摘要: capr110_g01,按扣账日期打印排序: 在adzp188——“字段”中加入pmds001的话,产生的代码的变量是:pmds_t_pmds001 ;当在“群组”—“印出排序” 再添加pmds001 的话,产生的排序的变量是pmds001,此时会产生错误,原因在record中没有pmds001这个 阅读全文
posted @ 2017-10-09 14:26 AaronLi 阅读(391) 评论(0) 推荐(0) 编辑
摘要: 范例: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 阅读全文
posted @ 2017-08-25 09:28 AaronLi 阅读(1024) 评论(0) 推荐(0) 编辑
上一页 1 ··· 3 4 5 6 7 8 下一页