03_T100 基础架构、命名原则、T00设计器使用
客户端GDC安装
1、安装之后需要设置参数-aD,以便让客户端为6400（ANY），否则可能会无法开启界面
更改6400端口为6401：export FGLSERVER=$FGLSERVER:01
VPN连接远程开发配置：export FGLSERVER=VPN IP地址
2、设置安全级别为最低，以便增加程式开启速度
3、检查windows防火墙是否禁止GDC
4、WEB模式：
正式区：http://172.16.70.53/wtopprd/wa/r/app/gdc_azzi000?Arg=99&Arg=zh_CN （替换红色内容）
测试区：http://172.16.70.53/wtoptst/da/r/app/gwc_azzi000?Arg=80
其它设置：
1、53主机对应的数据库是172.16.70.161不是172.16.70.53
2、SSH登陆后切换企业编号：export TOPENT=80 （80为范例企业编号，默认99）
3、使用者账号在 azzi800 设置
cd $TOP
cd ../etc
vi chenv TOPCHKOUT=Y #(Y为可签出开发，N无权签出，正式区设置之后，只能测试区搬到正式区)
TOPALM=N #(Y启用开发需求单adzi800，N不启用）
执行程序的方法
假设你现在已经通过 Xshell 或某种工具连上公司的 Linux服务器
方法一：在 Xshell 命令行：r.r 作业单号 即可
例如：r.r aimi100
方法二：利用 menu 指令调出 T100系统首页，这个界面又有两种方法执行程序
①上方搜索框输入作业单号，回车或点搜索即可执行。
② ctrl + g 调处一个画面，输入作业编号点击运行
T100基础架构
T100 数据库结构
T100分为4个区
- 正式区：上线前会在正式区进行开发和模拟
- 测试区：上线后二次开发在测试区做，还可以测试功能
- 标准区：产品出货最干净的区
- 验证区：上patch，做验证然后再去正式区patch
T100 安装目录
cd $TOP 可以回到正式区最上层目录，即 /topprd目录下cd $ERP 可以直接进入 topprd/erp 目录下
T100系统架构图
com
- sub：公共程序、子程序
- lib：例如报错 cl_err，cl_ask
- qry：所有开窗作业
- lng：多语言
- inc：全局变量
- wss：集成
![在这里插入图片描述]()
erp下各个模组文件夹（a开头的是 标准模组，如aao、axm、aim…）
- 4gl：源程序，编译后产生42m，再经过链接产生42r
- 4fd：源画面，编译后产生42f
- sch：数据表
- 4rp：凭证报表的主程序
- fr：帆软报表
- dzx：设计资料
![在这里插入图片描述]()
![在这里插入图片描述]()
![在这里插入图片描述]()
基本环境变量
基本执行 Shell
r.d 可以在任意目录下执行，r.dg 必须在 模组/4gl 目录下执行，r.d 不成功就用 r.dg
命名原则
模组（module）命名原则
示例（模块代号维护作业：azzi070）：
- a开头标准模组（axm、apm、asf、agl）
- c开头客制模组（cxm、cpm、csf、cgl）
- b开头行业模组（bph）
- d开头为行业客制模组（dph）
- e开头为纯客制模组（enu）
- lib - clib 标准-客制 （公共程序）
- sub - csub 标准-客制（公共子程序）
- qry - cqry 标准-客制（开窗程序）
- lng - clng 标准-客制（数据表多语言）
- wss - cwss 标准-客制（webservices 继承）
![]()
行业编号的定义
1、行业编号为二码英文组成
2、行业可建置自己的专用目录一个或多个，也可以不建置 ﹝目录编号不一定要与行业编号相同﹞
3、行业编号是系统级，未设定时，属于标准行业﹝sd﹞
4、建立行业：行业编号维护作业(azzi050)
表格（Table）命名原则
示例（表格可利用 r.t 工具进行设置）：
- 标准：axm 建立订单表 ——> xmaa_t 表；字段编号 xmaa001 （xm为axm模组，aa为流水号）
- 客制：cxm 建立订单表 ——> xmaauc_t表；字段编号 xmaauc001
- imaaic_t 【ic】为ICD行业编号 ﹝参照azzi050行业编号﹞
字段（field）命名原则
字段重要规范
标准字段命名原则
- 字段编号
[表格编号（去除_t）] + [3位流水号] 例如：imaa001 料件编号 imaa002 版本 - 行业包辅助字段命名原则
[表格编号（去除_t）] + [2位行业编号] + [3位流水号] 例如：imaaic001 其中【ic】表示行业编号- 标准表格的域名如果为：表格名称 + [ud]，即为弹性字段，仅供客制开发使用：例如： imaaud001、imaaud002…。
tiptop账号是无法建立ud字段的，只能用这些产品来做二次开发
- 标准表格的域名如果为：表格名称 + [ud]，即为弹性字段，仅供客制开发使用：例如： imaaud001、imaaud002…。
客制字段命名原则
- 从标准表格加客制字段
[表格编号（去除_t）] + [ua] + [3位流水号] - 全新客制表格字段必须按照标准命名(表格已经包含uc)
[表格编号（去除_t）] + [3位流水号]
r.t (adzi140) 表格设计器：新增修改表，以及表结构，表字段（字段流水号须循序新增，不得有插在原字段中间的情形发生。）
- 标准表字段：xmaaud001，ud表示弹性字段(产品留给tiptop账号做二开)
- 客制表字段：xmaaua001，ua表示标准表转客制的字段(tiptop账号自己新增做二开)
- 全新客制的表：xmaauc001，uc表示完全客制的表字段
特殊定义字段
若有特定用途字段，则标准或客制表格均使用如下定义尾部用字以统一。
特殊定义字尾栏位
总结：
程序 / 作业编号定义（包括子程序、子画面）
相关作业：
- azzi900：程序基本数据设定作业
- azzi901：子程序及组件基本数据设定作业
示例：作业名称为 aimi100
- 前3位【aim】是 模块名
- 第4位【i】表示 I类作业
- 最后3位【100】是 流水号
示例：作业名称为 aimi100_ic
aim：模組名，i：类作业：建档 (维护作业) ， 流水号：100 ，ic：表示为IC行业別
子程序、子画面编号
若主程序需要另外写函数，则会增加子程序。
示例：主程序名称为 aimi100
aimi100_01：为一般用途的子程序
aimi100_g01、aimi100_g02、… 为 凭证报表（Genero Report） 的子程序
aimi100_x01、aimi100_x02、… 为 查询报表（Xtra Grid） 的子程序
程序开发过程中需要一个以上的画面时，可以额外制作子画面。
示例：主程序名称为 aimi100
aimi100_s01、aimia100_s02 … 为子画面
程序注册 —— azzi900
子程序注册 —— azzi901
报表样板编号
一份报表可允许应用多份报表样板，若有多样版需求时，命名 主要样板＋两位数字流水号
子报表样式：主要样板＋「_subrep」＋ 流水号
示例：
主报表：axmr402_g01.4rp（单一样板）
主报表：axmr403_g01_02.4rp（多样板）
子报表：axmr402_g01_subrep01.4rp
Web Service 程序编号
在 $COM/WSS 模块内提供了 Web Service 主程序专用的相关子程序。
提供给一般 ERP程序进行链接呼叫。
Web Service主程序文件名范例：wssp999：wssp 为固定用法，标示为Web Service主程序 999为程序三码数字流水编号
Web Service子程序档（不提供给一般ERP程序进行链接呼叫）名称范例：wssp999_**：wssp999为主程序文件名 **为二码数字流水编号
函数（Function）命名原则
函数名称须为「程序名称」＋「此函数功用」，同一程序中不可使用相同的函数名称。
主程序中通常由下列函数：
- _insert() 新增数据
- _delete() 删除数据
- _show() 将数据呈现于画面
- _fetch() 处理从数据库中取得数据
- _modify() 修改数据
- _input() 输入数据
- _query() 查询数据
- _set_entry() 处理字段的动态开启
- _set_no_entry() 处理字段的动态关闭（需含判断式）
范例：函式名称为 aimi100_insert( ) 『aimi100』作业名称 『_insert』功能名称
变量命名规则
以下用于 4gl程序中
- 全局变量（Global Variable）或 模块变量（Module Variable）
g_+ 功能名称 - 区域变量（Local Variable）
l_+ 功能名称 - 传递用的变量（Passive Variable）
p_+ 功能名称
以下用于 4fd画面中
- 屏幕数组变量 (Screen Array Variable)
以s_开头命名
s_detailN 或 s_detailN_info 或 s_browser，N为流水号
T100设计器使用
登入区域：1为正式区，2为测试区，账号：tiptop/tiptop，设计器版本检查区域：topprd，远程设计器版本：点检查会自动带出1.0版本,工作目录非中文。
一些小技巧
修改程序框架：不要勾选，否则界面修改之后不会重新生成代码。
分析一个查看函数的技巧，有两种方法：
-
r.r adzp280 函数名![在这里插入图片描述]()
-
设计器中，选中函数，鼠标右键【查看函式】或 快捷键 Ctrl + i
![在这里插入图片描述]()
即可查看到该函数的最初定义：![在这里插入图片描述]()
实用的通用快捷键
键符 意义说明 备注
__________________________________________________________________________
Ctrl + g 执行作业
ESC 结束功能、离开程序
alt + n / p /f / l 下一笔/上一笔/第一笔/最后一笔 n / p / l / f 也可以
Ctrl + q 查询数据 使用QBE
Ctrl + i 新增数据
Ctrl + d 删除数据
Ctrl + m 更改数据
Ctrl + r 复制数据
Alt + m 切换查询方案与主窗体。 多用于单据作业
Alt + s 隐藏单头
所有全局变量（top_global.inc文件）
# 一些常见的全局变量
g_enterprise：企业编号
g_site：营运据点
g_prog：程序编号
g_today：今天的日期，一般用来赋初值我把 top_global.inc文件导出了…顺便转成了简体，放在这里有需要时查询：
SCHEMA ds
GLOBALS
#执行作业
DEFINE g_clienttype LIKE type_t.chr1 #A:GMA/W:GWC/D:GDC
DEFINE g_sessionkey LIKE type_t.chr20 #TT Session Key=TIME+PID
DEFINE g_parentsession LIKE type_t.chr20 #父层Session Key
DEFINE g_ancestsession LIKE type_t.chr20 #祖层Session Key
DEFINE g_parentprog LIKE type_t.chr20 #父层作业编号
DEFINE g_prog LIKE type_t.chr20 #作业编号 (gzzz001)
DEFINE g_prog_industry LIKE type_t.chr10 #作业归属行业包
DEFINE g_actdefault LIKE type_t.chr20 #预设开启动作
DEFINE g_code LIKE type_t.chr20 #程式编号 (gzza001)
DEFINE g_template_type LIKE type_t.chr10 #程式类别 (gzza002)
DEFINE g_sys LIKE type_t.chr5 #模组别 (gzza003)
DEFINE g_chkey LIKE type_t.chr1 #是否允许更改KEY (gzza006)
DEFINE g_need_err_log LIKE type_t.chr1 #是否需要将错误讯息写入log档 (gzza010)
DEFINE g_idle_seconds LIKE type_t.num5 #INPUT(ARRAY)时允许Idle的秒数 (gzza012)
DEFINE g_gui_type LIKE type_t.num5 #GUI Type
DEFINE g_errno LIKE type_t.chr10 #错误讯息代码
DEFINE g_success LIKE type_t.chr1 #sub判断是否执行成功
DEFINE g_sub_success LIKE type_t.num5 #跨元件判断是否执行成功 (不透过return回传时使用)
DEFINE g_errshow LIKE type_t.num5 #错误讯息显示 TRUE显示/FALSE不显示
DEFINE g_t100debug LIKE type_t.chr1 #如果=9,显示DEBUG讯息
DEFINE g_t100azg0d LIKE type_t.chr1 #如果=9,显示DEBUG讯息
DEFINE g_bgjob LIKE type_t.chr1 #Background job
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_priv_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_action_choice STRING #ON ACTION的名称
DEFINE g_show_item_value LIKE type_t.num5 #是否显现COMBOBOX,RADIOGROUP的项目储
DEFINE g_head_disable LIKE type_t.num5 #单头目前是否隐藏
DEFINE g_hidden_4tm BOOLEAN #是否不载入TopMenu TRUE:不载入, FALSE:载入
DEFINE g_hidden_4tb BOOLEAN #是否不载入ToolBar TRUE:不载入, FALSE:载入
DEFINE g_pos LIKE type_t.chr21
DEFINE g_mind LIKE type_t.dat
DEFINE g_maxd LIKE type_t.dat
#显示错误讯息
DEFINE g_errparam RECORD
code LIKE gzze_t.gzze001, #错误讯息编码
extend STRING, #出现在开头的延伸讯息字串 (有需要再设定)
popup BOOLEAN, #开窗否（azzi920强制开窗时无作用）
type LIKE gzze_t.gzze007, #讯息类型0:警告, 1:错误, 2:资讯（可不设, 依照azzi920预设值）
replace DYNAMIC ARRAY OF STRING, #替换错误讯息及建议处理方式中的%变数 (有需要再设定)
columns DYNAMIC ARRAY OF STRING, #栏位清单(对照栏位值清单) (有需要再设定)
#columns DYNAMIC ARRAY OF LIKE dzeb_t.dzeb001, #栏位清单(对照栏位值清单) (有需要再设定)
#columns DYNAMIC ARRAY OF LIKE gzzd_t.gzzd003, #栏位清单(对照栏位值清单) (有需要再设定)
values DYNAMIC ARRAY OF STRING, #栏位值清单(对照栏位清单) (有需要再设定)
coll_vals DYNAMIC ARRAY OF STRING, #汇总讯息额外栏位 - 值 (有需要再设定)
sqlerr LIKE type_t.num5, #SQLCA.SQLERRD[2] 或 SQLCA.SQLCODE (有需要再设定，0则不显示)
exeprog LIKE type_t.chr20, #建议执行作业编号 (有需要再设定)
param STRING #JSON格式的参数 (有需要再设定)
END RECORD
#讯息中心
DEFINE g_msgparam RECORD
state STRING, #执行模式
data DYNAMIC ARRAY OF STRING, #表单资料
rpt_code STRING, #报表验证码
rpt_url STRING, #报表 url
rpt_file STRING #报表 file
END RECORD
DEFINE g_coll_title DYNAMIC ARRAY OF STRING #汇总讯息额外栏位 - 标题(限定最多20个栏位) (有需要再设定)
DEFINE g_errcollect DYNAMIC ARRAY OF RECORD
code STRING, #讯息代码
message STRING, #讯息内容
adv_msg STRING, #进阶讯息
extra DYNAMIC ARRAY OF STRING, #额外栏位资讯
gzze006 STRING, #程式人员详细讯息
sqlerrd2 LIKE type_t.num5, #SQLCA.SQLERRD[2] contains the last SERIAL or the native SQL error code.
exeprog LIKE type_t.chr20, #建议执行作业编号
param STRING #JSON格式的参数 (有需要再设定)
END RECORD
#开窗查询专用变数
DEFINE g_qryparam RECORD
state LIKE type_t.chr1, #程式的状态(i→INPUT，c→CONSTRUCT，预设为i)
construct LIKE type_t.chr1, #No Use
reqry LIKE type_t.num5, #是否需要先qry再显示资料(TRUE:需要，FALSE:不需要，预设为FALSE)
where STRING, #查询资料的条件(一@般是从gab_file.gab02来设定)
pagecount STRING, #每页最大浏览笔数
default1 STRING, #开窗之相关栏位一的预设值
default2 STRING, #开窗之相关栏位二的预设值
default3 STRING, #开窗之相关栏位三的预设值
default4 STRING, #开窗之相关栏位四的预设值
default5 STRING, #开窗之相关栏位五的预设值
default6 STRING, #开窗之相关栏位六的预设值
default7 STRING, #开窗之相关栏位七的预设值
default8 STRING, #开窗之相关栏位八的预设值
default9 STRING, #开窗之相关栏位九的预设值
default10 STRING, #开窗之相关栏位十的预设值
arg1 STRING, #查询资料的条件替换值一@
arg2 STRING, #查询资料的条件替换值二
arg3 STRING, #查询资料的条件替换值三
arg4 STRING, #查询资料的条件替换值四
arg5 STRING, #查询资料的条件替换值五
arg6 STRING, #查询资料的条件替换值六
arg7 STRING, #查询资料的条件替换值七
arg8 STRING, #查询资料的条件替换值八
arg9 STRING, #查询资料的条件替换值九
return1 STRING, #回传资料一
return2 STRING, #回传资料二
return3 STRING, #回传资料三
return4 STRING, #回传资料四
return5 STRING, #回传资料五
return6 STRING, #回传资料六
return7 STRING, #回传资料七
return8 STRING, #回传资料八
return9 STRING, #回传资料九
return10 STRING, #回传资料十
multiret_index LIKE type_t.num5, #No Use
multiret STRING, #No Use
ordercons STRING, #No Use
str_array DYNAMIC ARRAY OF STRING #因应开窗状态m,接收多组字串资料的多个栏位
END RECORD
#cl_chk_validate.4gl专用变数
DEFINE g_chkparam RECORD
where STRING, #外部额外设定的WHERE条件
default1 STRING, #相关栏位一的预设值
default2 STRING, #相关栏位二的预设值
default3 STRING, #相关栏位三的预设值
default4 STRING, #相关栏位四的预设值
default5 STRING, #相关栏位五的预设值
default6 STRING, #相关栏位六的预设值
default7 STRING, #相关栏位七的预设值
default8 STRING, #相关栏位八的预设值
default9 STRING, #相关栏位九的预设值
arg1 STRING, #外部参数一
arg2 STRING, #外部参数二
arg3 STRING, #外部参数三
arg4 STRING, #外部参数四
arg5 STRING, #外部参数五
arg6 STRING, #外部参数六
arg7 STRING, #外部参数七
arg8 STRING, #外部参数八
arg9 STRING, #外部参数九
return1 STRING, #回传资料一
return2 STRING, #回传资料二
return3 STRING, #回传资料三
return4 STRING, #回传资料四
return5 STRING, #回传资料五
return6 STRING, #回传资料六
return7 STRING, #回传资料七
return8 STRING, #回传资料八
return9 STRING, #回传资料九
ls_title STRING, #统一显示在错误讯息多语言前面的字串
err_str DYNAMIC ARRAY OF STRING #替换错误讯息代号和错误讯息上的%变数
END RECORD
#cl_jmail.4gl专用变数
DEFINE g_xml RECORD
file LIKE type_t.chr50, #XML档名(不含路径,档案产生在$TEMPDIR底下)
mailserver LIKE type_t.chr30, #MAIL SERVER IP
serverport LIKE type_t.chr5, #MAIL SERVER Port
#user LIKE type_t.chr30, #MAIL SERVER User #171023-00034#1 mark
user LIKE type_t.chr80, #MAIL SERVER User #171023-00034#1 add
#passwd LIKE type_t.chr10, #MAIL SERVER User Password #170109-00040#1 mark
passwd STRING, #MAIL SERVER User Password #170109-00040#1 add
subject VARCHAR(300), #信件主旨
body VARCHAR(100), #信件本文内容
attach LIKE type_t.chr1000, #信件附件档路径
recipient LIKE type_t.chr1000, #收件者
cc VARCHAR(500), #副本
bcc VARCHAR(500), #密件副本
sender LIKE type_t.chr50, #寄件者
replyto LIKE type_t.chr1000, #指定回信人
htmlbody LIKE type_t.chr1000, #Html body
htmlpath LIKE type_t.chr100, #Html path
priority LIKE type_t.chr1 #mail 重要等级
END RECORD
DEFINE g_header_idx LIKE type_t.num10 #5
DEFINE g_header_cnt LIKE type_t.num10 #5
DEFINE g_main_hidden LIKE type_t.num5 #主页摺叠
DEFINE g_worksheet_hidden LIKE type_t.num5 #浏览页折叠
DEFINE g_header_hidden LIKE type_t.num5 #单头折叠
DEFINE g_parameters DYNAMIC ARRAY OF RECORD
para_id STRING,
value STRING
END RECORD
DEFINE g_work DYNAMIC ARRAY OF LIKE type_t.dat #DATE #s_wdays,s_wdays2有需要.
DEFINE g_intrans LIKE type_t.chr1 #是否事务中标识 应用元件组设计
DEFINE g_no_entry STRING #修改时不可编辑栏位(azzi850设定)
#cl_batch_proc.4gl专用变数
DEFINE ga_batch DYNAMIC ARRAY OF RECORD
c_check LIKE type_t.chr1, #VARCHAR(1),
c_item01 VARCHAR(100),
c_item02 VARCHAR(100),
c_item03 VARCHAR(100),
c_item04 VARCHAR(100),
c_item05 VARCHAR(100),
c_item06 VARCHAR(100),
c_item07 VARCHAR(100),
c_item08 VARCHAR(100),
c_item09 VARCHAR(100),
c_item10 VARCHAR(100)
END RECORD
#cl_doc 变数
DEFINE g_pk_array DYNAMIC ARRAY OF RECORD
column STRING,
values STRING
END RECORD
DEFINE g_doc RECORD
column1 LIKE type_t.chr10,
column2 LIKE type_t.chr10,
column3 LIKE type_t.chr10,
column4 LIKE type_t.chr10,
column5 LIKE type_t.chr10,
value1 LIKE type_t.chr50, #MOD-960236 modify
value2 LIKE type_t.chr50, #MOD-960236 modify
value3 LIKE type_t.chr50, #MOD-960236 modify
value4 LIKE type_t.chr50, #MOD-960236 modify
value5 LIKE type_t.chr50 #MOD-960236 modify
END RECORD
#cl_set_focus_form
DEFINE g_fld_name LIKE type_t.chr20
DEFINE g_frm_name LIKE type_t.chr20
#单据编号
DEFINE g_doc_len LIKE type_t.num5 #单据编号中单别的长度
DEFINE g_no_sp LIKE type_t.num5 #单据编号中单号的起始位置
#Ex.AAA-12345678, 1的位置"5"就是起始位置
DEFINE g_no_ep LIKE type_t.num5 #单据编号的结束位置
#Ex.AAA-12345678, 8的位置"12"就是结束位置
DEFINE g_sn_sp LIKE type_t.num5 #单据编号流水号起始位置 FUN-A30020
#Ex.AAA-PPPPP12345678, 1的位置"10"就是流水号起始位置
#无PlantCode编入, 则g_no_sp = g_sn_sp
#多语转换系统参数
#DEFINE g_zx14 LIKE zx_file.zx14 #此使用者是否使用多语自动开窗功能
DEFINE g_dyloc2sfld LIKE type_t.chr1 #确认是否为动态切换语言别所触发 FUN-560086
DEFINE g_cuelang LIKE type_t.num5 #FUN-580026
DEFINE g_bgjob_msgfile STRING #批次作@业背景执行 FUN-610104
#DEFINE g_ui_setting LIKE gav_file.gav11 #自定义栏位功能FUN-710055
#统整错误讯息
DEFINE g_showmsg STRING #统整错误讯息
DEFINE g_bgerr LIKE type_t.num5 #是否启用统整错误讯息的旗标
DEFINE g_totsuccess LIKE type_t.chr1 #统整错误讯息用来记录g_success的旗标
DEFINE g_err_msg DYNAMIC ARRAY OF RECORD
fld1 STRING,
fld2 STRING,
fld3 STRING,
fld4 STRING,
fld5 STRING
END RECORD
#修改历程
DEFINE g_logc DYNAMIC ARRAY OF RECORD
logc001 LIKE logc_t.logc001,
logc002 LIKE logc_t.logc002,
logc003 DATETIME YEAR TO SECOND,
logc004 LIKE logc_t.logc004,
logc006 LIKE logc_t.logc006
END RECORD
#报表列印参数设定.
DEFINE g_rlang LIKE gzzy_t.gzzy001 #报表列印参数设定.Language
DEFINE g_pdate LIKE type_t.dat #报表列印参数设定.Print date
DEFINE g_ptime LIKE type_t.chr8 #报表列印参数设定.Print time
DEFINE g_prtway LIKE type_t.chr1 #报表列印参数设定.Print way
DEFINE g_copies LIKE type_t.chr1 #报表列印参数设定.Report copies you want
#报表背景作业功能
DEFINE g_reportid LIKE gzgf_t.gzgf000 #报表背景执行需选择样板
#报表变数
DEFINE g_rep_wcchp STRING #报表列印条件中文化 #150904-00005#2 add
DEFINE g_rs_printer STRING #Server直接送印,报表主机印表机名称 #150921-00060#1 add
&include "erp/top_global_expand.inc"
#汇出Excel功能
DEFINE g_export_node DYNAMIC ARRAY OF om.DomNode
DEFINE g_export_id DYNAMIC ARRAY OF STRING
#单据程式设定作业的where condition
DEFINE g_rep_wc STRING
DEFINE g_rep_type STRING #回传报表元件的序号
#ETL Job 参数设定
DEFINE g_etlparam DYNAMIC ARRAY OF RECORD
para_id STRING,
type STRING,
value STRING
END RECORD
#POI 参数设定
DEFINE g_xls_type STRING #1:xlsx,2:xls
END GLOBALS一些作业编号记录
azzi800 使用者账号设定：设置用户登录（密码设置，可拜访营运据点，角色设置）
azzi500 企业编号维护作业
azzi085 数据库连接设置作业：查看数据用户名对应的数据库id
azzi920 系统信息维护作业
azzi908 程序全局变量设置维护档案：新增全局变量inc
azzq171 函数说明查询作业
azzi070 模块代号维护作业
adzi140 表格设计器：新增修改表，以及表结构，表字段；助记码r.t
程序基本资料设定作业：azzis00
作业基本资料设定作业：azz910
子程序设定：azzi901
画面数据设定：azzi902
多语言数据维护：azzi912
整批导入excel作业：axct305
流程打印：azzr551
报表单头设置：azzi330
系统分类码维护作业：azzi600
应用分类维护作业：azzi650
程序复制与规格：adzp270
新增企业编号作业：azzi500
组织基本维护作业：aooi100
lba数查询作业：azzq171
报核作业：aooi900
文档中常见台湾用语
两码流水号 ——> 两位流水号
函式 ——> 函数
学习资料
网络：
《T100 技术手册》
浙公网安备 33010602011771号