TIPTOP ERP系统函数cl_show_array()TIPTOP ERP系统函数cl_show_array().docVIP

TIPTOP系统函数cl_show_array() 在TIPTOP系统中设有这样的一个方法cl_show_array(),这个方法的主要作用是开窗呈现一个动态数组中的内容,主要用于我们在对单身里面多条数据进行逐一判断,最终将单身里面有错误的信息,在不写任何开窗代码的情况下,使用这个cl_show_array()将错误信息组合罗列在弹窗里面,外加了一个导出excel的功能.废话不多说直接写段代码测试一下,编写一个名为f4.4gl文件,然后上传编译,在42m目录下面使用命令 fglrun cxm_f4.42m执行,弹出结果. 【注:因为是测试,所以这里面有些系统自带函数注释掉一些, 然后添加了两个比较重要的函数FUNCTION cl_set_comp_att_text(ps_fields, ps_att_value)(动态设定栏位标题) 和FUNCTION cl_set_comp_visible(ps_fields, pi_visible)(动态隐藏栏位),这两个方法里面做了一些小小的改动】 代码如下: MAIN DEFINE test1,test2 STRING DEFINE r DYNAMIC ARRAY OF RECORD key INTEGER, lastname CHAR(20) END RECORD LET r[1].key = 1 LET r[1].lastname = Condor1 LET r[2].key = 2 LET r[2].lastname = Condor2 LET r[3].key = 3 LET r[3].lastname = Condor3 LET test1 = |,Item CLIPPED LET test1 =test1.trim(),|,Content CLIPPED LET test2 = 测试数据! CLIPPED CALL cl_show_array(base.typeinfo.create(r),test2,test1) // base.typeinfo.create(r)数组内容,test2窗口标题,test1栏位标题(注意栏位标题的格式以”|”将其分开,因为后面的代码里面会以”|”来截取) END MAIN FUNCTION cl_show_array(pnode_array,ps_win_title,ps_title_str) DEFINE pnode_array om.DomNode DEFINE ps_win_title STRING DEFINE ps_title_str STRING DEFINE lnode_record om.DomNode DEFINE llst_fields om.NodeList DEFINE lnode_field om.DomNode DEFINE llst_rec_fields om.NodeList DEFINE li_child_cnt SMALLINT DEFINE li_rec_cnt INTEGER DEFINE lr_array DYNAMIC ARRAY OF RECORD field1 STRING, field2 STRING, field3 STRING, field4 STRING, field5 STRING, field6 STRING, field7 STRING, field8 STRING, field9 STRING, field10 STRING END RECORD DEFINE ls_visible_str STRING DEFINE li_i SMALLINT DEFINE li_j SMALLINT DEFI