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 *.spec
temp temp
# Claude 临时文件 # AI Agent 临时文件
.claude/ .claude/
.sisyphus/
tmpclaude-* tmpclaude-*
*.log *.log
*workspace* *workspace*
*.png *.png
data/ data/
*.xlsm *.xlsm
*.xlsx *.xlsx

View File

@@ -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

View File

@@ -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