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

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