单据打印二维码的功能, 用法如下:
1.复制附件中的那2个DLL到使用的文件夹下面。
qrdecode.dll
qrencode.dll
2.导入对象 n_qrcode_prtobj.sru
3.调用:
n_qrcode_prtobj luo_qrcode_prtobj
luo_qrcode_prtobj = create n_qrcode_prtobj
--gwts.ipnt.of_printset(ls_printobj,adw_print)
luo_qrcode_prtobj.vf_set_barcode_bypb(dw_print) /*设置打印条码: 二维码*/
--gwts.ipnt.of_print(dw_print)
destroy luo_qrcode_prtobj
4.调整 数据窗口
根据需要自行调整 数据窗口,
方法一: 在数据窗口中 加一图片 picture object, 名为: p_barcode, 在tag属性中填上 条码列的 colname
例如条码值为:配药单号 execnote_num
在数据窗口 dw_zss2_printtpd 中数据源中增加 op_execnote.execnote_num, 对应的数据窗口列名改为 execnote_num,
再在数据窗口中增加一 picture object, name 属性中填入 p_barcode, tag 属性中填入 execnote_num.
方法二: 在数据窗口中的sql中加一字段 , 名为: p_filename, 计算表达式为:
' ' as p_filename --共100个空格,
再在数据窗口中加一计算列,名为: p_bitmapfilename, 计算表达式为: bitmap(p_filename), tag属性中填上 条码列的 colname
方法一适用于数据窗口中的条码值不变的情况,例如执行单号
方法二适用于数据窗口中的条码值有变化的情况,例如组号.计划单号等
2019-12-21 20:35:01
489KB
pb
1