【实战】T100开发核心：从Genero FGL到帆软报表的进阶指南

1. Genero FGL基础语法精要

作为T100系统的底层开发语言，Genero FGL（前身TIPTOP4GL）的语法特性直接决定了开发效率。我刚开始接触时最头疼的就是它的变量定义方式，和常见编程语言差异较大。举个例子，定义一个字符串变量需要这样写：

DEFINE customer_name LIKE customer.cust_name

这里的LIKE关键字表示继承自某个表的字段类型，这种强类型约束虽然初期麻烦，但在大型ERP系统中能有效减少类型错误。实际开发中最常用的数据类型包括：

• CHAR/VARCHAR：定长/变长字符串，处理客户名称、地址等信息
• INTEGER/DECIMAL：数值类型，特别注意DECIMAL(p,s)需要指定精度
• DATE/DATETIME：日期时间类型，T100系统大量依赖日期运算
• DYNAMIC ARRAY：动态数组，处理不定长数据集合的神器

控制流语句方面，FGL的WHILE循环有个坑我踩过多次：循环条件中的变量修改必须放在BEFORE/BETWEEN/AFTER块里，否则可能死循环。正确的写法应该是：

WHILE counter < 100 BEFORE GROUP LET counter = counter + 1 BEGIN -- 业务逻辑 END

函数定义也有讲究，参数传递默认是值传递，要修改实参需要显式使用BYREF关键字。分享一个实际项目中的字符串处理函数：

FUNCTION format_phone_number(phone) DEFINE phone VARCHAR(20) IF phone MATCHES "([0-9]{3})([0-9]{3})([0-9]{4})" THEN RETURN "(\1) \2-\3" END IF RETURN phone END FUNCTION

2. T100程序开发模式解析

2.1 单档程序开发实战

单档程序（如基础资料维护）是T100最常见的开发场景。我总结的标准开发流程是：

1. 创建程序框架：用gzzz001模板生成基础代码
2. 设计画面布局：在4ad文件中拖拽控件，注意命名规范（头档用h_前缀，明细用d_前缀）
3. 编写业务逻辑：重点处理INPUT（数据录入）、VALIDATE（校验）、ACTION（按钮动作）三个环节

最近给某客户做物料主档维护程序时，发现个性能优化点：当明细记录超过500笔时，默认的全量刷新会卡顿。解决方案是在BEFORE INPUT中加入：

CONFIGURE SCREEN ROW COUNT TO 50

这样只渲染可视区域的记录，滚动时动态加载。实测响应时间从3秒降到200毫秒。

2.2 双档程序开发技巧

双档程序（如订单-明细）的难点在于主从表联动。必须掌握的关键技术点：

• 级联删除：在主档的ON DELETE事件中处理明细删除
• 跨档校验：比如检查订单总额是否超过客户信用额度
• 事务控制：用BEGIN WORK/COMMIT WORK确保数据一致性

分享一个发票打印程序的错误处理代码：

ON ACTION print BEGIN WORK CALL print_invoice() RETURNING ret IF ret != 0 THEN ROLLBACK WORK CALL show_error("打印失败，错误码：" || ret) ELSE COMMIT WORK END IF

2.3 Q查询与P处理模式

Q查询（Query）模式的核心是优化WHERE子句。我常用的性能优化技巧：

• 为常用查询条件建立索引
• 避免在条件中使用函数计算（如UPPER(cust_name)）
• 分页查询使用LIMIT+OFFSET

P处理（Process）模式常见于批处理作业。关键是要处理好这几个问题：

1. 进度显示：用DISPLAY ... TO实时更新处理进度
2. 错误隔离：单个记录错误不应中断整体流程
3. 日志记录：详细记录处理过程便于排查

3. 帆软报表深度集成

3.1 报表设计规范

与T100集成的帆软报表设计必须遵循以下规范：

• 数据源配置：使用T100专用JDBC驱动，连接字符串示例：

  jdbc:genero:t100://192.168.1.100:6395/dbname?user=sysadmin

• 参数传递：通过g_开头的全局变量传递查询条件
• 模板管理：将常用模板存放在/t100/reports目录下

3.2 动态参数传递技巧

在销售分析报表中，我实现了动态日期范围选择：

FUNCTION call_sales_report(start_date, end_date) DEFINE start_date, end_date DATE LET g_start_date = start_date LET g_end_date = end_date SYSTEM "frun -c 'report=sales.frx'" END FUNCTION

报表模板中通过$P{g_start_date}获取参数值。这种方式的优势是避免硬编码SQL。

3.3 性能优化方案

针对大数据量报表（如年度库存周转分析），我采用的优化策略：

1. 预计算：在夜间批处理中生成中间结果表
2. 分页加载：每次只查询当前页数据
3. 缓存机制：对静态数据设置1小时缓存

实测一个50万行数据的报表，响应时间从2分钟降到8秒。

4. 调试与排错指南

4.1 常见错误代码速查

这些错误码我遇到频率最高：

• -201：SQL语法错误，检查引号是否匹配
• -408：字段不存在，通常是字段名拼写错误
• -1205：记录锁定，检查是否有未提交的事务

4.2 日志分析技巧

T100的日志文件位于/var/log/t100目录，重点看：

• app_YYYYMMDD.log：应用程序日志
• sql_YYYYMMDD.log：SQL执行日志
• err_YYYYMMDD.log：错误日志

用这个命令可以实时监控错误：

tail -f /var/log/t100/err_$(date +%Y%m%d).log | grep -E 'ERROR|WARN'

4.3 性能诊断工具

Genero Studio自带的性能分析器非常实用：

1. 启动性能监控：fglrun -profile myprogram.42m
2. 执行待测程序
3. 查看生成的myprogram.prof文件

重点关注CPU时间占比高的函数和SQL语句。