T100一些技巧记录.docxVIP

T 类作业增加打印按钮 单据类作业背景执行报表作业代码段，不要直接在程式中修改报表元件，正确的做法为： 一需要先在 azzi988 挂报表二修改报表程式增 加如下代码 隐藏整单操作按钮 CALL cl_set_act_visible_toolbaritem(cxmm200_money,FALSE) #隐藏整单操作的按钮 列表报错实现代码 返回文件路径 知道文件名返回绝对路径 # Program name...: aws_get_picture.4gl # Description....: 获取图片信息 # Date Author..: 2016/03/18 by yanglan DATABASE ds GLOBALS ../../config/top.global GLOBALS ../4gl/aws_ttsrv_global.4gl # Description....: 获取 ERP 图片信息服务入口程序 # Date Author..: 2016/03/18 by yanglan # Parameter. none # Return. none # Memo...........: FUNCTION aws_get_picture() WHENEVER ERROR CONTINUE CALL aws_ttsrv_preprocess() IF g_status.code = 0 THEN CALL aws_get_picture_process() END IF CALL aws_ttsrv_postprocess() END FUNCTION # Description....: 获取图片信息 # Date Author..: 2016/03/18 by yanglan # Parameter. none # Return. none # Memo...........: FUNCTION aws_get_picture_process() DEFINE l_i LIKE type_file.num10 DEFINE l_url RECORD url LIKE type_file.chr1000 END RECORD DEFINE l_node om.DomNode DEFINE l_ima01 LIKE ima_file.ima01 DEFINE l_num LIKE type_file.num5 DEFINE l_run LIKE type_file.chr1000 DEFINE fn LIKE type_file.chr1000 DEFINE ex LIKE type_file.chr1000 DEFINE ch base.Channel DEFINE l_str STRING #FUN-B90089 add str--- LET l_ima01 = aws_ttsrv_getParameter(ima01) #SQL Condition IF cl_null(l_ima01) THEN LET g_status.code = -1 LET l_str = 料件编号不能为空 ! LET g_status.description=l_str RETURN END IF LET l_num = 0 SELECT COUNT(*) INTO l_num FROM ima_file WHERE ima01 = l_ima01 IF l_num=0 THEN LET g_status.code = -1 LET g_status.description=该料件编号不存在 ! RETURN END IF LET ch = base.Channel.create() CALL ch.setDelimiter(.) LET l_run = find /u1/pdf/ -name *,l_ima01,*.pdf CALL ch.openPipe(l_run,r) WHILE ch.read([fn,ex]) LET l_url.url = fn,.,ex LET l_node= aws_ttsrv_addMasterRecord(base.TypeInfo.create(l_url), Master) sponse  #Re END WHILE CALL ch.close () END FUNCTION 工具栏按钮增减方法-修改 4tb 例如：P 处理删除按钮可以显示并使用，维护作业全选按钮可以显示并使用 知识点-自动编码 单号栏位一定是 docno 栏位结尾,否则代码不能自动生成。 凭证报表样板规范FAQ GR GR 一报表多样板 到数据库查询 gzgd_t 发现出现样板间两边不一致。与复制来源相对比，看哪