珠宝首饰管理系统/软件支持标签打印

.子程序 Printlabel, 逻辑型, 公开, 根据首饰类型调用程序目录下的lre文件夹内的对应类型名称的lre标签打印文件
.参数 信息文本, 文本型, , 需要打印的首饰信息文本，TAB分隔
.参数 校验地址, 文本型, , 提供给二维码的标签检验网址
.局部变量 首饰信息, 首饰信息
.局部变量 打印结果, 逻辑型

.判断开始 (首饰信息_解析文本 (信息文本, 首饰信息) ＝ 假)
返回 (假)
.判断 (首饰信息.首饰类型 ＝ “”)
返回 (假)
.判断 (LRE_加载文件 (取运行目录 () ＋ “\lre\” ＋ 首饰信息.首饰类型 ＋ “.lre”) ＝ 假)
LRE_销毁文件 ()
返回 (假)
.默认
LRE_设置标记 (“@条码”, 首饰信息.旧的条码)
LRE_设置标记 (“@条形码”, 首饰信息.旧的条码)
LRE_设置标记 (“@防伪码”, 首饰信息.首饰防伪)
LRE_设置标记 (“@类型”, 首饰信息.首饰类型)
LRE_设置标记 (“@款号1”, 首饰信息.首饰款号1)
LRE_设置标记 (“@款号2”, 首饰信息.首饰款号2)
' LRE_设置标记 (“@二维码”, 校验地址 ＋ 辅助功能_BASE64编码 (加密数据 (到字节集 (首饰信息.旧的条码), 首饰信息.首饰防伪, 2)))
LRE_设置标记 (“@二维码”, 校验地址 ＋ 首饰信息.旧的条码)
LRE_设置标记 (“@成色”, 首饰信息.首饰成色)
LRE_设置标记 (“@首饰类别”, 首饰信息.首饰类别)
LRE_设置标记 (“@首饰名称”, 首饰信息.首饰名称)
LRE_设置标记 (“@总件重”, 数值到格式文本 (首饰信息.总的件重, 3, 假))
LRE_设置标记 (“@净金重”, 数值到格式文本 (首饰信息.净金重量, 3, 假))
LRE_设置标记 (“@含量”, 数值到格式文本 (首饰信息.成色含量, 3, 假))
LRE_设置标记 (“@销售金价”, 数值到格式文本 (首饰信息.销售金价, 2, 假))
LRE_设置标记 (“@销售损耗”, 数值到格式文本 (首饰信息.销售损耗, 2, 假))
LRE_设置标记 (“@销售金值”, 数值到格式文本 (首饰信息.销售金值, 2, 假))
LRE_设置标记 (“@手寸”, 到文本 (首饰信息.圈口大小))
LRE_设置标记 (“@证书号1”, 首饰信息.证书编号1)
LRE_设置标记 (“@证书号2”, 首饰信息.证书编号2)
LRE_设置标记 (“@主石类别”, 首饰信息.主石类别)
LRE_设置标记 (“@主石颜色”, 首饰信息.主石颜色)
LRE_设置标记 (“@主石净度”, 首饰信息.主石净度)
LRE_设置标记 (“@主石切工”, 首饰信息.主石切工)
LRE_设置标记 (“@主石抛光”, 首饰信息.主石抛光)
LRE_设置标记 (“@主石对称”, 首饰信息.主石对称)
LRE_设置标记 (“@主石形状”, 首饰信息.主石形状)
LRE_设置标记 (“@主石荧光”, 首饰信息.主石荧光)
.如果真 (首饰信息.主石切工 ≠ “” 且 首饰信息.主石切工 ＝ 首饰信息.主石抛光 且 首饰信息.主石切工 ＝ 首饰信息.主石对称)
首饰信息.主石切工 ＝ “3Ex”
.如果真结束
' ------------------------------------------------
LRE_设置标记 (“@3Ex”, 首饰信息.主石切工)
LRE_设置标记 (“@主石计价方式”, 首饰信息.主石计价方式)
LRE_设置标记 (“@主石粒数”, 到文本 (首饰信息.主石粒数))
LRE_设置标记 (“@主石重”, 数值到格式文本 (首饰信息.主石重量, 3, 假))
LRE_设置标记 (“@主石售价”, 数值到格式文本 (首饰信息.主石售价, 2, 假))
LRE_设置标记 (“@主石金额”, 数值到格式文本 (首饰信息.主石金额, 2, 假))
LRE_设置标记 (“@副石类别1”, 首饰信息.副石类别1)
LRE_设置标记 (“@副石计价方式1”, 首饰信息.副石计价方式1)
LRE_设置标记 (“@副石粒数1”, 到文本 (首饰信息.副石粒数1))
LRE_设置标记 (“@副石重1”, 数值到格式文本 (首饰信息.副石重量1, 3, 假))
LRE_设置标记 (“@副石售价1”, 数值到格式文本 (首饰信息.副石售价1, 2, 假))
LRE_设置标记 (“@副石金额1”, 数值到格式文本 (首饰信息.副石金额1, 2, 假))
LRE_设置标记 (“@副石类别2”, 首饰信息.副石类别2)
LRE_设置标记 (“@副石计价方式2”, 首饰信息.副石计价方式2)
LRE_设置标记 (“@副石粒数2”, 到文本 (首饰信息.副石粒数2))
LRE_设置标记 (“@副石重2”, 数值到格式文本 (首饰信息.副石重量2, 3, 假))
LRE_设置标记 (“@副石售价2”, 数值到格式文本 (首饰信息.副石售价2, 2, 假))
LRE_设置标记 (“@副石金额2”, 数值到格式文本 (首饰信息.副石金额2, 2, 假))
LRE_设置标记 (“@配件名1”, 首饰信息.配件名称1)
LRE_设置标记 (“@配件计价方式1”, 首饰信息.配件计价方式1)
LRE_设置标记 (“@配件数量1”, 到文本 (首饰信息.配件数量1))
LRE_设置标记 (“@配件重量1”, 数值到格式文本 (首饰信息.配件重量1, 3, 假))
LRE_设置标记 (“@配件售价1”, 数值到格式文本 (首饰信息.配件售价1, 2, 假))
LRE_设置标记 (“@配件金额1”, 数值到格式文本 (首饰信息.配件金额1, 2, 假))
LRE_设置标记 (“@配件名2”, 首饰信息.配件名称2)
LRE_设置标记 (“@配件计价方式2”, 首饰信息.配件计价方式2)
LRE_设置标记 (“@配件数量2”, 到文本 (首饰信息.配件数量2))
LRE_设置标记 (“@配件重量2”, 数值到格式文本 (首饰信息.配件重量2, 3, 假))
LRE_设置标记 (“@配件售价2”, 数值到格式文本 (首饰信息.配件售价2, 2, 假))
LRE_设置标记 (“@配件金额2”, 数值到格式文本 (首饰信息.配件金额2, 2, 假))
LRE_设置标记 (“@销售工费”, 数值到格式文本 (首饰信息.销售工费, 2, 假))
LRE_设置标记 (“@证书费”, 数值到格式文本 (首饰信息.证书费用, 2, 假))
LRE_设置标记 (“@标价”, 数值到格式文本 (首饰信息.标价金额, 0, 假))
打印结果 ＝ LRE_打印文件 (首饰信息.旧的条码)
LRE_销毁文件 ()
返回 (打印结果)