库存先进先出

wenjian　发表于：2020-12-06 15:38:10 　

复制

仓库有内仓和外仓，

如果领料数大于总库存，存单号等信息入欠料表

如果领料数小于内仓，直接发内仓，

如果领料数大于外仓库存小于内仓库存，直接发外仓，点击下载此附件

如果领料数小于内仓库存，也小于外仓库存，则出完内仓全部，再出外仓部分，

内仓是每个料号只有一个记录，

外仓会按ID分批记录，需按先进先出原则出库，比如，需外仓发料料1000，最先一批库存为800，则出第一批库存800，第二批库存200，以此类推。

单个领料单处理不成问题，

批量领料单该怎么按这个逻辑批量处理？跪求各位大大帮忙，谢谢！

Top

西出阳关无故人发表于：2020-12-11 10:35:29

你的逻辑的文字描述,看不懂:

"如果领料数大于总库存，存单号等信息入欠料表",是不是领料数大于总库存,就一点都不发,全部记入欠料表?还是发完总库存,不够的记入欠料表?

"如果领料数小于内仓，直接发内仓，"--很容易理解

"如果领料数大于外仓库存小于内仓库存，直接发外仓，"--这是什么意思?是不是:如果领料数大于内仓库存小于外仓库存，直接发外仓?

"如果领料数小于内仓库存，也小于外仓库存，则出完内仓全部，再出外仓部分"--这又是什么意思啊?

Top

西出阳关无故人发表于：2020-12-11 10:50:46

逻辑:

Private Sub Command0_Click()
'单一物品出库
If 领料数 <= 总库存 Then
If 领料数 <= 内仓数 Then
出库数 = 领料数
出库数记录到内仓
Else
If 领料数 <= 外仓数 Then
出库数 = 领料数
出库数记录到外仓 '先进先出逻辑另行描述
Else
出库数1 = 内仓数
出库数1记录到内仓
出库数2 = 领料数 - 出库数1
出库数2记录到外仓 '先进先出逻辑另行描述
End If
End If
Else
出库数1 = 内仓数
出库数2 = 外仓数
出库数1记录到内仓
出库数2记录到外仓 '外仓全部出完,不需要考虑先进先出
欠料表 = 领料数 - 出库数1 - 出库数2
End If
End Sub