变态的报表——TIPTOP 报表

最新推荐文章于 2021-12-30 15:06:17 发布
最新推荐文章于 2021-12-30 15:06:17 发布
阅读量6.5k 收藏 3
点赞数 2
分类专栏： TIPTOP ERP系统
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fmx121586/article/details/8109583
版权

此报表是利用 4GL+HTML 打印出来的。效果如下：

用过TIPTOP的人都知道，特别的TIPTOP的低版本，报表很挫，

对于有格子的报表很难弄。高版本用的CR就不说了。

废话不多说，直接看下图：

（问题：小于零的数值型数据转换成字符型的时候前面的零自动没有了）

SQL没改之前的预览效果（预览效果一）：

LET l_sql = "  SELECT qcgg02, tc_qcj031||tc_qcj03,tc_qcj04,tc_qcj032,TRIM(tc_qcj05) ,tc_qcj051,tc_qcj052,
          WM_CONCAT((DECODE(QCGG04,'1', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))),   
          WM_CONCAT((DECODE(QCGG04,'2', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'3', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'4', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'5', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'6', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'7', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'8', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'9', TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL)))  ,
          WM_CONCAT((DECODE(QCGG04,'10',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'11',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'12',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'13',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'14',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'15',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'16',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'17',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'18',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'19',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ,
          WM_CONCAT((DECODE(QCGG04,'20',TRIM(qcgg06||'/'||QCGG061||qcgg07),NULL))) ",
      "  FROM qci_file,qcgg_file,tc_qcj_file  ",
      "  WHERE qcgg01 = '", g_argv3,"'", 
      "    AND qci01 = qcgg01 AND qci00='1' ",
      "    AND qci02 = tc_qcj02 AND qci02=qcgg02 ", 
      "    AND qci03 = qcgg03   AND qci03 ='",g_argv6,"'",
      "    AND (qcgg06 IS NOT NULL OR qcgg061 IS NOT NULL OR qcgg07 IS NOT NULL) ",
      "    AND qci041 = tc_qcj01  " 
   CASE 
     WHEN g_argv5 ='1' LET l_sql = l_sql CLIPPED," AND qcgg02 LIKE 'B%' " 
     WHEN g_argv5 ='2' LET l_sql = l_sql CLIPPED," AND qcgg02 LIKE 'C%' " 
     OTHERWISE 
          LET l_sql = l_sql 
  END CASE  	 
    LET l_sql = l_sql CLIPPED," GROUP BY qcgg02,tc_qcj031,tc_qcj03,tc_qcj032,tc_qcj04,tc_qcj05,tc_qcj051,tc_qcj052 ORDER BY qcgg02 "

 

SQL改后的预览效果（预览效果二）：

#20121025 BY FMX 数字转换为字符前面加一个0
 LET l_sql = "  SELECT qcgg02, tc_qcj031||tc_qcj03,tc_qcj04,tc_qcj032,TRIM(tc_qcj05) ,tc_qcj051,tc_qcj052,
           WM_CONCAT((DECODE(QCGG04,'1', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,   
           WM_CONCAT((DECODE(QCGG04,'2', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'3', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'4', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'5', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'6', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'7', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'8', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'9', TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'10',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'11',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'12',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'13',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'14',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'15',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'16',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'17',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'18',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'19',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ,
           WM_CONCAT((DECODE(QCGG04,'20',TRIM((CASE INSTR(qcgg06,'.',1,1) WHEN 1 THEN '0'||qcgg06 ELSE to_char(qcgg06) END)||'/'||(CASE INSTR(qcgg061,'.',1,1) WHEN 1 THEN '0'||qcgg061 ELSE to_char(qcgg061) END)||qcgg07),NULL))) ",
       "  FROM qci_file,qcgg_file,tc_qcj_file  ",
       "  WHERE qcgg01 = '", g_argv3,"'", 
       "    AND qci01 = qcgg01 AND qci00='1' ",
       "    AND qci02 = tc_qcj02 AND qci02=qcgg02 ", 
       "    AND qci03 = qcgg03   AND qci03 ='",g_argv6,"'",
       "    AND (qcgg06 IS NOT NULL OR qcgg061 IS NOT NULL OR qcgg07 IS NOT NULL) ",
       "    AND qci041 = tc_qcj01  " 
   CASE 
     WHEN g_argv5 ='1' LET l_sql = l_sql CLIPPED," AND qcgg02 LIKE 'B%' " 
     WHEN g_argv5 ='2' LET l_sql = l_sql CLIPPED," AND qcgg02 LIKE 'C%' " 
     OTHERWISE 
          LET l_sql = l_sql 
  END CASE  	 
    LET l_sql = l_sql CLIPPED," GROUP BY qcgg02,tc_qcj031,tc_qcj03,tc_qcj032,tc_qcj04,tc_qcj05,tc_qcj051,tc_qcj052 ORDER BY qcgg02 "

 

fmx121586
关注
  • 2
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
水晶报表如何拿到远程服务器上数据
findsafety的专栏
12-12 1007
做水晶报表，可以了解一下推模式和拉模式，概念在这里就不说了，你的需求可以这样做： 1、在设计阶段用相同结构的数据来测试报表 2、运行的时候重新绑定数据源到你的报表，数据源是你在程序里面自己从数据库获取的，你要从哪个服务器拿就从哪个服务器拿 3、我是用C#来做的，VB的代码我不知道，如果需要，你可以hi我，我给你C#的代码参考 C#代码大致如下，其实可以再优化一下 CrystalReport1 m
tiptop报表二次开发
03-30
tiptop报表二次开发 TIPTOP GP 串 Crystal Reports 应用说明 TIPTOP GP程序修改 Crystal Reports交叉表范例 常见错误
Tiptop CR报表axcr700采购入库月报增加tlf99“多角贸易序号”,部分资料无数据修复4gl文件bug
06-05 351
因使用单位需求希望在报表后面增加一个栏位“多角贸易序号”，查看此报表多数栏位调用的是tlf_file表的数据，查看到tlf_file表中正好有对应的栏位“多角贸易序号”tlf99，依惯例增加tlf99字段。 rz -y上传 r.c2编译 r.l2链接 CR报表中增加相应栏位，查看显示OK。让使用者使用，没想到过了一天使用者就反应有些采购单的多角贸易序号没显示，赶紧一查发现有些单据的tlf99中没有数据，但在收货单中显示又有，至于为何没传到tlf_file表中就未知了。 看来还是关连到入库单头表rv
【Tiptop ERP T】Tiptop GP CR報表如何列印圖片及依圖片長寬控制顯示
李艺辉的专栏
07-02 1046
很多公司都需要在Tiptop GP 串的CR報表裏面列示資料庫裏面的圖片信息 如何處理呢? 這裡以列示料件的工程圖片為例說明如何在CR上列示圖片信息 在Tiptop GP ERP 裏面所有的圖片/文件/二進位數據....都是保存在gca_file 和gcb_file裱中 如果不清楚此2個Table的結構,請于此下載http://download.csdn.net/detail/yihuiw...
鼎捷TIPTOP水晶报表操作说明
04-20
PL/SQL 12 连接tiptop 鼎捷 oracle 数据库
poloyzhang的专栏
12-30 483
PL/SQL 12 连接tiptop 鼎捷 oracle 数据库
鼎捷TIPTOP与水晶报表整合
04-20
tiptop5.3_util.so
11-02
《深入解析tiptop5.3_util.so：开启JSON解析之旅》 在IT领域，库文件扮演着至关重要的角色，它们提供了丰富的功能，使得开发者能够更高效地编写代码。今天，我们将聚焦于一个名为"tiptop5.3_util.so"的动态链接库...
TIPTOP GP操作手册
07-28
TIPTOP GP是一款针对企业管理和运营的综合软件系统，尤其在供应链管理、财务会计以及商业运营方面具有广泛的应用。此套操作手册详细介绍了GP5.X版本的各项功能与操作流程，帮助用户更好地理解和使用该系统。 首先，...
TipTop函數大全.doc
05-20
鼎捷T100 TIPTOP开发函数大全 函式名称：cl_about 程序名称：cl_about.4gl 用途：程序信息 传入参数：none 回传值：none 用法：CALL cl_about() 函式名称：cl_anykey 程序名称：cl_anykey.4gl 用途：请按任何键继续 传入参数：p_sw Not used 回传值：none 用法：CALL cl_anykey() 函式名称：cl_autotime 程序名称：cl_autotime.4gl
TIPTOP对接通达OA工作流
08-18
一个可以读取通达OA工作流流程资料、可以从TIPTOP抛转资料到OA中进行流程处理的程序，本程序实现了OA与TIPTOP之前工作流的对接；抛砖引玉，有兴趣的朋友可以研究下。
TIPTOP SQL错误代码
10-11
Informix错误代码 0 成功。 操作成功。当 SQL 语句成功地执行时，数据库服务器把这个 SQLCODE 值返回给应用 程序。 100 没有发现匹配的记录。 数据库服务器不能寻找更多的数据。这个信息是ANSI 标准的 SQLCODE 值。如果你想 选择或取数据，遇到了数据结束，或没有资料匹配 WHERE 子句中的条件。检查是否是 空表。使用这个 SQLCODE值决定一个语句什么时候到达数据结束。要了解更多的信 息，请参看适当的 INFORMIX-ESQL/C 程序员手册中的讨论。数据库服务器能够返回这 个 SQLCODE 值给在运行的程序。
tiptop 编译运行_TIPTOP_画面档修改说明
weixin_32348697的博客
12-29 583
第1页共5页TIPTOP画面档修改说明一、PER文件的UI(UserInterface用户接口)组成：TitleBar(标题栏)TopMenu(菜单栏)【非必要Section】定义画面中的TOPMENU结构。ToolBar(工具栏)【非必要Section】定义画面中的TOOLBAR结构。Page(页面)FieldDescription(域)RingMenu(响应按钮)【非必要Section】定...
TIPTOP GP5打印报表时如何在水晶报表中显示服务器上的图片
秋雨满江
08-08 2596
一、易拓使用Crystal Report打印出来的报表中的Logo是如何显示出来的？
TIPTOP报表输出种类
weixin_34357962的博客
06-02 328
TIPTOP报表输出种类1. 您可选择「1.系统打印机」，将报表由系统打印机列印出來，若贵公司有多台系统打印机，可再下拉选择要用哪台系统打印机列印。2. 您可选择「L.终端机印表」将报表由連接目前您使用终端设备或个人计算机后的打印机印出，若有些报表需要特别的列印方式，通常也会设在此项目中，可用下拉选择所要列印的规格。3. 您可选择「Rich Format Output」，当您...
tiptop使用java的poi包实现EXCEL导入导出功能
热门推荐
四方木
09-18 9万+
4gl可以调用java的poi包实现EXCEL的导入导出，今天分享一个EXCEL导入的功能！ 一：环境搭建 1：poi文件导入 首先下载POI文件（找不到的可以私信我），解压后上传到ERP的服务器中 一般位置放在$TOP/ds4gl2/bin/javaad/jar，当然，你也可以根据喜好自行定义！ 然后，在系统中编辑tiptop_env文件，路径在$TOP/bin/tiptop_env ......
tiptop 单据编号函数
kissguan的小屋
04-09 1061
系统单据编号介绍： 直接调用系统函数：(模组名，单号，单据日期，单据性质，表名，栏位名……) [html] view plaincopyprint? CALL s_auto_assign_no("aco",g_cno.cno01,g_cno.cno02,"14","cno_file","cno01","","","")   RETURNING li_
finereport与OA系统集成的完全方案
weixin_30807779的博客
08-04 970
随着社会信息化高速发展，企业信息化也得到了一定提高，而如何提高办公效率已经成为企业一项重要而紧迫的任务，传统的纸质报表等档案不仅浪费纸张、不易存档、不易调阅、不易统计，如何更有效、更快速提升办公效率和办公质量，成为了制约工作效率提升的最大瓶颈。 由点到面，从各位朋友的电脑桌面上繁多的报表文件，明显的可以看出日常工作的繁忙，可是一天下来感觉处理的文件却不多。 地域限制：由于集团没办法实时和子公司...
TIPTOP ERP 制造常见异常处理问题集
李艺辉的专栏
04-08 2万+
TIPTOP ERP 制造常见异常处理问题集
鼎捷TIPTOP开发手册
最新发布
04-03
"鼎捷TIPTOP开发手册是广州鼎捷软件有限公司发布的，主要针对鼎捷易拓TIPTOP系统的开发和操作进行详细说明的手册。手册涵盖了系统环境架构、操作说明等多个方面，旨在帮助用户理解和使用该系统。" 在手册中，首先...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值