4GL&CR报表处理图片信息-赫非域

一、CR报表打印数据库中的二进制图片信息

典型应用：打印料号的产品图片【TIPTOP ERP 料号存于gcb_file (gcb09 BLOB)】

这里讲一下查询BLOB对象，4GL存储BLOB对象方法点：

1、4GL代码：

①.定义BLOB变量

DEFINE l_gcb09 LIKE gcb_file.gcb09

②.BLOB对象载入二进制内存区

LOCATE l_gcb09 IN MEMORY

③.将数据存入l_gcb09 （ex:将料号图片信息存入l_gcb09）

1. SELECT gcb09 INTO l_gcb09 FROM gca_file,gcb_file

2. WHERE gca01=l_ima01 AND gca08=’FLD’

3. AND gca07=gcb01 AND gca08=gcb02

4. AND gca09=gcb03 AND gca10=gcb04

④.使用l_gcb09….(ex:EXECUTE insert_prep USING l_ima01,l_gcb09,….)

⑤.使用完后，要释放BLOB内存

FREE l_gcb09

2、CR报表：

①.定义CR的数据交互XML文件BLOB图片gcb09栏位为二进制type （xs:base64Binary）

<xs:element name=”gcb09″ type=”xs:base64Binary” minOccurs=”0″ />

②.在CR报表中插入l_gcb09二进制图片栏位

3、效果图：

二、单据审核状态图片显示

典型应用：各类交易类t程序………………..

1、4fd放置一个FFImage的图像控件

主要属性设置（name：imgmksg，sizePolicy：dynamic）

其中name属性一定要取为imgmksg，因为cl_set_field_pic()显示图片的公用函数display写死为imgmksg

2、4GL代码

CALL cl_set_field_pic(ps_confirm,ps_approve,ps_post,ps_close,ps_void,ps_valid)
#ps_confirm 确认码

#ps_approve 核准码

#ps_post 过帐码
#ps_close 结案码

#ps_void 作废码

#ps_valid 有效码(若有效码为N则不管其他码图,图片都显示无效)

三、自定义任何静态图片的显示

典型应用：在程序页面上放置图片提示or警示用……………….

1、4fd放置一个FFImage的图像控件

名字随便取，ex：barcodeimg

2、4GL代码

DEFINE ls_lake_pic STRING

LET ls_lake_pic = FGL_GETENV(“FGLASIP”) CLIPPED,”/tiptop/pic/barcodeimg.jpg”

#先要上传该图片(barcodeimg.jpg)置于Linux服务器$TOP/doc/pic目录下面

DISPLAY ls_lake_pic TO FORMONLY.barcodeimg

四、显示数据库图片于单头

典型应用：aimi100料号图片