DEFINE g_lang LIKE type_t.chr6 #介面语言别 (gzzy001)
DEFINE g_dlang LIKE type_t.chr6 #资料语言别 (gzzy003)
DEFINE g_argv DYNAMIC ARRAY OF STRING #所有外部参数
DEFINE g_company VARCHAR(72) #公司名称
DEFINE g_enterprise LIKE type_t.num5 #体系 Enterprise 代码
DEFINE g_dbs LIKE type_t.chr21 #实体资料库名称
DEFINE g_site LIKE type_t.chr10 #营运据点名称
DEFINE g_plant LIKE type_t.chr10 #实体营运中心名称
DEFINE g_legal LIKE type_t.chr10 #法人代码
DEFINE g_version LIKE type_t.chr20 #版本
DEFINE g_max_rec LIKE type_t.num10 #5 #Table最大显示/输入笔数
DEFINE g_max_browse LIKE type_t.num10 #5 #浏览器最大显示笔数
#作业时间
DEFINE g_today LIKE type_t.dat #系统日期
DEFINE g_time LIKE type_t.chr8 #Execution time
DEFINE g_timezone LIKE type_t.chr80 #时区
DEFINE g_lastdat LIKE type_t.dat #世界末日
#执行人员
DEFINE g_user LIKE type_t.chr20 #使用者工号
DEFINE g_account LIKE type_t.chr20 #使用者编号/帐号
DEFINE g_roles STRING #使用者角色清单 (串接报表需求)
DEFINE g_dept LIKE type_t.chr10 #使用者部门代号
DEFINE g_grup LIKE type_t.chr10 #禁止使用,请改使用 g_dept 这个变数 #170928-00025#1
#执行权限
DEFINE g_data_owner LIKE type_t.chr20 #使用者资料权限
DEFINE g_data_dept LIKE type_t.chr10 #部门资料权限
DEFINE g_data_site LIKE type_t.chr10 #营运中心资料权限
DEFINE g_data_group LIKE type_t.chr10 #(to delete)
DEFINE g_pr
《一线大厂Java面试题解析+后端开发学习笔记+最新架构讲解视频+实战项目源码讲义》
【docs.qq.com/doc/DSmxTbFJ1cmN1R2dB】 完整内容开源分享
iv_col DYNAMIC ARRAY OF RECORD #画面栏位授权资料
colid LIKE type_t.chr80, # 栏位编号
auth LIKE type_t.chr1, # 授权动作 1/不可见 2/加密 3/不可修改
crypt LIKE type_t.chr10, # 加密方法
type LIKE type_t.chr10, # 遮罩取用类型
idx LIKE type_t.chr10 # 遮罩启用指标位置
END RECORD
DEFINE g_progmasked BOOLEAN #作业是否已加上栏位遮罩 TRUE/FALSE
DEFINE g_data_crtid LIKE type_t.chr20 #建立者资料权限 #180201-00054
DEFINE g_data_crtdp LIKE type_t.chr10 #建立者部门权限 #180201-00054
#UI画面设定
DEFINE gs_config_path STRING #config资料夹的路径.
DEFINE gs_4st_path STRING #4st档案预设路径
DEFINE gs_4ad_path STRING #4ad档案预设路径
DEFINE gs_4sm_path STRING #4sm档案预设路径
DEFINE gs_4tb_path STRING #4tb档案预设路径
DEFINE gs_4tm_path STRING #4tm档案预设路径
DEFINE g_ac