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
|
||||
temp
|
||||
|
||||
# Claude 临时文件
|
||||
# AI Agent 临时文件
|
||||
.claude/
|
||||
.sisyphus/
|
||||
|
||||
|
||||
tmpclaude-*
|
||||
*.log
|
||||
*workspace*
|
||||
*.png
|
||||
data/
|
||||
*.xlsm
|
||||
*.xlsx
|
||||
*.xlsx
|
||||
|
||||
|
||||
@@ -86,4 +86,4 @@ Public Function ToString() As String
|
||||
" | 类别:" & Me.category & _
|
||||
" | 代号:" & Me.code & _
|
||||
" | 名称:" & Me.Name
|
||||
End Function
|
||||
End Function
|
||||
@@ -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