✨ feat(BIP): add weighted parameter error analysis algorithm
Implement intelligent BOM error analysis module that: - Extracts and analyzes failed order matching attempts - Uses feature-weight algorithm (azxs=10000, bkxs=1000, etc.) for accurate parameter conflict detection - Automatically traces unmatched parameters to root cause - Splits multi-error results into separate rows for detailed analysis - Exposes BomExtractor data pool via GetAllItems() for external analysis This solves fuzzy tie problems that caused parameter false positives in previous matching logic. Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Misaka_Company
@@ -480,3 +480,11 @@ Public Function GetErrorSummary() As String
|
|||||||
GetErrorSummary = result
|
GetErrorSummary = result
|
||||||
End If
|
End If
|
||||||
End Function
|
End Function
|
||||||
|
'=====================================================================
|
||||||
|
' 方法: GetAllItems
|
||||||
|
' 功能: 获取所有加载的BOM物料 (暴露数据池供异常分析溯源算法使用)
|
||||||
|
' 返回: Collection
|
||||||
|
'=====================================================================
|
||||||
|
Public Function GetAllItems() As Collection
|
||||||
|
Set GetAllItems = pAllItems
|
||||||
|
End Function
|
||||||
559
VBA/Modules/ErrorAnalysisModule.bas
Normal file
559
VBA/Modules/ErrorAnalysisModule.bas
Normal file
@@ -0,0 +1,559 @@
|
|||||||
|
'=====================================================================
|
||||||
|
' 模块名: ErrorAnalysisModule
|
||||||
|
' 功能: BOM匹配异常分析模块，仅提取报错订单，拆分多行，并自动回溯"未匹配参数"
|
||||||
|
' 特性: 采用"特征权重算法"解决模糊平局(Tie)导致的参数误报问题
|
||||||
|
'=====================================================================
|
||||||
|
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
' 提取条件配置
|
||||||
|
Private Const CONDITION_CONFIG = "azxs,安装形式|bkxs,表壳形式|gclj,过程连接|jycz,接液材质|lcfw,量程范围|fjgn,附加功能"
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 过程: GenerateErrorAnalysisReport
|
||||||
|
' 功能: 批量处理产品型号，输出BOM匹配异常报表
|
||||||
|
'=====================================================================
|
||||||
|
Public Sub GenerateErrorAnalysisReport()
|
||||||
|
On Error GoTo ErrorHandler
|
||||||
|
|
||||||
|
Dim startTime As Double
|
||||||
|
startTime = Timer
|
||||||
|
|
||||||
|
Application.ScreenUpdating = False
|
||||||
|
Application.Calculation = xlCalculationManual
|
||||||
|
|
||||||
|
' 获取工作表
|
||||||
|
Dim orderSheet As Worksheet
|
||||||
|
Dim bomSheet As Worksheet
|
||||||
|
Dim outputSheet As Worksheet
|
||||||
|
|
||||||
|
Set orderSheet = GetOrderSheet()
|
||||||
|
If orderSheet Is Nothing Then
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "未找到[产品订单]工作表!", vbCritical
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Set bomSheet = GetBomSheet()
|
||||||
|
If bomSheet Is Nothing Then
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "未找到[平台配置清单]工作表!", vbCritical
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 初始化BOM提取器
|
||||||
|
Dim BomExtractor As BomExtractor
|
||||||
|
Set BomExtractor = New BomExtractor
|
||||||
|
BomExtractor.SetWorksheet bomSheet
|
||||||
|
|
||||||
|
If Not BomExtractor.LoadBomData Then
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "加载BOM数据失败:" & BomExtractor.GetErrorSummary, vbCritical
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 获取或创建输出表
|
||||||
|
Set outputSheet = CreateErrorOutputSheet()
|
||||||
|
WriteOutputHeader outputSheet
|
||||||
|
|
||||||
|
' 获取筛选后的订单数据
|
||||||
|
Dim lastRow As Long
|
||||||
|
lastRow = orderSheet.Cells(orderSheet.Rows.count, 3).End(xlUp).row
|
||||||
|
If lastRow < 2 Then
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "[产品订单]工作表中没有数据!", vbExclamation
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim sourceDataArr As Variant
|
||||||
|
sourceDataArr = orderSheet.Range("A2:F" & lastRow).value
|
||||||
|
|
||||||
|
Dim visibleRange As Range
|
||||||
|
On Error Resume Next
|
||||||
|
Set visibleRange = orderSheet.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible)
|
||||||
|
On Error GoTo ErrorHandler
|
||||||
|
|
||||||
|
If visibleRange Is Nothing Then
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "当前筛选状态下没有可见的数据。", vbInformation
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 初始化正则表达式引擎 (只初始化一次，提速)
|
||||||
|
Dim regEx As Object
|
||||||
|
Set regEx = CreateObject("VBScript.RegExp")
|
||||||
|
regEx.Global = True
|
||||||
|
regEx.IgnoreCase = True
|
||||||
|
' 匹配如 azxs=A0, fjgn!=N1 这样的条件结构
|
||||||
|
regEx.Pattern = "(azxs|bkxs|gclj|jycz|lcfw|fjgn)\s*(!=|=)\s*([A-Za-z0-9_]+)"
|
||||||
|
|
||||||
|
Dim outputData As Collection
|
||||||
|
Set outputData = New Collection
|
||||||
|
|
||||||
|
Dim cell As Range
|
||||||
|
Dim arrIndex As Long
|
||||||
|
Dim totalProcessed As Long
|
||||||
|
Dim errorOrdersCount As Long
|
||||||
|
Dim errorRowsCount As Long
|
||||||
|
|
||||||
|
totalProcessed = 0
|
||||||
|
errorOrdersCount = 0
|
||||||
|
errorRowsCount = 0
|
||||||
|
|
||||||
|
' 遍历可见订单
|
||||||
|
For Each cell In visibleRange
|
||||||
|
arrIndex = cell.row - 1
|
||||||
|
|
||||||
|
Dim totalQueueNum As String
|
||||||
|
Dim orderNumber As String
|
||||||
|
Dim modelString As String
|
||||||
|
Dim componentPriority As String
|
||||||
|
|
||||||
|
totalQueueNum = Trim(sourceDataArr(arrIndex, 1))
|
||||||
|
orderNumber = Trim(sourceDataArr(arrIndex, 2))
|
||||||
|
modelString = Trim(sourceDataArr(arrIndex, 3))
|
||||||
|
componentPriority = Trim(sourceDataArr(arrIndex, 6))
|
||||||
|
|
||||||
|
If modelString <> "" Then
|
||||||
|
totalProcessed = totalProcessed + 1
|
||||||
|
|
||||||
|
' 解析并匹配BOM
|
||||||
|
Dim parser As ProductModelParser
|
||||||
|
Set parser = New ProductModelParser
|
||||||
|
|
||||||
|
Dim hasError As Boolean
|
||||||
|
hasError = False
|
||||||
|
Dim errors As String
|
||||||
|
errors = ""
|
||||||
|
|
||||||
|
If Not parser.Parse(modelString) Then
|
||||||
|
hasError = True
|
||||||
|
errors = "型号解析失败: " & parser.ErrorMessage
|
||||||
|
Else
|
||||||
|
' 提取逻辑
|
||||||
|
BomExtractor.ClearExcludeCategories
|
||||||
|
If UCase(componentPriority) = "否" Or componentPriority = "0" Or componentPriority = "FALSE" Then
|
||||||
|
Dim excludeCats As New Collection
|
||||||
|
excludeCats.Add "部件"
|
||||||
|
BomExtractor.SetExcludeCategories excludeCats
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim matchedItems As Collection
|
||||||
|
Set matchedItems = BomExtractor.ExtractBom(parser.conditions)
|
||||||
|
|
||||||
|
errors = BomExtractor.GetErrorSummary()
|
||||||
|
If errors <> "" Or matchedItems.count = 0 Then
|
||||||
|
hasError = True
|
||||||
|
If errors = "" And matchedItems.count = 0 Then
|
||||||
|
errors = "完全未匹配到物料"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 深度检查BOM行自身的报错（如"匹配到多条"）
|
||||||
|
Dim item As BomItem
|
||||||
|
For Each item In matchedItems
|
||||||
|
If item.MatchError <> "" Then
|
||||||
|
hasError = True
|
||||||
|
errors = errors & item.category & ":" & item.MatchError & ";"
|
||||||
|
End If
|
||||||
|
Next item
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 如果存在错误，拆分为多行并寻找未匹配参数
|
||||||
|
If hasError Then
|
||||||
|
errorOrdersCount = errorOrdersCount + 1
|
||||||
|
|
||||||
|
Dim errArray() As String
|
||||||
|
errArray = Split(errors, ";")
|
||||||
|
Dim i As Long
|
||||||
|
|
||||||
|
For i = LBound(errArray) To UBound(errArray)
|
||||||
|
Dim singleError As String
|
||||||
|
singleError = Trim(errArray(i))
|
||||||
|
|
||||||
|
If singleError <> "" Then
|
||||||
|
Dim unmatchedValues As String
|
||||||
|
unmatchedValues = "无法精准定位"
|
||||||
|
|
||||||
|
' 如果是型号解析失败，跳过溯源
|
||||||
|
If InStr(singleError, "型号解析失败") = 0 And InStr(singleError, "完全未匹配到物料") = 0 Then
|
||||||
|
Dim targetCategory As String
|
||||||
|
targetCategory = ExtractCategoryName(singleError)
|
||||||
|
|
||||||
|
If targetCategory <> "" Then
|
||||||
|
' 核心：调用带权重的重合度算法定位冲突参数(通过 | 分隔)
|
||||||
|
unmatchedValues = FindUnmatchedParameter(targetCategory, parser.conditions, BomExtractor.GetAllItems(), regEx)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' ---> 拆分未匹配参数，避免糅合在一起
|
||||||
|
Dim unmatchArr() As String
|
||||||
|
unmatchArr = Split(unmatchedValues, "|")
|
||||||
|
|
||||||
|
Dim j As Long
|
||||||
|
For j = LBound(unmatchArr) To UBound(unmatchArr)
|
||||||
|
Dim singleUnmatch As String
|
||||||
|
singleUnmatch = Trim(unmatchArr(j))
|
||||||
|
If singleUnmatch <> "" Then
|
||||||
|
outputData.Add CreateErrorRowArray(totalQueueNum, orderNumber, modelString, parser.conditions, singleUnmatch, singleError)
|
||||||
|
errorRowsCount = errorRowsCount + 1
|
||||||
|
End If
|
||||||
|
Next j
|
||||||
|
End If
|
||||||
|
Next i
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next cell
|
||||||
|
|
||||||
|
' 批量写入数据
|
||||||
|
If outputData.count > 0 Then
|
||||||
|
WriteBatchData outputSheet, outputData
|
||||||
|
Else
|
||||||
|
MsgBox "太棒了！所选订单均完美匹配BOM，未发现任何异常。", vbInformation
|
||||||
|
End If
|
||||||
|
|
||||||
|
' 格式化表格
|
||||||
|
FormatOutputSheet outputSheet
|
||||||
|
|
||||||
|
RestoreAppStatus
|
||||||
|
Dim elapsedTime As Double
|
||||||
|
elapsedTime = Timer - startTime
|
||||||
|
|
||||||
|
MsgBox "异常分析完成!" & vbCrLf & _
|
||||||
|
"共检查订单: " & totalProcessed & vbCrLf & _
|
||||||
|
"发现异常订单: " & errorOrdersCount & vbCrLf & _
|
||||||
|
"生成异常明细: " & errorRowsCount & " 行" & vbCrLf & _
|
||||||
|
"用时: " & Format(elapsedTime, "0.00") & "秒", vbInformation
|
||||||
|
|
||||||
|
outputSheet.Activate
|
||||||
|
Exit Sub
|
||||||
|
|
||||||
|
ErrorHandler:
|
||||||
|
RestoreAppStatus
|
||||||
|
MsgBox "异常分析发生错误: " & Err.Description, vbCritical
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 核心算法: FindUnmatchedParameter (带权重的最大特征重合度算法)
|
||||||
|
' 功能: 分析BOM库，找出与当前订单特征最相似的物料，并提取冲突(未匹配)的参数值
|
||||||
|
'=====================================================================
|
||||||
|
Private Function FindUnmatchedParameter(category As String, productConds As Object, allBomItems As Collection, regEx As Object) As String
|
||||||
|
' 使用 Long 类型，因为加入权重后得分会超过 Integer 上限
|
||||||
|
Dim maxScore As Long
|
||||||
|
maxScore = -1
|
||||||
|
Dim bestConflictKeys As String
|
||||||
|
bestConflictKeys = ""
|
||||||
|
|
||||||
|
Dim item As BomItem
|
||||||
|
|
||||||
|
' 遍历BOM库中同类别的所有物料
|
||||||
|
For Each item In allBomItems
|
||||||
|
If item.category = category And Trim(item.SelectCondition) <> "" Then
|
||||||
|
|
||||||
|
Dim allowed As Object
|
||||||
|
Set allowed = CreateObject("Scripting.Dictionary")
|
||||||
|
Dim forbidden As Object
|
||||||
|
Set forbidden = CreateObject("Scripting.Dictionary")
|
||||||
|
|
||||||
|
' 使用正则提取该物料的所有约束条件 (如 azxs=A0)
|
||||||
|
Dim matches As Object
|
||||||
|
Set matches = regEx.Execute(item.SelectCondition)
|
||||||
|
|
||||||
|
Dim match As Object
|
||||||
|
For Each match In matches
|
||||||
|
Dim k As String, op As String, v As String
|
||||||
|
k = match.SubMatches(0)
|
||||||
|
op = Trim(match.SubMatches(1))
|
||||||
|
v = Trim(match.SubMatches(2))
|
||||||
|
|
||||||
|
If op = "=" Then
|
||||||
|
If Not allowed.Exists(k) Then allowed(k) = "|"
|
||||||
|
allowed(k) = allowed(k) & v & "|"
|
||||||
|
ElseIf op = "!=" Or op = "<>" Then
|
||||||
|
If Not forbidden.Exists(k) Then forbidden(k) = "|"
|
||||||
|
forbidden(k) = forbidden(k) & v & "|"
|
||||||
|
End If
|
||||||
|
Next match
|
||||||
|
|
||||||
|
' 合并出现过的所有参数键
|
||||||
|
Dim allRuleKeys As Object
|
||||||
|
Set allRuleKeys = CreateObject("Scripting.Dictionary")
|
||||||
|
|
||||||
|
Dim vKey As Variant
|
||||||
|
For Each vKey In allowed.Keys: allRuleKeys(vKey) = True: Next vKey
|
||||||
|
For Each vKey In forbidden.Keys: allRuleKeys(vKey) = True: Next vKey
|
||||||
|
|
||||||
|
Dim currentScore As Long
|
||||||
|
currentScore = 0
|
||||||
|
Dim currentConflicts As String
|
||||||
|
currentConflicts = ""
|
||||||
|
|
||||||
|
' 计算该物料与实际订单参数的重合度得分
|
||||||
|
Dim keyVar As Variant
|
||||||
|
For Each keyVar In allRuleKeys.Keys
|
||||||
|
Dim keyStr As String
|
||||||
|
keyStr = CStr(keyVar)
|
||||||
|
|
||||||
|
Dim prodVal As String
|
||||||
|
If productConds.Exists(keyStr) Then prodVal = productConds(keyStr) Else prodVal = ""
|
||||||
|
|
||||||
|
Dim isMatch As Boolean
|
||||||
|
isMatch = False
|
||||||
|
|
||||||
|
If allowed.Exists(keyStr) Then
|
||||||
|
' 如果实际值包含在允许值中，则得分
|
||||||
|
If InStr(allowed(keyStr), "|" & prodVal & "|") > 0 Then
|
||||||
|
isMatch = True
|
||||||
|
End If
|
||||||
|
ElseIf forbidden.Exists(keyStr) Then
|
||||||
|
' 如果没有允许值限制，只有禁止值限制，且实际值不在禁止值中，则得分
|
||||||
|
If InStr(forbidden(keyStr), "|" & prodVal & "|") = 0 Then
|
||||||
|
isMatch = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If isMatch Then
|
||||||
|
' 【核心修改】引入特征权重，让系统具备业务直觉
|
||||||
|
currentScore = currentScore + GetFeatureWeight(keyStr)
|
||||||
|
Else
|
||||||
|
currentConflicts = currentConflicts & keyStr & ","
|
||||||
|
End If
|
||||||
|
Next keyVar
|
||||||
|
|
||||||
|
' 更新最高得分记录
|
||||||
|
If currentScore > maxScore Then
|
||||||
|
maxScore = currentScore
|
||||||
|
bestConflictKeys = currentConflicts
|
||||||
|
ElseIf currentScore = maxScore And currentScore > 0 Then
|
||||||
|
' 如果权重得分依然相同，合并所有可能的冲突原因
|
||||||
|
Dim keysArray() As String
|
||||||
|
keysArray = Split(currentConflicts, ",")
|
||||||
|
Dim cKey As Variant
|
||||||
|
For Each cKey In keysArray
|
||||||
|
If Trim(cKey) <> "" And InStr(bestConflictKeys, cKey & ",") = 0 Then
|
||||||
|
bestConflictKeys = bestConflictKeys & cKey & ","
|
||||||
|
End If
|
||||||
|
Next cKey
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next item
|
||||||
|
|
||||||
|
' 将最高分的冲突Key翻译为实际的参数值
|
||||||
|
If bestConflictKeys <> "" Then
|
||||||
|
Dim resultStr As String
|
||||||
|
resultStr = ""
|
||||||
|
Dim finalKeys() As String
|
||||||
|
finalKeys = Split(bestConflictKeys, ",")
|
||||||
|
|
||||||
|
Dim fKey As Variant
|
||||||
|
For Each fKey In finalKeys
|
||||||
|
If Trim(fKey) <> "" Then
|
||||||
|
Dim actVal As String
|
||||||
|
If productConds.Exists(fKey) Then actVal = productConds(fKey) Else actVal = "无值"
|
||||||
|
|
||||||
|
' 使用 | 作为分隔符进行拼接去重
|
||||||
|
If resultStr = "" Then
|
||||||
|
resultStr = actVal
|
||||||
|
Else
|
||||||
|
If InStr("|" & resultStr & "|", "|" & actVal & "|") = 0 Then
|
||||||
|
resultStr = resultStr & "|" & actVal
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next fKey
|
||||||
|
|
||||||
|
If resultStr <> "" Then
|
||||||
|
FindUnmatchedParameter = resultStr
|
||||||
|
Else
|
||||||
|
FindUnmatchedParameter = "无法精准定位"
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
FindUnmatchedParameter = "无法精准定位"
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 辅助函数: GetFeatureWeight
|
||||||
|
' 功能: 获取字段的匹配权重，严格保证高优先级特征的决定性
|
||||||
|
'=====================================================================
|
||||||
|
Private Function GetFeatureWeight(keyStr As String) As Long
|
||||||
|
Select Case LCase(Trim(keyStr))
|
||||||
|
Case "azxs"
|
||||||
|
GetFeatureWeight = 10000 ' 安装形式 - 决定物理结构，最重要
|
||||||
|
Case "bkxs"
|
||||||
|
GetFeatureWeight = 1000 ' 表壳形式
|
||||||
|
Case "gclj"
|
||||||
|
GetFeatureWeight = 100 ' 过程连接
|
||||||
|
Case "jycz"
|
||||||
|
GetFeatureWeight = 50 ' 接液材质
|
||||||
|
Case "lcfw"
|
||||||
|
GetFeatureWeight = 10 ' 量程范围
|
||||||
|
Case "fjgn"
|
||||||
|
GetFeatureWeight = 1 ' 附加功能
|
||||||
|
Case Else
|
||||||
|
GetFeatureWeight = 0
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 辅助函数: ExtractCategoryName
|
||||||
|
' 功能: 从报错文本如 "必需类别[部件]未匹配" 中提取出 "部件"
|
||||||
|
'=====================================================================
|
||||||
|
Private Function ExtractCategoryName(errorMsg As String) As String
|
||||||
|
Dim startPos As Long
|
||||||
|
Dim endPos As Long
|
||||||
|
startPos = InStr(errorMsg, "[")
|
||||||
|
endPos = InStr(errorMsg, "]")
|
||||||
|
|
||||||
|
If startPos > 0 And endPos > startPos Then
|
||||||
|
ExtractCategoryName = Mid(errorMsg, startPos + 1, endPos - startPos - 1)
|
||||||
|
Else
|
||||||
|
ExtractCategoryName = ""
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 过程: WriteOutputHeader
|
||||||
|
'=====================================================================
|
||||||
|
Private Sub WriteOutputHeader(ws As Worksheet)
|
||||||
|
Dim col As Long
|
||||||
|
col = 1
|
||||||
|
|
||||||
|
ws.Cells(1, col).value = "总排号": col = col + 1
|
||||||
|
ws.Cells(1, col).value = "生产订单号": col = col + 1
|
||||||
|
ws.Cells(1, col).value = "产品型号": col = col + 1
|
||||||
|
|
||||||
|
Dim configs() As String
|
||||||
|
configs = Split(CONDITION_CONFIG, "|")
|
||||||
|
Dim i As Long
|
||||||
|
For i = LBound(configs) To UBound(configs)
|
||||||
|
ws.Cells(1, col).value = Trim(Split(configs(i), ",")(1))
|
||||||
|
col = col + 1
|
||||||
|
Next i
|
||||||
|
|
||||||
|
ws.Cells(1, col).value = "未匹配参数": col = col + 1
|
||||||
|
ws.Cells(1, col).value = "提取备注": col = col + 1
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 函数: CreateErrorRowArray
|
||||||
|
' 功能: 构建输出的一行数据
|
||||||
|
'=====================================================================
|
||||||
|
Private Function CreateErrorRowArray(totalQueueNum As String, orderNumber As String, _
|
||||||
|
modelStr As String, conditions As Object, _
|
||||||
|
unmatchedValue As String, errorNote As String) As Variant()
|
||||||
|
Dim configs() As String
|
||||||
|
configs = Split(CONDITION_CONFIG, "|")
|
||||||
|
|
||||||
|
Dim totalCols As Long
|
||||||
|
totalCols = 3 + UBound(configs) - LBound(configs) + 1 + 2
|
||||||
|
|
||||||
|
ReDim rowData(1 To totalCols) As Variant
|
||||||
|
Dim col As Long
|
||||||
|
col = 1
|
||||||
|
|
||||||
|
rowData(col) = totalQueueNum: col = col + 1
|
||||||
|
rowData(col) = orderNumber: col = col + 1
|
||||||
|
rowData(col) = modelStr: col = col + 1
|
||||||
|
|
||||||
|
Dim i As Long
|
||||||
|
For i = LBound(configs) To UBound(configs)
|
||||||
|
Dim key As String
|
||||||
|
key = Trim(Split(configs(i), ",")(0))
|
||||||
|
If conditions.Exists(key) Then
|
||||||
|
rowData(col) = conditions(key)
|
||||||
|
Else
|
||||||
|
rowData(col) = ""
|
||||||
|
End If
|
||||||
|
col = col + 1
|
||||||
|
Next i
|
||||||
|
|
||||||
|
rowData(col) = unmatchedValue: col = col + 1
|
||||||
|
rowData(col) = errorNote: col = col + 1
|
||||||
|
|
||||||
|
CreateErrorRowArray = rowData
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 过程: WriteBatchData
|
||||||
|
'=====================================================================
|
||||||
|
Private Sub WriteBatchData(ws As Worksheet, outputData As Collection)
|
||||||
|
Dim firstRow As Variant
|
||||||
|
firstRow = outputData(1)
|
||||||
|
|
||||||
|
Dim rowCount As Long
|
||||||
|
Dim colCount As Long
|
||||||
|
rowCount = outputData.count
|
||||||
|
colCount = UBound(firstRow) - LBound(firstRow) + 1
|
||||||
|
|
||||||
|
Dim resultData() As Variant
|
||||||
|
ReDim resultData(1 To rowCount, 1 To colCount)
|
||||||
|
|
||||||
|
Dim i As Long, j As Long
|
||||||
|
Dim rowArray As Variant
|
||||||
|
For i = 1 To rowCount
|
||||||
|
rowArray = outputData(i)
|
||||||
|
For j = 1 To colCount
|
||||||
|
resultData(i, j) = rowArray(j)
|
||||||
|
Next j
|
||||||
|
Next i
|
||||||
|
|
||||||
|
ws.Range("A2").Resize(rowCount, colCount).value = resultData
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'=====================================================================
|
||||||
|
' 辅助过程
|
||||||
|
'=====================================================================
|
||||||
|
Private Function GetOrderSheet() As Worksheet
|
||||||
|
On Error Resume Next
|
||||||
|
Set GetOrderSheet = ThisWorkbook.Worksheets("产品订单")
|
||||||
|
If GetOrderSheet Is Nothing Then Set GetOrderSheet = ActiveSheet
|
||||||
|
On Error GoTo 0
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function GetBomSheet() As Worksheet
|
||||||
|
On Error Resume Next
|
||||||
|
Set GetBomSheet = ThisWorkbook.Worksheets("平台配置清单")
|
||||||
|
On Error GoTo 0
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function CreateErrorOutputSheet() As Worksheet
|
||||||
|
Dim wsName As String
|
||||||
|
wsName = "BOM匹配异常报表"
|
||||||
|
On Error Resume Next
|
||||||
|
Set CreateErrorOutputSheet = ThisWorkbook.Worksheets(wsName)
|
||||||
|
On Error GoTo 0
|
||||||
|
|
||||||
|
If CreateErrorOutputSheet Is Nothing Then
|
||||||
|
Set CreateErrorOutputSheet = ThisWorkbook.Worksheets.Add
|
||||||
|
CreateErrorOutputSheet.Name = wsName
|
||||||
|
Else
|
||||||
|
CreateErrorOutputSheet.Cells.Clear
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub FormatOutputSheet(ws As Worksheet)
|
||||||
|
On Error Resume Next
|
||||||
|
With ws.Rows(1)
|
||||||
|
.Font.Bold = True
|
||||||
|
.Interior.Color = RGB(244, 176, 132) ' 橙色背景，突出异常属性
|
||||||
|
.HorizontalAlignment = xlCenter
|
||||||
|
End With
|
||||||
|
|
||||||
|
' 将"未匹配参数"列(倒数第2列)加粗显示，颜色标红
|
||||||
|
Dim unmatchCol As Long
|
||||||
|
unmatchCol = ws.Cells(1, ws.Columns.count).End(xlToLeft).Column - 1
|
||||||
|
If unmatchCol > 0 Then
|
||||||
|
ws.Columns(unmatchCol).Font.Color = RGB(255, 0, 0)
|
||||||
|
ws.Columns(unmatchCol).Font.Bold = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
ws.Columns.AutoFit
|
||||||
|
On Error GoTo 0
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub RestoreAppStatus()
|
||||||
|
Application.Calculation = xlCalculationAutomatic
|
||||||
|
Application.ScreenUpdating = True
|
||||||
|
End Sub
|
||||||
115
reference_docs/平台配置清单-demo.md
Normal file
115
reference_docs/平台配置清单-demo.md
Normal file
@@ -0,0 +1,115 @@
|
|||||||
|
| 代号 | Y-100 | 描述 | | 英文名称 | | | | | | | | |
|
||||||
|
|------|---------|--------------|------------|------|----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|----|------|------|--------|-------------|---------|-----------------|
|
||||||
|
| 名称 | 压力表 | 负责人 | | 备注 | | | | | | | | |
|
||||||
|
| 行号 | 模块 | 代号 | 名称 | 数量 | 选择条件 | 备注 | 类别 | 上层类别 | 类别选用条件 | 66代码 | BIP行号基数 | 修改备注 |
|
||||||
|
| 10 | 表壳 | 01091004644 | 轴向表壳(黑色) | 1 | (azxs=B0 OR azxs=BT) AND (bkxs=200 OR bkxs=210) | | 表壳 | | | 66071004644 | 7100 | |
|
||||||
|
| 20 | 表壳 | 01091004647 | 轴向表壳(抛光) | 1 | azxs=B0 AND bkxs=500 | | 表壳 | | | 66071004647 | 7100 | |
|
||||||
|
| 30 | 表壳 | 01091004643 | 径向表壳(黑色) | 1 | (azxs=A0 OR azxs=AT) AND (bkxs=200 OR bkxs=210) | | 表壳 | | | 66071004643 | 7100 | |
|
||||||
|
| 40 | 表壳 | 01091004648 | 径向表壳(抛光) | 1 | azxs=A0 AND bkxs=500 | | 表壳 | | | 66071004648 | 7100 | |
|
||||||
|
| 50 | 表壳 | 01081013918 | 带后边表壳(黑色) | 1 | azxs=AH AND (bkxs=200 OR bkxs=210) | | 表壳 | | | 66051013918 | 7100 | |
|
||||||
|
| 60 | 罩壳 | 01091004768 | 罩壳(抛光) | 1 | azxs=A0 AND bkxs=500 | | 罩壳 | | | 66071004768 | 7100 | |
|
||||||
|
| 70 | 罩壳 | 01091005032 | 罩壳（抛光） | 1 | azxs=B0 AND bkxs=500 | | 罩壳 | | | 66071005032 | 7100 | 改为 66071005032 |
|
||||||
|
| 80 | 罩壳 | 01091004624 | 罩壳(黑色) | 1 | azxs=AT AND bkxs=200 | | 罩壳 | | | 66071004624 | 7100 | |
|
||||||
|
| 90 | 罩壳 | 01091004623 | 罩壳(亮) | 1 | azxs=A0 AND bkxs=210 | | 罩壳 | | | 66071004623 | 7100 | |
|
||||||
|
| 100 | 罩壳 | 01091004621 | 罩壳(亮) | 1 | azxs=BT AND bkxs=210 | | 罩壳 | | | 66071004621 | 7100 | |
|
||||||
|
| 110 | 罩壳 | 01091004620 | 罩壳(黑色) | 1 | azxs=BT AND bkxs=200 | | 罩壳 | | | 66071004620 | 7100 | |
|
||||||
|
| 120 | 罩壳 | 01091004619 | 罩壳(黑色) | 1 | azxs=B0 AND bkxs=200 | | 罩壳 | | | 66071004619 | 7100 | |
|
||||||
|
| 130 | 罩壳 | 01091004618 | 罩壳(黑色) | 1 | azxs=A0 AND bkxs=200 | | 罩壳 | | | 66071004618 | 7100 | |
|
||||||
|
| 140 | 罩壳 | 01091004617 | 罩壳(亮) | 1 | azxs=B0 AND bkxs=210 | | 罩壳 | | | 66071004617 | 7100 | |
|
||||||
|
| 150 | 玻璃 | 01111001334 | 表玻璃 | 1 | fjgn!=N1 | | 玻璃 | | | 66201001334 | 7100 | |
|
||||||
|
| 160 | 定位型玻璃部件 | 01111001335 | 表玻璃 | 1 | fjgn=N1 | | 玻璃 | | | 66201001202 | 7100 | 改为 66201001202 |
|
||||||
|
| 170 | 定位型玻璃部件 | 01091004453 | 100 红色定位指针 | 1 | fjgn= N1 | | | | | 66071004453 | 7100 | |
|
||||||
|
| 180 | 定位型玻璃部件 | 01091004451 | 100 绿色定位指针 | 1 | fjgn=N1 | | | | | 66071004451 | 7100 | |
|
||||||
|
| 190 | 定位型玻璃部件 | 01081014387 | 定位钉 | 1 | fjgn=N1 | | | | | 66051014387 | 7100 | |
|
||||||
|
| 200 | 定位型玻璃部件 | 01201002619 | 固定套 | 1 | fjgn=N1 | | | | | 66991922619 | 7100 | |
|
||||||
|
| 210 | 定位型玻璃部件 | 01121002259 | 橡胶垫<2> | 1 | fjgn=N1 | | | | | 66181002259 | 7100 | |
|
||||||
|
| 220 | 定位型玻璃部件 | 01121002258 | 橡胶垫<1> | 1 | fjgn=N1 | | | | | 66181002258 | 7100 | |
|
||||||
|
| 230 | 定位型玻璃部件 | 01140003351 | O型圈 | 1 | fjgn=N1 | | | | | 66220003351 | 7100 | |
|
||||||
|
| 240 | 定位型玻璃部件 | 01140003353 | O型圈 | 1 | fjgn=N1 | | | | | 66220003353 | 7100 | |
|
||||||
|
| 250 | 衬圈 | 01121002271 | 衬圈 | 1 | | | 衬圈 | | | 66181002271 | 7100 | |
|
||||||
|
| 260 | 表壳螺钉 | 01140002660 | 表壳螺钉 | 3 | | | | | | 260 | | |
|
||||||
|
| 270 | 罩壳螺钉 | 01140002701 | 罩壳螺钉 | 2 | | | | | | 270 | | |
|
||||||
|
| 280 | 铅封螺钉 | 01081008107 | 铅封螺钉 | 1 | | | | | | 66051008107 | | |
|
||||||
|
| 290 | 表盘螺钉 | 01140002695 | 表盘螺钉 | 2 | | | | | | 290 | | |
|
||||||
|
| 300 | 盘止钉 | 01081005277 | 盘止钉 | 1 | lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16 OR lcfw=M30 | | | | | 300 | | |
|
||||||
|
| 310 | 接头部件 | 01011019173 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND (lcfw=M01 OR lcfw=K78) AND gclj=M20 | | 部件 | | | 66021019173 | 7200 | |
|
||||||
|
| 320 | 接头部件 | 01011019174 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M02 AND gclj=M20 | | 部件 | | | 66021019174 | 7200 | |
|
||||||
|
| 330 | 接头部件 | 01011019175 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M03 AND gclj=M20 | | 部件 | | | 66021019175 | 7200 | |
|
||||||
|
| 340 | 接头部件 | 01011019176 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M04 AND gclj=M20 | | 部件 | | | 66021019176 | 7200 | |
|
||||||
|
| 350 | 接头部件 | 01011019177 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M05 AND gclj=M20 | | 部件 | | | 66021019177 | 7200 | |
|
||||||
|
| 360 | 接头部件 | 01011019178 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M06 AND gclj=M20 | | 部件 | | | 66021019178 | 7200 | |
|
||||||
|
| 370 | 接头部件 | 01011019179 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M07 AND gclj=M20 | | 部件 | | | 66021019179 | 7200 | |
|
||||||
|
| 380 | 接头部件 | 01011019180 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M08 AND gclj=M20 | | 部件 | | | 66021019180 | 7200 | |
|
||||||
|
| 390 | 接头部件 | 01011019181 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M09 AND gclj=M20 | | 部件 | | | 66021019181 | 7200 | |
|
||||||
|
| 400 | 接头部件 | 01011019182 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M10 AND gclj=M20 | | 部件 | | | 66021019182 | 7200 | |
|
||||||
|
| 410 | 接头部件 | 01011019183 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M11 AND gclj=M20 | | 部件 | | | 66021019183 | 7200 | |
|
||||||
|
| 420 | 接头部件 | 01011019184 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M12 AND gclj=M20 | | 部件 | | | 66021019184 | 7200 | |
|
||||||
|
| 430 | 接头部件 | 01011019185 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M13 AND gclj=M20 | | 部件 | | | 66021019185 | 7200 | |
|
||||||
|
| 440 | 接头部件 | 01011019186 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M14 AND gclj=M20 | | 部件 | | | 66021019186 | 7200 | |
|
||||||
|
| 450 | 接头部件 | 01011019187 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M15 AND gclj=M20 | | 部件 | | | 66021019187 | 7200 | |
|
||||||
|
| 460 | 接头部件 | 01011019188 | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M16 AND gclj=M20 | | 部件 | | | 66021019188 | 7200 | |
|
||||||
|
| 470 | 接头部件 | 01011019189 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND (lcfw=M02 OR lcfw=K107) AND gclj=M20 | | 部件 | | | 66021019189 | 7200 | |
|
||||||
|
| 480 | 接头部件 | 01011019190 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M03 AND gclj=M20 | | 部件 | | | 66021019190 | 7200 | |
|
||||||
|
| 490 | 接头部件 | 01011019191 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M04 AND gclj=M20 | | 部件 | | | 66021019191 | 7200 | |
|
||||||
|
| 500 | 接头部件 | 01011019192 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M05 AND gclj=M20 | | 部件 | | | 66021019192 | 7200 | |
|
||||||
|
| 510 | 接头部件 | 01011019193 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M06 AND gclj=M20 | | 部件 | | | 66021019193 | 7200 | |
|
||||||
|
| 520 | 接头部件 | 01011019194 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M07 AND gclj=M20 | | 部件 | | | 66021019194 | 7200 | |
|
||||||
|
| 530 | 接头部件 | 01011019195 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M08 AND gclj=M20 | | 部件 | | | 66021019195 | 7200 | |
|
||||||
|
| 540 | 接头部件 | 01011019196 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M09 AND gclj=M20 | | 部件 | | | 66021019196 | 7200 | |
|
||||||
|
| 550 | 接头部件 | 01011019197 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M10 AND gclj=M20 | | 部件 | | | 66021019197 | 7200 | |
|
||||||
|
| 560 | 接头部件 | 01011019198 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M11 AND gclj=M20 | | 部件 | | | 66021019198 | 7200 | |
|
||||||
|
| 570 | 接头部件 | 01011019199 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M12 AND gclj=M20 | | 部件 | | | 66021019199 | 7200 | |
|
||||||
|
| 580 | 接头部件 | 01011019200 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M13 AND gclj=M20 | | 部件 | | | 66021019200 | 7200 | |
|
||||||
|
| 590 | 接头部件 | 01011019201 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M14 AND gclj=M20 | | 部件 | | | 66021019201 | 7200 | |
|
||||||
|
| 600 | 接头部件 | 01011019172 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M15 AND gclj=M20 | | | | | 66021019172 | 7200 | 删除 |
|
||||||
|
| 610 | 接头部件 | 01011019202 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M01 AND gclj=M20 | | 部件 | | | 66021019202 | 7200 | |
|
||||||
|
| 620 | 接头部件 | 01011019203 | 轴向部件 | 1 | (azxs=B0 OR azxs=BT) AND lcfw=M16 AND gclj=M20 | | 部件 | | | 66021019203 | 7200 | |
|
||||||
|
| 630 | 接头 | 01081013687 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=M14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 ) | | 接头 | 部件 | | 66051013687 | 7200 | |
|
||||||
|
| 640 | 接头 | 01081013686 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=Z14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013686 | 7200 | |
|
||||||
|
| 650 | 接头 | 01081013685 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=G14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013685 | 7200 | |
|
||||||
|
| 660 | 接头 | 01081013684 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=G12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013684 | 7200 | |
|
||||||
|
| 670 | 接头 | 01081013683 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=G38 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013683 | 7200 | |
|
||||||
|
| 680 | 接头 | 01081013682 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=R12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013682 | 7200 | |
|
||||||
|
| 690 | 接头 | 01081013681 | 径向低压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=Z12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11) | | 接头 | 部件 | | 66051013681 | 7200 | |
|
||||||
|
| 700 | 接头 | 01081014361 | 径向高压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=Z14 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66码缺失 | 7200 | |
|
||||||
|
| 710 | 接头 | 01081013694 | 径向高压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=G12 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013694 | 7200 | |
|
||||||
|
| 720 | 接头 | 01081013692 | 径向高压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=M14 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013692 | 7200 | |
|
||||||
|
| 730 | 接头 | 01081013691 | 径向高压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=R12 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013691 | 7200 | |
|
||||||
|
| 740 | 接头 | 01081013690 | 径向高压接头 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND gclj=Z12 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013690 | 7200 | |
|
||||||
|
| 750 | 接头 | 01081013702 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=R12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107 ) | | 接头 | 部件 | | 66051013702 | 7200 | |
|
||||||
|
| 760 | 接头 | 01081013701 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=M14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107) | | 接头 | 部件 | | 66051013701 | 7200 | |
|
||||||
|
| 770 | 接头 | 01081013700 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=Z12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107) | | 接头 | 部件 | | 66051013700 | 7200 | |
|
||||||
|
| 780 | 接头 | 01081013698 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=G14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107) | | 接头 | 部件 | | 66051013698 | 7200 | |
|
||||||
|
| 790 | 接头 | 01081013697 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=Z14 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107) | | 接头 | 部件 | | 66051013697 | 7200 | |
|
||||||
|
| 800 | 接头 | 01081013696 | 下轴向低压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=G12 AND (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107) | | 接头 | 部件 | | 66051013696 | 7200 | |
|
||||||
|
| 810 | 接头 | 01081013709 | 下轴向高压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=M14 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013709 | 7200 | |
|
||||||
|
| 820 | 接头 | 01081013707 | 下轴向高压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=G14 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013707 | 7200 | |
|
||||||
|
| 830 | 接头 | 01081013706 | 下轴向高压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=Z14 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013706 | 7200 | |
|
||||||
|
| 840 | 接头 | 01081013705 | 下轴向高压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=G12 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013705 | 7200 | |
|
||||||
|
| 850 | 接头 | 01081013704 | 下轴向高压接头 | 1 | (azxs=B0 OR azxs=BT) AND gclj=R12 AND (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16) | | 接头 | 部件 | | 66051013704 | 7200 | |
|
||||||
|
| 860 | 弹性元件 | 01041005171 | 弹簧管 | 1 | lcfw=M01 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005171 | 7200 | |
|
||||||
|
| 870 | 弹性元件 | 01041005169 | 弹簧管 | 1 | lcfw=M02 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005169 | 7200 | |
|
||||||
|
| 880 | 弹性元件 | 01041005170 | 弹簧管 | 1 | lcfw=M03 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005170 | 7200 | |
|
||||||
|
| 890 | 弹性元件 | 01041005453 | 弹簧管 | 1 | lcfw=M04 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005453 | 7200 | |
|
||||||
|
| 900 | 弹性元件 | 01041005235 | 弹簧管 | 1 | lcfw=M05 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005235 | 7200 | |
|
||||||
|
| 910 | 弹性元件 | 01041005114 | 弹簧管 | 1 | lcfw=M06 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005114 | 7200 | |
|
||||||
|
| 920 | 弹性元件 | 01041005230 | 弹簧管 | 1 | lcfw=M07 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005230 | 7200 | |
|
||||||
|
| 930 | 弹性元件 | 01041005233 | 弹簧管 | 1 | lcfw=M08 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005233 | 7200 | |
|
||||||
|
| 940 | 弹性元件 | 01041005229 | 弹簧管 | 1 | lcfw=M09 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005229 | 7200 | |
|
||||||
|
| 950 | 弹性元件 | 01041005172 | 弹簧管 | 1 | lcfw=M10 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005172 | 7200 | |
|
||||||
|
| 960 | 弹性元件 | 01041005452 | 弹簧管 | 1 | lcfw=M11 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005452 | 7200 | |
|
||||||
|
| 970 | 弹性元件 | 01041005005 | 螺旋管 | 1 | lcfw=M12 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005005 | 7200 | |
|
||||||
|
| 980 | 弹性元件 | 01041005006 | 螺旋管 | 1 | lcfw=M13 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005006 | 7200 | |
|
||||||
|
| 990 | 弹性元件 | 01041005007 | 螺旋管 | 1 | lcfw=M14 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005007 | 7200 | |
|
||||||
|
| 1000 | 弹性元件 | 01041005008 | 螺旋管 | 1 | lcfw=M15 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005008 | 7200 | |
|
||||||
|
| 1010 | 弹性元件 | 01041005009 | 螺旋管 | 1 | lcfw=M16 AND gclj!=M20 | | 弹性元件 | 部件 | | 66131005009 | 7200 | |
|
||||||
|
| 1020 | 封口片 | 01091003680 | 高压封口片 | 1 | (lcfw=M12 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16)AND gclj!=M20 | | | | | 66071003680 | | |
|
||||||
|
| 1030 | 封口片 | 01091003663 | 低压封口片 | 1 | (lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11)AND gclj!=M20 | | | | | 66071003663 | | |
|
||||||
|
| 1040 | 连接螺钉 | 01081008105 | 连接螺钉 | 1 | | | | | | 66051008105 | | |
|
||||||
|
| 1050 | 垫片 | 01091004354 | 垫片 | 1 | lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=K107 | | | | | 66071004354 | | |
|
||||||
|
| 1060 | 机芯螺钉 | 01140003413 | 机芯螺钉 | 2 | | | | | | 66220003413 | | |
|
||||||
|
| 1070 | 机芯部件 | 01101000574 | 机芯 | 1 | lcfw=M01 OR lcfw=M02 OR lcfw=M03 OR lcfw=M04 OR lcfw=K107 | | 机芯 | | | 66151000574 | 7100 | 删除 OR lcfw=M12 |
|
||||||
|
| 1080 | 机芯部件 | 01101000575 | 机芯 | 1 | lcfw=M05 OR lcfw=M06 OR lcfw=M07 OR lcfw=M08 OR lcfw=M09 OR lcfw=M10 OR lcfw=M11 OR lcfw=M13 OR lcfw=M14 OR lcfw=M15 OR lcfw=M16 OR lcfw=M12 | | 机芯 | | | 66151000575 | 7100 | 增加 OR lcfw=M12 |
|
||||||
|
| 1090 | 接头部件 | | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M05 AND gclj=G12 | | 部件 | | | 66021019206 | 7200 | 新增物料 |
|
||||||
|
| 1100 | 接头部件 | | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M09 AND gclj=Z12 | | 部件 | | | 66021019212 | 7200 | 新增物料 |
|
||||||
|
| 1120 | 接头部件 | | 径向部件 | 1 | (azxs=A0 OR azxs=AT OR azxs=AH) AND lcfw=M08 AND gclj=G12 | | 部件 | | | 66021019208 | 7200 | 新增物料 |
|
||||||
Reference in New Issue
Block a user