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:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user