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:
Misaka_Company
2026-03-12 17:23:59 +08:00
parent 7e2710da3f
commit 596a2d0ad2
3 changed files with 11 additions and 7 deletions

8
.gitignore vendored
View File

@@ -6,12 +6,16 @@ log
*.spec
temp
# Claude 临时文件
# AI Agent 临时文件
.claude/
.sisyphus/
tmpclaude-*
*.log
*workspace*
*.png
data/
*.xlsm
*.xlsx
*.xlsx

View File

@@ -86,4 +86,4 @@ Public Function ToString() As String
" | 类别:" & Me.category & _
" | 代号:" & Me.code & _
" | 名称:" & Me.Name
End Function
End Function

View File

@@ -219,7 +219,7 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
Dim item As BomItem
Dim lineIndex As Long
lineIndex = 1
' 创建字典跟踪每个 BIP 行号基数的当前序号
Dim bipRowBaseDict As Object
Set bipRowBaseDict = CreateObject("Scripting.Dictionary")
@@ -233,11 +233,11 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
If itemNote <> "" Then itemNote = itemNote & "; "
itemNote = itemNote & item.MatchError
End If
' 计算实际行号:行号 = BIP 行号基数 + 组内序号 (从 1 开始)
Dim baseValue As Long
baseValue = item.BipRowNumberBase
Dim currentIndex As Long
If bipRowBaseDict.Exists(baseValue) Then
currentIndex = bipRowBaseDict(baseValue) + 1
@@ -245,7 +245,7 @@ Private Sub ProcessSingleOrder(orderNumber As String, _
currentIndex = 1
End If
bipRowBaseDict(baseValue) = currentIndex
Dim actualRowNumber As Long
actualRowNumber = baseValue + currentIndex