9b543ab466
- Add OrderValidationModule for checking order material validity - Modify Sheet9 to separate validation (CommandButton1) from processing (CommandButton5) - Support filtered data validation with performance optimization Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
32 lines
1.1 KiB
OpenEdge ABL
32 lines
1.1 KiB
OpenEdge ABL
'=====================================================================
|
|
' 主按钮点击事件
|
|
' 功能: 执行BOM提取和BIP上传
|
|
'=====================================================================
|
|
Private Sub CommandButton1_Click()
|
|
Call ProcessProductModels
|
|
Call ValidateOrderMaterials
|
|
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
|
|
|
|
Private Sub CommandButton5_Click()
|
|
Call ProcessOrdersToBIP
|
|
End Sub |