免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 4955 | 回复: 11

rpgle程序如何做帐票例子 [复制链接]

论坛徽章:
0
发表于 2010-04-12 11:15 |显示全部楼层
如题:哪位有关于rpgle作帐票报表的例子,给共享一下。谢谢了
请说详细些,由于是新手。
1。如何画报表文件(PRTF),这个文件会建立了,但是不会写里面的内容。
2。如何编写打印报表程序

论坛徽章:
0
发表于 2010-04-12 13:23 |显示全部楼层
兄弟,我帮你顶一个,我也想学习一下,请高手指教。

论坛徽章:
0
发表于 2010-04-12 13:25 |显示全部楼层
老朱
   谢谢你啊

论坛徽章:
0
发表于 2010-04-12 16:38 |显示全部楼层
各位没有了解的吗
如果上面的两个文件都做成后,如何调用呢 如何能把帐票显示出来呢

论坛徽章:
0
发表于 2010-04-12 22:38 |显示全部楼层
回复 1# KAKUSANN


   假设prtf文件格式如下:
     
   prtf文件名:zppf
          R     head
                 内容
       R    minxi
                 变量字段
       R    foot
                 内容

rpgle 程序名:pgm1
          F..........
          FZPPF      O     E            PRINTER  USROPN OFLIND(25)
          ....................
          C*头信息
          c           OPEN   ZPPF
          C          WRITE   HEAD
          C*明细信息
          C          DOW     1=1
          .............
          C         WRITE   MINXI
          c   25    WRIET   FOOT
          c   25    eval      *in25='0'         
          C          ENDDO
          C*表尾
          c  n25    WRIET   FOOT
....................
          c           close   ZPPF

..其他的您自己在弄弄

论坛徽章:
0
发表于 2010-04-13 08:38 |显示全部楼层
楼上的回复


谢谢您,我已经写完这两个文件了,已经编译通过了,可是如何调用呢,看看这个结果是什么样的如何做呢

不是很明白还请指教!

论坛徽章:
0
发表于 2010-04-13 11:50 |显示全部楼层
回复 6# KAKUSANN


    当你将数据打印出来后,如果没有直接送到打印就就是用wrksplf查看打印结果!

论坛徽章:
0
发表于 2010-04-13 12:48 |显示全部楼层
可这个wrksplf下面什么内容都没有啊
我把我的程序发到这里,大家帮忙看下。
1。PRTF 文件
A               R HEAD                                         
A                                           SKIPB(002)         
A                                           SPACEA(001)        
A                 H10000        68O  O    83                  
A                                        163                  
A                                           'DATE'            
A                 H10001         6  0    170                  
A                                           TEXT('DAY')        
A                                           EDTWRD('  .  .  ')
A                 H10002         6  0    179                  
A                                           TEXT('TIME')      
A                                           EDTWRD('  :  :  ')
A                                        189                  
A                                           'PAGE-'            
A                 H10003         4  0    194                  
A                                           TEXT('PAGE NO.')   
A                                           EDTCDE(3)   

2。rpgle程序
FLSL_PRTF  O    E             PRINTER           
C                   eval      H10001=090101     
C                   eval      H10002=000000     
C                   WRITE     HEAD              
C                   return

论坛徽章:
0
发表于 2010-04-13 13:17 |显示全部楼层
上面的程序通过 CALL 命令调用后,
当数据打印出来后,如果没有直接送到打印就就是用wrksplf查看打印结果!
wrksplf 这个进入之后 用5打印也没有什么反应阿

论坛徽章:
0
发表于 2010-04-13 13:36 |显示全部楼层
上面的程序通过 CALL 命令调用后,
当数据打印出来后,如果没有直接送到打印就就是用wrksplf查看打印结果! ...
KAKUSANN 发表于 2010-04-13 13:17



    说的好像不是很清楚,我现在的问题是:我不知道如何能把结果打印出来,用什么形式打印我也不清楚。
   查了一些资料说是用 wrksplf 这个命令查看结果,结果我用5进入后,出现了这样的提示:
   File LSL_PRTF_C number 9 cannot be displayed, copied, or sent.

001.jpg

也不知道什么原因.
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP