|
楼主 |
发表于 2024-9-1 16:51:11
|
显示全部楼层
吉林省长春市
_按钮2_被单击 ()集_线程 = 线程_启动 (&查询线程 )变量名 | 类 型 | 静态 | 数组 | 备 注 | txt | 文本型 | | | JSON | 类_json | | | 手机号码 | 文本型 | | | 微信昵称 | 文本型 | | | state | 文本型 | | | i | 整数型 | | | name | 文本型 | | | num | 文本型 | | | total_price | 文本型 | | | a | 整数型 | | | 退货信息 | 文本型 | | | 退货数组 | 文本型 | | 0 | 订单编码数组 | 文本型 | | 0 | n | 整数型 | | | 核销状态 | 文本型 | | | wx_nickname | 文本型 | | | customer_phone | 文本型 | | | 订单编号 | 文本型 | | | 核销时间 | 文本型 | | | 核销记录 | 文本型 | | | 所在行 | 整数型 | | | 核销数组 | 文本型 | | 0 | 核销内容 | 文本型 | | | 局_核销员 | 文本型 | | | m | 整数型 | | | JSON2 | 类_json | | | 批量订单编码 | 文本型 | | |
超级列表框1. 全部删除 ()判断 (编辑框_批量订单编码.内容 ≠ “”)批量订单编码 = 文本_替换 (编辑框_批量订单编码.内容, , , , “+”, “ ”)订单编码数组 = 分割文本 (批量订单编码, “ ”, )计次循环首 (取数组成员数 (订单编码数组 ), n )txt = search (编辑框_Sid.内容, 订单编码数组 [n ])调试输出 (txt )JSON2. 解析 (txt )计次循环首 (JSON2. 成员数 (“data['order_and_stat_list']”), m )order_no = JSON2. 取通用属性 (“data['order_and_stat_list'][” + 到文本 (m - 1 ) + “]['order_list'][0]['order_no']”)JSON. 取通用属性 (“data['page_partition']['order_no']”)txt = 获取详细订单 (编辑框_Sid.内容, 集_shelf_info, order_no ) 手机号码 = JSON. 取通用属性 (“data['customer_phone']”)微信昵称 = JSON. 取通用属性 (“data['wx_nickname']”)state = JSON. 取通用属性 (“data.state”)判断 (state = “SHELF_ORDER_STATE_UNCONFIRM”)核销状态 = “待核销”判断 (state = “SHELF_ORDER_STATE_CONFIRM”)核销状态 = “已核销” 计次循环首 (JSON. 成员数 (“data['goods_list']”), i )name = JSON. 取通用属性 (“data['goods_list'][” + 到文本 (i - 1 ) + “].name”) num = JSON. 取属性 (“data['goods_list'][” + 到文本 (i - 1 ) + “].num”). 取数据文本 () total_price = JSON. 取属性 (“data['goods_list'][” + 到文本 (i - 1 ) + “]['total_price']”). 取数据文本 () wx_nickname = JSON. 取通用属性 (“data.wx_nickname”) customer_phone = JSON. 取通用属性 (“data.customer_phone”) a = 超级列表框1. 插入表项 (, , , , , )超级列表框1. 置标题 (a, 0, 到文本 (a + 1 )) 超级列表框1. 置标题 (a, 1, 订单编码数组 [n ]) 超级列表框1. 置标题 (a, 2, name ) 超级列表框1. 置标题 (a, 3, num ) 超级列表框1. 置标题 (a, 4, 到文本 (到数值 (total_price ) ÷ 到数值 (num ) ÷ 100 )) 超级列表框1. 置标题 (a, 5, wx_nickname ) 超级列表框1. 置标题 (a, 6, customer_phone ) 超级列表框1. 置标题 (a, 7, 核销状态 ) 超级列表框1. 置标题 (a, 11, order_no )如果真 (核销状态 = “已核销”)订单编号 = 订单编码数组 [n ]核销记录 = 到文本 (读入文件 (取运行目录 () + “\核销记录.txt”)) 所在行 = 文本_取文本所在行_优化版 (核销记录, 订单编号 )核销内容 = 文本_取指定文件文本行 (取运行目录 () + “\核销记录.txt”, 所在行 )核销数组 = 分割文本 (核销内容, “----”, )如果真 (取数组成员数 (核销数组 ) ≥ 8 )局_核销员 = 核销数组 [8 ]核销时间 = 核销数组 [7 ]超级列表框1. 置标题 (a, 12, 局_核销员 )超级列表框1. 置标题 (a, 8, 核销时间 )退货信息 = 读配置项 (取运行目录 () + “\退货记录.ini”, order_no, name, )退货数组 = 分割文本 (退货信息, “*”, )如果真 (取数组成员数 (退货数组 ) ≥ 3 )超级列表框1. 置标题 (a, 9, 退货数组 [1 ])超级列表框1. 置标题 (a, 10, 退货数组 [3 ])计次循环尾 ()跳出循环 ()计次循环尾 ()计次循环尾 ()状态条1. 置文本 (1, “查询完成!”)状态条1. 置文本 (1, “订单编号不能为空!”) |
|