|
发表于 2022-1-26 09:16:01
|
显示全部楼层
广东省中山市
+389486774,.版本 2
.支持库 bartend
.支持库 spec
Format.SetNamedSubStringValue (“标题1”, 外箱码)
.如果真 (SQL_查询表返回指定字段数据 (#箱码明细表, “product_code”, “box_code=” + 外箱码, , sn组, , , , 假, 假) = 0)
调试输出 (外箱码, 取数组成员数 (sn组))
.如果 (取数组成员数 (sn组) = 36)
.计次循环首 (取数组成员数 (sn组), n)
Format.SetNamedSubStringValue (“文本” + 到文本 (n), sn组 [n])
调试输出 (“文本” + 到文本 (n), sn组 [n])
.计次循环尾 ()
.否则
.计次循环首 (取数组成员数 (sn组), n)
Format.SetNamedSubStringValue (“文本” + 到文本 (n), sn组 [n])
.计次循环尾 ()
.计次循环首 (36 - 取数组成员数 (sn组), n)
Format.GetObjects ().Item (“条形码 ” + 到文本 (取数组成员数 (sn组) + n)).DoNotPrint = 真
Format.GetObjects ().Item (“文本 ” + 到文本 (取数组成员数 (sn组) + n)).DoNotPrint = 真
Format.GetObjects ().Item (“文本” + 到文本 (取数组成员数 (sn组) + n)).DoNotPrint = 真
.计次循环尾 ()
.如果结束
.如果真结束
.如果 (Format.PrintOut (假, 假) = 0) ' 打印
返回 (真)
.否则
返回 (假)
|
|