36c00befa5
- Add clear data button functionality to Sheet9 - Refactor AccessDataModule to safely handle filtered data with memory array optimization - Refactor BIPUploadModule to process only visible rows with screen updating optimization - Refactor ComponentInventoryCheckModule to support filtered data and improve performance - Refactor MainModule to handle filtered data and remove '代号' field - Add RestoreAppStatus helper for better application state management - Improve overall performance by using memory arrays instead of cell-by-cell operations Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
28 lines
1.0 KiB
OpenEdge ABL
28 lines
1.0 KiB
OpenEdge ABL
'=====================================================================
|
|
' 主按钮点击事件
|
|
' 功能: 执行BOM提取和BIP上传
|
|
'=====================================================================
|
|
Private Sub CommandButton1_Click()
|
|
Call ProcessProductModels
|
|
Call ProcessOrdersToBIP
|
|
End Sub
|
|
|
|
'=====================================================================
|
|
' 部件库存核对按钮点击事件
|
|
' 功能: 执行部件库存核对,标记库存不足的订单
|
|
'=====================================================================
|
|
Private Sub CommandButton2_Click()
|
|
Call CheckComponentInventory
|
|
End Sub
|
|
|
|
'=====================================================================
|
|
' 数据提取按钮点击事件
|
|
' 功能:基于总排号查询相关字段数据
|
|
'=====================================================================
|
|
Private Sub CommandButton3_Click()
|
|
Call FetchDataFromAccess
|
|
End Sub
|
|
|
|
Private Sub CommandButton4_Click()
|
|
ThisWorkbook.Worksheets("产品订单").Range("A2:G10000").ClearContents
|
|
End Sub |