求助 开发扫描装箱系统，小女子在此谢谢了

任浪漫

haidao123321 发表于 2016-12-6 23:34
老师你好 ，条码20位 前5位是产品的简称，6-10位是供应商代码，11-16位是生产批号（生产日期）17位以后是 ...

加Qq1361068701

as42065300

这些加QQ的什么意思公开来大家都可以学呀？
写了些目前的要求基本可以达到。后续的就不好说了（代码很粗糙见笑了）。
及供参考！
扫描装箱页面.rar (220.73 KB, 下载次数: 41)

2016-12-7 12:29 上传

点击文件名下载附件

haidao123321

as42065300 发表于 2016-12-7 12:29
这些加QQ的什么意思公开来大家都可以学呀？
写了些目前的要求基本可以达到。后续的就不好说了（代码很粗糙 ...

谢谢老师  我试试

№▁▃风筝﹋

需将所有的二维码图片先保存在表格同一目录下的ERcode文件夹中，文件命名方式：整箱二维码用型号命名，半箱用型号后面加个“D”，图片格式“.jpg”，打印装箱单时自动判断并调用，判断方法：应装数量等于实装数量时调用整箱二维码，否则调用半箱二维码。应装数量等于实装数量时自动打印。装箱单上的数据是根据第一个条码用公式获取的，打印完成后清空计数和清单数据。

haidao123321

№▁▃风筝﹋ 发表于 2016-12-7 13:18
需将所有的二维码图片先保存在表格同一目录下的ERcode文件夹中，文件命名方式：整箱二维码用型号命名，半箱 ...

谢谢老师 分享  ，很好用   只是 有一个问题需要请教老师，现在我用扫描枪扫描的条码是图片最下面那个条形码 67LLSAAAZR1611271173这种形式的条码。现在程序读取的信息是二维码 信息  直接扫描条形码67LLSAAAZR1611271173，不计数累加 。再次感谢老师的无私奉献

haidao123321

№▁▃风筝﹋ 发表于 2016-12-7 13:18
需将所有的二维码图片先保存在表格同一目录下的ERcode文件夹中，文件命名方式：整箱二维码用型号命名，半箱 ...

还有一个问题 ，关于半箱的这种情况 调用二维码图片不好操作，因为二维码是由 产品名称，供应商标示，产品数量等构成 实际装箱过程中，装箱数量不能确定 直接导致图片可能上万种可能

john13579

已完成，请看附件。

№▁▃风筝﹋

haidao123321 发表于 2016-12-7 14:35
还有一个问题 ，关于半箱的这种情况 调用二维码图片不好操作，因为二维码是由 产品名称，供应商标示，产 ...

你的意思是你需要输入的条码和“备份”中的二维码不一样？实际上是你扫描的条码在“备份”中搜索“简码”，然后得到对应的内容对吗？这样的话
把CommandButton2_Click事件中
If Sheet3.Range("L:L").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then MsgBox "未能找到该条码": Exit Sub
改成下面这样：
If Sheet3.Range("F:F").Find(Mid(TextBox1.Value,1,5), LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then MsgBox "未能找到该条码": Exit Sub
截取前5位搜索简码。
二维码数量的问题，不论产品来源来自哪里，产品型号应该都是唯一的，就算不同厂、不同供应商，只要是同一产品，型号应该都是一致的吧？你的二维码图片可以这样命名：型号+装箱数量，这样调用的时候就根据型号+实装数量调用二维码，包括满箱也这样命名
把CommandButton1_Click事件中
            If Sheet5.Range("B10").Value = Sheet5.Range("D10").Value Then
                Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & ".jpg") '加载满箱二维码图片
            Else
                Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & "D.jpg") '加载半箱二维码图片
            
            End If
改成以下这样：
Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & Sheet5.Range("D10").Value & ".jpg")

haidao123321

老师您好 已经按照提示修改，但是输入条码后点击  手动装箱 提示第一个标签提示输入的不是同一产品,不知道为什么  请老师指点

№▁▃风筝﹋

看一下吧，试了几个，应该没什么大问题