|
发表于 2017-6-13 08:14:04
|
显示全部楼层
广东省东莞市
①帖子地址:http://bbs.125.la/forum.php?mod= ... p;extra=&page=1
②发表时间: 2017-5-25 14:19:50
③取消情况 (无解决答案/已自己解决了):自己解决了
下面是代码
.版本 2
.支持库 iext
.如果 (出库单管理.选中 = 真)
.如果 (文件是否存在 (“C:\Program Files\data\yz\bf\chukudan.edb”) = 真)
打开 (“C:\Program Files\data\yz\bf\chukudan.edb”, , , , , , )
.否则
信息框 (“出库单数据库不存在,无法查询!”, 0, , )
返回 ()
.如果结束
到首记录 ()
出入库管理列表.全部删除 ()
判断数 = 1
.计次循环首 (取记录数 (), 循环次数)
跳到 (循环次数)
.如果真 (查询日期1.内容 ≠ “” 且 查询日期1.内容 = 查询日期2.内容)
.如果 (读 (“出库日期”) = 查询日期1.内容)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (查询日期1.内容 ≠ “” 且 查询日期1.内容 ≠ 查询日期2.内容)
.如果 (到数值 (读 (“出库日期”)) ≥ 到数值 (查询日期1.内容) 且 到数值 (读 (“出库日期”)) ≤ 到数值 (查询日期2.内容))
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (出入库选择门店.内容 ≠ “”)
.如果 (读 (“出库门店”) = 出入库选择门店.内容)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (出入库单选择客户.内容 ≠ “”)
.如果 (寻找文本 (读 (“出库客户”), 出入库单选择客户.内容, , 假) ≠ -1)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (出入库单查询单号.内容 ≠ “”)
.如果 (寻找文本 (到文本 (读 (“id”)), 出入库单查询单号.内容, , 假) ≠ -1)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (出入库单选择员工.内容 ≠ “”)
.如果 (寻找文本 (到文本 (读 (“出库经手人”)), 出入库单选择员工.内容, , 假) ≠ -1)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (出入库单查询规格.内容 ≠ “”)
.如果 (寻找文本 (到文本 (读 (“出库规格”)), 出入库单查询规格.内容, , 假) ≠ -1)
.否则
判断数 = 0
.如果结束
.如果真结束
.如果真 (判断数 ≠ 0)
索引 = 出入库管理列表.插入表项 (, , , , , )
出入库管理列表.置标题 (索引, 0, 到文本 (读 (“id”)))
出入库管理列表.置标题 (索引, 1, 读 (“出库门店”))
出入库管理列表.置标题 (索引, 2, 读 (“出库类别”))
出入库管理列表.置标题 (索引, 3, 读 (“出库牌号”))
出入库管理列表.置标题 (索引, 4, 读 (“出库规格”))
出入库管理列表.置标题 (索引, 5, 读 (“出库数量”))
出入库管理列表.置标题 (索引, 6, 读 (“出库重量”))
出入库管理列表.置标题 (索引, 7, 读 (“出库单价”))
出入库管理列表.置标题 (索引, 8, 读 (“出库金额”))
出入库管理列表.置标题 (索引, 9, 读 (“出库客户”))
出入库管理列表.置标题 (索引, 10, 读 (“出库经手人”))
出入库管理列表.置标题 (索引, 11, 到文本 (读 (“出库日期”)))
出入库管理列表.置标题 (索引, 12, 读 (“出库备注”))
出入库管理列表.置标题 (索引, 13, 读 (“录入人”))
.如果真结束
判断数 = 1
.计次循环尾 ()
.如果 (出入库管理列表.取表项数 () ≤ 0)
信息框 (“查无此单,请重新输入!”, 0, , )
关闭 ()
.否则
.如果结束
|
评分
-
查看全部评分
|