From dd6ae4c005c3d2777543f222c0c5a4e2b3a9bb40 Mon Sep 17 00:00:00 2001 From: Misaka_Company Date: Mon, 2 Feb 2026 17:55:08 +0800 Subject: [PATCH] feat: add component inventory check module MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Implement automatic component inventory verification that marks orders with insufficient stock as "Component Priority = No". Key features: - Reads orders from [产品订单] worksheet - Parses BOM to identify component category materials - Validates inventory against [现存量] worksheet - Allocates stock in order sequence - Handles missing components with warnings instead of errors - Provides detailed statistics on completion Co-Authored-By: Claude Sonnet 4.5 --- VBA/DocumentModules/Sheet9.cls | 12 + VBA/Modules/ComponentInventoryCheckModule.bas | 470 ++++++++++++++++++ 2 files changed, 482 insertions(+) create mode 100644 VBA/Modules/ComponentInventoryCheckModule.bas diff --git a/VBA/DocumentModules/Sheet9.cls b/VBA/DocumentModules/Sheet9.cls index 928f33a..dc24cba 100644 --- a/VBA/DocumentModules/Sheet9.cls +++ b/VBA/DocumentModules/Sheet9.cls @@ -1,4 +1,16 @@ +'===================================================================== +' 主按钮点击事件 +' 功能: 执行BOM提取和BIP上传 +'===================================================================== Private Sub CommandButton1_Click() Call ProcessProductModels Call ProcessOrdersToBIP +End Sub + +'===================================================================== +' 部件库存核对按钮点击事件 +' 功能: 执行部件库存核对,标记库存不足的订单 +'===================================================================== +Private Sub CommandButton2_Click() + Call CheckComponentInventory End Sub \ No newline at end of file diff --git a/VBA/Modules/ComponentInventoryCheckModule.bas b/VBA/Modules/ComponentInventoryCheckModule.bas new file mode 100644 index 0000000..eb476ca --- /dev/null +++ b/VBA/Modules/ComponentInventoryCheckModule.bas @@ -0,0 +1,470 @@ +'===================================================================== +' 模块名: ComponentInventoryCheckModule +' 功能: 部件库存核对模块 - 自动核对产品订单中"部件"类物料的库存情况 +' 说明: 当库存不足时,按订单顺序将超出部分的订单的"部件优先"字段标记为"否" +'===================================================================== + +Option Explicit + +'===================================================================== +' 数据结构定义 - 使用字典以支持引用更新 +'===================================================================== + +' 订单字典键 +Private Const ORDER_ROW As String = "RowNumber" +Private Const ORDER_MODEL As String = "ProductModel" +Private Const ORDER_QUANTITY As String = "Quantity" +Private Const ORDER_COMP_CODE As String = "ComponentCode" +Private Const ORDER_COMP_QTY As String = "ComponentQty" +Private Const ORDER_HAS_COMP As String = "HasComponent" +Private Const ORDER_PARSE_ERR As String = "ParseError" + +' 部件库存字典键 +Private Const INV_CODE As String = "ComponentCode" +Private Const INV_DEMAND As String = "TotalDemand" +Private Const INV_STOCK As String = "AvailableStock" +Private Const INV_SHORTAGE As String = "IsShortage" + +' 统计信息结构 +Private Type Statistics + TotalOrders As Long ' 总订单数 + OrdersWithComponent As Long ' 包含部件的订单数 + OrdersSufficient As Long ' 库存充足订单数 + OrdersInsufficient As Long ' 库存不足订单数 + OrdersSkipped As Long ' 跳过订单数 +End Type + +'===================================================================== +' 主入口程序 +'===================================================================== +Public Sub CheckComponentInventory() + On Error GoTo ErrorHandler + + Dim startTime As Double + startTime = Timer + + ' 获取工作表对象 + Dim orderSheet As Worksheet + Dim inventorySheet As Worksheet + Dim bomSheet As Worksheet + + Set orderSheet = GetOrderSheet() + If orderSheet Is Nothing Then + MsgBox "未找到[产品订单]工作表!", vbExclamation + Exit Sub + End If + + Set inventorySheet = GetInventorySheet() + If inventorySheet Is Nothing Then + MsgBox "未找到[现存量]工作表!", vbExclamation + Exit Sub + End If + + Set bomSheet = GetBomSheet() + If bomSheet Is Nothing Then + MsgBox "未找到[平台配置清单]工作表!", vbExclamation + Exit Sub + End If + + ' 检查订单数据 + Dim lastRow As Long + lastRow = orderSheet.Cells(orderSheet.Rows.Count, 2).End(xlUp).Row + If lastRow < 2 Then + MsgBox "[产品订单]工作表没有数据!", vbExclamation + Exit Sub + End If + + ' 初始化BOM提取器 + Dim bomExtractor As BomExtractor + Set bomExtractor = New BomExtractor + bomExtractor.SetWorksheet bomSheet + + If Not bomExtractor.LoadBomData Then + MsgBox "加载BOM数据失败:" & bomExtractor.GetErrorSummary, vbCritical + Exit Sub + End If + + ' 读取库存数据到字典 + Dim inventoryData As Object + Set inventoryData = LoadInventoryData(inventorySheet) + + If inventoryData.Count = 0 Then + MsgBox "[现存量]工作表没有有效数据!", vbExclamation + Exit Sub + End If + + ' 读取订单数据 + Dim orders As Collection + Set orders = LoadOrderData(orderSheet) + + If orders.Count = 0 Then + MsgBox "没有有效的订单数据!", vbExclamation + Exit Sub + End If + + ' 解析所有订单的BOM + ParseAllOrdersBOM orders, bomExtractor + + ' 统计部件总需求 + Dim componentDemands As Object + Set componentDemands = CalculateComponentDemand(orders) + + If componentDemands.Count = 0 Then + MsgBox "没有订单包含'部件'类别物料,无需处理库存!", vbInformation + Exit Sub + End If + + ' 验证库存 + Dim validationWarnings As Collection + Set validationWarnings = ValidateInventory(componentDemands, inventoryData) + + ' 按订单顺序分配库存 + Dim stats As Statistics + AllocateInventory orders, componentDemands, orderSheet, stats + + ' 输出结果统计 + Dim elapsedTime As Double + elapsedTime = Timer - startTime + + Dim resultMsg As String + resultMsg = "部件库存核对完成!" & vbCrLf & vbCrLf + resultMsg = resultMsg & "处理订单数: " & stats.TotalOrders & vbCrLf + resultMsg = resultMsg & "包含部件订单: " & stats.OrdersWithComponent & vbCrLf + resultMsg = resultMsg & "库存充足订单: " & stats.OrdersSufficient & vbCrLf + resultMsg = resultMsg & "库存不足订单: " & stats.OrdersInsufficient & vbCrLf + If stats.OrdersSkipped > 0 Then + resultMsg = resultMsg & "跳过订单数: " & stats.OrdersSkipped & vbCrLf + End If + resultMsg = resultMsg & vbCrLf & "耗时: " & Format(elapsedTime, "0.00") & "秒" + + ' 显示警告信息（如果有） + If validationWarnings.Count > 0 Then + resultMsg = resultMsg & vbCrLf & vbCrLf & "警告信息:" & vbCrLf + resultMsg = resultMsg & JoinCollection(validationWarnings, vbCrLf) + End If + + MsgBox resultMsg, vbInformation + + Exit Sub + +ErrorHandler: + MsgBox "部件库存核对异常: " & Err.Description, vbCritical +End Sub + +'===================================================================== +' 函数: LoadOrderData +' 功能: 读取订单数据 +' 参数: ws - [产品订单]工作表 +' 返回: Collection - 每个元素是字典对象,包含订单信息 +'===================================================================== +Private Function LoadOrderData(ws As Worksheet) As Collection + Set LoadOrderData = New Collection + + Dim lastRow As Long + lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row + + Dim i As Long + For i = 2 To lastRow + Dim model As String + Dim qty As Variant + + model = Trim(ws.Cells(i, 2).Value) ' B列: 产品型号 + qty = ws.Cells(i, 3).Value ' C列: 产品数量 + + ' 跳过空行 + If model <> "" Then + Dim order As Object + Set order = CreateObject("Scripting.Dictionary") + + order.Add ORDER_ROW, CLng(i) + order.Add ORDER_MODEL, CStr(model) + order.Add ORDER_QUANTITY, CDbl(IIf(IsNull(qty), 0, qty)) + order.Add ORDER_COMP_CODE, "" + order.Add ORDER_COMP_QTY, 0 + order.Add ORDER_HAS_COMP, False + order.Add ORDER_PARSE_ERR, "" + + LoadOrderData.Add order + End If + Next i +End Function + +'===================================================================== +' 函数: LoadInventoryData +' 功能: 读取库存数据 +' 参数: ws - [现存量]工作表 +' 返回: Dictionary(物料编码 -> 库存数量) +'===================================================================== +Private Function LoadInventoryData(ws As Worksheet) As Object + Set LoadInventoryData = CreateObject("Scripting.Dictionary") + + ' 从第4行开始读取(第3行是表头) + Dim lastRow As Long + lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row + + Dim i As Long + For i = 4 To lastRow + Dim code As String + Dim qty As Variant + + code = Trim(ws.Cells(i, 2).Value) ' B列: 物料编码 + qty = ws.Cells(i, 10).Value ' J列: 结存主数量 + + If code <> "" And Not IsEmpty(qty) Then + If Not LoadInventoryData.Exists(code) Then + LoadInventoryData.Add code, CDbl(qty) + End If + End If + Next i +End Function + +'===================================================================== +' 过程: ParseAllOrdersBOM +' 功能: 解析所有订单的BOM +' 参数: orders - 订单集合(每个元素是字典) +' bomExtractor - BOM提取器 +'===================================================================== +Private Sub ParseAllOrdersBOM(orders As Collection, bomExtractor As BomExtractor) + Dim i As Long + For i = 1 To orders.Count + Dim order As Object + Set order = orders(i) + ParseOrderBOM order, bomExtractor + Next i +End Sub + +'===================================================================== +' 过程: ParseOrderBOM +' 功能: 解析单个订单的BOM,识别部件类别物料 +' 参数: orderInfo - 订单信息字典(ByRef) +' bomExtractor - BOM提取器 +'===================================================================== +Private Sub ParseOrderBOM(ByRef orderInfo As Object, bomExtractor As BomExtractor) + On Error Resume Next + + ' 解析型号 + Dim parser As ProductModelParser + Set parser = New ProductModelParser + + If Not parser.Parse(orderInfo(ORDER_MODEL)) Then + orderInfo(ORDER_PARSE_ERR) = "解析失败: " & parser.ErrorMessage + Exit Sub + End If + + ' 提取BOM + Dim matchedItems As Collection + Set matchedItems = bomExtractor.ExtractBom(parser.Conditions) + + ' 查找"部件"类别物料 + Dim item As BomItem + For Each item In matchedItems + If item.category = "部件" Then + orderInfo(ORDER_COMP_CODE) = item.Code66 + orderInfo(ORDER_COMP_QTY) = item.quantity + orderInfo(ORDER_HAS_COMP) = True + Exit For + End If + Next item +End Sub + +'===================================================================== +' 函数: CalculateComponentDemand +' 功能: 统计部件总需求 +' 参数: orders - 订单集合 +' 返回: Dictionary(部件编码 -> 库存信息字典) +'===================================================================== +Private Function CalculateComponentDemand(orders As Collection) As Object + Dim demands As Object + Set demands = CreateObject("Scripting.Dictionary") + + Dim i As Long + For i = 1 To orders.Count + Dim order As Object + Set order = orders(i) + + If order(ORDER_HAS_COMP) Then + Dim demand As Double + demand = order(ORDER_COMP_QTY) * order(ORDER_QUANTITY) + Dim compCode As String + compCode = order(ORDER_COMP_CODE) + + If demands.Exists(compCode) Then + Dim compInv As Object + Set compInv = demands(compCode) + compInv(INV_DEMAND) = compInv(INV_DEMAND) + demand + Else + Dim newComp As Object + Set newComp = CreateObject("Scripting.Dictionary") + newComp.Add INV_CODE, compCode + newComp.Add INV_DEMAND, demand + newComp.Add INV_STOCK, 0 + newComp.Add INV_SHORTAGE, False + demands.Add compCode, newComp + End If + End If + Next i + + Set CalculateComponentDemand = demands +End Function + +'===================================================================== +' 函数: ValidateInventory +' 功能: 验证库存数据 +' 参数: componentDemands - 部件需求字典 +' inventoryData - 库存数据字典 +' 返回: Collection - 警告信息集合(找不到的部件) +'===================================================================== +Private Function ValidateInventory(componentDemands As Object, _ + inventoryData As Object) As Collection + Set ValidateInventory = New Collection + + Dim code As Variant + For Each code In componentDemands.Keys + Dim compInv As Object + Set compInv = componentDemands(code) + + ' 检查库存中是否存在该部件 + If Not inventoryData.Exists(compInv(INV_CODE)) Then + ' 库存中找不到，设置库存为0，并添加警告 + compInv(INV_STOCK) = 0 + compInv(INV_SHORTAGE) = True + ValidateInventory.Add "部件 '" & compInv(INV_CODE) & "' 在[现存量]中未找到" + Else + ' 设置可用库存 + compInv(INV_STOCK) = inventoryData(compInv(INV_CODE)) + + ' 检查是否短缺 + If compInv(INV_DEMAND) > compInv(INV_STOCK) Then + compInv(INV_SHORTAGE) = True + End If + End If + Next code +End Function + +'===================================================================== +' 过程: AllocateInventory +' 功能: 按订单顺序分配库存并标记 +' 参数: orders - 订单集合 +' componentDemands - 部件需求字典 +' orderSheet - 订单工作表 +' stats - 统计信息(ByRef) +'===================================================================== +Private Sub AllocateInventory(orders As Collection, _ + componentDemands As Object, _ + orderSheet As Worksheet, _ + ByRef stats As Statistics) + + ' 初始化统计 + stats.TotalOrders = orders.Count + stats.OrdersWithComponent = 0 + stats.OrdersSufficient = 0 + stats.OrdersInsufficient = 0 + stats.OrdersSkipped = 0 + + Dim i As Long + For i = 1 To orders.Count + Dim order As Object + Set order = orders(i) + + ' 跳过解析失败的订单 + If order(ORDER_PARSE_ERR) <> "" Then + stats.OrdersSkipped = stats.OrdersSkipped + 1 + GoTo NextOrder + End If + + ' 跳过没有部件的订单 + If Not order(ORDER_HAS_COMP) Then + stats.OrdersSkipped = stats.OrdersSkipped + 1 + GoTo NextOrder + End If + + ' 跳过数量为0的订单 + If order(ORDER_QUANTITY) = 0 Then + stats.OrdersSkipped = stats.OrdersSkipped + 1 + GoTo NextOrder + End If + + stats.OrdersWithComponent = stats.OrdersWithComponent + 1 + + ' 获取部件库存信息 + Dim compInv As Object + Set compInv = componentDemands(order(ORDER_COMP_CODE)) + + ' 计算需求量 + Dim requiredQty As Double + requiredQty = order(ORDER_COMP_QTY) * order(ORDER_QUANTITY) + + ' 检查库存是否充足 + If compInv(INV_STOCK) >= requiredQty Then + ' 库存充足,扣减库存,保持原值 + compInv(INV_STOCK) = compInv(INV_STOCK) - requiredQty + stats.OrdersSufficient = stats.OrdersSufficient + 1 + Else + ' 库存不足,标记为"否" + orderSheet.Cells(order(ORDER_ROW), 5).Value = "否" + compInv(INV_STOCK) = compInv(INV_STOCK) - requiredQty + stats.OrdersInsufficient = stats.OrdersInsufficient + 1 + End If + +NextOrder: + Next i +End Sub + +'===================================================================== +' 函数: GetOrderSheet +' 功能: 获取[产品订单]工作表 +' 返回: Worksheet +'===================================================================== +Private Function GetOrderSheet() As Worksheet + On Error Resume Next + Set GetOrderSheet = ThisWorkbook.Worksheets("产品订单") + On Error GoTo 0 +End Function + +'===================================================================== +' 函数: GetInventorySheet +' 功能: 获取[现存量]工作表 +' 返回: Worksheet +'===================================================================== +Private Function GetInventorySheet() As Worksheet + On Error Resume Next + Set GetInventorySheet = ThisWorkbook.Worksheets("现存量") + On Error GoTo 0 +End Function + +'===================================================================== +' 函数: GetBomSheet +' 功能: 获取[平台配置清单]工作表 +' 返回: Worksheet +'===================================================================== +Private Function GetBomSheet() As Worksheet + On Error Resume Next + Set GetBomSheet = ThisWorkbook.Worksheets("平台配置清单") + On Error GoTo 0 +End Function + +'===================================================================== +' 函数: JoinCollection +' 功能: 将集合内容连接为字符串 +' 参数: coll - 集合 +' separator - 分隔符 +' 返回: String +'===================================================================== +Private Function JoinCollection(coll As Collection, separator As String) As String + Dim result As String + result = "" + + Dim item As Variant + Dim isFirst As Boolean + isFirst = True + + For Each item In coll + If Not isFirst Then + result = result & separator + End If + result = result & CStr(item) + isFirst = False + Next item + + JoinCollection = result +End Function