chore: clean up whitespace and update gitignore
- Remove trailing whitespace in BIPUploadModule.bas - Add missing newline at end of BomItem.cls - Update .gitignore: rename Claude to AI Agent, add .sisyphus/ Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
8
.gitignore
vendored
8
.gitignore
vendored
@@ -6,12 +6,16 @@ log
|
|||||||
*.spec
|
*.spec
|
||||||
temp
|
temp
|
||||||
|
|
||||||
# Claude 临时文件
|
# AI Agent 临时文件
|
||||||
.claude/
|
.claude/
|
||||||
|
.sisyphus/
|
||||||
|
|
||||||
|
|
||||||
tmpclaude-*
|
tmpclaude-*
|
||||||
*.log
|
*.log
|
||||||
*workspace*
|
*workspace*
|
||||||
*.png
|
*.png
|
||||||
data/
|
data/
|
||||||
*.xlsm
|
*.xlsm
|
||||||
*.xlsx
|
*.xlsx
|
||||||
|
|
||||||
|
|||||||
@@ -86,4 +86,4 @@ Public Function ToString() As String
|
|||||||
" | 类别:" & Me.category & _
|
" | 类别:" & Me.category & _
|
||||||
" | 代号:" & Me.code & _
|
" | 代号:" & Me.code & _
|
||||||
" | 名称:" & Me.Name
|
" | 名称:" & Me.Name
|
||||||
End Function
|
End Function
|
||||||
@@ -219,7 +219,7 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
|
|||||||
Dim item As BomItem
|
Dim item As BomItem
|
||||||
Dim lineIndex As Long
|
Dim lineIndex As Long
|
||||||
lineIndex = 1
|
lineIndex = 1
|
||||||
|
|
||||||
' 创建字典跟踪每个 BIP 行号基数的当前序号
|
' 创建字典跟踪每个 BIP 行号基数的当前序号
|
||||||
Dim bipRowBaseDict As Object
|
Dim bipRowBaseDict As Object
|
||||||
Set bipRowBaseDict = CreateObject("Scripting.Dictionary")
|
Set bipRowBaseDict = CreateObject("Scripting.Dictionary")
|
||||||
@@ -233,11 +233,11 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
|
|||||||
If itemNote <> "" Then itemNote = itemNote & "; "
|
If itemNote <> "" Then itemNote = itemNote & "; "
|
||||||
itemNote = itemNote & item.MatchError
|
itemNote = itemNote & item.MatchError
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' 计算实际行号:行号 = BIP 行号基数 + 组内序号 (从 1 开始)
|
' 计算实际行号:行号 = BIP 行号基数 + 组内序号 (从 1 开始)
|
||||||
Dim baseValue As Long
|
Dim baseValue As Long
|
||||||
baseValue = item.BipRowNumberBase
|
baseValue = item.BipRowNumberBase
|
||||||
|
|
||||||
Dim currentIndex As Long
|
Dim currentIndex As Long
|
||||||
If bipRowBaseDict.Exists(baseValue) Then
|
If bipRowBaseDict.Exists(baseValue) Then
|
||||||
currentIndex = bipRowBaseDict(baseValue) + 1
|
currentIndex = bipRowBaseDict(baseValue) + 1
|
||||||
@@ -245,7 +245,7 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
|
|||||||
currentIndex = 1
|
currentIndex = 1
|
||||||
End If
|
End If
|
||||||
bipRowBaseDict(baseValue) = currentIndex
|
bipRowBaseDict(baseValue) = currentIndex
|
||||||
|
|
||||||
Dim actualRowNumber As Long
|
Dim actualRowNumber As Long
|
||||||
actualRowNumber = baseValue + currentIndex
|
actualRowNumber = baseValue + currentIndex
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user