出入库管理

一指禅62 · 发表于 2019-4-14 08:47

出入库管理

纸箱库存台账.rar (41.6 KB, 下载次数: 305)

补充内容 (2021-12-23 17:24):
8楼附件已解除工程密码。

tkgg93 · 发表于 2019-4-14 09:52

看了下，建议库存台账加个起止日期，期初统计开始日期之前的库存，这样就更方便查看任意时间段的进销存

一指禅62 · 发表于 2019-4-14 09:58

tkgg93 发表于 2019-4-14 09:52
看了下，建议库存台账加个起止日期，期初统计开始日期之前的库存，这样就更方便查看任意时间段的进销存

谢谢！

tcwymng · 发表于 2019-4-26 16:42

老师你好，你分享的收据模版，有些不懂得请教一下，QQ301056188,微信号“hema-niu”.

agice · 发表于 2020-3-18 17:31

谢谢分享慢慢学习了

一指禅62 · 发表于 2020-3-30 15:35

纸箱库存台账.rar (37.81 KB, 下载次数: 128)

agice · 发表于 2020-3-30 15:52

下来学习了谢谢

一指禅62 · 发表于 2021-12-23 17:23

本帖最后由一指禅62 于 2021-12-23 17:26 编辑

附件已解除工程密码。

纸箱库存台账.zip (46.56 KB, 下载次数: 168)

qygds · 发表于 2021-12-25 10:14

谢谢分享，慢慢学习

LBJLIN · 发表于 2021-12-25 21:24

感谢大神分享！
不过我想请教一个问题：更新库存台账() 里的以下几个步骤看不太懂，能否解答一下思路呢？感激不尽
Set d = CreateObject("Scripting.Dictionary")
      ReDim a(1 To 6, 1 To UBound(arr) - 1)
      For i = 2 To UBound(arr)
         n = n + 1
         d(arr(i, 1)) = n
         For j = 1 To 3
            a(j, n) = arr(i, j)
         Next
         a(6, n) = arr(i, 3)
      Next

这几步也看不懂
If Not d.Exists(arr(i, 2)) Then
            n = n + 1: ReDim Preserve a(1 To 6, 1 To n)
            d(arr(i, 2)) = n
            a(1, n) = arr(i, 2) '存货编码
            a(2, n) = arr(i, 3) '物料名称
            a(4, n) = arr(i, 6) '累计入
            a(5, n) = arr(i, 5) '累计出
            a(6, n) = IIf(arr(i, 5) > 0, arr(i, 5), arr(i, 6))  '结存
         Else
            m = d.Item(arr(i, 2))
            a(4, m) = a(4, m) + arr(i, 6) '累计入
            a(5, m) = a(5, m) + arr(i, 5) '累计出
            a(6, m) = a(3, m) + a(4, m) - a(5, m) '结存
         End If

		自动登录	找回密码
密码			免费注册

[原创] 出入库管理

评分

评分

评分