-
M和打印及绘图的火花
嗯？M作为操作Cache数据库的语言好像没有画笔操作啊，好像也不能调打印机啊。哪来的什么绘图和打印（这里的绘图指用画笔画，不是还原Base64串）。
本篇有助于检验理解打印原理，非检验组引入实现经验。
这里就得说的M的强大之处了。M作为操作Cache数据库的“完备”编程语言，注意是“完备”，关系库的存储过程作为编程语言还不够完备。M又有tcp，又可轻松调用webservice，又可以很容易发布webservice。既然M没画笔、不好操作打印机。那么我用别的语言（比如C#）实现画笔和打印之后，借助M的Webservice调用别的语言，或者别的语言调用M发布的Webservice得到打印和画图数据不就可以了。
这就又引发了一个问题。既然别的语言实现了打印画图操作，我为什么要用M调用，或者调用M逻辑呢？岂不是多此一举，脱裤子放屁了？
回答上面的问题就是：
1.M操作的是Cache数据库啊，所有数据都在数据库里面，打印和画图岂不是想取什么取什么，避免了多次数据库交互，打印模板和业务数据组装都在M里一次干完了。
2.既然是打印，那肯定很容易变业务啊。M作为脚本语言，适应业务变化的能力不用说了吧，还好调试。所以用M控制打印和画图就是一件很美的事。只要你能打通M和一个外部绘图打印语言的通道，就打开了一扇大门。需要做以下工作。
1.做好M和别的语言进行打印和绘图交互的数据约定，M的优点的取数控和控制数据方便，按约定输出数据就行。
2.实现M和别的语言的交互通道，让别的语言能获取M输出的打印绘图数据进行执行。和让M把组装的数据调别的语言处理成图。
整个交互图如下：
由于是要实现画图和打印。拿C#来说，画点、画线、画圆、画文本、画图片等不同元素参数是不同的。为了输出统一，所以在画图数据约定还是把属性固定列数。只是在不同元素上对每列的表示有差异。
约定有下面列：
PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor,Angle,IsVShowPrintType：表示元素类型，根据类型决定画什么元素，也是按类型决定列数据含义的。比如画文本有PrintX和PrintY表示坐标。那么画线时候就不够了。所以画线就把PrintWidth和PrintHeight表示线另一个点的坐标。这就是PrintType的用处。
PrintX：整型，元素X坐标
PrintY：整型，元素Y坐标
PrintFont：字符串类型，元素字体 如：“宋体”
PrintFontSize：整型，元素字体大小 如：“10”
PrintFontStyle：字符串类型，元素字体样式 如：“Bold”
PrintLength：整型，打印长度
PrintWidth：整型，元素宽度
PrintHeight：整型，元素高度
PrintText：字符串类型，打印文本
DataField：字符串类型，数字字段
PrintFlag：字符串类型，打印标识
PrintAlignment：字符串类型，文本停靠 如：“Left”
PrintImageFile：字符串，图片文件
PrintColor：字符串，元素颜色
Angle：整数，元素旋转角度一．打印机控制元素 1.PrintType为“PRINTER”类型元素 DataField：输出纸张名称 如：“A4”，“A5” PrintAlignment：输出纸张方向 可为：“Landscape”，“Portrait” PrintFlag：输出打印机名称 如：“tiaoma”以$*开头就判断打印机名字包含$*后面字符来选择打印机 PrintFont:输出打印机送纸来源 如：“1”，“2” PrintWidth：输出纸张宽度 PrintHeight：输出纸张高度 输出数据第一个元素为这个类型的将使用以上属性控制选择打印机和选择选择纸张 2.PrintType为“PRINTERONLY”类型元素 PrintFlag：输出打印机名称 如：“tiaoma”以$*开头就判断打印机名字包含$*后面字符来选择打印机 输出数据第一个元素为这个类型的将使用以上属性控制选择打印机忽略其他纸张，宽高，选择控制，只做打印机选择，防止干扰打印 3.PrintType为“PAGE”类型元素 输出类型为PAGE元素时将执行打印换页操作，别的元素不管，只要符合字段数据类型就行 二．绘图控制元素 1.PrintType为“ImageInfo”类型元素 PrintWidth：绘制图片的宽度 PrintHeight:绘制图片高度 PrintColor：绘制图片背景色 传空为白色 绘图输出第一个元素为ImageInfo类型的元素讲按照以上属性创建位图，其他后续元素的画笔操作都在该位图上执行。 三．画笔元素 1.PrintType为“Label”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：绘制标签的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：字符串，元素颜色 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个文本元素 2.PrintType为“Data”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：绘制标签的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：字符串，元素颜色 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个文本元素 3.PrintType为“CheckBox”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：勾选框宽度 默认20 PrintHeight：勾选框高度 默认20 PrintText：“是”或者“否” DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：输出空串 以上元素控制在画板画一个复选框，PrintText控制是否选中 4.PrintType为“Radio”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：勾选框宽度 默认20 PrintHeight：勾选框高度 默认20 PrintText：“是”或者“否” DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：输出空串 以上元素控制在画板画一个单选框，PrintText控制是否选中 5.PrintType为“Result”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：绘制标签的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：字符串，元素颜色 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个文本元素 6.PrintType为“Microbe”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：字符串类型，元素字体 如：“宋体” PrintFontSize：整型，元素字体大小 如：“10” PrintFontStyle：字符串类型，元素字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：绘制标签的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：字符串，元素颜色 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个文本元素 7.PrintType为“ILineN”类型元素 PrintX：线第一个点的X坐标 PrintY：线第一个点的Y坐标 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：线的宽度 默认：2 PrintWidth：线第二个点的X坐标 PrintHeight：线第二个点的Y坐标 PrintText：没用，输出空串 DataField：没用，输出空串 PrintFlag：线形 可为：0、1、2、3、4 PrintAlignment：没用，输出空串 PrintImageFile：没用，输出空串 PrintColor：字符串，元素颜色 Angle：没用，输出空串 以上元素控制在画板画一条线 8.PrintType为“BarCode”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：条码文本字体 如：“宋体” PrintFontSize：条码文本字体大小 如：“10” PrintFontStyle：条码文本字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：条码宽度 PrintHeight：条码高度 PrintText：条码的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个带条码字的条码 9.PrintType为“BarCodeN”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：条码文本字体 如：“宋体” PrintFontSize：条码文本字体大小 如：“10” PrintFontStyle：条码文本字体样式 如：“Bold” PrintLength：没用，输出：0 PrintWidth：条码宽度 PrintHeight：条码高度 PrintText：条码的文本 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：字符串类型，文本停靠 如：“Left” PrintImageFile：为“true”或空串，决定是否绘制条码文本 PrintColor：没用，输出空串 Angle：整数，元素旋转角度，默认空 以上元素控制在画板画一个条码 10.PrintType为“Point”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：没用，输出：0 PrintWidth：点的宽度 PrintHeight：点的高度 PrintText：没用，输出空串 DataField：没用，输出空串 PrintFlag：可为“o” “[]” “<>” PrintAlignment：没用，输出空串 PrintImageFile：为“true”或空串，决定是否绘制条码文本 PrintColor：没用，输出空串 Angle：没用，输出空串 以上元素控制在画板画一个点 11.PrintType为“Poly”类型元素 PrintX：没用，输出：0 PrintY：没用，输出：0 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：多个点坐标以^分割，单个点的xy以@分割 如：1@12^23@12^34@56 DataField：没用，输出空串 PrintFlag：没用，输出空串 PrintAlignment：没用，输出空串 PrintImageFile：没用，输出空串 PrintColor：填充颜色，默认黑色 Angle：没用，输出空串 以上元素控制在画板画一个多边形 12.PrintType为“Graph”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：没用，输出：0 PrintWidth：图片宽度 PrintHeight：图片高度 PrintText：没用，输出空串 DataField：为图标模式就放图标Base64串，否则放ftp全地址 PrintFlag：为“D”打印系统维护的图标，带“http”从这个地址下载文本绘图命令数据绘图。命令为绘图元素数据的数字json串，否则为R对下载ftp图片绘制图进行翻转绘图 PrintAlignment：没用，输出空串 PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：没用，输出空串 以上元素控制在画板画一个图片 13.PrintType为“FILE”类型元素 PrintX：没用，输出：0 PrintY：没用，输出：0 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：没用，输出：0 PrintWidth：没用，输出：0 PrintHeight：没用，输出：0 PrintText：输出选择的打印机名字，空就使用默认打印机 DataField：输出PDF文件的ftp或http全路径。用英文逗号分隔两个A5PDF路径打印会自动合并为一个A4。一个A5路径后跟个英文逗号，会把PDF转A4纸打印 PrintFlag：没用，输出空串 PrintAlignment：没用，输出空串 PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：没用，输出空串 以上元素控制打印输出的ftp或http全路径的PDF文件 14.PrintType为“PDF”类型元素 PrintX：整型，元素X坐标 PrintY：整型，元素Y坐标 PrintFont：没用，输出空串 PrintFontSize：没用，输出：0 PrintFontStyle：没用，输出空串 PrintLength：没用，输出：0 PrintWidth：PDF绘制宽度 PrintHeight：PDF绘制高度 PrintText：没用，输出空串 DataField：PDF文件的ftp全路径或者http全路径。上尖号分隔第二位指定打印第几页，从1开始。不指定打印全部页，会造成预览打印当前页乱。建议如果是多页的话M输出指定页。这样就完全等于图片元素。否则和图片元素在多页时候有差异。 PrintFlag：为R对PDF绘制图进行翻转绘图 PrintAlignment：没用，输出空串 PrintImageFile：没用，输出空串 PrintColor：没用，输出空串 Angle：没用，输出空串 以上元素控制在画板画一个PDF文件- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
- 242
- 243
- 244
- 245
- 246
- 247
- 248
- 249
- 250
- 251
- 252
- 253
- 254
- 255
- 256
- 257
- 258
- 259
- 260
- 261
- 262
- 263
- 264
- 265
- 266
- 267
- 268
- 269
- 270
- 271
- 272
- 273
- 274
- 275
- 276
- 277
- 278
- 279
- 280
- 281
- 282
- 283
- 284
有了约定以后，实现约定的语言就各有千秋了，怎么实现可以用各自擅长的语言实现按元素打印和绘制的库。在检验里面就是“DHCLabtrakReportPrint.dll”，驱动他的地方就可以打印、绘图、输出PDF，这是执行层的事了，重点看看M怎么控制打印。
1.第一种模式是EXE告诉执行dll通过M发布的webservice调给定的query得到M输出的约定数据执行画笔打印或生成PDF或者图片。
先来一个小的开胃菜，不用模板写死固定位置的条码打印，这里C盘TRAK的ResultPrint.exe就是通过“DHCLabtrakReportPrint.dll”驱动M得到数据执行打印画笔的。
对应的M就是一段小Query，从库取数据输出绘图约定数据。
Class HIS.DHCReportPrintBarCodeForAll Extends %RegisteredObject { Query QueryPrintData(LabNos As %String(MAXLEN=32767), UserCode As %String, Param As %String(MAXLEN=32767), P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor,Angle,IsVShow") { } /// LabNo:检验号 /// UserCode:用户代码 /// Param:预留参数串 "0^Merge^DOUBLE^CHECKPAPER^PrinterName^" /// Merge:是否合并不同样本的报告 /// DOUBLE:A4纸张1页打印两份报告 CHECKPAPER:可按报告定义设置打印纸张,缺省必须一次打印一个TSROWID /// PrinterName指定打印机^[WebNamespace]PAPERSource:指打印机纸盒来源(数值) /// PrintType="PAGE" 表示需要换页 tResultLineSpacing:结果换行 /// d ##Class(%ResultSet).RunQuery("HIS.DHCReportPrintBarCodeForAll","QueryPrintData","L0009485","demo",0) ClassMethod QueryPrintDataExecute(ByRef qHandle As %Binary, LabNos As %String(MAXLEN=32767), UserCode As %String(MAXLEN=32767), Param As %String(MAXLEN=32767), P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status { Set repid=$I(^CacheTemp) If $g(ind)="" Set ind=1 s LabNos=$g(LabNos),UserCode=$g(UserCode),Param=$g(Param) k ^TMP("HIS.DHCReportPrintBarCode",$i_$j) s ^TMP("HIS.DHCReportPrintBarCode","PARAM","QueryPrintDataExecute")=LabNos_","_UserCode_","_Param s ^TMP("QueryPrintData")=$lb(LabNos,UserCode,Param,P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions) ;"1702230024|52","113","BarCode^HNLS--20161002GKU^IP10.1.63.44^MAC3C:97:0E:6F:71:3F","PrintPreview","","","","","","","","","","",$c(0) s ReportMerge=$p(Param,"^",2) s A4Double=$p(Param,"^",3),CheckPaper=$p(Param,"^",4),PrinterName=$p(Param,"^",5) s PaperSource=+$p(Param,"^",6) ///打印机送纸来源 //s CheckPaper="CHECKPAPER" ///选择详细纸张设置打印 s PrintColor="" f ord=1:1:$L(LabNos,"^") d .s labNo=$p(LabNos,"^",ord) .s labNo=$p(labNo,"|",1) .q:'$l(labNo) .///病人信息 .s ReportInfo=##Class(HIS.DHCReportPrintBarCodeForAll).GetPrintInfo(labNo) .i '$l(ReportInfo) q .///设置打印机 .i CheckPaper="CHECKPAPER" d ..s (PrintFontSize,PrintFontStyle,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile)="" ..s PrintType="PRINTER",(PrintFont,PrintX,PrintY,PrintLength,PrintWidth,PrintHeight)=0 ..s PrintWidth="824" ..s PrintHeight="1024" ..s PrintAlignment="" ///纸张方向 ..s PrinterName="tiaoma" ..i $l(PrinterName) s PrintFlag=PrinterName ///指定打印机打印 ..s PrintFont=PaperSource ///打印机送纸来源 ..set Data=$lb(PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor) ..d OutputData .//输出数据 .s Data=$lb("Label",36,45,"黑体","11","Regular",60,80,20,"","姓名","","Left","","","-90","1") .s patName=$p(ReportInfo,$c(2),4) .s $li(Data,10)=patName .d OutputData .s Data=$lb("Label",96,45,"宋体","10","Regular",40,41,20,"性别","","","Left","","","-90","") .s patSex=$p(ReportInfo,$c(2),5) .s $li(Data,10)=patSex .d OutputData .s Data=$lb("Label",116,45,"宋体","10","Regular",40,41,20,"","年龄","","Left","","","-90","1") .s patAge=$p(ReportInfo,$c(2),6) .s $li(Data,10)=patAge .d OutputData .s Data=$lb("Label",23,110,"宋体","10","Regular",40,37,20,"","标本","","Left","","","-90","") .s Specimen=$p(ReportInfo,$c(2),12) .s $li(Data,10)=Specimen .d OutputData .s Data=$lb("Label",36,30,"宋体","10","Regular",40,37,20,"","医嘱","","Left","","","-90","1") .s OrdName=$p(ReportInfo,$c(2),13) .s hasOutPut=0 .f i=1:12:$l(OrdName) d ..i i+12<$l(OrdName),hasOutPut<2 d ...s $li(Data,10)=$e(OrdName,i,i+12) ...s $li(Data,3)=$lg(Data,3) ...d OutputData ...s hasOutPut=hasOutPut+1 ..e i hasOutPut<2 d ...s $li(Data,10)=$e(OrdName,i+1,i+12) ...s $li(Data,3)=$lg(Data,3)-15 ...d OutputData ...s hasOutPut=hasOutPut+1 .s Data=$lb("Label",23,80,"宋体","10","Regular",40,37,20,"","登记号","","Left","","","-90","") .s regNo=$p(ReportInfo,$c(2),2) .s $li(Data,10)=regNo .d OutputData .s Data=$lb("Data",40,42,"宋体","10","Regular",40,327,62,"0","检验号","BarCode","Left","","","","") .s $li(Data,10)=labNo .d OutputData .s Data=$lb("Label",143,110,"宋体","9","Regular",40,33,20,"","科室","","Left","","","-90","") .s Loc=$p(ReportInfo,$c(2),7) .s $li(Data,10)=Loc .d OutputData Set qHandle=$lb(0,repid,0) Quit $$$OK OutputData Set ColFields = "PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor" Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields) Set ind=ind+1 Quit } ClassMethod QueryPrintDataClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set repid=$LIST(qHandle,2) Kill ^CacheTemp(repid) Quit $$$OK } ClassMethod QueryPrintDataFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set AtEnd=$LIST(qHandle,1) Set repid=$LIST(qHandle,2) Set ind=$LIST(qHandle,3) // Set ind=$o(^CacheTemp(repid,ind)) If ind="" { // if there are no more rows, finish fetching Set AtEnd=1 Set Row="" } Else { // fetch row Set Row=^CacheTemp(repid,ind) } // Save QHandle s qHandle=$lb(AtEnd,repid,ind) Quit $$$OK } }- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
重点就是这几句，简单吧，好调试吧。这里是EXE调用Cache库的Webservice告诉执行哪个Query来实现的。再复杂的打印无非就是取数据逻辑复杂点，再和维护模板数据组装一下复杂点。最终都沦为OutPut数据。文章最后给个稍微复杂一点的打印M示例。
2.第二种模式就是M作为主动一方，调用Web发布的Webservice绘图。这种模式Web把绘图库包装成Webservice供M调用执行绘图。第一个模式的M输出完全在按约定组数据，还比较松散，用M专门绘图还是有必要包装一下绘图类的
绘图测试示例：
Class wbsLisMsgAsyncHandler.LISMsg.DHCLISImageTest Extends %RegisteredObject { /// Creator: zlz /// CreatDate: 20160729 /// Description: 画表格测试 /// Table: /// Input: /// Output: /// Return: /// Others: w ##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImageTest).DrawGridTest() ClassMethod DrawGridTest() { s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() s data="" s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("李四","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("王二","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("张三","男","19岁","094780909478090947809","湖南","111")) s ret=imgObj.DrawGrid("",data,$lb(1,2,3,4,5),$lb(20,10,10,10),"",800,10,10,"","","",1,1,25,1,14,"",1100,3) set ret=imgObj.Save(876,1140,"","0947809.bmp","ZLZ","") q ret } /// Creator: zlz /// CreatDate: 20160729 /// Description: 画带标题表格测试 /// Table: /// Input: /// Output: /// Return: /// Others: w ##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImageTest).DrawGridWithHeadTest() ClassMethod DrawGridWithHeadTest() { s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() s data="" s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("李四","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("王二","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("4","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("5","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("6","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("7","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("8","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("9","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("10","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("11","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("12","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("12","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("14","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("15","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("16","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("17","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("18","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("19","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("20","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("21","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("22","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("23","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("24","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("25","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("26","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("27","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("28","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("29","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("30","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("31","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("32","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("33","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("34","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("35","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("36","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("37","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("38","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("39","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("40","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("41","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("42","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("43","男","19岁","094780909478090947809","湖南","111")) s ret=imgObj.DrawGrid("",data,$lb(1,2,3,4,5),"","",800,10,10,"",$lb("姓名","性别","年龄","编号","家庭住址","其他"),"",1,1,25,1,14,"",1100,"","",16) set ret=imgObj.Save(876,1140,"","0947809.bmp","ZLZ","") q ret } /// Creator: zlz /// CreatDate: 20160729 /// Description: 画图测试 /// Table: /// Input: /// Output: /// Return: /// Others: w ##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImageTest).DrawImageTestMTHD() ClassMethod DrawImageTestMTHD(P0, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String { s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() //得到直方图 s ret=imgObj.GetHistogram("","Histogram.bmp","ZLZ",320,160,"12,13,3,22,60,60,80,12,12,13,14,15,16,17,18,19,20,20,21,22,22.1,22,22.2,22.3,22.4,22.5,22.6,22.7,22.8,22.9,23,23.1,23.2,23.3,23.4,23.5,23.6,23.7,23.8,23.9,24,24.1,24.2,24.3","PLT","直方图","5#5,10#10,15#15,20#20,24#pL","0#0,15#15,30#30,45#45,60#60,75#mol/L") //文本 s ret=imgObj.DrawLabel(10,10,"测试文本") s ret=imgObj.DrawLabel(40,40,"画文本") //选中的复选框 s ret=imgObj.DrawCheckBox(60,60,"1") //没选中的复选框 s ret=imgObj.DrawCheckBox(90,60,"0") //线 s ret=imgObj.DrawLine(150,0,150,300,2) s ret=imgObj.DrawLine(0,150,300,150,1,1,"red") //条码 s ret=imgObj.DrawBarCode(140,40,"1035891934") //点 s ret=imgObj.DrawPoint(140,90,4,4) s ret=imgObj.DrawPoint(180,90,4,4,"[]","red") //多边形 s ret=imgObj.DrawPoly("100@100^290@200^150@150","red") //画图 s ret=imgObj.DrawGraph(200,200,100,100,"ftp://lis:lis@127.0.0.1/MCImage/19-0.jpg") set ret=imgObj.Save(300,300,"","0947809.bmp","ZLZ","") set ret=imgObj.Save(300,300,"BASE64","0947809.bmp","ZLZ","") //保存图片路径到仪器 s ret=imgObj.SaveToMachine(ret,16,"999","P") //从FTP地址获取图片。如：西门子2120的图在ftp上获取 s ret=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).GetFTPImgMTHD("ftp://lis:lis@127.0.0.1/MCImage/19-0.jpg","","zlz.bmp","zlz") //把Base64串处理成图片存到ftp上 s ret=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).GetImgByBase64MTHD("/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAEsASwDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iiub8XaxqWkxWQ0ufTVnuLiGBo7tWZgsk8UXmqqsC4UyAFcj76ncMbXAOkory+y+IOqXsFtCxgMlxd2jx3MMHk/uHfTiUaNnk+YrfMpIbjbxycjoF8VSRaZpX2S+0q9mu5ZreNtWum02aZ45PL2iIxMWkB+VgFX5uQoDAAA7CivP9L8SeKbbwDpuvXllY3zXMVvLO8moGIRRukS+adtvhVyXkcHIQBiGIwF0NM1bxZDq1pomo6dpVzN5TTXF3DqLkxxCQKpdRbgeYwJx91XMUhGwDAAOworzvxF4z8Q6Jq2j2txZaNb+bcEzqmozSKIvJmIMrfZf3Sbk3b/APpk38Kuy9xpsmpS27NqlpaW0+/Cpa3LTqVwOSzRoQc54x2HPPABcooooAKKKKACiiigAooooAKKKKAOD+LU81v4TtHglkiY6paqWRipwX5HFd5Xn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK5/xVplxqkFisNlBcra3cV4odwsgljdTHtYghFzku4ywQMqqxcbegooA8zh8CT6bYackNrd3F9a3tnA8izRCFoI3si0+CQwGyyT5eWDs4G5dr1qWWg+IPN0sGKxtYbLxBf37PJM0jvBI0+zCKAAzCdur/AC4UkMSUHcUUAcXpNrr+l+HF8OXOhWmoxW6CwtpXnVLea2SCNd8+dzgufMG1Y2AI2nj5zc0vT9U8P3gWS2/tZLnyo5L9JsTx4GArLKxzCnzkEOX+flXcvI/UUUAef6v4Q8QXWq2M4vtKvVkuy9291prPhDazx7WHngNCDKyrGAMeZuYsd7P2GjWV5p2nJa3l/wDbWjwElKFW24HBJZi2DnBJLbdoYswLtoUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8AGD/kULP/ALCtp/6Mr0CvP/jB/wAihZ/9hW0/9GV6BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRXiHj5BP4g8QyrpcFxNaRXkwlj06xkceTaWLIZWnQlo1M0mdpL/MAOAAAD2+ivI/B+mtB4svdLtoZNGlCXSeethYR3aKi6fIoZoYzGRmaTjB4YZ5UYuWFpq/+jCHxVqqeIr27W21KJYbTy1MGPOmKeRlVMe0I5GWEtsG4K4APUKK83+JUN/ZeFNQhi8QarcTXOnzr9k22ojMccBMskhEBcKQMEqQN8qKCgYFek8KreTJLcXmtalczwu9tcWV0LfbDKrDJBjhjYgjDKTjcjq20ZGADpKKKKACiiigAooooAKKK5/x3/wAk88Tf9gq6/wDRTUAc/wDGD/kULP8A7Ctp/wCjK9Ar5g8Zf8kVtv8AsK6b/wCmiGu/l/5KH48/7Cvhv/0bFQB7BRXn/wDzO/8A3Nf/ALha5/xD/wAgPwn/ANlAf/0tuqAPYKK+QP8AmSP+5U/9zVdB4N/5Adz/ANk/1L/0tmoA+n6K8A8Jf8jP8Rf+xr03/wBOTVv3n/JetG/7Ct//AOmu0oA9gorwDxf/AMiR4+/7Zf8Ap6vqPh//AM0d/wC41/7NQB7/AEV8wJ/yHPiP/wBhW9/9ItUr3/wJ/wAk88M/9gq1/wDRS0AdBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXH6x8O9O1vU7q9ubyf/AEiXzjC9pZzoj+XHGSvnQOy5WJM89q7CigDi9O8BSaBerd6Lq0cTpbzRJFcabAIlaR4Sz7bdYcnbCF5J/hORghtT/hGZYf8ASrXWr5dW/jvZgj+eo+7HJGFVPLB7IEYZcqymRy3QVFc3MFnay3NzMkMESl5JJGwqKOSSewoA5zXPBVr4g0m9iurmeLUry0aCW7tp54kLGPaMxCTDRg5YRsSo3P3didTTfD+n6VcNcW32tp2TY0lxezTsy5BAJkdiQCDtB+7ufGN7Zzf+Fi+C/wDoadI/8C0/xq5ceK9HtxpJF2Jxq0whsvs6mTzT1LDH8IHJboKANqiiqGq61peh2y3Oq6hbWULNsWS4kCAt1wCe/BoAv0VzP/CxfBf/AENOkf8AgWn+Nauk69pGvRSS6TqVrfJEQrtbyhwpPTOOlAGjRRRQAVz/AI7/AOSeeJv+wVdf+imroKzPElnFqPhbV7Ge7S0hubKaGS5cDbCrIQXOSOADnqOnWgD5z8Zf8kVtv+wrpv8A6aIa7+X/AJKH48/7Cvhv/wBGxVi/Ejwva6Z8OtM0ZNWM73Wo2UsUi2rYKJax2uTgkAHaH5I67ecZrtX0fTm1vxVrY1K6YXd9pk0kCaZMzxm1kUgIAN0quUI3IMDnrg0AS/8AM7/9zX/7ha5/xD/yA/Cf/ZQH/wDS26rrvs+n/wDCTx3DX1wkkmo/2uEksJVQD7D9n8tpCNqtgGTBw2ONveqFxoem6zpOiIustbC08THU0FzZvDJLI00swg8uQqwOJfvYOQu7GDwAeA/8yR/3Kn/uaroPBv8AyA7n/sn+pf8ApbNXWt8KdPTS7vR28TTh7XRzYySf2RJhgL37UXT5sSEZCFUJIJHf5a1NC+HFhpmkQD/hJCyX+h3Ph+AyWDRMXmmll3FGbcGXLAoQD8pJI6UAc94S/wCRn+Iv/Y16b/6cmrfvP+S9aN/2Fb//ANNdpXQaT8Mv7L1TxHe/2v5v9s6rbals+zbfJ8m5M+zO87s5254x1welaE3gXzfHtn4n/tHH2a7nufs3kfe821ht9u7dxjyd2cc7scYyQDzDxf8A8iR4+/7Zf+nq+o+H/wDzR3/uNf8As1d/rHwy/tXQ9f03+1/K/tfb+8+zbvK23s9103jd/r9nUfdz3wDw/wDDL+wv+EO/4m/n/wDCN/bf+Xbb9o+0Z/2zs2598+1AHkCf8hz4j/8AYVvf/SLVK9/8Cf8AJPPDP/YKtf8A0UtcePg/i+8SXP8Abv8AyGrua52/ZP8AU+ZDdRbc7/mx9qznjOzHfI9A0LTP7E8PaZpPned9htIrbzdu3fsQLuxk4zjOMmgDQooooAKKKKACiiigAooooAKKKKACiiigAooooAK5n4i/8k38Sf8AYOm/9ANdNWL4w0y51nwbrOmWYU3N1ZyxRBjgFmUgc9qAKeqeN9N0LxA+mawsljEbU3MF5LjypwoJdAf7ygZweTn6Z5nwxcNqPiqy8U63BIt5rfmQaNauv/HpaIhcufR3ABOOeQOmava0+r+IrJLPV/hwby3SRZVSTU4MBlOQeD/+sEg8Gp4ovEOt+LtDvb3w9/ZVppnnuzveRy798ewKAn1zzQB29cz4k/5Gnwd/2EZv/SOeumrmvFlrqjXehalpen/b5NOvHlktxMsRZWglj4ZuOC4NAHS1yWhf8lG8Xf8AXOx/9Aej/hIvFn/QjTf+DSD/ABp3haz1c6/r2s6rpo077f8AZ0itzOsrARqwJJXjnd+lAHV0UUUAFRzrK1vIsDokxUhHdC6q2OCQCMj2yPqKkopNXVgPKPijpV5a+EdFea9hleG8tLefZblFlAkG0qC5KY5zy2c9q7CbwveXFtqkdzqFpdm9lVkS8sjNEEU8K8bSYbj+4YxkZ25JzjfGD/kULP8A7Ctp/wCjK9ApvUDnF8LuNTtrlrm2eGG2EDIbU+Y+EK7S4fHl8k7CpIJOGGaisPC99pmjm2ttThN5LeLdXFxPBLMr7duFUPMXHCIMs7dDxjAHUUU79f67gc5/wjEy63qOqRagIpp4WitQqSFYC20sxVpCpJZQTsEeec5OGFObwbqDpojQ+IZIZtOlDy5tllSdd25gPMLSKx4G7exx1yea6+il28geu4UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVjXHi7w3aan/Ztzr2mw327aYJLpA4PYEE8H2pvjG6vrLwVrd1pu77bDYzPCV6qwQ8j3HUe4r4cZmdizEszHJJOSTQB9ffGD/kULP8A7Ctp/wCjK9ArwGG81C9/Z+8Oyagzs66rBHE79WjWYhfyAwPYCvfqACobu7t7G0kurqVYoIhud26KKmrnfHf/ACI2r/8AXA/zFTOXLFs2w1JVa0Kb2bS+9h/wnfhf/oN2v5n/AArX0/UrLVrQXVhcJcQElQ6dMjrXyvXvfwn/AORHj/6+JP51xYbFyqz5Wj6bOuH6GX4b21OTbulrbz8juKKKK7z5MKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAr3t4lhbNcypI0KcyNGu4oP7xA5IHtmltLy2v7ZLm0njnhcZWSNgwP4ip6828V+G9U8OXMviHwlNJApO+7s4xlD6sF6Eeo7dRWVScoLmSujuwWHpYmXspS5ZPZvZ+T7ep6TRXm3hz4t2F9st9biFlOePOTJiY+/df1HvXo0M0VxCk0EqSxOMq6MGVh6ginTqwqK8WTjMBicHPlrxt+T9GPrz+6+CvgW71U376QUZm3tBFMyRE/7oPA9hgV6BRWhxnnfxYt4bTwPp1tbRJDBFqdmkccahVRQ4AAA6AV6JXn/xg/5FCz/7Ctp/6Mr0CgAqpqWn2+rabPYXQYwTrscKcHH1q3RSaTVmVGThJSi7NHD/APCp/C//ADyuv+/5rp9D0Sy8PaaLCwVxAGLgO245PXmtGiojShB3irHVXzDFYiPJWqOS82FFFFaHGFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHkfxE+Hezzdb0SH5OXubVB09XUenqPxrgdB8Vax4cm36ddssZOWhf5o2+q/wBRg19NV5H8RPh3s83W9Eh+Tl7m1QdPV1Hp6j8a83E4ZxftaR9rkmd060FgsdZp6Jv8n+jN3w38VdJ1XZBqgGnXR43McxMf97+H8fzrvlZXQOjBlYZBByCK+Ta6Dw9401rw04WzuS9tnLW03zRn6Dt+GKijj2tKh05jwnCd54N2fZ7fJ9Pnc9T+MH/IoWf/AGFbT/0ZXoFeJeMPHtj4s8J2lqsElvfpqNrI8R+ZSocZIb0HvivbeoyK9KFSM1eLufFYnCV8LP2deLi/627hRRRVnMFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHkfxE+Hezzdb0SH5OXubVB09XUenqPxryivrOvI/iJ8O9nm63okPycvc2qDp6uo9PUfjXmYvCfbh9x9zw/wAQXthcU/R/o/0Z5RXU+HPH2t+HCsUc32mzH/LtOSQB/snqv4ce1ctRXnQnKDvF2PscRhqWIh7OtFSXmfQ/hv4h6J4h2Q+b9jvW4+zzkDcf9lujfz9q6yvkyuy8N/EnW9B2QzP9vs148qdjuUf7LdR+OR7V6NHH9Kn3nxuY8JPWeDf/AG6/0f8An959A0Vzfh3xxoniRVS2uPJuiObab5X/AA7N+FdJXoxnGavF3Pja+Hq0JunVi4vzCiiiqMQooooAKKKKACiiigAooooAKKKKACiiigDO/tq1/wCeV/8A6zy/+QfP1/746f7XT3o/tq1/55X/APrPL/5B8/X/AL46f7XT3rRoqfeNb0v5X96/yM7+2rX/AJ5X/wDrPL/5B8/X/vjp/tdPej+2rX/nlf8A+s8v/kHz9f8Avjp/tdPetGij3gvS/lf3r/Izv7atf+eV/wD6zy/+QfP1/wC+On+1096P7atf+eV//rPL/wCQfP1/746f7XT3rRoo94L0v5X96/yM7+2rX/nlf/6zy/8AkHz9f++On+1096P7atf+eV//AKzy/wDkHz9f++On+10960aKPeC9L+V/ev8AIzv7atf+eV//AKzy/wDkHz9f++On+1096P7atf8Anlf/AOs8v/kHz9f++On+10960aKPeC9L+V/ev8jO/tq1/wCeV/8A6zy/+QfP1/746f7XT3o/tq1/55X/APrPL/5B8/X/AL46f7XT3rRoo94L0v5X96/yM7+2rX/nlf8A+s8v/kHz9f8Avjp/tdPej+2rX/nlf/6zy/8AkHz9f++On+10960aKPeC9L+V/ev8jO/tq1/55X/+s8v/AJB8/X/vjp/tdPej+2rX/nlf/wCs8v8A5B8/X/vjp/tdPetGij3gvS/lf3r/ACM7+2rX/nlf/wCs8v8A5B8/X/vjp/tdPej+2rX/AJ5X/wDrPL/5B8/X/vjp/tdPetGij3gvS/lf3r/I8O+JHh3TrV/7Z0tJ4EmuBDNBJayRL5h6FCygYJ4wO54rgJYpIJWiljaORThldcEfUV7h8YP+RQs/+wraf+jK7DU9D0vWYvL1GxguRjALp8y/Ruo/A1w1sCpvmi7H1WX8VSw8FSrRckut9fy1PlyivZtY+Dmnz7pNIvZLV+oimHmJ9Aeo/WvP9Y8AeI9F3NNYNPCv/La2/eL9cDkD6gVwVMNVp7o+sweeYHFaQnZ9no/+D8jmgSrBlJBByCO1d14b+KWsaPsg1DOo2g4/eN+9Uezd/wAc/UVwhBBwRgiis4VJ03eLsdmKwdDFw5K8VJf1s+h9HaT490DWUjFpPO074BtxbSNIv1Cg8e/T3rU/tq1/55X/APrPL/5B8/X/AL46f7XT3r5fjkkhkWSJ2SRTlWU4IPsa9D8N/FnUtO2W+sIb+3HHmjiVR9ejfjg+9ejSx99J6Hx2P4U9mufC3l5NpP5aanrv9tWv/PK//wBZ5f8AyD5+v/fHT/a6e9H9tWv/ADyv/wDWeX/yD5+v/fHT/a6e9R6J4k0nxDb+bpt2kpAy8Z4dPqp5/HpWrXem5K6Z8lUhGlJwqQaa6N/8Azv7atf+eV//AKzy/wDkHz9f++On+1096P7atf8Anlf/AOs8v/kHz9f++On+10960aKfvGd6X8r+9f5Gd/bVr/zyv/8AWeX/AMg+fr/3x0/2unvR/bVr/wA8r/8A1nl/8g+fr/3x0/2unvWjRR7wXpfyv71/kZ39tWv/ADyv/wDWeX/yD5+v/fHT/a6e9H9tWv8Azyv/APWeX/yD5+v/AHx0/wBrp71o0Ue8F6X8r+9f5Gd/bVr/AM8r/wD1nl/8g+fr/wB8dP8Aa6e9H9tWv/PK/wD9Z5f/ACD5+v8A3x0/2unvWjRR7wXpfyv71/kZ39tWv/PK/wD9Z5f/ACD5+v8A3x0/2unvT49WtpN22O8G1ip3WUy8j0yvI9xxV6ij3gbpdE/v/wCAFFFFUZBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABg/5FCz/wCwraf+jK9Arz/4wf8AIoWf/YVtP/RlegUAFFFFAGLrHhPQtdDG/wBOheQ/8tVGyT/voYJ/GuA1j4Nfek0bUfpDdD/2dR/T8a9ZorGph6dT4kelhM3xuE0pVHbs9V9z/Q+ZtY8J67oRY3+nTJGP+WqjfH/30MgfjWLX1mRkYPSuZ1jwB4c1rc01gsEzf8trb9231wOCfqDXDUy97wf3n1GE4wi9MVC3nH/J/wCZ8721zPZ3CXFtNJDMhyskbFWB9iK9J8N/F26ttlvr0Juoun2iIASD6jo36fjSax8HNQg3SaRex3SdRFMPLf6A9D+lcFqeh6po0vl6jYT2xzgF0+U/Ruh/A1zJV8O77fke3KWV5xDlbUn90l+v6H0ppOt6brlqLjTbyO4j77T8y+xB5H41fr5VsdQvNMulubG5lt5l6PG2D/8AXHtXp/hv4vsNlv4gg3Dp9rgXn/gSf1H5V3UcdCWk9GfLZjwrXo3nhnzx7df+D/Wh63RVXT9SstVtFurC6iuIW/jjbOPY+h9jVqu5NNXR8rKMotxkrNBRRRTJCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8/wDjB/yKFn/2FbT/ANGV6BXn/wAYP+RQs/8AsK2n/oyvQKACiiigAooooAKKKKACmSxRzxNFLGskbDDK65B+op9FAJ21RxmsfDDw5qm54bdrCY/xWxwv/fJ4x9MV5/rHwk1yx3Pp8kOoRDoFPlyf98nj8jXudFc1TCUp9Leh7WE4gx+F0U+Zdpa/8H8T5hgudb8K6lujN1p10OqspXcPcHgj68V6Z4b+L0E2y31+DyH6faoQSh/3l6j8M/QV6VeWNpqEBgvbWG4iP8EqBh+tcPrHwk0O+3Pp8k2nynoFPmR/98nn8jXOsPWou9J3XY9eec5bmS5cdT5ZfzLX/g/KzO5tLy2v7ZLm0njnhcZWSNgwP4ip68SHhDxv4LuWutHka4izlvsrbg4/2oz1/AH610+gfFa0nlFn4gt2067B2mTafLz7g8r+OR71vDEq/LUXK/wPLxORy5XVwU1Vh5fEvVf16Ho1FMhmiuIUmglSWJxlXRgysPUEU+uo8Npp2YUUUUCCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/jB/wAihZ/9hW0/9GV6BXn/AMYP+RQs/wDsK2n/AKMr0CgAooooAKKKKACiivn2Jgr8qGBB4P0oA+gqK8ADYKfexzkAcfiaRcNKqFgoJxk9qYH0BRXgat9oMMEMS7efmzjk/XgVVmXD4BzSA+hqK+dj060itjOeRjvQB9FVn6noel6zF5eo2MFyMYBdPmX6N1H4GvCpbuRrdIXO5VPyj0qpkdCBQ0mrMqE5wlzQdn5HrsXga40OZp/C+sTWQJy1pcjzYH9sdR9eTW1aatfRARazp5tpBx9ogbzYG98/eT/gQA968JEp8sqM4PJXjrj/AOuaRIXlf5QST6VnGmo/DodVXGzrr9+uZ99n9/X53Po9WDKGUgqRkEHg0tfNm08cHr6dKqXkoilVTHM/y5ygyO9apXONn09RRRSAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/wCMH/IoWf8A2FbT/wBGV6BXn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigAr5+VOehzX0DXgZ+VuBkE8nPSgBrAgGqzZDVbIBOAfmA/HH+RUDoGzg+4/xouAxHKsvOC3bPenSKcZccHv61HyHAMeQBkNnv6Ypzy7+uQQMZFADOc4/IUEYw3bOBgdf880h6HOCPQjrS7+2OmaQEUjbULFGfHOE69akS2V0lbeoIGQpzk/SojkHihJcEkOoyMDB5pgRsCrMDwfQ09JzGjqrlVcYbB6inzwu6mcqQjNgN2PTP86r7SAKALCTkNg45BHIzx6/yqjcNmXqelTHkdAQT3qCZVL8bTjg4HSgD6cooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/wCMH/IoWf8A2FbT/wBGV6BXn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigArwYKD3HUjFe814hG8f2RxtUSbgQe5/pj/GgCrHLGGDELNGSQQScehHFDLviZgygg8Z5pm1VwI1UJzkDjH+eaiYuEYxqJWH8BOM80WAjZCXxkc9icCmzwtbzSROQWQkHHIqTary4VQDnjPalkjKK5ZkID4XB5xQBW57nI9MUbQcZ7e9IxyPUH0NAOeM4oAI0MrKqkNvxtDcU+OIyxMy4ZEGTg9ulN4yOOT7UE9O2KABpCICuOBltq+tNbYBnaRgcnP9KXPpjilRN5PUgDkAUIGWtN0W51NZ3hX5YYy7nPQCsa6BWbHoOa04buax3JE7AHg89qzLp902SeSKBn01RRRQIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8ihZ/8AYVtP/RlegV5/8YP+RQs/+wraf+jK9AoAKKKKACiiigArwNW3HHr1Fe+V8+Ru0b7hgc0AWZdkfyiRXcKCdoIyT9feqpJXr170jyfu8n73BH164pxAKFy4yDjbjk+9AEZwfm53DkH0OMUjdSc9OKbuyMHJzwe1E0+8LhFXaMfKOvufegBYzHvHmAkYOB057VCTzxRvXYzOcKOpJofo20hmXjGcc+lAD1BZcgdPWmE8YNO3D7pCnuDjkfjQqOyk7S2PTvQA0En60okYYI3KSPoR7U3Bx6H2FTLFvQtkAL78mgCs5LMeeSaqz/fB65FXCMEcdz0HSqs6jeoAwAvagD6booooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8ihZ/8AYVtP/RlegV5/8YP+RQs/+wraf+jK9AoAKKKKACiiigAr50Y/N/8AWr6Lr52RQznJwOpPpQAzccZwRmpJY2jRGOMOOMH3x/SmMDvIU4VeBkfrTdw2KCGGeAPfr+tMBQOM4zSyDe4UJgFcjHPTr/jTsqq5O4nGOOh/zxTY5fKBbIA5JJPTPvQBGoI4xn1qZlBjR2cAltpU9R0x+eafDGHkIJxnpnvUiwJsdmcbcAg9vakBWlRN+IyWXOASMVYtpJo4pFjLBHADAd+c4pI4N8uN2PfNTpuVNgZtmclefzouBVliZHIIqMAjAGQOgFXHtyGORjPJFN8nkkqdoBPA6UXAqbB24+gqpcx/vByRx2rYktih6fnVG5j/AHg+lFwPo2iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/AIwf8ihZ/wDYVtP/AEZXoFef/GD/AJFCz/7Ctp/6Mr0CgAooooAKKKKACvnQEA4PIHUV9F185YAUKM4HqaYDm+cgn1zTehpVB/xyafsyT7EYoAnt7KaVkRnHznIZyFzyfwx05qF4ikjKD0PUVLEu6dFdgikgFqva5a2tjdmO1uftCbQd46dOcUMEjOVgrjk7iCQAKfxJ8jZwfSoBL6ULJznle3XrSAvSI8LDcNpb5sH0PSlWQEMGOVbggnt6VSabKhF7ds09FcqX2/KD1x3pNDLwIJ2oVIJwo9B6e9SxGNJSkqgqeGFUkZh82M+2OtSRvGciVwjbcqDyCfTP+elAGi8JuFllAyqDOBxwTgVlXCfvB8h6elSpcsgZVbgnJFVrmQmQY9KVho+g6KKKokKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8AIoWf/YVtP/RlegV5/wDGD/kULP8A7Ctp/wCjK9AoAKKKKACiiigAr5zCkfXvxX0ZXznLMUjTCryOaaEx/IAwfrT43VJVYoGwc1Q+1yZPC/lSvduoXCryfT2oQXL8ke/y+5IyvGDRMFEQU7jLzxxjAx/jWaL6VWDDbkEVJJcndny4+v8AdoC48qQaBkHntUYnbyidq5PPeoftT56L+VKw7l/eDEAsYV1zlic7vSpxcyLbiESgRhg5TPBOMcj6ZrJN3J0wuMelMN0/J2pk4yccmnYLmyJPmY+YTlQNh6DGeR+dQ+Z39eazBdOeCF4OelO+1ybRwv5UCNNGJfHrxTJmJYEE9KpRX0sUoZVj4wQCuRxRNfS7xwnT0oC5/9k=","","zlzbase64.bmp","zlz") s charStream=##class(%GlobalCharacterStream).%New() d charStream.Write("/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAEsASwDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iiub8XaxqWkxWQ0ufTVnuLiGBo7tWZgsk8UXmqqsC4UyAFcj76ncMbXAOkory+y+IOqXsFtCxgMlxd2jx3MMHk/uHfTiUaNnk+YrfMpIbjbxycjoF8VSRaZpX2S+0q9mu5ZreNtWum02aZ45PL2iIxMWkB+VgFX5uQoDAAA7CivP9L8SeKbbwDpuvXllY3zXMVvLO8moGIRRukS+adtvhVyXkcHIQBiGIwF0NM1bxZDq1pomo6dpVzN5TTXF3DqLkxxCQKpdRbgeYwJx91XMUhGwDAAOworzvxF4z8Q6Jq2j2txZaNb+bcEzqmozSKIvJmIMrfZf3Sbk3b/APpk38Kuy9xpsmpS27NqlpaW0+/Cpa3LTqVwOSzRoQc54x2HPPABcooooAKKKKACiiigAooooAKKKKAOD+LU81v4TtHglkiY6paqWRipwX5HFd5Xn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK5/xVplxqkFisNlBcra3cV4odwsgljdTHtYghFzku4ywQMqqxcbegooA8zh8CT6bYackNrd3F9a3tnA8izRCFoI3si0+CQwGyyT5eWDs4G5dr1qWWg+IPN0sGKxtYbLxBf37PJM0jvBI0+zCKAAzCdur/AC4UkMSUHcUUAcXpNrr+l+HF8OXOhWmoxW6CwtpXnVLea2SCNd8+dzgufMG1Y2AI2nj5zc0vT9U8P3gWS2/tZLnyo5L9JsTx4GArLKxzCnzkEOX+flXcvI/UUUAef6v4Q8QXWq2M4vtKvVkuy9291prPhDazx7WHngNCDKyrGAMeZuYsd7P2GjWV5p2nJa3l/wDbWjwElKFW24HBJZi2DnBJLbdoYswLtoUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8AGD/kULP/ALCtp/6Mr0CvP/jB/wAihZ/9hW0/9GV6BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRXiHj5BP4g8QyrpcFxNaRXkwlj06xkceTaWLIZWnQlo1M0mdpL/MAOAAAD2+ivI/B+mtB4svdLtoZNGlCXSeethYR3aKi6fIoZoYzGRmaTjB4YZ5UYuWFpq/+jCHxVqqeIr27W21KJYbTy1MGPOmKeRlVMe0I5GWEtsG4K4APUKK83+JUN/ZeFNQhi8QarcTXOnzr9k22ojMccBMskhEBcKQMEqQN8qKCgYFek8KreTJLcXmtalczwu9tcWV0LfbDKrDJBjhjYgjDKTjcjq20ZGADpKKKKACiiigAooooAKKK5/x3/wAk88Tf9gq6/wDRTUAc/wDGD/kULP8A7Ctp/wCjK9Ar5g8Zf8kVtv8AsK6b/wCmiGu/l/5KH48/7Cvhv/0bFQB7BRXn/wDzO/8A3Nf/ALha5/xD/wAgPwn/ANlAf/0tuqAPYKK+QP8AmSP+5U/9zVdB4N/5Adz/ANk/1L/0tmoA+n6K8A8Jf8jP8Rf+xr03/wBOTVv3n/JetG/7Ct//AOmu0oA9gorwDxf/AMiR4+/7Zf8Ap6vqPh//AM0d/wC41/7NQB7/AEV8wJ/yHPiP/wBhW9/9ItUr3/wJ/wAk88M/9gq1/wDRS0AdBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXH6x8O9O1vU7q9ubyf/AEiXzjC9pZzoj+XHGSvnQOy5WJM89q7CigDi9O8BSaBerd6Lq0cTpbzRJFcabAIlaR4Sz7bdYcnbCF5J/hORghtT/hGZYf8ASrXWr5dW/jvZgj+eo+7HJGFVPLB7IEYZcqymRy3QVFc3MFnay3NzMkMESl5JJGwqKOSSewoA5zXPBVr4g0m9iurmeLUry0aCW7tp54kLGPaMxCTDRg5YRsSo3P3didTTfD+n6VcNcW32tp2TY0lxezTsy5BAJkdiQCDtB+7ufGN7Zzf+Fi+C/wDoadI/8C0/xq5ceK9HtxpJF2Jxq0whsvs6mTzT1LDH8IHJboKANqiiqGq61peh2y3Oq6hbWULNsWS4kCAt1wCe/BoAv0VzP/CxfBf/AENOkf8AgWn+Nauk69pGvRSS6TqVrfJEQrtbyhwpPTOOlAGjRRRQAVz/AI7/AOSeeJv+wVdf+imroKzPElnFqPhbV7Ge7S0hubKaGS5cDbCrIQXOSOADnqOnWgD5z8Zf8kVtv+wrpv8A6aIa7+X/AJKH48/7Cvhv/wBGxVi/Ejwva6Z8OtM0ZNWM73Wo2UsUi2rYKJax2uTgkAHaH5I67ecZrtX0fTm1vxVrY1K6YXd9pk0kCaZMzxm1kUgIAN0quUI3IMDnrg0AS/8AM7/9zX/7ha5/xD/yA/Cf/ZQH/wDS26rrvs+n/wDCTx3DX1wkkmo/2uEksJVQD7D9n8tpCNqtgGTBw2ONveqFxoem6zpOiIustbC08THU0FzZvDJLI00swg8uQqwOJfvYOQu7GDwAeA/8yR/3Kn/uaroPBv8AyA7n/sn+pf8ApbNXWt8KdPTS7vR28TTh7XRzYySf2RJhgL37UXT5sSEZCFUJIJHf5a1NC+HFhpmkQD/hJCyX+h3Ph+AyWDRMXmmll3FGbcGXLAoQD8pJI6UAc94S/wCRn+Iv/Y16b/6cmrfvP+S9aN/2Fb//ANNdpXQaT8Mv7L1TxHe/2v5v9s6rbals+zbfJ8m5M+zO87s5254x1welaE3gXzfHtn4n/tHH2a7nufs3kfe821ht9u7dxjyd2cc7scYyQDzDxf8A8iR4+/7Zf+nq+o+H/wDzR3/uNf8As1d/rHwy/tXQ9f03+1/K/tfb+8+zbvK23s9103jd/r9nUfdz3wDw/wDDL+wv+EO/4m/n/wDCN/bf+Xbb9o+0Z/2zs2598+1AHkCf8hz4j/8AYVvf/SLVK9/8Cf8AJPPDP/YKtf8A0UtcePg/i+8SXP8Abv8AyGrua52/ZP8AU+ZDdRbc7/mx9qznjOzHfI9A0LTP7E8PaZpPned9htIrbzdu3fsQLuxk4zjOMmgDQooooAKKKKACiiigAooooAKKKKACiiigAooooAK5n4i/8k38Sf8AYOm/9ANdNWL4w0y51nwbrOmWYU3N1ZyxRBjgFmUgc9qAKeqeN9N0LxA+mawsljEbU3MF5LjypwoJdAf7ygZweTn6Z5nwxcNqPiqy8U63BIt5rfmQaNauv/HpaIhcufR3ABOOeQOmava0+r+IrJLPV/hwby3SRZVSTU4MBlOQeD/+sEg8Gp4ovEOt+LtDvb3w9/ZVppnnuzveRy798ewKAn1zzQB29cz4k/5Gnwd/2EZv/SOeumrmvFlrqjXehalpen/b5NOvHlktxMsRZWglj4ZuOC4NAHS1yWhf8lG8Xf8AXOx/9Aej/hIvFn/QjTf+DSD/ABp3haz1c6/r2s6rpo077f8AZ0itzOsrARqwJJXjnd+lAHV0UUUAFRzrK1vIsDokxUhHdC6q2OCQCMj2yPqKkopNXVgPKPijpV5a+EdFea9hleG8tLefZblFlAkG0qC5KY5zy2c9q7CbwveXFtqkdzqFpdm9lVkS8sjNEEU8K8bSYbj+4YxkZ25JzjfGD/kULP8A7Ctp/wCjK9ApvUDnF8LuNTtrlrm2eGG2EDIbU+Y+EK7S4fHl8k7CpIJOGGaisPC99pmjm2ttThN5LeLdXFxPBLMr7duFUPMXHCIMs7dDxjAHUUU79f67gc5/wjEy63qOqRagIpp4WitQqSFYC20sxVpCpJZQTsEeec5OGFObwbqDpojQ+IZIZtOlDy5tllSdd25gPMLSKx4G7exx1yea6+il28geu4UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVjXHi7w3aan/Ztzr2mw327aYJLpA4PYEE8H2pvjG6vrLwVrd1pu77bDYzPCV6qwQ8j3HUe4r4cZmdizEszHJJOSTQB9ffGD/kULP8A7Ctp/wCjK9ArwGG81C9/Z+8Oyagzs66rBHE79WjWYhfyAwPYCvfqACobu7t7G0kurqVYoIhud26KKmrnfHf/ACI2r/8AXA/zFTOXLFs2w1JVa0Kb2bS+9h/wnfhf/oN2v5n/AArX0/UrLVrQXVhcJcQElQ6dMjrXyvXvfwn/AORHj/6+JP51xYbFyqz5Wj6bOuH6GX4b21OTbulrbz8juKKKK7z5MKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAr3t4lhbNcypI0KcyNGu4oP7xA5IHtmltLy2v7ZLm0njnhcZWSNgwP4ip6828V+G9U8OXMviHwlNJApO+7s4xlD6sF6Eeo7dRWVScoLmSujuwWHpYmXspS5ZPZvZ+T7ep6TRXm3hz4t2F9st9biFlOePOTJiY+/df1HvXo0M0VxCk0EqSxOMq6MGVh6ginTqwqK8WTjMBicHPlrxt+T9GPrz+6+CvgW71U376QUZm3tBFMyRE/7oPA9hgV6BRWhxnnfxYt4bTwPp1tbRJDBFqdmkccahVRQ4AAA6AV6JXn/xg/5FCz/7Ctp/6Mr0CgAqpqWn2+rabPYXQYwTrscKcHH1q3RSaTVmVGThJSi7NHD/APCp/C//ADyuv+/5rp9D0Sy8PaaLCwVxAGLgO245PXmtGiojShB3irHVXzDFYiPJWqOS82FFFFaHGFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHkfxE+Hezzdb0SH5OXubVB09XUenqPxrgdB8Vax4cm36ddssZOWhf5o2+q/wBRg19NV5H8RPh3s83W9Eh+Tl7m1QdPV1Hp6j8a83E4ZxftaR9rkmd060FgsdZp6Jv8n+jN3w38VdJ1XZBqgGnXR43McxMf97+H8fzrvlZXQOjBlYZBByCK+Ta6Dw9401rw04WzuS9tnLW03zRn6Dt+GKijj2tKh05jwnCd54N2fZ7fJ9Pnc9T+MH/IoWf/AGFbT/0ZXoFeJeMPHtj4s8J2lqsElvfpqNrI8R+ZSocZIb0HvivbeoyK9KFSM1eLufFYnCV8LP2deLi/627hRRRVnMFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHkfxE+Hezzdb0SH5OXubVB09XUenqPxryivrOvI/iJ8O9nm63okPycvc2qDp6uo9PUfjXmYvCfbh9x9zw/wAQXthcU/R/o/0Z5RXU+HPH2t+HCsUc32mzH/LtOSQB/snqv4ce1ctRXnQnKDvF2PscRhqWIh7OtFSXmfQ/hv4h6J4h2Q+b9jvW4+zzkDcf9lujfz9q6yvkyuy8N/EnW9B2QzP9vs148qdjuUf7LdR+OR7V6NHH9Kn3nxuY8JPWeDf/AG6/0f8An959A0Vzfh3xxoniRVS2uPJuiObab5X/AA7N+FdJXoxnGavF3Pja+Hq0JunVi4vzCiiiqMQooooAKKKKACiiigAooooAKKKKACiiigDO/tq1/wCeV/8A6zy/+QfP1/746f7XT3o/tq1/55X/APrPL/5B8/X/AL46f7XT3rRoqfeNb0v5X96/yM7+2rX/AJ5X/wDrPL/5B8/X/vjp/tdPej+2rX/nlf8A+s8v/kHz9f8Avjp/tdPetGij3gvS/lf3r/Izv7atf+eV/wD6zy/+QfP1/wC+On+1096P7atf+eV//rPL/wCQfP1/746f7XT3rRoo94L0v5X96/yM7+2rX/nlf/6zy/8AkHz9f++On+1096P7atf+eV//AKzy/wDkHz9f++On+10960aKPeC9L+V/ev8AIzv7atf+eV//AKzy/wDkHz9f++On+1096P7atf8Anlf/AOs8v/kHz9f++On+10960aKPeC9L+V/ev8jO/tq1/wCeV/8A6zy/+QfP1/746f7XT3o/tq1/55X/APrPL/5B8/X/AL46f7XT3rRoo94L0v5X96/yM7+2rX/nlf8A+s8v/kHz9f8Avjp/tdPej+2rX/nlf/6zy/8AkHz9f++On+10960aKPeC9L+V/ev8jO/tq1/55X/+s8v/AJB8/X/vjp/tdPej+2rX/nlf/wCs8v8A5B8/X/vjp/tdPetGij3gvS/lf3r/ACM7+2rX/nlf/wCs8v8A5B8/X/vjp/tdPej+2rX/AJ5X/wDrPL/5B8/X/vjp/tdPetGij3gvS/lf3r/I8O+JHh3TrV/7Z0tJ4EmuBDNBJayRL5h6FCygYJ4wO54rgJYpIJWiljaORThldcEfUV7h8YP+RQs/+wraf+jK7DU9D0vWYvL1GxguRjALp8y/Ruo/A1w1sCpvmi7H1WX8VSw8FSrRckut9fy1PlyivZtY+Dmnz7pNIvZLV+oimHmJ9Aeo/WvP9Y8AeI9F3NNYNPCv/La2/eL9cDkD6gVwVMNVp7o+sweeYHFaQnZ9no/+D8jmgSrBlJBByCO1d14b+KWsaPsg1DOo2g4/eN+9Uezd/wAc/UVwhBBwRgiis4VJ03eLsdmKwdDFw5K8VJf1s+h9HaT490DWUjFpPO074BtxbSNIv1Cg8e/T3rU/tq1/55X/APrPL/5B8/X/AL46f7XT3r5fjkkhkWSJ2SRTlWU4IPsa9D8N/FnUtO2W+sIb+3HHmjiVR9ejfjg+9ejSx99J6Hx2P4U9mufC3l5NpP5aanrv9tWv/PK//wBZ5f8AyD5+v/fHT/a6e9H9tWv/ADyv/wDWeX/yD5+v/fHT/a6e9R6J4k0nxDb+bpt2kpAy8Z4dPqp5/HpWrXem5K6Z8lUhGlJwqQaa6N/8Azv7atf+eV//AKzy/wDkHz9f++On+1096P7atf8Anlf/AOs8v/kHz9f++On+10960aKfvGd6X8r+9f5Gd/bVr/zyv/8AWeX/AMg+fr/3x0/2unvR/bVr/wA8r/8A1nl/8g+fr/3x0/2unvWjRR7wXpfyv71/kZ39tWv/ADyv/wDWeX/yD5+v/fHT/a6e9H9tWv8Azyv/APWeX/yD5+v/AHx0/wBrp71o0Ue8F6X8r+9f5Gd/bVr/AM8r/wD1nl/8g+fr/wB8dP8Aa6e9H9tWv/PK/wD9Z5f/ACD5+v8A3x0/2unvWjRR7wXpfyv71/kZ39tWv/PK/wD9Z5f/ACD5+v8A3x0/2unvT49WtpN22O8G1ip3WUy8j0yvI9xxV6ij3gbpdE/v/wCAFFFFUZBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABg/5FCz/wCwraf+jK9Arz/4wf8AIoWf/YVtP/RlegUAFFFFAGLrHhPQtdDG/wBOheQ/8tVGyT/voYJ/GuA1j4Nfek0bUfpDdD/2dR/T8a9ZorGph6dT4kelhM3xuE0pVHbs9V9z/Q+ZtY8J67oRY3+nTJGP+WqjfH/30MgfjWLX1mRkYPSuZ1jwB4c1rc01gsEzf8trb9231wOCfqDXDUy97wf3n1GE4wi9MVC3nH/J/wCZ8721zPZ3CXFtNJDMhyskbFWB9iK9J8N/F26ttlvr0Juoun2iIASD6jo36fjSax8HNQg3SaRex3SdRFMPLf6A9D+lcFqeh6po0vl6jYT2xzgF0+U/Ruh/A1zJV8O77fke3KWV5xDlbUn90l+v6H0ppOt6brlqLjTbyO4j77T8y+xB5H41fr5VsdQvNMulubG5lt5l6PG2D/8AXHtXp/hv4vsNlv4gg3Dp9rgXn/gSf1H5V3UcdCWk9GfLZjwrXo3nhnzx7df+D/Wh63RVXT9SstVtFurC6iuIW/jjbOPY+h9jVqu5NNXR8rKMotxkrNBRRRTJCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8/wDjB/yKFn/2FbT/ANGV6BXn/wAYP+RQs/8AsK2n/oyvQKACiiigAooooAKKKKACmSxRzxNFLGskbDDK65B+op9FAJ21RxmsfDDw5qm54bdrCY/xWxwv/fJ4x9MV5/rHwk1yx3Pp8kOoRDoFPlyf98nj8jXudFc1TCUp9Leh7WE4gx+F0U+Zdpa/8H8T5hgudb8K6lujN1p10OqspXcPcHgj68V6Z4b+L0E2y31+DyH6faoQSh/3l6j8M/QV6VeWNpqEBgvbWG4iP8EqBh+tcPrHwk0O+3Pp8k2nynoFPmR/98nn8jXOsPWou9J3XY9eec5bmS5cdT5ZfzLX/g/KzO5tLy2v7ZLm0njnhcZWSNgwP4ip68SHhDxv4LuWutHka4izlvsrbg4/2oz1/AH610+gfFa0nlFn4gt2067B2mTafLz7g8r+OR71vDEq/LUXK/wPLxORy5XVwU1Vh5fEvVf16Ho1FMhmiuIUmglSWJxlXRgysPUEU+uo8Npp2YUUUUCCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/jB/wAihZ/9hW0/9GV6BXn/AMYP+RQs/wDsK2n/AKMr0CgAooooAKKKKACiivn2Jgr8qGBB4P0oA+gqK8ADYKfexzkAcfiaRcNKqFgoJxk9qYH0BRXgat9oMMEMS7efmzjk/XgVVmXD4BzSA+hqK+dj060itjOeRjvQB9FVn6noel6zF5eo2MFyMYBdPmX6N1H4GvCpbuRrdIXO5VPyj0qpkdCBQ0mrMqE5wlzQdn5HrsXga40OZp/C+sTWQJy1pcjzYH9sdR9eTW1aatfRARazp5tpBx9ogbzYG98/eT/gQA968JEp8sqM4PJXjrj/AOuaRIXlf5QST6VnGmo/DodVXGzrr9+uZ99n9/X53Po9WDKGUgqRkEHg0tfNm08cHr6dKqXkoilVTHM/y5ygyO9apXONn09RRRSAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/wCMH/IoWf8A2FbT/wBGV6BXn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigAr5+VOehzX0DXgZ+VuBkE8nPSgBrAgGqzZDVbIBOAfmA/HH+RUDoGzg+4/xouAxHKsvOC3bPenSKcZccHv61HyHAMeQBkNnv6Ypzy7+uQQMZFADOc4/IUEYw3bOBgdf880h6HOCPQjrS7+2OmaQEUjbULFGfHOE69akS2V0lbeoIGQpzk/SojkHihJcEkOoyMDB5pgRsCrMDwfQ09JzGjqrlVcYbB6inzwu6mcqQjNgN2PTP86r7SAKALCTkNg45BHIzx6/yqjcNmXqelTHkdAQT3qCZVL8bTjg4HSgD6cooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/wCMH/IoWf8A2FbT/wBGV6BXn/xg/wCRQs/+wraf+jK9AoAKKKKACiiigArwYKD3HUjFe814hG8f2RxtUSbgQe5/pj/GgCrHLGGDELNGSQQScehHFDLviZgygg8Z5pm1VwI1UJzkDjH+eaiYuEYxqJWH8BOM80WAjZCXxkc9icCmzwtbzSROQWQkHHIqTary4VQDnjPalkjKK5ZkID4XB5xQBW57nI9MUbQcZ7e9IxyPUH0NAOeM4oAI0MrKqkNvxtDcU+OIyxMy4ZEGTg9ulN4yOOT7UE9O2KABpCICuOBltq+tNbYBnaRgcnP9KXPpjilRN5PUgDkAUIGWtN0W51NZ3hX5YYy7nPQCsa6BWbHoOa04buax3JE7AHg89qzLp902SeSKBn01RRRQIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8ihZ/8AYVtP/RlegV5/8YP+RQs/+wraf+jK9AoAKKKKACiiigArwNW3HHr1Fe+V8+Ru0b7hgc0AWZdkfyiRXcKCdoIyT9feqpJXr170jyfu8n73BH164pxAKFy4yDjbjk+9AEZwfm53DkH0OMUjdSc9OKbuyMHJzwe1E0+8LhFXaMfKOvufegBYzHvHmAkYOB057VCTzxRvXYzOcKOpJofo20hmXjGcc+lAD1BZcgdPWmE8YNO3D7pCnuDjkfjQqOyk7S2PTvQA0En60okYYI3KSPoR7U3Bx6H2FTLFvQtkAL78mgCs5LMeeSaqz/fB65FXCMEcdz0HSqs6jeoAwAvagD6booooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8ihZ/8AYVtP/RlegV5/8YP+RQs/+wraf+jK9AoAKKKKACiiigAr50Y/N/8AWr6Lr52RQznJwOpPpQAzccZwRmpJY2jRGOMOOMH3x/SmMDvIU4VeBkfrTdw2KCGGeAPfr+tMBQOM4zSyDe4UJgFcjHPTr/jTsqq5O4nGOOh/zxTY5fKBbIA5JJPTPvQBGoI4xn1qZlBjR2cAltpU9R0x+eafDGHkIJxnpnvUiwJsdmcbcAg9vakBWlRN+IyWXOASMVYtpJo4pFjLBHADAd+c4pI4N8uN2PfNTpuVNgZtmclefzouBVliZHIIqMAjAGQOgFXHtyGORjPJFN8nkkqdoBPA6UXAqbB24+gqpcx/vByRx2rYktih6fnVG5j/AHg+lFwPo2iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/AIwf8ihZ/wDYVtP/AEZXoFef/GD/AJFCz/7Ctp/6Mr0CgAooooAKKKKACvnQEA4PIHUV9F185YAUKM4HqaYDm+cgn1zTehpVB/xyafsyT7EYoAnt7KaVkRnHznIZyFzyfwx05qF4ikjKD0PUVLEu6dFdgikgFqva5a2tjdmO1uftCbQd46dOcUMEjOVgrjk7iCQAKfxJ8jZwfSoBL6ULJznle3XrSAvSI8LDcNpb5sH0PSlWQEMGOVbggnt6VSabKhF7ds09FcqX2/KD1x3pNDLwIJ2oVIJwo9B6e9SxGNJSkqgqeGFUkZh82M+2OtSRvGciVwjbcqDyCfTP+elAGi8JuFllAyqDOBxwTgVlXCfvB8h6elSpcsgZVbgnJFVrmQmQY9KVho+g6KKKokKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4wf8AIoWf/YVtP/RlegV5/wDGD/kULP8A7Ctp/wCjK9AoAKKKKACiiigAr5zCkfXvxX0ZXznLMUjTCryOaaEx/IAwfrT43VJVYoGwc1Q+1yZPC/lSvduoXCryfT2oQXL8ke/y+5IyvGDRMFEQU7jLzxxjAx/jWaL6VWDDbkEVJJcndny4+v8AdoC48qQaBkHntUYnbyidq5PPeoftT56L+VKw7l/eDEAsYV1zlic7vSpxcyLbiESgRhg5TPBOMcj6ZrJN3J0wuMelMN0/J2pk4yccmnYLmyJPmY+YTlQNh6DGeR+dQ+Z39eazBdOeCF4OelO+1ybRwv5UCNNGJfHrxTJmJYEE9KpRX0sUoZVj4wQCuRxRNfS7xwnT0oC5/9k=") //通过base64串得到文件 s ret=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).GetFileByBase64StreamMTHD(charStream,"zlzbase64file.bmp","zlz") //通过比特串得到文件 s charStreamBit=##class(%GlobalCharacterStream).%New() d charStreamBit.Write("") s ret=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).GetFileByBitStreamMTHD(charStreamBit,"zlzbase64file.bmp","zlz") q ret q ret } Query QueryPrintData(LabNos As %String(MAXLEN=32767), UserCode As %String, Param As %String(MAXLEN=32767), P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor,Angle,IsVShow") { } /// LabNo:检验号 /// UserCode:用户代码 /// Param:预留参数串 "0^Merge^DOUBLE^CHECKPAPER^PrinterName^" /// Merge:是否合并不同样本的报告 /// DOUBLE:A4纸张1页打印两份报告 CHECKPAPER:可按报告定义设置打印纸张,缺省必须一次打印一个TSROWID /// PrinterName指定打印机^PaperSource:指打印机纸盒来源(数值) /// PrintType="PAGE" 表示需要换页 tResultLineSpacing:结果换行 /// d ##Class(%ResultSet).RunQuery("wbsLisMsgAsyncHandler.LISMsg.DHCLISImageTest","QueryPrintData",1000004097,"","BarCode^HNiMedicalLIS^IP172.17.143.225^MAC") ClassMethod QueryPrintDataExecute(ByRef qHandle As %Binary, RowIDS As %String(MAXLEN=32767), UserCode As %String(MAXLEN=32767), Param As %String(MAXLEN=32767), P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status { Set repid=$I(^CacheTemp) If $g(ind)="" Set ind=1 s RowIDS=$g(RowIDS),UserCode=$g(UserCode),Param=$g(Param) s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() s data="" s data=data_$lb($lb("张三","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("李四","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("王二","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("4","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("5","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("6","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("7","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("8","男","19岁","0947809","湖南","111")) s data=data_$lb($lb("9","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("10","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("11","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("12","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("12","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("14","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("15","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("16","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("17","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("18","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("19","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("20","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("21","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("22","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("23","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("24","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("25","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("26","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("27","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("28","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("29","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("30","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("31","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("32","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("33","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("34","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("35","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("36","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("37","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("38","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("39","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("40","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("41","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("42","男","19岁","094780909478090947809","湖南","111")) s data=data_$lb($lb("43","男","19岁","094780909478090947809","湖南","111")) s ret=imgObj.DrawGrid("",data,$lb(1,2,3,4,5),"","",800,10,10,"",$lb("姓名","性别","年龄","编号","家庭住址","其他"),"",1,1,25,1,14,"",1100,"","",16,1) //绘图对象与打印类的对接点 s ret=imgObj.Print(repid,ind) Set qHandle=$lb(0,repid,0) Quit $$$OK OutputData ///普通打印 set Data=$lb(PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor,Angle,IsVShow) Set ColFields = "PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor,Angle,IsVShow" Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields) Set ind=ind+1 Quit } ClassMethod QueryPrintDataClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set repid=$LIST(qHandle,2) Kill ^CacheTemp(repid) Quit $$$OK } ClassMethod QueryPrintDataFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set AtEnd=$LIST(qHandle,1) Set repid=$LIST(qHandle,2) Set ind=$LIST(qHandle,3) // Set ind=$o(^CacheTemp(repid,ind)) If ind="" { // if there are no more rows, finish fetching Set AtEnd=1 Set Row="" } Else { // fetch row Set Row=^CacheTemp(repid,ind) } // Save QHandle s qHandle=$lb(AtEnd,repid,ind) Quit $$$OK } }- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
- 242
- 243
- 244
- 245
- 246
- 247
- 248
- 249
- 250
- 251
- 252
- 253
- 254
- 255
- 256
- 257
- 258
- 259
- 260
- 261
- 262
- 263
- 264
- 265
- 266
- 267
- 268
- 269
- 270
- 271
- 272
- 273
- 274
- 275
- 276
- 277
- 278
- 279
- 280
- 281
- 282
- 283
- 284
M绘图类，其实里面还是按约定u组装数据，最后通过Save方法把组装的数据通过Webservice抛给Web执行画图，并返回Base64串或者图在文件服务器的x相对路径。所以绘图不通的时候关键是检查调用Webservice存在不存在（重点中的重点，是要上传文件服务的确保文件服务地址是好使的），输出数据是否符合约定，能调通Webservice的情况绘图失败在Web 的Logs都有失败日志输出
绘图类代码太大，请参照这篇示例效果
然后BS在线打印预览也有了
多页比对也是轻松加愉快
打印条码时候顺带给个预览展示也是easy
再来点复杂的质控图在线预览也是阔以的
来个结合模板的打印M示例
质控打印M
Class HIS.DHCQCPrintCommon Extends %RegisteredObject { /// 质控通用打印M Query QueryPrintData(QCPara As %String(MAXLEN=32767), UserCode As %String, TemplateCode As %String(MAXLEN=32767), P3, TMPDR As %String(MAXLEN=32767), P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor") { } /// 为了保证兼容性和替换性，在没bug的情况下最好不要私下修改这个M，造成版本分化，维护困难 /// 要扩展报告信息请修改HIS.DHCReportPrintMicMidConfig.GetReportExData /// TSRowIDs:"100160||A028||1^100151||A028||1" /// UserCode:用户代码 /// Param:预留参数串 "0^Merge^DOUBLE^CHECKPAPER^PrinterName^" /// Merge:是否合并不同样本的报告 /// DOUBLE:A4纸张1页打印两份报告 CHECKPAPER:可按报告定义设置打印纸张,缺省必须一次打印一个TSROWID /// PrinterName指定打印机^PaperSource:指打印机纸盒来源(数值) /// PrintType="PAGE" 表示需要换页 tResultLineSpacing:结果换行 /// 拉取医嘱功能请搜"拉取医嘱" /// d ##Class(%ResultSet).RunQuery("HIS.DHCQCPrintCommon","QueryPrintData","2022-04-01^2022-04-30^6^24^23^272^1,2^^1^1$R$-$R$15.2$R$2.0$R$13.2$R$15.2$R$1.3$R$8.6$R$13.0$R$2.3$R$17.7$R$200228%ZSPL%1$R$-$R$14.4$R$1.9$R$13.2$R$15.2$R$1.3$R$8.6$R$13.0$R$2.3$R$17.7$R$200228%ZSPL%2$R$2+ 4+$R$55.0$R$3.0$R$5.5$R$55.0$R$0.0$R$0.0$R$55.0$R$0.0$R$0.0$R$200228%ZSPL%","113","QCPrintZ^http://localhost:50001/UI/download/printtmp/TMP5.bmp.txt^HNLAPTOP-TFUMHBIF^IP172.16.0.104^MAC","PrintPreviewOld","","","","","","","","","","","") ClassMethod QueryPrintDataExecute(ByRef qHandle As %Binary, QCPara As %String(MAXLEN=32767), UserCode As %String(MAXLEN=32767), TemplateCode As %String(MAXLEN=32767), P3, TMPDR As %String(MAXLEN=32767), P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status { Set repid=$I(^CacheTemp) If $g(ind)="" Set ind=1 //s ^LISZLZQC("zlz")=$lb(QCPara,UserCode,TemplateCode,P3, TMPDR , P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions) s QCPara=$g(QCPara),UserCode=$g(UserCode),TemplateCode=$g(TemplateCode),TMPDR=$g(TMPDR) s ImagePath=$p(TemplateCode,"^",2) //得到FTP地址 s FtpData=##class(OTH.SYSParameter).GetDataValue("LABReportImageFTP","HOS","1") s TemplateCode=$p(TemplateCode,"^",1) s UserName="" i $l(UserCode) s UserName=$lg($g(^dbo.SYSUserD(UserCode)),3) //查询开始日期 s FStartDate=$p(QCPara,"^",1) //查询结束日期 s FEndDate=$p(QCPara,"^",2) //仪器主键 s FMachDR=$p(QCPara,"^",3) //质控物主键 s FMatDR=$p(QCPara,"^",4) //批次主键 s FMatLotDR=$p(QCPara,"^",5) //项目主键 s FTestCodeDR=$p(QCPara,"^",6) //浓度 s FLeavel=$p(QCPara,"^",7) //排除规则 s FExcludeRule=$p(QCPara,"^",8) //点范围 s FPointRange=$p(QCPara,"^",9) //打印头部信息格式。非前台传入也在绘制之前按这个格式组串，以使绘制逻辑通用。多个浓度用 $L$ 分割一个浓度的信息用 $R$ 分割，分别是：浓度名称，浓度，靶值，SD，CV，计算靶值，计算SD，计算CV，累计均值，累计SD，累计CV s FMapTitlePrintInfo=$p(QCPara,"^",10) //模板代码 s FTemplateCode=TemplateCode //删除临时数据 k ^TMPLISQC($zn,repid) s cr=$c(13) s CheckPaper="" s A4Double="" //输出提示信息的方式 //s ERRSTR="提示信息" //d OutErr q $$$OK s HospitalDR=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),4) d ..InitQCOrder() //获取模板 s ReportPrintDR=$o(^dbo.PTReportPrintI("IndexCode",HospitalDR," "_$zcvt(FTemplateCode,"U"),"")) i '$l(ReportPrintDR) s ERRSTR="没有找到"_FTemplateCode_"模板" d OutErr q $$$OK ///结果列表 k ^TMPLISQC($zn,repid,"Result") s curTSSumResult=..GetQCResult(FStartDate,FEndDate,FMachDR,FMatDR,FMatLotDR,FTestCodeDR,FLeavel,FExcludeRule,FPointRange,FTemplateCode,repid) ///结果总数 ///质控打印的额外信息 s ExtraInfo=..GetQCPrintExtra(FStartDate,FEndDate,FMachDR,FMatDR,FMatLotDR,FTestCodeDR,FLeavel,FExcludeRule,FPointRange,FTemplateCode,repid,UserName) i '$l(ExtraInfo) q i $d(^TMPLISQC($zn,repid,"Result")) d .s gReportData=$g(^dbo.PTReportPrintD(ReportPrintDR)) .s ReportPrintPaperDR=$lg(gReportData,4) .s resultLineSpacing=+$lg(gReportData,5) ///结果行间距 .s resultRows=$lg(gReportData,6) ///结果行数 .s resultCols=$lg(gReportData,7) ///结果列数 1,2 .s HospitalDR=$lg(gReportData,8) .s ReportLayout=$lg(gReportData,9) .s micResultLineSpacing=+$lg(gReportData,14) .s micResultRows=$lg(gReportData,15) .s micResultCols=$lg(gReportData,16) .s archivesMargin=+$lg(gReportData,17) ///报告存档 右移 .s fixedReport=$lg(gReportData,18) ///是否固定报告尾部 .s doubleColFillType=$lg(gReportData,19) ///双列结果打印填充类型 .s FixedSpacing=0 .//输出报告格式用于打印机自动设置纸张类型，纸张方向，送纸来源，当前打印机 .i CheckPaper="CHECKPAPER",$l(ReportPrintPaperDR) d ..s (PrintFontSize,PrintFontStyle,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile)="" ..s PrintType="PRINTER",(PrintFont,PrintX,PrintY,PrintLength,PrintWidth,PrintHeight)=0 ..s DataField=$lg(^dbo.PTReportPrintPaperD(ReportPrintPaperDR),3) ///纸张名称 ..s PrintWidth=$lg(^dbo.PTReportPrintPaperD(ReportPrintPaperDR),4) ..s PrintHeight=$lg(^dbo.PTReportPrintPaperD(ReportPrintPaperDR),5) ..s PrintAlignment=ReportLayout ///纸张方向 ..b //s PrinterName="HP LaserJet 5000 Series PCL6" ..i $l(PrinterName) s PrintFlag=PrinterName ///指定打印机打印 ..s PrintFont=PaperSource ///打印机送纸来源 ..d OutputData .//记录线的X .s LineX=0 .//记录线的宽度 .s LineWidth=0 .//画数据行最后的Y .s LastRowY=0 .//画横线向下偏移量 .s LinePianYi=resultLineSpacing .//浮动开始的Y .s AutoStartY="" .//换页高度 .s ChangePageHeight=1000 .//画多张图增加的高度 .s ImageAddHeight=0 .//图片元素高度 .s ImageGrapthHeight=0 .//前一个元素的Y，表格之间位置变化使用 .s PreElementY="" .//图形 .d GetGraphData("END") .//标签 .d GetLabelData .//数据 .d GetDataData .//输出头数据 .d GetTitleData .//线 .d GetLineData .//结果 .d GetResultData .//画表格 .d GetGridData("质控设置信息") .//画表格 .d GetGridData("质控数据表格") .//画表格 .d GetGridData("失控处理表格") .//画表格 .d GetGridData("质控评价表格") .//画自动竖线 .d GetAutoLineData .//画浮动数据 .d GetAutoDataData //删除临时数据 k ^TMPLISQC($zn,repid) Set qHandle=$lb(0,repid,0) Quit $$$OK OutputData s PrintX=archivesMargin+PrintX ///报告存档 右移 ///连续打印 i A4Double="ContinuousPrint" d .i PrintType'="PAGE" d ..s Data=$lb(PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor) ..s ^TMPLISQC(repid,"HIS.DHCReportPrintMicMid",$i_$j,"CTPrint",ord,PrintY,PrintX)=Data i A4Double="ContinuousPrint" Quit ///A4双页打印 i A4Double="A4Double",PrintType="PAGE" d .i DoublePage=0 d ..s DoublePage=1 .e d ..s DoublePage=0 ..s DoublePrintY=0 i A4Double="A4Double",PrintType="PAGE",DoublePage=1 Quit i A4Double="A4Double",DoublePage=0,PrintY>DoublePrintY s DoublePrintY=PrintY i A4Double="A4Double",DoublePage=1 s PrintY=DoublePrintY+PrintY+10 s PrintFlagOld=PrintFlag i (PrintFlag="LastPageD")||(PrintFlag="LastPageD") s PrintFlag="D" ///普通打印 set Data=$lb(PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor) s indAdd=0 //画最后一页的元素单独处理 i (PrintFlagOld="LastPage")||(PrintFlagOld="LastPageD") s indAdd=100000 Set ^CacheTemp(repid,ind+indAdd)=Data Set ind=ind+1 Quit OutErr s ERRSTR=$g(ERRSTR) s (PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor)="" s PrintType="ERR" s PrintText=ERRSTR ///普通打印 set Data=$lb(PrintType,PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile,PrintColor) Set ^CacheTemp(repid,ind)=Data Set ind=ind+1 Set qHandle=$lb(0,repid,0) Quit GetResultData ///结果数据 //之前模式没测试日期1元素就不执行 i '$d(^dbo.PTReportPrintItemI("IndexDataField",ReportPrintDR," RESULT"," 测试日期1")) q s SumRows=0,tResultLineSpacing=0,tColsFlag=0,tCol="" //行是否超出纸张 s rowOutPage=0 //绘制剩余数据量 s LaveNum=curTSSumResult s CurCheckRowNum=LaveNum i resultCols=2,(CurCheckRowNum>(resultRows*2)) d .s CurCheckRowNum=resultRows*2 .s LaveNum=LaveNum-(resultRows*2) s TestDate="" f s TestDate=$o(^TMPLISQC($zn,repid,"Result",TestDate)) q:TestDate="" d .s TestTime="" f s TestTime=$o(^TMPLISQC($zn,repid,"Result",TestDate,TestTime)) q:TestTime="" d ..s RowID="" f s RowID=$o(^TMPLISQC($zn,repid,"Result",TestDate,TestTime,RowID)) q:RowID="" d ...s tcDataList=$g(^TMPLISQC($zn,repid,"Result",TestDate,TestTime,RowID) ) ...s SumRows=SumRows+1,iMultiRow=0 ...//换页处理 ...s tNewPage=0 ...i resultCols=1 d ....s iPage=(SumRows-1)/resultRows ....i iPage>0,$e(iPage)=1 s tNewPage=1,SumRows=1 ...i resultCols=2 d ....s iPage=(SumRows-1)/(resultRows*2) ....i iPage>0,$e(iPage)=1 s tNewPage=1,SumRows=1 ...//行超过页高度 ...i ((LastRowY+resultLineSpacing)>ChangePageHeight) s rowOutPage=1 ...//超过高度也换页 ...i ((LastRowY+resultLineSpacing)>ChangePageHeight),tCol="2" s tNewPage=1,SumRows=1 ...//换页操作开始 ...i tNewPage=1 d ....//画自动竖线 ....d GetAutoLineData ....s PrintType="PAGE" ....s (PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile)="" ....d OutputData ....s rowOutPage=0 ....s ImageAddHeight=-ImageGrapthHeight+resultLineSpacing ....//图形 ....//d GetGraphData("END") ....//标签 ....d GetLabelData ....//输出头数据 ....d GetTitleData ....//数据 ....d GetDataData ....//线 ....d GetLineData ....s tResultLineSpacing=resultLineSpacing-resultLineSpacing,tColsFlag=0 ///重新设置结果开始行 ....s LastRowY=0 ...//换页操作结束 ...i (SumRows>1),(tNewPage=0) s tResultLineSpacing=tResultLineSpacing+resultLineSpacing ...s tCol="1" ...i (doubleColFillType="Left") d ....//双列左填充打印 ....i ((SumRows>resultRows)||(rowOutPage=1)),(resultCols=2) s tCol="2",tColsFlag=tColsFlag+1 ...e d ....//双列平均打印 ....i ((SumRows>((CurCheckRowNum\2)+(CurCheckRowNum#2)))||(rowOutPage=1)),(resultCols=2) s tCol="2",tColsFlag=tColsFlag+1 ...//双列打印从头计算 ...i tColsFlag=1 s tResultLineSpacing=0,LastRowY=0 ...s ItemField="" f s ItemField=$o(^DHCQCrintOrder("R"_tCol,ItemField)) q:ItemField="" d ....s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexDataField",ReportPrintDR," RESULT",$c(32)_ItemField,"")) ....i $l(ReportPrintItemDR) d .....s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .....s PrintType=$lg(ItemData,4) .....s PrintX=$lg(ItemData,5) .....//结果间距 .....s PrintY=$lg(ItemData,6)+tResultLineSpacing+ImageAddHeight .....i '$l(AutoStartY) s AutoStartY=$lg(ItemData,6) .....s PrintFont=$lg(ItemData,7) .....s PrintFontSize=$lg(ItemData,8) .....s PrintFontStyle=$lg(ItemData,9) .....s PrintLength=+$lg(ItemData,10) .....s PrintWidth=$lg(ItemData,11) .....s PrintHeight=$lg(ItemData,12) .....s PrintText=$lg(ItemData,13) .....s DataField=$lg(ItemData,14) .....s PrintFlag=$lg(ItemData,15) .....s PrintAlignment=$lg(ItemData,16) .....s PrintImageFile="" .....s PrintText=$lg(tcDataList,^DHCQCrintOrder("R"_tCol,ItemField)) .....//包含$c(13)换行处理 .....i $l(PrintText,cr)>1 d ......s tPrintText=PrintText,tPrintY=PrintY,tPrintX=PrintX ......f il=1:1:$l(tPrintText,cr) d .......i '$l(PrintText) q .......s iMultiRow=iMultiRow+1 .......s PrintText=$p(tPrintText,cr,il) .......s PrintY=tPrintY+(resultLineSpacing*(iMultiRow-1)) .......i LastRowY<PrintY s LastRowY=PrintY .......d OutputData .......s PrintX=tPrintX .....e d ......///字符超长度换行处理 ......i (PrintLength>0),+..CheckSum(PrintText,repid)>PrintLength d .......s tPrintY=PrintY,tPrintX=PrintX .......s tPrintText=..CheckText(PrintText,PrintLength,repid) .......f il=1:1:$l(tPrintText,cr) d ........s PrintText=$p(tPrintText,cr,il) ........i '$l(PrintText) q ........s iMultiRow=iMultiRow+1 ........s PrintY=tPrintY+(resultLineSpacing*(iMultiRow-1)) ........i LastRowY<PrintY s LastRowY=PrintY ........d OutputData ........s PrintX=tPrintX ......e d .......i LastRowY<PrintY s LastRowY=PrintY .......d OutputData ...//画数据表格的横线 ...s PrintY=LastRowY+LinePianYi ...s PrintType="ILine" ...s PrintX=LineX ...s PrintWidth=LineWidth ...s PrintHeight=1 ...//实线 ...s PrintFlag="0" ...i LastRowY<PrintY s LastRowY=PrintY ...d OutputData q GetGridData(GridField) ///表格数据 s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexDataField",ReportPrintDR," RESULT"," "_$zcvt(GridField,"U"),"")) i '$l(ReportPrintItemDR) q s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) s PrintType=$lg(ItemData,4) s PrintX=$lg(ItemData,5) s PrintY=$lg(ItemData,6) i $l(PreElementY) d .s PrintY=PrintY-PreElementY+LastRowY-resultLineSpacing //前一个元素的Y s PreElementY=$lg(ItemData,6) s PrintFont=$lg(ItemData,7) s PrintFontSize=$lg(ItemData,8) s PrintFontStyle=$lg(ItemData,9) s PrintLength=$lg(ItemData,10) s PrintWidth=$lg(ItemData,11) s PrintHeight=$lg(ItemData,12) s PrintText=$lg(ItemData,13) s DataField=$lg(ItemData,14) s PrintFlag=$lg(ItemData,15) s IsVShow=$lg(ItemData,20) //表格元素单独画 i (PrintFlag'="Grid"),(PrintFlag'="GAuto") q //i PrintFlag="GAuto" s PrintY=PrintY+ImageAddHeight s PrintAlignment=$lg(ItemData,16) s PrintImageFile="" ///活动报告尾部处理 s PrintFixedItem=$lg(ItemData,18) i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing //画设置表格 i DataField="质控设置信息",$l(FMapTitlePrintInfo) d .s gridDatas=$lb($lb("浓度","靶值","SD","CV%","计算均值","计算SD","计算CV%","累计均值","累计SD","累计CV%","批号")) .f gti=1:1:$l(FMapTitlePrintInfo,"%ZSPL%") d ..s OneLevelStr=$p(FMapTitlePrintInfo,"%ZSPL%",gti) ..i $l(OneLevelStr) d ...s OneRowTitle="" ...f gtj=2:1:$l(OneLevelStr,"$R$") d ....s OneRowTitle=OneRowTitle_$lb($p(OneLevelStr,"$R$",gtj)) ...s gridDatas=gridDatas_$lb(OneRowTitle) .s AutoStartY=PrintY .s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() .s LastRowY=imgObj.DrawGrid("靶值信息-多段按日期先后从上往下",gridDatas,$lb(1,2,3,4,5,6,7,8,9,10,11),$lb(10),"",PrintWidth,archivesMargin+PrintX,PrintY,"","",20,1,1,PrintHeight,1,PrintFontSize,"",1100,1) .s ImageAddHeight=LastRowY-PrintY-resultLineSpacing .set ret=imgObj.Print(repid,.ind) s HasDrawQCGrid=0 //画质控数据表格 i DataField="质控数据表格",(IsVShow'="1"),$d(^TMPLISQC($zn,repid,"VResult")) d .s gridDatas="" .s HasDrawQCGrid=1 .s gIndex="" f s gIndex=$o(^TMPLISQC($zn,repid,"VResult",gIndex)) q:gIndex="" d ..s gridDatas=gridDatas_$lb(^TMPLISQC($zn,repid,"VResult",gIndex)) .s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() .s LastRowY=imgObj.DrawGrid("质控数据",gridDatas,"",$lb(10),$lb(PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment,PrintAlignment),PrintWidth,archivesMargin+PrintX,PrintY,PrintLength,^TMPLISQC($zn,repid,"VTitle"),20,1,1,PrintHeight,1,PrintFontSize,"",1100,1) .s ImageAddHeight=LastRowY-AutoStartY-(resultLineSpacing*2) .set ret=imgObj.Print(repid,.ind) i DataField="质控数据表格",(IsVShow="1"),$d(^TMPLISQC($zn,repid,"Result")) d .s HasDrawQCGrid=1 .s headData=$g(^TMPLISQC($zn,repid,"ResultHead")) .s QCIsPrintUser=##class(OTH.SYSParameter).GetDataValue("QCIsPrintUser","SYS","DHCC") .s QCIsPrintTime=##class(OTH.SYSParameter).GetDataValue("QCIsPrintTime","SYS","DHCC") .s col=$lb(1,2) .i QCIsPrintTime="1" s col=col_$lb(3) .s levNum=$ll(headData)-4 .f li=1:1:levNum d ..s col=col_$lb((li+3)) .i QCIsPrintUser="1" s col=col_$lb(10) .i $ll(headData)<9 d ..s LessNum=9-$ll(headData) ..f LessAdd=1:1:LessNum d ...s headData=headData_$lb("") .s headData=headData_$lb("操作者") .s gridDatas=$lb(headData) .s firstDate="" f s firstDate=$o(^TMPLISQC($zn,repid,"Result",firstDate)) q:firstDate="" d ..s firstTime="" f s firstTime=$o(^TMPLISQC($zn,repid,"Result",firstDate,firstTime)) q:firstTime="" d ...s gIndex="" f s gIndex=$o(^TMPLISQC($zn,repid,"Result",firstDate,firstTime,gIndex)) q:gIndex="" d ....s gridDatas=gridDatas_$lb(^TMPLISQC($zn,repid,"Result",firstDate,firstTime,gIndex)) .s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() .s LastRowY=imgObj.DrawGrid("质控数据",gridDatas,col,$lb(5),"",PrintWidth,archivesMargin+PrintX,PrintY,"","",20,1,1,PrintHeight,1,PrintFontSize,"",1100,1) .s ImageAddHeight=LastRowY-AutoStartY-(resultLineSpacing*2) .set ret=imgObj.Print(repid,.ind) //绘制表格了就删除数据了 i HasDrawQCGrid=1 d .k ^TMPLISQC($zn,repid,"VResult") .k ^TMPLISQC($zn,repid,"VTitle") .k ^TMPLISQC($zn,repid,"Result") .k ^TMPLISQC($zn,repid,"ResultHead") //画质控失控处理表格 i DataField="失控处理表格",$d(^TMPLISQC($zn,repid,"LossControlTreat")) d .s gridDatas=^TMPLISQC($zn,repid,"LossControlTreat") .k ^TMPLISQC($zn,repid,"LossControlTreat") .s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() .s LastRowY=imgObj.DrawGrid("失控处理",gridDatas,$lb(1,2,3,4,5,6),$lb(10,10,30,20,20,10),"",PrintWidth,archivesMargin+PrintX,PrintY,"","",20,1,1,PrintHeight,1,PrintFontSize,"",1100,1) .s ImageAddHeight=LastRowY-AutoStartY-(resultLineSpacing*3) .set ret=imgObj.Print(repid,.ind) //画质控评价表格 i DataField="质控评价表格",$d(^TMPLISQC($zn,repid,"QcEvaluation")) d .s gridDatas=^TMPLISQC($zn,repid,"QcEvaluation") .k ^TMPLISQC($zn,repid,"QcEvaluation") .s imgObj=##Class(wbsLisMsgAsyncHandler.LISMsg.DHCLISImage).%New() .s LastRowY=imgObj.DrawGrid("质控评价",gridDatas,$lb(1,2),$lb(10,90),"",PrintWidth,archivesMargin+PrintX,PrintY,"","",20,1,1,PrintHeight,1,PrintFontSize,"",1100,1) .set ret=imgObj.Print(repid,.ind) q GetLabelData ///标签数据 s ItemCodeLabel="" f s ItemCodeLabel=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," LABEL",ItemCodeLabel)) q:ItemCodeLabel="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," LABEL",ItemCodeLabel,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s PrintType=$lg(ItemData,4) .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6) .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=$lg(ItemData,12) .s PrintText=$lg(ItemData,13) .s DataField=$lg(ItemData,14) .s PrintFlag=$lg(ItemData,15) .i PrintFlag="GAuto" s PrintY=PrintY+ImageAddHeight .s PrintAlignment=$lg(ItemData,16) .s PrintImageFile="" .///活动报告尾部处理 .s PrintFixedItem=$lg(ItemData,18) .i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing .d OutputData q GetTitleData ///数据 i '$l(FMapTitlePrintInfo) q s ItemCodeTitleData="" f s ItemCodeTitleData=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," TESTCODEDATA",ItemCodeTitleData)) q:ItemCodeTitleData="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," TESTCODEDATA",ItemCodeTitleData,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s DataField=$lg(ItemData,14) .s PrintText="" .i $d(^DHCQCrintOrder("TD",DataField)) d ..s OneLevelStr="" ..i DataField["L1" d ...s OneLevelStr=$p(FMapTitlePrintInfo,"$L$",1) ..i DataField["L2" d ...s OneLevelStr=$p(FMapTitlePrintInfo,"$L$",2) ..i DataField["L3" d ...s OneLevelStr=$p(FMapTitlePrintInfo,"$L$",3) ..s PrintText=$p(OneLevelStr,"$R$",+$g(^DHCQCrintOrder("TD",DataField))) .i '$l(PrintText) q .s PrintType="Data" .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6) .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=+$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=$lg(ItemData,12) .s PrintFlag=$lg(ItemData,15) .s PrintAlignment=$lg(ItemData,16) .s PrintImageFile="" .//活动报告尾部处理 .s PrintFixedItem=$lg(ItemData,18) .i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing .///数据换页处理 .i (PrintLength>0) d ..s TxtLen=+..CheckSum(PrintText,repid) ..i TxtLen>PrintLength d ...s tPrintY=PrintY,tPrintX=PrintX ...s tPrintText=..CheckText(PrintText,PrintLength,repid) ...f il=1:1:$l(tPrintText,$c(13)) d ....s PrintText=$p(tPrintText,$c(13),il) ....i '$l(PrintText) q ....d OutputData ....s PrintY=tPrintY + (il*resultLineSpacing) ....s PrintX=tPrintX ..e d OutputData .e d ..d OutputData q GetDataData ///数据 s ItemCodeDataData="" f s ItemCodeDataData=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," DATA",ItemCodeDataData)) q:ItemCodeDataData="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," DATA",ItemCodeDataData,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s PrintType=$lg(ItemData,4) .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6) .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=+$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=$lg(ItemData,12) .s PrintText="" .s DataField=$lg(ItemData,14) .s PrintFlag=$lg(ItemData,15) .//不画自动定位元素 .i PrintFlag="Auto" s ^TMPLISQC($zn,repid,"AutoData",PrintY,ItemCodeDataData)="" .i PrintFlag="Auto" q .s PrintAlignment=$lg(ItemData,16) .s PrintImageFile="" .//活动报告尾部处理 .s PrintFixedItem=$lg(ItemData,18) .i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing .i $l(DataField),$d(^DHCQCrintOrder("D",DataField)) d ..s PrintText=$p(ExtraInfo,$c(2),+$g(^DHCQCrintOrder("D",DataField))) .///用户图形签名处理 .i PrintFlag="D"||(PrintFlag="LastPageD") d ..s GraphCode=$zcvt(PrintText,"U") ..i '$d(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR")) d ...s UserDR=$o(^dbo.SYSUserI("IndexCode",##Class(LIS.Util.Common).IndexData(GraphCode),"")) ...i $l(UserDR) s PrintText=$lg($g(^dbo.SYSUserD(UserDR)),3) //无签名打印用户姓名 ..i $d(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR")) d ...s RowID=$o(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR","")) ...s GraphBase64String=$lg(^dbo.PTReportPrintGraphD(RowID),6) ...i $l(GraphBase64String) s DataField=GraphBase64String,PrintType="Graph" .///数据换页处理 .i (PrintLength>0) d ..s TxtLen=+..CheckSum(PrintText,repid) ..i TxtLen>PrintLength d ...s tPrintY=PrintY,tPrintX=PrintX ...s tPrintText=..CheckText(PrintText,PrintLength,repid) ...f il=1:1:$l(tPrintText,$c(13)) d ....s PrintText=$p(tPrintText,$c(13),il) ....i '$l(PrintText) q ....d OutputData ....s PrintY=tPrintY + (il*resultLineSpacing) ....s PrintX=tPrintX ..e d OutputData .e d ..d OutputData q GetAutoDataData ///数据 s AutoHasChangePage=0 s AutoDY="" f s AutoDY=$o(^TMPLISQC($zn,repid,"AutoData",AutoDY)) q:AutoDY="" d .s ItemCodeAutoDataData="" f s ItemCodeAutoDataData=$o(^TMPLISQC($zn,repid,"AutoData",AutoDY,ItemCodeAutoDataData)) q:ItemCodeAutoDataData="" d ..s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," DATA",ItemCodeAutoDataData,"")) ..s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) ..s PrintType=$lg(ItemData,4) ..s PrintX=$lg(ItemData,5) ..s PrintY=($lg(ItemData,6)-AutoStartY)+LastRowY ..//判断换页 ..i PrintY>ChangePageHeight d ...i AutoHasChangePage=0 d ....s OldPrintType=PrintType ....s PrintType="PAGE" ....d OutputData ....s PrintType=OldPrintType ...s AutoHasChangePage=1 ...s PrintY=PrintY-ChangePageHeight+20 ..s PrintX=$lg(ItemData,5) ..s PrintFont=$lg(ItemData,7) ..s PrintFontSize=$lg(ItemData,8) ..s PrintFontStyle=$lg(ItemData,9) ..s PrintLength=+$lg(ItemData,10) ..s PrintWidth=$lg(ItemData,11) ..s PrintHeight=$lg(ItemData,12) ..s PrintText="" ..s DataField=$lg(ItemData,14) ..s PrintFlag=$lg(ItemData,15) ..//画自动定位元素 ..i PrintFlag'="Auto" q ..s PrintAlignment=$lg(ItemData,16) ..s PrintImageFile="" ..//活动报告尾部处理 ..s PrintFixedItem=$lg(ItemData,18) ..i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing ..i $l(DataField),$d(^DHCQCrintOrder("D",DataField)) d ...s PrintText=$p(ExtraInfo,$c(2),+$g(^DHCQCrintOrder("D",DataField))) ..///用户图形签名处理 ..i (PrintFlag="D")||(PrintFlag="LastPageD") d ...s GraphCode=$zcvt(PrintText,"U") ...i '$d(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR")) d ....s UserDR=$o(^dbo.SYSUserI("IndexCode",##Class(LIS.Util.Common).IndexData(GraphCode),"")) ....i $l(UserDR) s PrintText=$lg($g(^dbo.SYSUserD(UserDR)),3) //无签名打印用户姓名 ...i $d(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR")) d ....s RowID=$o(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_GraphCode," USR","")) ....s GraphBase64String=$lg(^dbo.PTReportPrintGraphD(RowID),6) ....i $l(GraphBase64String) s DataField=GraphBase64String,PrintType="Graph" ..///数据换页处理 ..i (PrintLength>0) d ...s PrintText=$tr(PrintText,";",$c(13)) ...s TxtLen=+..CheckSum(PrintText,repid) ...i (TxtLen>PrintLength)||(PrintText[$c(13)) d ....s tPrintY=PrintY,tPrintX=PrintX ....s tPrintText=..CheckText(PrintText,PrintLength,repid) ....s ilOutIndex=0 ....f il=1:1:$l(tPrintText,$c(13)) d .....s PrintText=$p(tPrintText,$c(13),il) .....i '$l(PrintText) q .....s ilOutIndex=ilOutIndex+1 .....//判断换页 .....i PrintY>ChangePageHeight d ......i AutoHasChangePage=0 d .......s OldPrintType=PrintType .......s PrintType="PAGE" .......s LastRowY=LastRowY+20 .......s PrintX=tPrintX .......d OutputData .......s PrintType=OldPrintType ......s PrintY=PrintY-ChangePageHeight+20 ......s AutoHasChangePage=1 .....s PrintX=tPrintX .....d OutputData .....s PrintY=tPrintY + (ilOutIndex*resultLineSpacing) .....i il>1 s LastRowY=LastRowY+resultLineSpacing .....s PrintX=tPrintX ...e ....d OutputData ..e d ...d OutputData s PrintType="Label" s (PrintX,PrintY,PrintFont,PrintFontSize,PrintFontStyle,PrintLength,PrintWidth,PrintHeight,PrintText,DataField,PrintFlag,PrintAlignment,PrintImageFile)="" s PrintX=10 s PrintY=1000 s PrintFontSize=10 s PrintFontStyle="Regular" s PrintLength=10 s PrintWidth=10 s PrintHeight=10 s PrintText=" " d OutputData q GetLineData ///线 s ItemCodeLineData="" f s ItemCodeLineData=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," ILINE",ItemCodeLineData)) q:ItemCodeLineData="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," ILINE",ItemCodeLineData,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s PrintType=$lg(ItemData,4) .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6) .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=$lg(ItemData,12) .s PrintText=$lg(ItemData,13) .s DataField=$lg(ItemData,14) .s PrintFlag=$lg(ItemData,15) .s PrintAlignment=$lg(ItemData,16) .i PrintFlag="GAuto" s PrintY=PrintY+ImageAddHeight .//自动高度线 .i PrintFlag="Auto" q .s PrintImageFile="" .///活动报告尾部处理 .s PrintFixedItem=$lg(ItemData,18) .i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing .s LineX=PrintX .s LineWidth=PrintWidth .d OutputData q GetAutoLineData ///线 s ItemCodeAutoLineData="" f s ItemCodeAutoLineData=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," ILINE",ItemCodeAutoLineData)) q:ItemCodeAutoLineData="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," ILINE",ItemCodeAutoLineData,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s PrintType=$lg(ItemData,4) .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6)+ImageAddHeight .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=LastRowY-PrintY .s PrintText=$lg(ItemData,13) .s DataField=$lg(ItemData,14) .s PrintFlag=$lg(ItemData,15) .s PrintAlignment=$lg(ItemData,16) .//自动高度线 .i PrintFlag'="Auto" q .s PrintImageFile="" .///活动报告尾部处理 .s PrintFixedItem=$lg(ItemData,18) .i fixedReport="0",PrintFixedItem="0" s PrintY=PrintY-FixedSpacing .s LineX=PrintX .s LineWidth=PrintWidth .d OutputData q GetGraphData(gFlag) ///图形 s ItemCodeGraphData="" f s ItemCodeGraphData=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," GRAPH",ItemCodeGraphData)) q:ItemCodeGraphData="" d .s ReportPrintItemDR=$o(^dbo.PTReportPrintItemI("IndexPrintType",ReportPrintDR," GRAPH",ItemCodeGraphData,"")) .s ItemData=$g(^dbo.PTReportPrintItemD(ReportPrintItemDR)) .s PrintType=$lg(ItemData,4) .s PrintX=$lg(ItemData,5) .s PrintY=$lg(ItemData,6) .s PrintFont=$lg(ItemData,7) .s PrintFontSize=$lg(ItemData,8) .s PrintFontStyle=$lg(ItemData,9) .s PrintLength=$lg(ItemData,10) .s PrintWidth=$lg(ItemData,11) .s PrintHeight=$lg(ItemData,12) .//前一个元素的Y .s PreElementY=PrintY+PrintHeight .s PrintText=$lg(ItemData,13) .s DataField=$lg(ItemData,14) .s PrintFlag=$lg(ItemData,15) .s PrintAlignment=$lg(ItemData,16) .s PrintImageFile=$lg(ItemData,17) .s tDataField=DataField .s DataField="" .s ImageHeight=PrintHeight .i $l(tDataField),tDataField="P" d ..i $l(ImagePath) d ...s OldPrintX=PrintX ...s OldPrintY=PrintY ...s ImageGrapthHeight=PrintHeight ...s PrintY=$lg(ItemData,6) ...s AutoHasChangePage=0 ...f zi=1:1:$l(ImagePath,";") d ....s OneImagePath=$p(ImagePath,";",zi) ....s ImagePathComand=$p(OneImagePath,",",2) ....s ImageFtpPath=$p(OneImagePath,",",1) ....i (ImageFtpPath["http:")||(ImageFtpPath["https:") d .....s ImagePathComand=ImageFtpPath .....s ImageFtpPath="无效" ....i $l(ImageFtpPath) s ImageFtpPath=FtpData_ImageFtpPath ....s DataField=ImageFtpPath ....//有数据且包含了http就认为放了命令路径，会尝试下载命令画图 ....s PrintFlag=ImagePathComand ....s PrintX=OldPrintX ....d OutputData ....s PrintY=PrintY+ImageHeight ....s LastRowY=PrintY+resultLineSpacing ....//判断换页 ....i PrintY>ChangePageHeight d .....s ImageHeightOld=ImageHeight .....s LastRowY=PrintY-ChangePageHeight+60+ImageAddHeight .....i AutoHasChangePage=0 d ......s OldPrintType=PrintType ......s ImageAddHeight=ImageAddHeight+ImageHeight ......//标签 ......d GetLabelData ......//数据 ......d GetDataData ......//输出头数据 ......d GetTitleData ......//线 ......d GetLineData ......s PrintType="PAGE" ......s LastRowY=LastRowY+20 ......d OutputData ......s PrintType=OldPrintType .....s PrintY=OldPrintY+20 .....s PrintHeight=ImageHeightOld .....s ImageAddHeight=(-ImageHeight) .....s AutoHasChangePage=1 .e d ..///获取医院Logo图形打印 数据暂时放入用户图形签名 ..i $l(tDataField),(PrintFlag="D") d ...i $d(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_tDataField," DEF")) d ....s RowID=$o(^dbo.PTReportPrintGraphI("IndexMaster",HospitalDR," "_tDataField," DEF","")) ....s GraphBase64String=$lg(^dbo.PTReportPrintGraphD(RowID),6) ....i $l(GraphBase64String) s DataField=GraphBase64String ..e i '$l(DataField) s DataField=tDataField ..d OutputData q } ClassMethod QueryPrintDataClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set repid=$LIST(qHandle,2) Kill ^CacheTemp(repid) Quit $$$OK } ClassMethod QueryPrintDataFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = QueryPrintDataExecute ] { Set AtEnd=$LIST(qHandle,1) Set repid=$LIST(qHandle,2) Set ind=$LIST(qHandle,3) // Set ind=$o(^CacheTemp(repid,ind)) If ind="" { // if there are no more rows, finish fetching Set AtEnd=1 Set Row="" } Else { // fetch row Set Row=^CacheTemp(repid,ind) } // Save QHandle s qHandle=$lb(AtEnd,repid,ind) Quit $$$OK } ClassMethod CheckSum(x, repid As %String) As %Integer { s x=$g(x) s repid=$g(repid) s z=0 f y=1:1:$l(x) d .s t=$e(x,y) .i $a(t)>128 s z=z+2 .e s z=z+1 q z } ClassMethod CheckText(x, iLen, repid As %String) As %String { s repid=$g(repid) s tStr="",z=0 f y=1:1:$l(x) d .s t=$e(x,y) .i $a(t)>128 s z=z+2 .e s z=z+1 .s tStr=tStr_t .i t=$c(13) s z=0 .i z>iLen s tStr=tStr_$c(13),z=0 q tStr } /// 获取质控打印的额外信息 ClassMethod GetQCPrintExtra(FStartDate, FEndDate, FMachDR, FMatDR, FMatLotDR, FTestCodeDR, FLeavel, FExcludeRule, FPointRange, FTemplateCode, repid, UserName) As %String { s FStartDate=$g(FStartDate) s FEndDate=$g(FEndDate) s FMachDR=$g(FMachDR) s FMatDR=$g(FMatDR) s FMatLotDR=$g(FMatLotDR) s FTestCodeDR=$g(FTestCodeDR) s FLeavel=$g(FLeavel) s FExcludeRule=$g(FExcludeRule) s FPointRange=$g(FPointRange) s FTemplateCode=$g(FTemplateCode) s repid=$g(repid) s HospitalDR=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),4) s HospitalName="" i $l(HospitalDR) s HospitalName=$lg($g(^dbo.BTHospitalD(HospitalDR)),3) s Title=HospitalName i FTemplateCode="QCPrintZ" s Title=Title_"Z分数图" i FTemplateCode="QCPrintYouDen" s Title=Title_"YouDen图" i FTemplateCode="QCPrintQualitative" s Title=Title_"定性质控图" i FTemplateCode="QCPrintLJ" s Title=Title_"L-J图" i FTemplateCode="QCPrintGrubbs" s Title=Title_"Grubbs图" i FTemplateCode="QCPrintFreq" s Title=Title_"频谱图" i FTemplateCode="QCPrintWestGuard" s Title=Title_"WestGard图" i FTemplateCode="QCPrintDeviationRatio" s Title=Title_"偏离比例图" s DateInfo=FStartDate_"/"_FEndDate s FStartDate=$tr(FStartDate,"-") s FEndDate=$tr(FEndDate,"-") s MachineName=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),3) s MachineCode=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),2) s MachineLName=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),5) s WorkGroupMachineDR=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),6) s WorkGroupMachineName=$lg($g(^dbo.BTWorkGroupMachineD(WorkGroupMachineDR)),3) s WorkGroupDR=$lg($g(^dbo.BTWorkGroupMachineD(WorkGroupMachineDR)),4) s WorkGroupName=$lg($g(^dbo.BTWorkGroupD(WorkGroupDR)),3) s TitleWithGroup=HospitalName i FTemplateCode="QCPrintZ" s TitleWithGroup=TitleWithGroup_"Z分数图" i FTemplateCode="QCPrintYouDen" s TitleWithGroup=TitleWithGroup_"YouDen图" i FTemplateCode="QCPrintQualitative" s TitleWithGroup=TitleWithGroup_"定性质控图" i FTemplateCode="QCPrintLJ" s TitleWithGroup=TitleWithGroup_"质量控制图" i FTemplateCode="QCPrintGrubbs" s TitleWithGroup=TitleWithGroup_"Grubbs图" i FTemplateCode="QCPrintFreq" s TitleWithGroup=TitleWithGroup_"频谱图" i FTemplateCode="QCPrintWestGuard" s TitleWithGroup=TitleWithGroup_"WestGard图" i FTemplateCode="QCPrintDeviationRatio" s TitleWithGroup=TitleWithGroup_"偏离比例图" //用质控物得到批次主键 i $l(FMatDR) d .s MaterialLotCode="" f s MaterialLotCode=$o(^dbo.BTQCMaterialLotI("IndexMaster",FMatDR,MaterialLotCode)) q:MaterialLotCode="" d ..s FMatLotDR=$o(^dbo.BTQCMaterialLotI("IndexMaster",FMatDR,MaterialLotCode,"")) //失控处理 k ^TMPLISQC($zn,repid,"LossControlTreat") //质控评价 k ^TMPLISQC($zn,repid,"QcEvaluation") //质控物信息 s (MatCode,CName,WaveLengthMian,WaveLength)="" i $l(FMatDR),$d(^dbo.BTQCMaterialD(FMatDR)) d .s StrMaterialD=$g(^dbo.BTQCMaterialD(FMatDR)) .s MatCode=$lg(StrMaterialD,2) .s CName=$lg(StrMaterialD,3) .s WaveLengthMian=$lg(StrMaterialD,7) //项目名称 s (TCName,TCUnit,MethodDR,MethodName)="" i $d(^dbo.BTTestCodeD(FTestCodeDR)) d .s TCName=$lg($g(^dbo.BTTestCodeD(FTestCodeDR)),3) .s TCUnit=$lg($g(^dbo.BTTestCodeD(FTestCodeDR)),8) .s MethodDR=$lg($g(^dbo.BTTestCodeD(FTestCodeDR)),11) .i $l(MethodDR) s MethodName=$lg($g(^dbo.BTTestMethodD(MethodDR)),3) //批次浓度信息 s LotLeavel="" //批次信息 s (LotCode,LotNoOut,RGLotNoOut,StartDate,EndDate,ProductDate,ExpiryDate,Manufacturer,CorrectLuidBatch)="" //批次规则 s (QCRulesCode,QCRulesName)="" s AllQCRuleNames="" i $l(FMatLotDR),$d(^dbo.BTQCMaterialLotRulesI("IndexMaster",FMatLotDR)) d .s QCRulesDR="" f s QCRulesDR=$o(^dbo.BTQCMaterialLotRulesI("IndexMaster",FMatLotDR,QCRulesDR)) q:QCRulesDR="" d ..s MatLotRuleRowID=$o(^dbo.BTQCMaterialLotRulesI("IndexMaster",FMatLotDR,QCRulesDR,"")) ..s StrQCRules=$g(^dbo.BTQCRulesD(QCRulesDR)) ..i $lg(StrQCRules,4)="D" q ..s QCRulesCode=QCRulesCode_" "_QCRulesDR ..s AllQCRuleNames(MatLotRuleRowID)=$lg(StrQCRules,3) .s MatLotRuleRowID="" f s MatLotRuleRowID=$o(AllQCRuleNames(MatLotRuleRowID)) q:MatLotRuleRowID="" d ..i $l(QCRulesName) s QCRulesName=QCRulesName_" "_AllQCRuleNames(MatLotRuleRowID) ..e s QCRulesName=AllQCRuleNames(MatLotRuleRowID) s Leavel="" s CNameMatLot="" s AmendLiquidLot="" s AmendLiquidDate="" s AmendLiquid="" s RgManufacturer="" s LossControlTreat="" s QcEvaluation="" //定性质控规则 s QCRulesNameDingxing="" s TargetCV="" s RgEffectiveDate="" s StartDate="" s EndDate="" s ProductDate="" //取此批次浓度信息 i $l(FMatLotDR),$d(^dbo.BTQCMaterialLotTestCodeI("IndexMaster",FMatLotDR,FTestCodeDR)) d .s CurLevel="" f s CurLevel=$o(^dbo.BTQCMaterialLotTestCodeI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel)) q:CurLevel="" d ..i (##class(LIS.WS.BLL.DHCQCTestResult).CheckContian(FLeavel,",",CurLevel)=0) q ..s LevelSeq="" f s LevelSeq=$o(^dbo.BTQCMaterialLotTestCodeI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel,LevelSeq)) q:LevelSeq="" d ...s RowId="" f s RowId=$o(^dbo.BTQCMaterialLotTestCodeI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel,LevelSeq,RowId)) q:RowId="" d ....s TcMatLotStartDate=$lg($g(^dbo.BTQCMaterialLotTestCodeD(RowId)),33) ....s TcMatLotEndDate=$lg($g(^dbo.BTQCMaterialLotTestCodeD(RowId)),34) ....i (FStartDate>TcMatLotEndDate)||(FEndDate<TcMatLotStartDate) q ....//取项目设定参数 ....s StrMatLotTC=##class(LIS.WS.BLL.DHCQCTestResult).GetStrQcPara(RowId,FStartDate,FEndDate) ....//定性取定性的规则 ....i $d(^dbo.BTQCMatLotResRulesI("IndexMaster",RowId)) d .....s QCRulesName="" .....s RRResult="" f s RRResult=$o(^dbo.BTQCMatLotResRulesI("IndexMaster",RowId,RRResult)) q:RRResult="" d ......s RRQCRulesDR="" f s RRQCRulesDR=$o(^dbo.BTQCMatLotResRulesI("IndexMaster",RowId,RRResult,RRQCRulesDR)) q:RRQCRulesDR="" d .......s StrQCRules=$g(^dbo.BTQCRulesD(RRQCRulesDR)) .......i $lg(StrQCRules,4)="D" q .......i $l(QCRulesNameDingxing) s QCRulesNameDingxing=QCRulesNameDingxing_" "_$lg(StrQCRules,3) .......e s QCRulesNameDingxing=$lg(StrQCRules,3) .......s QCRulesCode=QCRulesCode_" "_$lg(StrQCRules,2) ....i $l(QCRulesNameDingxing) s QCRulesName=QCRulesNameDingxing ....//质控批次 ....s LotNo=$lg(StrMatLotTC,23) ....i '$l(RgManufacturer) s RgManufacturer=$lg(StrMatLotTC,24) ....else if RgManufacturer'[$lg(StrMatLotTC,24) s RgManufacturer=RgManufacturer_","_$lg(StrMatLotTC,24) ....s StartDate=$lg(StrMatLotTC,33) ....s EndDate=$lg(StrMatLotTC,34) ....s ProductDate=$lg(StrMatLotTC,35) ....//浓度名称:LevelName ....s CurMatRowId=$o(^dbo.BTQCMaterialLevelI("IndexMaster",FMatDR,CurLevel,"")) ....s CurLevelName="" ....i $l(CurMatRowId) s CurLevelName=$lg($g(^dbo.BTQCMaterialLevelD(CurMatRowId)),4) ....//试剂批次 ....s RGLot=$lg(StrMatLotTC,41) ....i $l(LotNo),('$d(^TMPLISQC($zn,repid,$j,"HasOutLot",LotNo))) d .....s LotNoOut=LotNoOut_LotNo_" " .....s ^TMPLISQC($zn,repid,$j,"HasOutLot",LotNo)="" .....s LotLeavel=LotLeavel_LotNo_"["_CurLevelName_"]"_" " ....i $l(RGLot),('$d(^TMPLISQC($zn,repid,$j,"HasOutRGLot",RGLot))) d .....s RGLotNoOut=RGLotNoOut_RGLot_" " .....s ^TMPLISQC($zn,repid,$j,"HasOutRGLot",RGLot)="" ....s ExpiryDate=$lg(StrMatLotTC,36) ....s RgEffectiveDate=$lg(StrMatLotTC,42) ....s LevelUnit=$lg(StrMatLotTC,25) ....//有效使用项目批次的浓度单位 ....i $l(LevelUnit) s TCUnit=LevelUnit ....s CurTargetCV=$lg(StrMatLotTC,28) ....i $l(CurTargetCV) d .....i $l(TargetCV) s TargetCV=TargetCV_","_CurTargetCV .....e s TargetCV=CurTargetCV ....//质控物名称 ....s MatLotTCMatName=$lg(StrMatLotTC,26) ....i $l(MatLotTCMatName),'$d(^TMPLISQC($zn,repid,$j,"HasOutMatName",MatLotTCMatName)) d .....i $l(CNameMatLot) s CNameMatLot=CNameMatLot_","_MatLotTCMatName .....e s CNameMatLot=CNameMatLot_MatLotTCMatName .....s ^TMPLISQC($zn,repid,$j,"HasOutMatName",MatLotTCMatName)="" ....//浓度名称:LevelName ....s MatRowId=$o(^dbo.BTQCMaterialLevelI("IndexMaster",FMatDR,CurLevel,"")) ....s LevelName="" ....i $l(MatRowId) s LevelName=$lg($g(^dbo.BTQCMaterialLevelD(MatRowId)),4) ....//浓度名字映射 ....s ^TMPLISQC($zn,repid,$j,"LevelNoName",CurLevel)=LevelName ....i $l(LevelName),'$d(^TMPLISQC($zn,repid,$j,"HasOutLeavel",LevelName)) d .....s Leavel=Leavel_" "_LevelName .....s ^TMPLISQC($zn,repid,$j,"HasOutLeavel",LevelName)="" ....//批次名称 LotName ....s LotRowId=$o(^dbo.BTQCMaterialLotLevelI("IndexMaster",FMatLotDR,CurLevel,"")) ....s LotName="" ....i $l(LotRowId) s LotName=$lg($g(^dbo.BTQCMaterialLotLevelD(LotRowId)),4) ....s Precision=$lg(StrMatLotTC,11),CV="",FloatCV="" ....s Mean=$lg(StrMatLotTC,5) ....s SD=$lg(StrMatLotTC,6) ....s Remark=$lg(StrMatLotTC,16) ....s TCWaveLengthMian=$lg(StrMatLotTC,39) ....i $l(TCWaveLengthMian) s WaveLengthMian=TCWaveLengthMian ....s TCWaveLength=$lg(StrMatLotTC,40) ....i $l(TCWaveLength) s WaveLength=TCWaveLength ....s AmendLiquidLot=$lg(StrMatLotTC,38) ....s AmendLiquidDate=$lg(StrMatLotTC,43) ....s AmendLiquid=$lg(StrMatLotTC,44) ....i Mean>0.00000001 s CV=$fn((SD/Mean)*100,"",Precision),Mean=$fn(Mean,"",Precision),SD=$fn(SD,"",Precision) ....s FloatMean=$lg(StrMatLotTC,7) ....s FloatSD=$lg(StrMatLotTC,8) ....i FloatMean>0.00000001 s FloatCV=$fn((FloatSD/FloatMean)*100,"",Precision),FloatMean=$fn(FloatMean,"",Precision),FloatSD=$fn(FloatSD,"",Precision) ....s TestMethod=$lg(StrMatLotTC,9) ....//质控维护了试验方法，优先使用 ....i $l(TestMethod) s MethodName=TestMethod ....i $d(^dbo.QCTestResultI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel)) d .....s TrDate="" f s TrDate=$o(^dbo.QCTestResultI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel,TrDate)) q:TrDate="" d ......//时间限定 ......i (TrDate<FStartDate)||(TrDate>FEndDate) q ......s TrTime="" f s TrTime=$o(^dbo.QCTestResultI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel,TrDate,TrTime)) q:TrTime="" d .......s TrRowId="" f s TrRowId=$o(^dbo.QCTestResultI("IndexMaster",FMatLotDR,FTestCodeDR,CurLevel,TrDate,TrTime,TrRowId)) q:TrRowId="" d ........s TransDate="" f s TransDate=$o(^dbo.QCTestResultTransactionI("IndexMaster",TrRowId,TransDate)) q:TransDate="" d .........s TransTime="" f s TransTime=$o(^dbo.QCTestResultTransactionI("IndexMaster",TrRowId,TransDate,TransTime)) q:TransTime="" d ..........s TransRowId="" f s TransRowId=$o(^dbo.QCTestResultTransactionI("IndexMaster",TrRowId,TransDate,TransTime,TransRowId)) q:TransRowId="" d ...........s CurLossResult=$lg(^dbo.QCTestResultD(TrRowId),9) ...........s TransactionTypeDR=$lg(^dbo.QCTestResultTransactionD(TransRowId),8) ...........s LossAddUserDR=$lg(^dbo.QCTestResultTransactionD(TransRowId),5) ...........s LossAddUser="" ...........i $l(LossAddUserDR) s LossAddUser=$lg($g(^dbo.SYSUserD(LossAddUserDR)),3) ...........s TransactionType="" ...........i $l(TransactionTypeDR) s TransactionType=$lg(^dbo.BTQCTransactionTypeD(TransactionTypeDR),3) ...........s TransactionMethod=$lg(^dbo.QCTestResultTransactionD(TransRowId),9) ...........i $d(^TMPLISQC($zn,repid,$j,"HasOut",TransRowId)) q ...........s ^TMPLISQC($zn,repid,$j,"HasOut",TransRowId)="" ...........//原因 ...........s Reson="" ...........i $l(TransactionType) s Reson=" 原因："_$lg(^dbo.QCTestResultTransactionD(TransRowId),6) ...........//处理方法 ...........s DealMethod="" ...........i $l(TransactionMethod) s DealMethod=" 处理方法："_TransactionMethod ...........s LossControlTreat=LossControlTreat_"日期："_$lg(^dbo.QCTestResultD(TrRowId),5)_" 浓度:"_LevelName_Reson_DealMethod_" 处理："_$lg(^dbo.QCTestResultTransactionD(TransRowId),10)_" 处理者："_LossAddUser_" ;" ...........i '$d(^TMPLISQC($zn,repid,"LossControlTreat")) s ^TMPLISQC($zn,repid,"LossControlTreat")=$lb($lb("日期","浓度","失控原因","失控处理方法","处理结果","处理人")) ...........s ^TMPLISQC($zn,repid,"LossControlTreat")=^TMPLISQC($zn,repid,"LossControlTreat")_$lb($lb($lg(^dbo.QCTestResultD(TrRowId),5),LevelName,$lg(^dbo.QCTestResultTransactionD(TransRowId),6),TransactionMethod,$lg(^dbo.QCTestResultTransactionD(TransRowId),10),LossAddUser)) ..//有批次项目质控 ..s MatManufacturer="" ..i $l(CNameMatLot) s MatManufacturer=CNameMatLot ..k ^TMPLISQC($zn,repid,$j,"HasOutAppraise") ..s QcEvaluation="" ..i $d(^dbo.QCResultAppraiseI("IndexMaster",FMatLotDR,FTestCodeDR)) d ...s AppraDate="" f s AppraDate=$o(^dbo.QCResultAppraiseI("IndexMaster",FMatLotDR,FTestCodeDR,AppraDate)) q:AppraDate="" d ....i (AppraDate<FStartDate)||(AppraDate>FEndDate) q ....s AppraTime="" f s AppraTime=$o(^dbo.QCResultAppraiseI("IndexMaster",FMatLotDR,FTestCodeDR,AppraDate,AppraTime)) q:AppraTime="" d .....i $d(^dbo.QCResultAppraiseI("IndexMaster",FMatLotDR,FTestCodeDR,AppraDate,AppraTime,##Class(LIS.Util.Common).IndexData(CurLevel))) d ......s AppraRowId="" f s AppraRowId=$o(^dbo.QCResultAppraiseI("IndexMaster",FMatLotDR,FTestCodeDR,AppraDate,AppraTime,##Class(LIS.Util.Common).IndexData(CurLevel),AppraRowId)) q:AppraRowId="" d .......s CurLevelName=CurLevel .......i $d(^TMPLISQC($zn,repid,$j,"LevelNoName",CurLevel)) s CurLevelName=^TMPLISQC($zn,repid,$j,"LevelNoName",CurLevel) .......s QcEvaluation=QcEvaluation_" "_CurLevelName_":"_$lg(^dbo.QCResultAppraiseD(AppraRowId),8) .......i '$d(^TMPLISQC($zn,repid,"QcEvaluation")) s ^TMPLISQC($zn,repid,"QcEvaluation")=$lb($lb("浓度","质控评价内容")) .......s ^TMPLISQC($zn,repid,"QcEvaluation")=^TMPLISQC($zn,repid,"QcEvaluation")_$lb($lb(CurLevelName,$lg(^dbo.QCResultAppraiseD(AppraRowId),8) )) i $l(LossControlTreat) s LossControlTreat="失控处理:;"_LossControlTreat i $l(QcEvaluation) s QcEvaluation="质控评价:;"_QcEvaluation //增加打印时间 s PrintDateTime=$zdt($h,3) s EntryUser="" s AuthUser="" s EntryUserCode="" s AuthUserCode="" i $d(^TMPLISQC($zn,repid,"AuthInfo")) d .s EntryUser=$lg($g(^TMPLISQC($zn,repid,"AuthInfo")),1) .s AuthUser=$lg($g(^TMPLISQC($zn,repid,"AuthInfo")),2) .s EntryUserDR=$lg($g(^TMPLISQC($zn,repid,"AuthInfo")),3) .s AuthUserDR=$lg($g(^TMPLISQC($zn,repid,"AuthInfo")),4) .i $l(EntryUserDR) s EntryUserCode=$lg($g(^dbo.SYSUserD(EntryUserDR)),2) .i $l(AuthUserDR) s AuthUserCode=$lg($g(^dbo.SYSUserD(AuthUserDR)),2) //1：查询日期，2：仪器代码，3：仪器名称，4：质控物代码，5：质控物，6：波长，7：项目名称，8：项目单位，9：方法名称，10：浓度，11：使用规则，12：批号，13：校正液批号，14：校正液效期，15：校正液，16：试剂厂商，17：失控处理，18：质控评价，19：主波长，20：次波长 s RetStr=Title_$c(2)_DateInfo_$c(2)_MachineCode_$c(2)_MachineName_$c(2)_MatCode_$c(2)_CName_$c(2)_WaveLength_$c(2)_TCName_$c(2)_TCUnit_$c(2)_MethodName_$c(2)_Leavel_$c(2)_QCRulesName_$c(2)_LotNoOut_$c(2)_AmendLiquidLot_$c(2)_AmendLiquidDate_$c(2)_AmendLiquid_$c(2)_RgManufacturer_$c(2)_LossControlTreat_$c(2)_QcEvaluation_$c(2)_WaveLengthMian_$c(2)_WaveLength_$c(2)_RGLotNoOut_$c(2)_LotNoOut_$c(2)_LotLeavel_$c(2)_PrintDateTime_$c(2)_TargetCV_$c(2)_ExpiryDate_$c(2)_UserName_$c(2)_RgEffectiveDate_$c(2)_WorkGroupName_$c(2)_WorkGroupMachineName_$c(2)_StartDate_$c(2)_EndDate_$c(2)_ProductDate_$c(2)_MachineLName_$c(2)_TitleWithGroup_$c(2)_EntryUser_$c(2)_AuthUser_$c(2)_MatManufacturer_$c(2)_EntryUserCode_$c(2)_AuthUserCode q RetStr } /// 获取质控结果 ClassMethod GetQCResult(FStartDate, FEndDate, FMachDR, FMatDR, FMatLotDR, FTestCodeDR, FLeavel, FExcludeRule, FPointRange, FTemplateCode, repid) As %Integer { s RetNum=0 s FStartDate=$g(FStartDate) s FEndDate=$g(FEndDate) s FMachDR=$g(FMachDR) s FMatDR=$g(FMatDR) s FMatLotDR=$g(FMatLotDR) s FTestCodeDR=$g(FTestCodeDR) s FLeavel=$g(FLeavel) s FExcludeRule=$g(FExcludeRule) s FPointRange=$g(FPointRange) s FTemplateCode=$g(FTemplateCode) s repid=$g(repid) s FStartDate=$zdh(FStartDate,8),FEndDate=$zdh(FEndDate,8) //遍历方向，默认一天按时间倒序遍历 s ForDrection=1 //去除复查点就正序遍历 i FPointRange=4 s ForDrection=1 k ^TMPLISQC($zn,repid,"Result") k ^TMPLISQC($zn,repid,"ResultHead") k ^TMPLISQC($zn,repid,"VResult") k ^TMPLISQC($zn,repid,"AuthInfo") k ^TMPLISQC($zn,repid,"VTitle") s TMPLISQC("LeavelName")="" s QCIsPrintUser=##class(OTH.SYSParameter).GetDataValue("QCIsPrintUser","SYS","DHCC") s QCIsPrintTime=##class(OTH.SYSParameter).GetDataValue("QCIsPrintTime","SYS","DHCC") i QCIsPrintUser="1" d .s TMPLISQC("LeavelName",999)=$lb("操作者") s MachineName=$lg($g(^dbo.BTMIMachineParameterD(FMachDR)),3) //记录最大累计列表长度 s LastMaxListLen=0 f CurdateNum=FStartDate:1:FEndDate d .s Curdate=$zd(CurdateNum,8) .//浓度1结果 .s L1Result="" .//浓度2结果 .s L2Result="" .//浓度3结果 .s L3Result="" .//浓度4结果 .s L4Result="" .//浓度5结果 .s L5Result="" .//浓度6结果 .s L6Result="" .//最早时间 .s FirstTime="" .k ^TMPLISQC($zn,repid,"OneDayData") .k ^TMPLISQC($zn,repid,"OneDayDataOper") .i $d(^dbo.QCTestResultI("IndexTestTime",Curdate)) d ..s CurTime="" f s CurTime=$o(^dbo.QCTestResultI("IndexTestTime",Curdate,CurTime),ForDrection) q:CurTime="" d ...i '$l(FirstTime) s FirstTime=CurTime ...s CurMachCode="" f s CurMachCode=$o(^dbo.QCTestResultI("IndexTestTime",Curdate,CurTime,CurMachCode)) q:CurMachCode="" d ....i $l(FMachDR),FMachDR'=CurMachCode q ....i $d(^dbo.QCTestResultI("IndexTestTime",Curdate,CurTime,CurMachCode,FTestCodeDR)) d .....s CurLevelNo="" f s CurLevelNo=$o(^dbo.QCTestResultI("IndexTestTime",Curdate,CurTime,CurMachCode,FTestCodeDR,CurLevelNo)) q:CurLevelNo="" d ......i $l(FLeavel),(##class(LIS.WS.BLL.DHCQCTestResult).CheckContian(FLeavel,",",CurLevelNo)=0) q ......s PicResult=0,TotalPicResult="" ......s RowID="" f s RowID=$o(^dbo.QCTestResultI("IndexTestTime",Curdate,CurTime,CurMachCode,FTestCodeDR,CurLevelNo,RowID)) q:RowID="" d .......//去除复查点 .......i FPointRange=4,($d(^TMPLISQC($zn,repid,$i,CurLevelNo,CurdateNum))>1) q .......//取业务数据取数组的值 .......s StrData=$g(^dbo.QCTestResultD(RowID)),CurPointType="" .......//批次判断 .......i $l(FMatLotDR),##class(LIS.WS.BLL.DHCQCTestResult).CheckContian(FMatLotDR,",",$lg(StrData,2))=0 q .......s CurLevelName="" .......//增加浓度名称 .......s MaterialRowId=$lg(^dbo.BTQCMaterialLotD($lg(StrData,2)),3) .......s curLeavelRowId="" f s curLeavelRowId=$o(^dbo.BTQCMaterialLevelI("IndexMaster",MaterialRowId,CurLevelNo,curLeavelRowId)) q:curLeavelRowId="" d ........s CurLevelName=$lg(^dbo.BTQCMaterialLevelD(curLeavelRowId),4) .......s TMPLISQC("LeavelName",CurLevelNo)=$lb(CurLevelName) .......//删除点直接过滤，排除点过滤(1:正常，2：排除，3：删除,4:复查，5:平均值,6：所有在控点) .......s ExcludeType=$lg(StrData,14) .......i ExcludeType=3 q .......i FPointRange=2,ExcludeType=2 q .......//------------------------------ .......s QcTime=CurTime .......i CurTime>86399 s CurTime=86399 .......s TestRTime=CurTime .......s TCName=$lg($g(^dbo.BTTestCodeD(FTestCodeDR)),3) .......s UserId=$lg(StrData,25),UserName="" .......i $l(UserId) s UserName=$lg(^dbo.SYSUserD(UserId),3) .......s UpdateUserDR=$lg(StrData,22),UpdateUserName="" .......i $l(UpdateUserDR) s UpdateUserName=$lg(^dbo.SYSUserD(UpdateUserDR),3) .......s AutUserDR=$lg(StrData,25),AutUserName="" .......i $l(AutUserDR) s AutUserName=$lg(^dbo.SYSUserD(AutUserDR),3) .......s MachResult=$lg(StrData,9) .......s TextRes=$lg(StrData,10) .......i '$l(TextRes) s TextRes=MachResult .......//维护了定量转定性公式,临时把符合公式的定量值转换成定性的结果转换值 .......i $d(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR)) d ........s OldTranResult="" f s OldTranResult=$o(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR,OldTranResult)) q:OldTranResult="" d .........s TranRowID="" f s TranRowID=$o(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR,OldTranResult,TranRowID)) q:TranRowID="" d ..........s TransFormula=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),7) ..........s PerLevelNos=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),6) ..........i $l(TransFormula) d ...........s CalStr="(CalStrRes) s CalStrRes=("_$REPLACE(TransFormula,"#",MachResult)_")" ...........i $l(PerLevelNos),##class(LIS.WS.BLL.DHCQCTestResult).CheckContian(PerLevelNos,",",CurLevelNo)=1 d ............x (CalStr,.CalStrRes) ............i CalStrRes=1 d .............s MachResult=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),5) .............//定量转定性的原始结果就不回转换 .............s TextRes=TextRes_" " ...........e i '$l(PerLevelNos) d ............x (CalStr,.CalStrRes) ............i CalStrRes=1 d .............s MachResult=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),5) .............//定量转定性的原始结果就不回转换 .............s TextRes=TextRes_" " .......//是否是定性质控 .......s IsQualitative=0 .......i $d(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR)) d ........s IsQualitative=1 ........s HasTransRes=0 ........s OldTranResult="" f s OldTranResult=$o(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR,OldTranResult)) q:(OldTranResult="")||(HasTransRes=1) d .........s TranRowID="" f s TranRowID=$o(^dbo.BTQCResultToNumberI("IndexMaster",CurMachCode,FTestCodeDR,OldTranResult,TranRowID)) q:(TranRowID="")||(HasTransRes=1) d ..........s OldResult=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),4) ..........s NewResult=$lg($g(^dbo.BTQCResultToNumberD(TranRowID)),5) ..........i MachResult=NewResult s MachResult=OldResult,HasTransRes=1 .......i IsQualitative=0 s MachResult=##class(LIS.WS.BLL.DHCQCTestResult).DealPoint(MachResult) .......//非数值退出 .......i IsQualitative=0,'$ISVALIDNUM(MachResult) q .......s PicResult=MachResult .......s PicX=PicResult .......s CurRuleCode=$lg(StrData,12) .......i $l(FExcludeRule),##class(LIS.WS.BLL.DHCQCTestResult).CheckContian(FExcludeRule,",",CurRuleCode)=1 Quit .......s CurRuleStatus=$lg($g(StrData),13) .......//选择了所有在控点，有失控规则的就排除 .......i (FPointRange=6),$l(CurRuleCode),(CurRuleStatus="R") q .......i CurRuleStatus="R" s CurPointType=0 //失控的点不连线。只显示 .......i ExcludeType="2" s CurPointType=0 //排除的点不连线。只显示 .......s CurRuleColour="",CurRuleName="" .......i $l(CurRuleCode) s CurRuleName=$lg($g(^dbo.BTQCRulesD(CurRuleCode)),3) .......i $l(CurRuleCode) s CurRuleColour=$lg($g(^dbo.BTQCRulesD(CurRuleCode)),5) .......//失控处理了单独显示颜色 .......i $d(^dbo.QCTestResultTransactionI("IndexMaster",RowID)) s CurRuleColour="#a983ca" .......s ResColor=$lg(StrData,26) .......//参与计算颜色 .......i $l(ResColor) s CurRuleColour=ResColor .......//排除单独颜色 .......i ExcludeType="2" s CurRuleColour="#549cc7" .......//根据质控物批次取项目的靶值标准差 .......s CurMaterialLotDR=$lg(StrData,2),StrQCPara="" .......//得到批次项目 .......s MLDRRowId=##class(LIS.WS.BLL.DHCQCTestResult).GetMatLotTestCode(CurMaterialLotDR,FTestCodeDR,CurLevelNo,RowID) .......i '$l(MLDRRowId) q .......i $l(MLDRRowId) s StrQCPara=##class(LIS.WS.BLL.DHCQCTestResult).GetStrQcPara(MLDRRowId,Curdate) .......s Precision=$lg(StrQCPara,11),(TCCV,CalX,CalSD,CalCV)="" .......s LotNo=$lg(StrQCPara,23) .......s ReagentLot=$lg(StrQCPara,41) .......s SetCV=$lg(StrQCPara,27) .......s SetCV=$fn(SetCV,"",Precision) .......s TargetCV=$lg(StrQCPara,28) .......s TargetCV=$fn(TargetCV,"",Precision) .......s CalcType=$lg(StrQCPara,10) .......i ('$l(Precision)) s Precision=2 .......i $l(StrQCPara) s TCX=$fn($lg(StrQCPara,5),"",Precision) .......//取到0了就不管精度了 .......i $ZABS(TCX)<0.00000000001 s TCX=$lg(StrQCPara,5) .......i $l(StrQCPara),CalcType="FL" s TCX=$fn($lg(StrQCPara,7),"",Precision) .......i $f(TCX,".")>0 s TCX=$e(TCX,0,$f(TCX,".")+Precision+1) .......i $e(TCX,1,1)="." d s TCX="0"_TCX .......//取到0了就不管精度了 .......i $ZABS(TCX)<0.00000000001 s TCX=$lg(StrQCPara,7) .......i $l(StrQCPara) s TCSD=$fn($lg(StrQCPara,6),"",Precision) .......//取到0了就不管精度了 .......i $ZABS(TCSD)<0.00000000001 s TCSD=$lg(StrQCPara,6) .......i $l(StrQCPara),CalcType="FL" s TCSD=$fn($lg(StrQCPara,8),"",Precision) .......i $f(TCSD,".")>0 s TCSD=$e(TCSD,0,$f(TCSD,".")+Precision+1) .......i $e(TCSD,1,1)="." d s TCSD="0"_TCSD .......//取到0了就不管精度了 .......i $ZABS(TCSD)<0.00000000001 s TCSD=$lg(StrQCPara,8) .......i $g(TCX)>0 s TCCV=$fn((TCSD/TCX)*100,"",Precision) .......//有设定的直接取设定的，不计算了 .......i $l($lg(StrQCPara,27)) s TCCV=$lg(StrQCPara,27) .......s TCCV=$fn(TCCV,"",Precision) .......s TestPrecision=$lg($g(^dbo.BTTestCodeD(FTestCodeDR)),10) .......i IsQualitative=0 s PicResult=$fn(PicResult,"",Precision),MachResult=$fn(MachResult,"",Precision) .......s PicX=$fn(PicX,"",Precision) .......s OutTime=$e($zt(CurTime),1,5) .......i QCIsPrintTime'="0" d ........s PicResult="["_OutTime_"]"_PicResult_" "_CurRuleName .......e d ........s PicResult=PicResult_" "_CurRuleName .......i '$d(^TMPLISQC($zn,repid,"AuthInfo")) s ^TMPLISQC($zn,repid,"AuthInfo")=$lb(UpdateUserName,AutUserName,UpdateUserDR,AutUserDR) .......//一天数据按浓度堆集合 .......i $d(^TMPLISQC($zn,repid,"OneDayData",CurLevelNo)) d ........s ^TMPLISQC($zn,repid,"OneDayData",CurLevelNo)=^TMPLISQC($zn,repid,"OneDayData",CurLevelNo)_$lb(PicResult) .......e d ........s ^TMPLISQC($zn,repid,"OneDayData",CurLevelNo)=$lb(PicResult) .......//一天数据按浓度堆集合 .......i $d(^TMPLISQC($zn,repid,"OneDayDataOper",CurLevelNo)) d ........s ^TMPLISQC($zn,repid,"OneDayDataOper",CurLevelNo)=^TMPLISQC($zn,repid,"OneDayDataOper",CurLevelNo)_$lb(UserName) .......e d ........s ^TMPLISQC($zn,repid,"OneDayDataOper",CurLevelNo)=$lb(UserName) .......i (CurLevelNo="1")||(FTemplateCode="QCPrintLJ") d ........i '$l(L1Result) s L1Result=PicResult ........e s L1Result=L1Result_","_PicResult .......i CurLevelNo="2" d ........i '$l(L2Result) s L2Result=PicResult ........e s L2Result=L2Result_","_PicResult .......i CurLevelNo="3" d ........i '$l(L3Result) s L3Result=PicResult ........e s L3Result=L3Result_","_PicResult .......i CurLevelNo="4" d ........i '$l(L4Result) s L4Result=PicResult ........e s L4Result=L4Result_","_PicResult .......i CurLevelNo="5" d ........i '$l(L5Result) s L5Result=PicResult ........e s L5Result=L5Result_","_PicResult .......i CurLevelNo="6" d ........i '$l(L6Result) s L6Result=PicResult ........e s L6Result=L6Result_","_PicResult .//把一天的集合长度补齐 .i $d(^TMPLISQC($zn,repid,"OneDayData")) d ..s OneMaxNum=0 ..s OneLastMaxListLen=0 ..s MaxOperList="" ..//得到最大长度 ..s OneLevelNo="" f s OneLevelNo=$o(^TMPLISQC($zn,repid,"OneDayData",OneLevelNo)) q:OneLevelNo="" d ...s OneList=^TMPLISQC($zn,repid,"OneDayData",OneLevelNo) ...i (OneMaxNum<$ll(OneList)) s OneMaxNum=$ll(OneList) ..s OneLevelNo="" f s OneLevelNo=$o(^TMPLISQC($zn,repid,"OneDayData",OneLevelNo)) q:OneLevelNo="" d ...s OneList=^TMPLISQC($zn,repid,"OneDayData",OneLevelNo) ...s OneOperList=^TMPLISQC($zn,repid,"OneDayDataOper",OneLevelNo) ...i '$l(MaxOperList) s MaxOperList=OneOperList ...i $ll(MaxOperList)<$ll(OneOperList) s MaxOperList=OneOperList ...//小于最大长度就补齐 ...i ($ll(OneList)<OneMaxNum) d ....s OneCha=OneMaxNum-$ll(OneList) ....f zone=1:1:OneCha d .....s OneList=OneList_$lb("") ...s CurListLen=0 ...i $d(^TMPLISQC($zn,repid,"VResult",OneLevelNo)) s CurListLen=$ll(^TMPLISQC($zn,repid,"VResult",OneLevelNo)) ...//补全之前没数据的长度 ...i CurListLen<LastMaxListLen d ....s TowCha=LastMaxListLen-CurListLen ....f ztow=1:1:TowCha d .....s OneList=$lb("")_OneList ...//按浓度拼接到主数据 ...i $d(^TMPLISQC($zn,repid,"VResult",OneLevelNo)) d ....s ^TMPLISQC($zn,repid,"VResult",OneLevelNo)=^TMPLISQC($zn,repid,"VResult",OneLevelNo)_OneList ...e d ....s ^TMPLISQC($zn,repid,"VResult",OneLevelNo)=OneList ...//记录最后累计长度 ...i OneLastMaxListLen<$ll(^TMPLISQC($zn,repid,"VResult",OneLevelNo)) d ....s OneLastMaxListLen=$ll(^TMPLISQC($zn,repid,"VResult",OneLevelNo)) ..s LastMaxListLen=OneLastMaxListLen ..//小于最大长度就补齐 ..i ($ll(MaxOperList)<OneMaxNum) d ...s OneCha=OneMaxNum-$ll(MaxOperList) ...f zone=1:1:OneCha d ....s MaxOperList=MaxOperList_$lb("") ..//按操作者拼接到主数据 ..i QCIsPrintUser="1" d ...i $d(^TMPLISQC($zn,repid,"VResult",999)) d ....s ^TMPLISQC($zn,repid,"VResult",999)=^TMPLISQC($zn,repid,"VResult",999)_MaxOperList ...e d ....s ^TMPLISQC($zn,repid,"VResult",999)=MaxOperList ...//按日期拼接到日期主数据 ..s OneDateList="" ..f zone=1:1:OneMaxNum d ...s OneDateList=OneDateList_$lb(Curdate) ..i $d(^TMPLISQC($zn,repid,"VResult",0)) d ...s ^TMPLISQC($zn,repid,"VResult",0)=^TMPLISQC($zn,repid,"VResult",0)_OneDateList ..e d ...s ^TMPLISQC($zn,repid,"VResult",0)=OneDateList .i $l(L1Result)||$l(L2Result)||$l(L3Result)||$l(L4Result)||$l(L5Result)||$l(L6Result) d ..s RetNum=RetNum+1 ..s ^TMPLISQC($zn,repid,"Result",Curdate,FirstTime,RetNum)=$lb(RetNum,Curdate,$zt(FirstTime),L1Result,L2Result,L3Result,L4Result,L5Result,L6Result,UserName) //左边行头 s ^TMPLISQC($zn,repid,"VTitle")=$lb("日期") s ^TMPLISQC($zn,repid,"ResultHead")=$lb("序号","日期","时间") s OneLevelNo="" f s OneLevelNo=$o(TMPLISQC("LeavelName",OneLevelNo)) q:OneLevelNo="" d .s ^TMPLISQC($zn,repid,"VTitle")=^TMPLISQC($zn,repid,"VTitle")_TMPLISQC("LeavelName",OneLevelNo) .s ^TMPLISQC($zn,repid,"ResultHead")=^TMPLISQC($zn,repid,"ResultHead")_TMPLISQC("LeavelName",OneLevelNo) q RetNum } /// 保存打印日志 ClassMethod SetTSPrintFlagMTHD(TSRowIDs As %String(MAXLEN=32767), UserID As %String, param As %String, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String { q 0 } /// 初始化报告打印顺序 /// w ##Class(HIS.DHCQCPrintCommon).InitQCOrder() ClassMethod InitQCOrder() As %String { //不每次执行，解决数据库日志问题 s ChangeTime="" &SQL(select TimeChanged INTO :ChangeTime from %dictionary.compiledclass where ID='HIS.DHCQCPrintCommon' and CompileNamespace like '%DHC-LISDATA') i $l(ChangeTime),(ChangeTime=$g(^PrintOrderChangeInfo("HIS.DHCQCPrintCommon"))) q 0 s ^PrintOrderChangeInfo("HIS.DHCQCPrintCommon")=ChangeTime s ^DHCQCrintOrder("D","标题")=1 s ^DHCQCrintOrder("D","查询日期")=2 s ^DHCQCrintOrder("D","仪器代码")=3 s ^DHCQCrintOrder("D","仪器")=4 s ^DHCQCrintOrder("D","质控物代码")=5 s ^DHCQCrintOrder("D","质控物")=6 s ^DHCQCrintOrder("D","波长")=7 s ^DHCQCrintOrder("D","项目名称")=8 s ^DHCQCrintOrder("D","浓度单位")=9 s ^DHCQCrintOrder("D","实验方法")=10 s ^DHCQCrintOrder("D","浓度")=11 s ^DHCQCrintOrder("D","使用规则")=12 s ^DHCQCrintOrder("D","批号")=13 s ^DHCQCrintOrder("D","校正液批号")=14 s ^DHCQCrintOrder("D","校正液效期")=15 s ^DHCQCrintOrder("D","校正液")=16 s ^DHCQCrintOrder("D","试剂厂商")=17 s ^DHCQCrintOrder("D","失控处理")=18 s ^DHCQCrintOrder("D","质控评价")=19 s ^DHCQCrintOrder("D","主波长")=20 s ^DHCQCrintOrder("D","次波长")=21 s ^DHCQCrintOrder("D","试剂批号")=22 s ^DHCQCrintOrder("D","质控批号")=23 s ^DHCQCrintOrder("D","批次浓度")=24 s ^DHCQCrintOrder("D","打印时间")=25 s ^DHCQCrintOrder("D","目标CV")=26 s ^DHCQCrintOrder("D","失效日期")=27 s ^DHCQCrintOrder("D","打印人")=28 s ^DHCQCrintOrder("D","试剂有效期")=29 s ^DHCQCrintOrder("D","工作组")=30 s ^DHCQCrintOrder("D","工作小组")=31 s ^DHCQCrintOrder("D","开始日期")=32 s ^DHCQCrintOrder("D","结束日期")=33 s ^DHCQCrintOrder("D","生产日期")=34 s ^DHCQCrintOrder("D","仪器简称")=35 s ^DHCQCrintOrder("D","工作组标题")=36 s ^DHCQCrintOrder("D","质控审阅人")=37 s ^DHCQCrintOrder("D","签字")=38 s ^DHCQCrintOrder("D","质控物厂家")=39 //PrintFlag维护LastPageD s ^DHCQCrintOrder("D","质控审阅人签名")=40 //PrintFlag维护LastPageD s ^DHCQCrintOrder("D","签字签名")=41 s ^DHCQCrintOrder("TD","L1浓度名称")=1 s ^DHCQCrintOrder("TD","L1浓度")=2 s ^DHCQCrintOrder("TD","L1靶值")=3 s ^DHCQCrintOrder("TD","L1SD")=4 s ^DHCQCrintOrder("TD","L1CV")=5 s ^DHCQCrintOrder("TD","L1计算均值")=6 s ^DHCQCrintOrder("TD","L1计算SD")=7 s ^DHCQCrintOrder("TD","L1计算CV")=8 s ^DHCQCrintOrder("TD","L1累计均值")=9 s ^DHCQCrintOrder("TD","L1累计SD")=10 s ^DHCQCrintOrder("TD","L1累计CV")=11 s ^DHCQCrintOrder("TD","L2浓度名称")=1 s ^DHCQCrintOrder("TD","L2浓度")=2 s ^DHCQCrintOrder("TD","L2靶值")=3 s ^DHCQCrintOrder("TD","L2SD")=4 s ^DHCQCrintOrder("TD","L2CV")=5 s ^DHCQCrintOrder("TD","L2计算均值")=6 s ^DHCQCrintOrder("TD","L2计算SD")=7 s ^DHCQCrintOrder("TD","L2计算CV")=8 s ^DHCQCrintOrder("TD","L2累计均值")=9 s ^DHCQCrintOrder("TD","L2累计SD")=10 s ^DHCQCrintOrder("TD","L2累计CV")=11 s ^DHCQCrintOrder("TD","L3浓度名称")=1 s ^DHCQCrintOrder("TD","L3浓度")=2 s ^DHCQCrintOrder("TD","L3靶值")=3 s ^DHCQCrintOrder("TD","L3SD")=4 s ^DHCQCrintOrder("TD","L3CV")=5 s ^DHCQCrintOrder("TD","L3计算均值")=6 s ^DHCQCrintOrder("TD","L3计算SD")=7 s ^DHCQCrintOrder("TD","L3计算CV")=8 s ^DHCQCrintOrder("TD","L3累计均值")=9 s ^DHCQCrintOrder("TD","L3累计SD")=10 s ^DHCQCrintOrder("TD","L3累计CV")=11 //结果列表1 s ^DHCQCrintOrder("R1","仪器名称1")=1 s ^DHCQCrintOrder("R1","测试日期1")=2 s ^DHCQCrintOrder("R1","时间1")=3 s ^DHCQCrintOrder("R1","操作者1")=4 s ^DHCQCrintOrder("R1","L1结果1")=5 s ^DHCQCrintOrder("R1","L2结果1")=6 s ^DHCQCrintOrder("R1","L3结果1")=7 //结果列表2 s ^DHCQCrintOrder("R2","仪器名称2")=1 s ^DHCQCrintOrder("R2","测试日期2")=2 s ^DHCQCrintOrder("R2","时间2")=3 s ^DHCQCrintOrder("R2","操作者2")=4 s ^DHCQCrintOrder("R2","L1结果2")=5 s ^DHCQCrintOrder("R2","L2结果2")=6 s ^DHCQCrintOrder("R2","L3结果2")=7 q 0 } }- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
- 242
- 243
- 244
- 245
- 246
- 247
- 248
- 249
- 250
- 251
- 252
- 253
- 254
- 255
- 256
- 257
- 258
- 259
- 260
- 261
- 262
- 263
- 264
- 265
- 266
- 267
- 268
- 269
- 270
- 271
- 272
- 273
- 274
- 275
- 276
- 277
- 278
- 279
- 280
- 281
- 282
- 283
- 284
- 285
- 286
- 287
- 288
- 289
- 290
- 291
- 292
- 293
- 294
- 295
- 296
- 297
- 298
- 299
- 300
- 301
- 302
- 303
- 304
- 305
- 306
- 307
- 308
- 309
- 310
- 311
- 312
- 313
- 314
- 315
- 316
- 317
- 318
- 319
- 320
- 321
- 322
- 323
- 324
- 325
- 326
- 327
- 328
- 329
- 330
- 331
- 332
- 333
- 334
- 335
- 336
- 337
- 338
- 339
- 340
- 341
- 342
- 343
- 344
- 345
- 346
- 347
- 348
- 349
- 350
- 351
- 352
- 353
- 354
- 355
- 356
- 357
- 358
- 359
- 360
- 361
- 362
- 363
- 364
- 365
- 366
- 367
- 368
- 369
- 370
- 371
- 372
- 373
- 374
- 375
- 376
- 377
- 378
- 379
- 380
- 381
- 382
- 383
- 384
- 385
- 386
- 387
- 388
- 389
- 390
- 391
- 392
- 393
- 394
- 395
- 396
- 397
- 398
- 399
- 400
- 401
- 402
- 403
- 404
- 405
- 406
- 407
- 408
- 409
- 410
- 411
- 412
- 413
- 414
- 415
- 416
- 417
- 418
- 419
- 420
- 421
- 422
- 423
- 424
- 425
- 426
- 427
- 428
- 429
- 430
- 431
- 432
- 433
- 434
- 435
- 436
- 437
- 438
- 439
- 440
- 441
- 442
- 443
- 444
- 445
- 446
- 447
- 448
- 449
- 450
- 451
- 452
- 453
- 454
- 455
- 456
- 457
- 458
- 459
- 460
- 461
- 462
- 463
- 464
- 465
- 466
- 467
- 468
- 469
- 470
- 471
- 472
- 473
- 474
- 475
- 476
- 477
- 478
- 479
- 480
- 481
- 482
- 483
- 484
- 485
- 486
- 487
- 488
- 489
- 490
- 491
- 492
- 493
- 494
- 495
- 496
- 497
- 498
- 499
- 500
- 501
- 502
- 503
- 504
- 505
- 506
- 507
- 508
- 509
- 510
- 511
- 512
- 513
- 514
- 515
- 516
- 517
- 518
- 519
- 520
- 521
- 522
- 523
- 524
- 525
- 526
- 527
- 528
- 529
- 530
- 531
- 532
- 533
- 534
- 535
- 536
- 537
- 538
- 539
- 540
- 541
- 542
- 543
- 544
- 545
- 546
- 547
- 548
- 549
- 550
- 551
- 552
- 553
- 554
- 555
- 556
- 557
- 558
- 559
- 560
- 561
- 562
- 563
- 564
- 565
- 566
- 567
- 568
- 569
- 570
- 571
- 572
- 573
- 574
- 575
- 576
- 577
- 578
- 579
- 580
- 581
- 582
- 583
- 584
- 585
- 586
- 587
- 588
- 589
- 590
- 591
- 592
- 593
- 594
- 595
- 596
- 597
- 598
- 599
- 600
- 601
- 602
- 603
- 604
- 605
- 606
- 607
- 608
- 609
- 610
- 611
- 612
- 613
- 614
- 615
- 616
- 617
- 618
- 619
- 620
- 621
- 622
- 623
- 624
- 625
- 626
- 627
- 628
- 629
- 630
- 631
- 632
- 633
- 634
- 635
- 636
- 637
- 638
- 639
- 640
- 641
- 642
- 643
- 644
- 645
- 646
- 647
- 648
- 649
- 650
- 651
- 652
- 653
- 654
- 655
- 656
- 657
- 658
- 659
- 660
- 661
- 662
- 663
- 664
- 665
- 666
- 667
- 668
- 669
- 670
- 671
- 672
- 673
- 674
- 675
- 676
- 677
- 678
- 679
- 680
- 681
- 682
- 683
- 684
- 685
- 686
- 687
- 688
- 689
- 690
- 691
- 692
- 693
- 694
- 695
- 696
- 697
- 698
- 699
- 700
- 701
- 702
- 703
- 704
- 705
- 706
- 707
- 708
- 709
- 710
- 711
- 712
- 713
- 714
- 715
- 716
- 717
- 718
- 719
- 720
- 721
- 722
- 723
- 724
- 725
- 726
- 727
- 728
- 729
- 730
- 731
- 732
- 733
- 734
- 735
- 736
- 737
- 738
- 739
- 740
- 741
- 742
- 743
- 744
- 745
- 746
- 747
- 748
- 749
- 750
- 751
- 752
- 753
- 754
- 755
- 756
- 757
- 758
- 759
- 760
- 761
- 762
- 763
- 764
- 765
- 766
- 767
- 768
- 769
- 770
- 771
- 772
- 773
- 774
- 775
- 776
- 777
- 778
- 779
- 780
- 781
- 782
- 783
- 784
- 785
- 786
- 787
- 788
- 789
- 790
- 791
- 792
- 793
- 794
- 795
- 796
- 797
- 798
- 799
- 800
- 801
- 802
- 803
- 804
- 805
- 806
- 807
- 808
- 809
- 810
- 811
- 812
- 813
- 814
- 815
- 816
- 817
- 818
- 819
- 820
- 821
- 822
- 823
- 824
- 825
- 826
- 827
- 828
- 829
- 830
- 831
- 832
- 833
- 834
- 835
- 836
- 837
- 838
- 839
- 840
- 841
- 842
- 843
- 844
- 845
- 846
- 847
- 848
- 849
- 850
- 851
- 852
- 853
- 854
- 855
- 856
- 857
- 858
- 859
- 860
- 861
- 862
- 863
- 864
- 865
- 866
- 867
- 868
- 869
- 870
- 871
- 872
- 873
- 874
- 875
- 876
- 877
- 878
- 879
- 880
- 881
- 882
- 883
- 884
- 885
- 886
- 887
- 888
- 889
- 890
- 891
- 892
- 893
- 894
- 895
- 896
- 897
- 898
- 899
- 900
- 901
- 902
- 903
- 904
- 905
- 906
- 907
- 908
- 909
- 910
- 911
- 912
- 913
- 914
- 915
- 916
- 917
- 918
- 919
- 920
- 921
- 922
- 923
- 924
- 925
- 926
- 927
- 928
- 929
- 930
- 931
- 932
- 933
- 934
- 935
- 936
- 937
- 938
- 939
- 940
- 941
- 942
- 943
- 944
- 945
- 946
- 947
- 948
- 949
- 950
- 951
- 952
- 953
- 954
- 955
- 956
- 957
- 958
- 959
- 960
- 961
- 962
- 963
- 964
- 965
- 966
- 967
- 968
- 969
- 970
- 971
- 972
- 973
- 974
- 975
- 976
- 977
- 978
- 979
- 980
- 981
- 982
- 983
- 984
- 985
- 986
- 987
- 988
- 989
- 990
- 991
- 992
- 993
- 994
- 995
- 996
- 997
- 998
- 999
- 1000
- 1001
- 1002
- 1003
- 1004
- 1005
- 1006
- 1007
- 1008
- 1009
- 1010
- 1011
- 1012
- 1013
- 1014
- 1015
- 1016
- 1017
- 1018
- 1019
- 1020
- 1021
- 1022
- 1023
- 1024
- 1025
- 1026
- 1027
- 1028
- 1029
- 1030
- 1031
- 1032
- 1033
- 1034
- 1035
- 1036
- 1037
- 1038
- 1039
- 1040
- 1041
- 1042
- 1043
- 1044
- 1045
- 1046
- 1047
- 1048
- 1049
- 1050
- 1051
- 1052
- 1053
- 1054
- 1055
- 1056
- 1057
- 1058
- 1059
- 1060
- 1061
- 1062
- 1063
- 1064
- 1065
- 1066
- 1067
- 1068
- 1069
- 1070
- 1071
- 1072
- 1073
- 1074
- 1075
- 1076
- 1077
- 1078
- 1079
- 1080
- 1081
- 1082
- 1083
- 1084
- 1085
- 1086
- 1087
- 1088
- 1089
- 1090
- 1091
- 1092
- 1093
- 1094
- 1095
- 1096
- 1097
- 1098
- 1099
- 1100
- 1101
- 1102
- 1103
- 1104
- 1105
- 1106
- 1107
- 1108
- 1109
- 1110
- 1111
- 1112
- 1113
- 1114
- 1115
- 1116
- 1117
- 1118
- 1119
- 1120
- 1121
- 1122
- 1123
- 1124
- 1125
- 1126
- 1127
- 1128
- 1129
- 1130
- 1131
- 1132
- 1133
- 1134
- 1135
- 1136
- 1137
- 1138
- 1139
- 1140
- 1141
- 1142
- 1143
- 1144
- 1145
- 1146
- 1147
- 1148
- 1149
- 1150
- 1151
- 1152
- 1153
- 1154
- 1155
- 1156
- 1157
- 1158
- 1159
- 1160
- 1161
- 1162
- 1163
- 1164
- 1165
- 1166
- 1167
- 1168
- 1169
- 1170
- 1171
- 1172
- 1173
- 1174
- 1175
- 1176
- 1177
- 1178
- 1179
- 1180
- 1181
- 1182
- 1183
- 1184
- 1185
- 1186
- 1187
- 1188
- 1189
- 1190
- 1191
- 1192
- 1193
- 1194
- 1195
- 1196
- 1197
- 1198
- 1199
- 1200
- 1201
- 1202
- 1203
- 1204
- 1205
- 1206
- 1207
- 1208
- 1209
- 1210
- 1211
- 1212
- 1213
- 1214
- 1215
- 1216
- 1217
- 1218
- 1219
- 1220
- 1221
- 1222
- 1223
- 1224
- 1225
- 1226
- 1227
- 1228
- 1229
- 1230
- 1231
- 1232
- 1233
- 1234
- 1235
- 1236
- 1237
- 1238
- 1239
- 1240
- 1241
- 1242
- 1243
- 1244
- 1245
- 1246
- 1247
- 1248
- 1249
- 1250
- 1251
- 1252
- 1253
- 1254
- 1255
- 1256
- 1257
- 1258
- 1259
- 1260
- 1261
- 1262
- 1263
- 1264
- 1265
- 1266
- 1267
- 1268
- 1269
- 1270
- 1271
- 1272
- 1273
- 1274
- 1275
- 1276
- 1277
- 1278
- 1279
- 1280
- 1281
- 1282
- 1283
- 1284
- 1285
- 1286
- 1287
- 1288
- 1289
- 1290
- 1291
- 1292
- 1293
- 1294
- 1295
- 1296
- 1297
- 1298
- 1299
- 1300
- 1301
- 1302
- 1303
- 1304
- 1305
- 1306
- 1307
- 1308
- 1309
- 1310
- 1311
- 1312
- 1313
- 1314
- 1315
- 1316
- 1317
- 1318
- 1319
- 1320
- 1321
- 1322
- 1323
- 1324
- 1325
- 1326
- 1327
- 1328
- 1329
- 1330
- 1331
- 1332
- 1333
- 1334
- 1335
- 1336
- 1337
- 1338
- 1339
- 1340
- 1341
- 1342
- 1343
- 1344
- 1345
- 1346
- 1347
- 1348
- 1349
- 1350
- 1351
- 1352
- 1353
- 1354
- 1355
- 1356
- 1357
- 1358
- 1359
- 1360
- 1361
- 1362
- 1363
- 1364
- 1365
- 1366
- 1367
- 1368
- 1369
- 1370
- 1371
- 1372
- 1373
- 1374
- 1375
- 1376
- 1377
- 1378
- 1379
- 1380
- 1381
- 1382
- 1383
- 1384
- 1385
- 1386
- 1387
- 1388
- 1389
- 1390
- 1391
- 1392
- 1393
- 1394
- 1395
- 1396
- 1397
- 1398
- 1399
- 1400
- 1401
- 1402
- 1403
- 1404
- 1405
- 1406
- 1407
- 1408
- 1409
- 1410
- 1411
- 1412
- 1413
- 1414
- 1415
- 1416
- 1417
- 1418
- 1419
- 1420
- 1421
- 1422
- 1423
- 1424
- 1425
- 1426
- 1427
- 1428
- 1429
- 1430
- 1431
- 1432
- 1433
- 1434
- 1435
- 1436
- 1437
- 1438
- 1439
- 1440
- 1441
- 1442
- 1443
- 1444
- 1445
- 1446
- 1447
- 1448
- 1449
- 1450
- 1451
- 1452
- 1453
- 1454
- 1455
- 1456
- 1457
- 1458
- 1459
- 1460
- 1461
- 1462
- 1463
- 1464
- 1465
- 1466
- 1467
- 1468
- 1469
- 1470
- 1471
- 1472
- 1473
- 1474
- 1475
- 1476
- 1477
- 1478
- 1479
不限定用M控制绘制，js也是一样的，类似lodp
//此js作为lisprint.zip给his打印中间件的纯js使用示例 //调用示例代码如下，更多打印支持按检验调用 //打印 //$('#btnPrint').click(function () { // PrintWidget.Init(); // //文本 // PrintWidget.AddText(340, 10, "第一页测试文本", "center", "red", "楷体", "22", "bold", "10", "", "", "", ""); // //线 // PrintWidget.AddLine(10, 42, 800, 42, 3, "", "#000000"); // //点 // PrintWidget.AddPoint(10, 80, 3, "", "red"); // PrintWidget.AddPoint(60, 80, 4, "", "red"); // PrintWidget.AddPoint(110, 80, 9, "[]", "red"); // PrintWidget.AddPoint(160, 80, 12, "", "red"); // PrintWidget.AddPoint(210, 80, 14, "", "red"); // //多边形 // PrintWidget.AddPoly([[200, 100], [250, 100], [280, 150], [250, 200], [200, 200], [150, 150]], "blue"); // //换页 // PrintWidget.ChangePage(); // PrintWidget.AddText(340, 10, "第二页测试文本", "center", "red", "楷体", "22", "bold", "10", "", "", "", ""); // PrintWidget.AddLine(10, 42, 800, 42, 3, "", "#000000"); // PrintWidget.AddPoint(10, 80, 3, "", "red"); // PrintWidget.AddPoint(60, 80, 4, "", "red"); // PrintWidget.AddPoint(110, 80, 9, "[]", "red"); // PrintWidget.AddPoint(160, 80, 12, "", "red"); // PrintWidget.AddPoint(210, 80, 14, "", "red"); // PrintWidget.AddPoly([[200, 150], [250, 150], [280, 200], [250, 250], [200, 250], [150, 200]], "blue"); // PrintWidget.AddPoly([[200, 450], [250, 450], [280, 500], [250, 550], [200, 530], [150, 580]], "blue"); // //PrintWidget.AddPic(10,90,40,40,"") // console.info(printWidget); // PrintWidget.PrintOut(); //}); 打印预览 //$('#btnPrintPreView').click(function () { // PrintWidget.Init(); // //文本 // PrintWidget.AddText(340, 10, "第一页测试文本", "center", "red", "楷体", "22", "bold", "10", "", "", "", ""); // //线 // PrintWidget.AddLine(10, 42, 800, 42, 3, "", "#000000"); // //点 // PrintWidget.AddPoint(10, 80, 3, "", "red"); // PrintWidget.AddPoint(60, 80, 4, "", "red"); // PrintWidget.AddPoint(110, 80, 9, "[]", "red"); // PrintWidget.AddPoint(160, 80, 12, "", "red"); // PrintWidget.AddPoint(210, 80, 14, "", "red"); // //多边形 // PrintWidget.AddPoly([[200, 100], [250, 100], [280, 150], [250, 200], [200, 200], [150, 150]], "blue"); // //换页 // PrintWidget.ChangePage(); // PrintWidget.AddText(340, 10, "第二页测试文本", "center", "red", "楷体", "22", "bold", "10", "", "", "", ""); // PrintWidget.AddLine(10, 42, 800, 42, 3, "", "#000000"); // PrintWidget.AddPoint(10, 80, 3, "", "red"); // PrintWidget.AddPoint(60, 80, 4, "", "red"); // PrintWidget.AddPoint(110, 80, 9, "[]", "red"); // PrintWidget.AddPoint(160, 80, 12, "", "red"); // PrintWidget.AddPoint(210, 80, 14, "", "red"); // PrintWidget.AddPoly([[200, 450], [250, 450], [280, 500], [250, 550], [200, 530], [150, 580]], "blue"); // //PrintWidget.AddPic(10,90,40,40,"") // console.info(printWidget); // PrintWidget.PrintPreview(); //}); 打印表格 //$('#btnPrintGrid').click(function () { // PrintWidget.Init(); // var datas = []; // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "李四", Sex: "男", Age: "24", Phone: "15122222222" }); // datas.push({ Name: "王二", Sex: "男", Age: "24", Phone: "15122222222" }); // datas.push({ Name: "zlz", Sex: "男", Age: "26", Phone: "18900752521" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // datas.push({ Name: "张三aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa张三张三张三张三张三张三张三张三张三张三", Sex: "男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男男", Age: "24测试24测试24测试24测试24测试24测试24测试", Phone: "15122222222" }); // PrintWidget.AddGrid(datas, ["Name", "Sex", "Age", "Phone"], null, ["left", "center", "right", "left"], 800, 10, 30, null, null, null, null, null, null, 1168); // PrintWidget.PrintPreview(); //}); //jsonStr:合检验打印元素绘制协议json的url //printFlag:打印标识 PrintPreview或PrintOut控制打印预览和直接打印或者PDF#地址 【0用户选 -1桌面 具体地址】 function JsBasePrint(jsonStr, printFlag) { LISPrint.JsPrint(jsonStr, printFlag,"1"); } //打印插件 var PrintWidget = { //初始化 Init: function () { printWidget = []; printWidgetAllPage = []; printPaperHeightWidget = 1024; handPrintWidget = false; }, //生成PDF type:PrintOut:打印 PrintPreview打印预览 PDF#地址 【0用户选 -1桌面 具体地址】 PrintOutPDF: function (type) { if (type == null) { type = "PDF#0"; } var jsonStr = JSON.stringify(printWidget); JsBasePrint(jsonStr, type); }, //打印 PrintOut: function () { var jsonStr = JSON.stringify(printWidget); JsBasePrint(jsonStr, "PrintOut"); }, //打印预览 PrintPreview: function () { var jsonStr = JSON.stringify(printWidget); JsBasePrint(jsonStr, "PrintPreview"); }, //设置是否自动转换坐标 SetIsAutoCoordinate: function (isAutoCoordinate) { IsAutoCoordinate = isAutoCoordinate; }, //设置打印机，要在最开始设置，切记 //IsAutoChangePage:为空默认自动，是否自动换页1:自动，自上而下的绘制，由动态库执行分页 0:主动，打印逻辑通过换页元素换页 //PaperName:纸张名称 //PaperWidth:宽度 //PaperHeight:高度 //PaperLayOut:纸张方向Landscape横向 //Printer:打印机 //PaperSource:送纸来源 //PrintWidget.SetPrinter("", "", "", "Landscape", "", ""); SetPrinter: function (IsAutoChangePage, PaperName, PaperWidth, PaperHeight, PaperLayOut, Printer, PaperSource) { //是设置的话就不清除数据 if (printWidget.length > 0 && printWidget[0].PrintType == "PRINTER") { printWidget = []; } if (IsAutoChangePage == null) { IsAutoChangePage = "1"; } if (PaperName == null) { PaperName = ""; } if (PaperWidth == null || PaperWidth == "") { PaperWidth = "1"; } if (PaperHeight == null || PaperHeight == "") { PaperHeight = "1"; } if (PaperLayOut == null) { PaperLayOut = ""; } if (Printer == null) { Printer = ""; } //变化宽高 if (PaperLayOut == "Landscape") { var tmpwh = printPaperHeightWidget; //存纸张高度 printPaperHeightWidget = printPaperWidthWidget; //存纸张宽度度 printPaperWidthWidget = tmpwh; } if (PaperSource == null || PaperSource == "") { PaperSource = "0"; } printWidget.unshift({ PrintType: "PRINTER", PrintX: "1", PrintY: "1", PrintFont: PaperSource, PrintFontSize: "1", PrintFontStyle: "", PrintLength: "1", PrintWidth: PaperWidth, PrintHeight: PaperHeight, PrintText: "", DataField: PaperName, PrintFlag: Printer, PrintAlignment: PaperLayOut, PrintImageFile: "", PrintColor: "", Angle: "", IsVShow: IsAutoChangePage }); }, //仅仅设置打印机，防止干扰纸张，要在最开始设置，切记 SetPrinterOnly: function (Printer) { //是设置的话就不清除数据 if (printWidget.length > 0 && printWidget[0].PrintType == "PRINTER") { printWidget = []; } if (IsAutoChangePage == null) { IsAutoChangePage = "1"; } if (PaperName == null) { PaperName = ""; } if (PaperWidth == null || PaperWidth == "") { PaperWidth = "1"; } if (PaperHeight == null || PaperHeight == "") { PaperHeight = "1"; } if (PaperLayOut == null) { PaperLayOut = ""; } if (Printer == null) { Printer = ""; } printWidget.unshift({ PrintType: "PRINTERONLY", PrintX: "1", PrintY: "1", PrintFont: PaperSource, PrintFontSize: "1", PrintFontStyle: "", PrintLength: "1", PrintWidth: PaperWidth, PrintHeight: PaperHeight, PrintText: "", DataField: PaperName, PrintFlag: Printer, PrintAlignment: PaperLayOut, PrintImageFile: "", PrintColor: "", Angle: "", IsVShow: IsAutoChangePage }); }, //公共处理Y增长逻辑，超过纸张后换页 AddY: function (curY, addHeight, paperHeight) { curY += addHeight; if (curY > paperHeight) { curY = curY - paperHeight; PrintWidget.ChangePage(); } return curY; }, //datas：数组数据 //cols：绘制列数据属性名称数组 //colRates：列比例，传空平均，传的位数比列少后面部分平均 //colAligns：列停靠left center right，传空left，传的位数比列少后面部分left //width：表格宽度 //left：左 //top：顶部 //isDrawBorder：是否画边框 //borderWidth：边框线宽度 //rowHeight：行高，默认20 //lineWidth：线宽，默认1 //fontSize：字体，默认15 //color：颜色，默认#000000 //paperHeight:不为空，则根据传入的高度自动换页 //colNum:列数，默认单列1，多列传列数 //colDirection:多列的时候的列方向，默认0平均分配，否则为大于0的数，左边打满该数从左往右填 //返回最大Y坐标 AddGrid: function (datas, cols, colRates, colAligns, width, left, top, isDrawBorder, borderWidth, rowHeight, lineWidth, fontSize, color, paperHeight, colNum, colDirection, drawHLine) { var retMaxY = top; //有数据画表格 if (datas != null && datas.length > 0) { //有列开始绘制 if (cols != null && cols.length > 0) { //处理比例数据 if (colRates == null) { colRates = []; } //处理停靠 if (colAligns == null) { colAligns = []; } //默认宽度 if (width == null) { width = 800; } //默认左边 if (left == null) { left = 0; } //默认顶部 if (top == null) { top = 0; } //默认画边框 if (isDrawBorder == null) { isDrawBorder = true; } //默认宽度 if (borderWidth == null) { borderWidth = 1; } //默认行高 if (rowHeight == null) { rowHeight = 25; } else { rowHeight = parseInt(rowHeight); } //线宽 if (lineWidth == null) { lineWidth = 1; } //默认字体大小 if (fontSize == null) { fontSize = 15; } if (color == null) { color = "#000000"; } //列数 if (colNum == null) { colNum = 1; } else { colNum = parseInt(colNum); } //列方向 if (colDirection == null) { colDirection = 0; } else { colDirection = parseInt(colDirection); } //处理多列数据 if (colNum > 1) { //处理左一个右一个数据 if (colDirection == 0) { var tmpData = []; for (var i = 0; i < datas.length + colNum; i += colNum) { var rowData = {}; var hasAddData = false; for (var j = 0; j < colNum; j++) { if (i + j < datas.length) { for (var c in datas[i + j]) { rowData[c + "^" + j] = datas[i + j][c]; hasAddData = true; } } } if (hasAddData == true) { tmpData.push(rowData); } } datas = tmpData; } //处理从左向右填充数据 else if (colDirection > 0) { var tmpData = []; var curColNum = 0; for (var i = 0; i < datas.length + colDirection; i += colDirection) { for (var j = 0; j < colDirection; j++) { //创建一行数据 if (tmpData[j] == null) { tmpData[j] = {}; } if (i + j < datas.length) { for (var c in datas[i + j]) { tmpData[j][c + "^" + curColNum] = datas[i + j][c]; } } } curColNum++; } datas = tmpData; } var tmpcols = []; var tmpcolRates = []; var tmpcolAligns = []; //处理列名等参数 for (var i = 0; i < colNum; i++) { for (var j = 0; j < cols.length; j++) { tmpcols.push(cols[j] + "^" + i); tmpcolRates.push(colRates[j]); tmpcolAligns.push(colAligns[j]); } } cols = tmpcols; colRates = tmpcolRates; colAligns = tmpcolAligns; } var curY = top; //上横线 PrintWidget.AddLine(left, top, left + width, top, lineWidth, "", "#000000"); //存x坐标 var xArr = []; //遍历绘制数据 for (var i = 0; i < datas.length; i++) { //存一行开始元素的索引 var startRowIndex = printWidget.length; var curX = left; var useRate = 0; //记录最大的换行y maxDataChangeY = curY; //遍历画列 for (var j = 0; j < cols.length; j++) { var align = "left"; if (j < colAligns.length) { align = colAligns[j]; } var rate = 1.0 / cols.length; if (j >= colRates.length) { rate = (1 - useRate) / (cols.length - j); } else { rate = colRates[j] / 100; } var curColWidth = width * rate / colNum; var printText = datas[i][cols[j]]; if (printText == null) { printText = ""; } printText = printText.toString(); var drawX = curX; if (align == "left") { drawX = curX; } else if (align == "right") { drawX = curX + curColWidth; } else { drawX = curX + curColWidth / 2; } //存中间串 var tmpValueStr = ""; var tmpStrWidth = 0; var tmpChangeRowIndex = 0; for (var k = 0; k < printText.length; k++) { //得到一个字符的宽度 var charWidth = GetCharWidth(fontSize, printText[k]); tmpStrWidth += charWidth; //超出行了就画,或者^换行 if (tmpStrWidth > curColWidth || printText[k] == "^") { if (printText[k] == "^") { k++; } PrintWidget.AddText(drawX, curY + tmpChangeRowIndex * rowHeight, tmpValueStr, align, color, "宋体", fontSize, "bold", "10", "", "", "", ""); if (maxDataChangeY < curY + tmpChangeRowIndex * rowHeight) { maxDataChangeY = curY + tmpChangeRowIndex * rowHeight; } tmpValueStr = ""; tmpStrWidth = charWidth; tmpChangeRowIndex++; } tmpValueStr += printText[k]; } if (tmpValueStr != "" && tmpValueStr != " ") { //文本 PrintWidget.AddText(drawX, curY + tmpChangeRowIndex * rowHeight, tmpValueStr, align, color, "宋体", fontSize, "bold", "10", "", "", "", ""); if (maxDataChangeY < curY + tmpChangeRowIndex * rowHeight) { maxDataChangeY = curY + tmpChangeRowIndex * rowHeight; } } //第1行才存x坐标，解决四舍五入引起的竖线抖动 if (i == 0) { xArr.push(parseInt(curX)); } curX += curColWidth; useRate += rate; } //第1行才存x坐标，解决四舍五入引起的竖线抖动 if (i == 0) { xArr.push(parseInt(curX)); } //所有列画完才知道最高行高 for (var j = 0; j < xArr.length; j++) { if (j == xArr.length - 1) { //画右竖线 PrintWidget.AddLine(left + width, curY, left + width, maxDataChangeY + rowHeight, lineWidth, "", "#000000"); } else { if (drawHLine != false) { //画右竖线 PrintWidget.AddLine(xArr[j], curY, xArr[j], maxDataChangeY + rowHeight, lineWidth, "", "#000000"); } } } //画左竖线 PrintWidget.AddLine(left, curY, left, maxDataChangeY + rowHeight, lineWidth, "", "#000000"); //画下横线 PrintWidget.AddLine(left, maxDataChangeY + rowHeight, left + width, maxDataChangeY + rowHeight, lineWidth, "", "#000000"); //有纸张高度，按高度换行 if (paperHeight != null) { if (maxDataChangeY + rowHeight > paperHeight) { var pageAddYY = 10; //页重复标签实现 if (printWidgetAllPage != null && printWidgetAllPage.length > 0) { pageAddYY = 40; } maxDataChangeY = rowHeight + pageAddYY; for (var k = startRowIndex; k < printWidget.length; k++) { printWidget[k].PrintY = printWidget[k].PrintY - curY + pageAddYY; if (maxDataChangeY < printWidget[k].PrintY) { maxDataChangeY = printWidget[k].PrintY; } if (printWidget[k].PrintType == "ILineN") { printWidget[k].PrintHeight = printWidget[k].PrintHeight - curY + pageAddYY; if (maxDataChangeY < printWidget[k].PrintHeight) { maxDataChangeY = printWidget[k].PrintHeight; } } } //页重复标签实现 if (printWidgetAllPage != null && printWidgetAllPage.length > 0) { for (var zr = 0; zr < printWidgetAllPage.length; zr++) { printWidget.splice(startRowIndex + zr + 1, 0, printWidgetAllPage[zr]); } } printWidget.splice(startRowIndex, 0, { PrintType: "PAGE", PrintX: 1, PrintY: 1, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "1", PrintWidth: "1", PrintHeight: "1", PrintText: "", DataField: "", PrintFlag: "", PrintAlignment: "left", PrintImageFile: "", PrintColor: "#00000" }); printWidget.splice(startRowIndex + 1, 0, { PrintType: "ILineN", PrintX: left, PrintY: pageAddYY, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: lineWidth, PrintWidth: left + width, PrintHeight: pageAddYY, PrintText: "", DataField: "", PrintFlag: "o", PrintAlignment: "", PrintImageFile: "", PrintColor: "#000000" }); maxDataChangeY -= rowHeight; } } curY = maxDataChangeY + rowHeight; retMaxY = curY; } } } return retMaxY; }, //添加文本 AddText: function (PrintX, PrintY, PrintText, PrintAlignment, PrintColor, PrintFont, PrintFontSize, PrintFontStyle, PrintLength, PrintWidth, PrintHeight, Angle, IsVShow, PageRepeat) { if (Angle == null) { Angle = ""; } if (IsVShow == null) { IsVShow = ""; } if (PrintFont == null) { PrintFont = "宋体"; } if (PrintLength == null) { PrintLength = ""; } if (PrintHeight == null || PrintHeight == "") { PrintHeight = "20"; } if (PrintWidth == null || PrintWidth == "") { PrintWidth = "1"; } if (PrintFontSize != null && PrintFontSize != "") { //字符串类型的处理 if (typeof (PrintFontSize) == "string") { PrintFontSize = PrintFontSize.replace("px", ""); } } else { PrintFontSize = "9"; } if (PrintAlignment == "left") { PrintAlignment = "Justified"; } else if (PrintAlignment == "center") { PrintAlignment = "Center"; } else if (PrintAlignment == "right") { PrintAlignment = "Right"; } else { PrintAlignment = "Default"; } if (PrintColor == null || PrintColor == "") { PrintColor = "#000000"; } printWidget.push({ PrintType: "Label", PrintX: PrintX, PrintY: PrintY, PrintFont: PrintFont, PrintFontSize: PrintFontSize, PrintFontStyle: PrintFontStyle, PrintLength: PrintLength, PrintWidth: PrintWidth, PrintHeight: PrintHeight, PrintText: PrintText, DataField: "", PrintFlag: "", PrintAlignment: PrintAlignment, PrintImageFile: "", PrintColor: PrintColor, Angle: Angle, IsVShow: IsVShow }); if (PageRepeat == true) { printWidgetAllPage.push({ PrintType: "Label", PrintX: PrintX, PrintY: PrintY, PrintFont: PrintFont, PrintFontSize: PrintFontSize, PrintFontStyle: PrintFontStyle, PrintLength: PrintLength, PrintWidth: PrintWidth, PrintHeight: PrintHeight, PrintText: PrintText, DataField: "", PrintFlag: "", PrintAlignment: PrintAlignment, PrintImageFile: "", PrintColor: PrintColor, Angle: Angle, IsVShow: IsVShow }); } }, //添加线 AddLine: function (StartX, StartY, EndX, EndY, LineSize, LineType, PrintColor) { if (LineSize == null) { LineSize = 2; } if (LineType == null) { LineType = "o"; } //线宽为0就不画线 if (LineSize == "0") { return; } printWidget.push({ PrintType: "ILineN", PrintX: StartX, PrintY: StartY, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: LineSize, PrintWidth: EndX, PrintHeight: EndY, PrintText: "", DataField: "", PrintFlag: LineType, PrintAlignment: "", PrintImageFile: "", PrintColor: PrintColor }); }, //添加点 AddPoint: function (PrintX, PrintY, Size, PointType, PrintColor) { if (PointType == null) { PointType = "o"; } if (Size == null) { Size = 1; } printWidget.push({ PrintType: "Point", PrintX: PrintX, PrintY: PrintY, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "1", PrintWidth: Size, PrintHeight: Size, PrintText: "", DataField: "", PrintFlag: PointType, PrintAlignment: "left", PrintImageFile: "", PrintColor: PrintColor }); }, //添加多边形 AddPoly: function (PointArr, FillColor) { var polyPrintText = ""; for (var i = 0; i < PointArr.length; i++) { if (polyPrintText == "") { polyPrintText += PointArr[i][0] + "@" + PointArr[i][1]; } else { polyPrintText += "^" + PointArr[i][0] + "@" + PointArr[i][1]; } } printWidget.push({ PrintType: "Poly", PrintX: 1, PrintY: 1, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "", PrintWidth: "1", PrintHeight: "1", PrintText: polyPrintText, DataField: "", PrintFlag: "", PrintAlignment: "left", PrintImageFile: "", PrintColor: FillColor }); }, //添加图片 AddPic: function (PrintX, PrintY, PrintWidth, PrintHeight, Data, PrintFlag) { printWidget.push({ PrintType: "Graph", PrintX: PrintX, PrintY: PrintY, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "", PrintWidth: PrintWidth, PrintHeight: PrintHeight, PrintText: "", DataField: Data, PrintFlag: PrintFlag, PrintAlignment: "left", PrintImageFile: "", PrintColor: "" }); }, //换页 ChangePage: function () { printWidget.push({ PrintType: "PAGE", PrintX: 1, PrintY: 1, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "1", PrintWidth: "1", PrintHeight: "1", PrintText: "", DataField: "", PrintFlag: "", PrintAlignment: "left", PrintImageFile: "", PrintColor: "#00000" }); }, //设置纸张高度，如果按数学坐标系绘制的需要用这个高度换算Y坐标 SetPaperHeight: function (Height) { if (Height == null) { Height = 1024; } printPaperHeightWidget = Height; }, //根据纸张高度处理分页 //paperHeight:纸张高度 DealPage: function (paperHeight) { for (var i = 0; i < printWidget.length; i++) { var aMaxY = printWidget[i].PrintY; if (printWidget[i].PrintType == "ILineN") { if (aMaxY < printWidget[i].PrintHeight) { aMaxY = printWidget[i].PrintHeight; } } else if (printWidget[i].PrintType == "Poly") { var polyStr = ""; var strArr = printWidget[i].PrintText.split("^"); if (strArr != null && strArr.length > 0) { for (var j = 0; j < strArr.length; j++) { var strArr1 = strArr[j].split("@"); if (aMaxY < parseFloat(strArr1[1])) { aMaxY = parseFloat(strArr1[1]); } } } } printWidget[i].MaxY = aMaxY; } var ztmpprintWidget = []; var paperIndex = 1; for (var i = 0; i < printWidget.length; i++) { if (printWidget[i].PrintType == "PRINTER") { ztmpprintWidget.push(printWidget[i]); continue; } if (printWidget[i].MaxY / (printPaperHeightWidget) > paperIndex) { ztmpprintWidget.push({ PrintType: "PAGE", PrintX: 1, PrintY: 1, PrintFont: "宋体", PrintFontSize: "1", PrintFontStyle: "", PrintLength: "", PrintWidth: "1", PrintHeight: "1", PrintText: "", DataField: "", PrintFlag: "", PrintAlignment: "left", PrintImageFile: "", PrintColor: "#00000" }); paperIndex++; } printWidget[i].PrintY = printWidget[i].PrintY - (paperIndex - 1) * (printPaperHeightWidget); if (printWidget[i].PrintType == "ILineN") { printWidget[i].PrintHeight = printWidget[i].PrintHeight - (paperIndex - 1) * (printPaperHeightWidget); } if (printWidget[i].PrintType == "Poly") { var polyStr = ""; var strArr = printWidget[i].PrintText.split("^"); if (strArr != null && strArr.length > 0) { for (var j = 0; j < strArr.length; j++) { var strArr1 = strArr[j].split("@"); if (polyStr == "") { polyStr += strArr1[0] + "@" + (strArr1[1] - (paperIndex - 1) * (printPaperHeightWidget)); } else { polyStr += "^" + strArr1[0] + "@" + (strArr1[1] - (paperIndex - 1) * (printPaperHeightWidget)); } } } printWidget[i].PrintText = polyStr; } ztmpprintWidget.push(printWidget[i]); } printWidget = ztmpprintWidget; }, //坐标转换 //noTransY:是否转换y坐标 CoordinateTrans: function (noTransY) { for (var i = 0; i < printWidget.length; i++) { if (printWidget[i].PrintType == "PRINTER") { continue; } if (printWidget[i].PrintFont == null) { printWidget[i].PrintFont = "宋体"; } if (printWidget[i].PrintLength == null) { printWidget[i].PrintLength = ""; } //处理成字符串 printWidget[i].PrintLength += ""; if (printWidget[i].DataField == null) { printWidget[i].DataField = ""; } if (printWidget[i].PrintHeight == null || printWidget[i].PrintHeight == "") { printWidget[i].PrintHeight = "20"; } //处理成数字 printWidget[i].PrintHeight = parseFloat(printWidget[i].PrintHeight); if (printWidget[i].PrintWidth == null || printWidget[i].PrintWidth == "") { printWidget[i].PrintWidth = "1"; } //处理成数字 printWidget[i].PrintWidth = parseFloat(printWidget[i].PrintWidth); //处理成字符串 printWidget[i].PrintFlag += ""; if (printWidget[i].PrintFontSize != null && printWidget[i].PrintFontSize != "") { //字符串类型的处理 if (typeof (printWidget[i].PrintFontSize) == "string") { printWidget[i].PrintFontSize = printWidget[i].PrintFontSize.replace("px", ""); } } else { printWidget[i].PrintFontSize = "9"; } if (printWidget[i].PrintAlignment.toLowerCase() == "left" || printWidget[i].PrintAlignment == "Justified") { printWidget[i].PrintAlignment = "Justified"; } else if (printWidget[i].PrintAlignment.toLowerCase() == "center" || printWidget[i].PrintAlignment == "Center") { printWidget[i].PrintAlignment = "Center"; } else if (printWidget[i].PrintAlignment.toLowerCase() == "right" || printWidget[i].PrintAlignment == "Right") { printWidget[i].PrintAlignment = "Right"; } else { printWidget[i].PrintAlignment = "Default"; } if (noTransY != true) { //坐标换算 printWidget[i].PrintY = (printPaperHeightWidget - printWidget[i].PrintY) * 0.95; if (printWidget[i].PrintType == "ILineN") { printWidget[i].PrintHeight = (printPaperHeightWidget - printWidget[i].PrintHeight) * 0.95; } if (printWidget[i].PrintType == "Poly") { var polyStr = ""; var strArr = printWidget[i].PrintText.split("^"); if (strArr != null && strArr.length > 0) { for (var j = 0; j < strArr.length; j++) { var strArr1 = strArr[j].split("@"); if (polyStr == "") { polyStr += strArr1[0] + "@" + (printPaperHeightWidget - strArr1[1]) * 0.95; } else { polyStr += "^" + strArr1[0] + "@" + (printPaperHeightWidget - strArr1[1]) * 0.95; } } } printWidget[i].PrintText = polyStr; } } } } } //根据字体大小得到一个字符的宽度 function GetCharWidth(fontSize, char) { var modulus = 1.48; //除数 var num = 2; if (/^[\u4e00-\u9fa5]+$/.test(char)) { num = 1; } if (fontSize == null && fontSize == "") { return 15 / num * modulus; } //字符串类型的处理 if (typeof (fontSize) == "string") { fontSize = fontSize.replace("px", ""); } if (fontSize == 16) { modulus = 1.475; } else if (fontSize == 14) { modulus = 1.461; } else if (fontSize == 13) { modulus = 1.46; } else if (fontSize == 12) { modulus = 1.444; } else if (fontSize == 11) { modulus = 1.43; } else if (fontSize == 10) { modulus = 1.429; } else if (fontSize == 9) { modulus = 1.42; } return fontSize / num * modulus; }- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192
- 193
- 194
- 195
- 196
- 197
- 198
- 199
- 200
- 201
- 202
- 203
- 204
- 205
- 206
- 207
- 208
- 209
- 210
- 211
- 212
- 213
- 214
- 215
- 216
- 217
- 218
- 219
- 220
- 221
- 222
- 223
- 224
- 225
- 226
- 227
- 228
- 229
- 230
- 231
- 232
- 233
- 234
- 235
- 236
- 237
- 238
- 239
- 240
- 241
- 242
- 243
- 244
- 245
- 246
- 247
- 248
- 249
- 250
- 251
- 252
- 253
- 254
- 255
- 256
- 257
- 258
- 259
- 260
- 261
- 262
- 263
- 264
- 265
- 266
- 267
- 268
- 269
- 270
- 271
- 272
- 273
- 274
- 275
- 276
- 277
- 278
- 279
- 280
- 281
- 282
- 283
- 284
- 285
- 286
- 287
- 288
- 289
- 290
- 291
- 292
- 293
- 294
- 295
- 296
- 297
- 298
- 299
- 300
- 301
- 302
- 303
- 304
- 305
- 306
- 307
- 308
- 309
- 310
- 311
- 312
- 313
- 314
- 315
- 316
- 317
- 318
- 319
- 320
- 321
- 322
- 323
- 324
- 325
- 326
- 327
- 328
- 329
- 330
- 331
- 332
- 333
- 334
- 335
- 336
- 337
- 338
- 339
- 340
- 341
- 342
- 343
- 344
- 345
- 346
- 347
- 348
- 349
- 350
- 351
- 352
- 353
- 354
- 355
- 356
- 357
- 358
- 359
- 360
- 361
- 362
- 363
- 364
- 365
- 366
- 367
- 368
- 369
- 370
- 371
- 372
- 373
- 374
- 375
- 376
- 377
- 378
- 379
- 380
- 381
- 382
- 383
- 384
- 385
- 386
- 387
- 388
- 389
- 390
- 391
- 392
- 393
- 394
- 395
- 396
- 397
- 398
- 399
- 400
- 401
- 402
- 403
- 404
- 405
- 406
- 407
- 408
- 409
- 410
- 411
- 412
- 413
- 414
- 415
- 416
- 417
- 418
- 419
- 420
- 421
- 422
- 423
- 424
- 425
- 426
- 427
- 428
- 429
- 430
- 431
- 432
- 433
- 434
- 435
- 436
- 437
- 438
- 439
- 440
- 441
- 442
- 443
- 444
- 445
- 446
- 447
- 448
- 449
- 450
- 451
- 452
- 453
- 454
- 455
- 456
- 457
- 458
- 459
- 460
- 461
- 462
- 463
- 464
- 465
- 466
- 467
- 468
- 469
- 470
- 471
- 472
- 473
- 474
- 475
- 476
- 477
- 478
- 479
- 480
- 481
- 482
- 483
- 484
- 485
- 486
- 487
- 488
- 489
- 490
- 491
- 492
- 493
- 494
- 495
- 496
- 497
- 498
- 499
- 500
- 501
- 502
- 503
- 504
- 505
- 506
- 507
- 508
- 509
- 510
- 511
- 512
- 513
- 514
- 515
- 516
- 517
- 518
- 519
- 520
- 521
- 522
- 523
- 524
- 525
- 526
- 527
- 528
- 529
- 530
- 531
- 532
- 533
- 534
- 535
- 536
- 537
- 538
- 539
- 540
- 541
- 542
- 543
- 544
- 545
- 546
- 547
- 548
- 549
- 550
- 551
- 552
- 553
- 554
- 555
- 556
- 557
- 558
- 559
- 560
- 561
- 562
- 563
- 564
- 565
- 566
- 567
- 568
- 569
- 570
- 571
- 572
- 573
- 574
- 575
- 576
- 577
- 578
- 579
- 580
- 581
- 582
- 583
- 584
- 585
- 586
- 587
- 588
- 589
- 590
- 591
- 592
- 593
- 594
- 595
- 596
- 597
- 598
- 599
- 600
- 601
- 602
- 603
- 604
- 605
- 606
- 607
- 608
- 609
- 610
- 611
- 612
- 613
- 614
- 615
- 616
- 617
- 618
- 619
- 620
- 621
- 622
- 623
- 624
- 625
- 626
- 627
- 628
- 629
- 630
- 631
- 632
- 633
- 634
- 635
- 636
- 637
- 638
- 639
- 640
- 641
- 642
- 643
- 644
- 645
- 646
- 647
- 648
- 649
- 650
- 651
- 652
- 653
- 654
- 655
- 656
- 657
- 658
- 659
- 660
- 661
- 662
- 663
- 664
- 665
- 666
- 667
- 668
- 669
- 670
- 671
- 672
- 673
- 674
- 675
- 676
- 677
- 678
- 679
- 680
- 681
- 682
- 683
- 684
- 685
- 686
- 687
- 688
- 689
- 690
- 691
- 692
- 693
- 694
- 695
- 696
- 697
- 698
- 699
- 700
- 701
- 702
- 703
- 704
- 705
- 706
- 707
- 708
- 709
- 710
- 711
- 712
- 713
- 714
- 715
- 716
- 717
- 718
- 719
- 720
- 721
- 722
- 723
- 724
- 725
- 726
- 727
- 728
- 729
- 730
- 731
- 732
- 733
- 734
- 735
- 736
- 737
- 738
- 739
- 740
- 741
- 742
- 743
- 744
- 745
- 746
- 747
- 748
- 749
- 750
- 751
- 752
- 753
- 754
- 755
- 756
- 757
- 758
- 759
- 760
- 761
- 762
- 763
- 764
- 765
- 766
- 767
- 768
- 769
- 770
- 771
- 772
- 773
- 774
- 775
- 776
- 777
- 778
- 779
- 780
- 781
- 782
- 783
LIS因努力而美好，个人成长伴随产品成长。这就是iMedicalLIS打印绘图和M产生的火花。14年时候仰望过Lodop，现在的我们才是更可控更适合自己的打印。
-
相关阅读:
vue搭建项目详细介绍
DetectX 深度学习模型Android部署 - NanoDetPlus + NCNN
qt nodeeditor编译安装
Python自学教程2：大牛们怎么写注释
Day04--实现本地生活的首页基础布局
C#连接MySql数据库
C++枚举
css-边框原理教程
1.7.C++项目：仿muduo库实现并发服务器之Poller模块的设计
数据可视化——ucharts的使用
- 原文地址：https://blog.csdn.net/zhanglianzhu_91/article/details/126315312
- 最新文章
-
沪漂五周年了：我越来越迷茫了
Agentic Skill Routing 实战：别再把所有 Skill 塞进 AI Agent 上下文
MySQL-Seconds_behind_master的精度误差
[MAF预定义ChatClient中间件-03]CachingChatClient——利用缓存省钱省时间
AI的至暗历史：从万众期待到被政府撤资，AI的两次死亡徘徊
Agent OS ：五种驯服不确定性的范式
PortSwigger SQL注入LAB11
数据库即时编译JIT
[Begin]AI Learn Data Day 0
深度学习进阶（二十七）现代 LLM 的核心架构设计其二：SwiGLU