送货单打印保存模板

jiangwan1988

老师，你好，我想在这个基础上，数量前面增加2列，一列是单箱数量，一列是箱数，然后是数量。

everCyan

学习了，谢谢

xemejxy

楼主这个出入库模板-v1.3非常好，能否在表中增加部门领料这一项，同时在填写出库或领料单时如输入数量超出库存数量能够自动提示。

zhuoxun

aman1516老师，请教如何填写出、入仓单，同时录入明细帐。

zhuoxun

文件 材料出入库管理.rar (52.51 KB, 下载次数: 79)

2018-10-7 19:40 上传

点击文件名下载附件

附件

aman1516

zhuoxun 发表于 2018-10-7 19:41
文件附件

你的台账有几点需确认：
1、“名称及规格”是否唯一（物料编码），若存在同样名称不同型号、颜色或不同特性的，能否识别？
2、是否执行先进先出原则，不同批次的入库，是否要作批号管理？
3、你的出入库都带单价，若不同批次单价不同时，如何做出入库记录？（同2，则必需要做批号管理）
如果都没限制，论坛上有很多简单出入库管理案例，不少完全能满足要求

zhuoxun

谢谢老师的指教，1.“名称及规格”是否唯一（物料编码），2.是执行先进先出原则，3.不同单价要提醒。

dear小菜

大神，帮我看看为什么单号不能自动+1了，一直按新单都停留在最后一次开单的单号了。

aman1516

dear小菜 发表于 2018-10-10 16:04
大神，帮我看看为什么单号不能自动+1了，一直按新单都停留在最后一次开单的单号了。

改一个数字就好：
Private Function 生成编号() As String
......
            Do
                If Right(theCell, 2) > theStrMaxNumNow Then theStrMaxNumNow = Right(theCell, 2)
                Set theCell = .FindNext(theCell)
            Loop Until theCell.Address = theFirstAddress
......
是 If Right(theCell, 2) > theStrMaxNumNow   ，而不是   If Right(theCell, 3) >.……

zhuoxun

aman1516 发表于 2018-10-9 08:52
你的台账有几点需确认：
1、“名称及规格”是否唯一（物料编码），若存在同样名称不同型号、颜色或不同 ...

多谢ＥＨ能手的指点。
1、“名称及规格”是否唯一（物料编码），若存在同样名称不同型号、能识别。
2、执行先进先出原则，不同批次的入库。
3、出入库都带单价，若不同批次单价不同时，提醒。