1747af046b
- Add new AccessDataModule for fetching data from Access database based on total queue number - Add CommandButton3_Click handler in Sheet9 for Access data fetch - Add support for new "总排号" (Total Queue Number) column at column A - Adjust all column indices to accommodate the new column (shifted by +1) - Standardize code style: Collection, Count, Quantity, ProductModel, Description - Fix inventory check result to write to correct column (F instead of E) Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
24 lines
922 B
OpenEdge ABL
24 lines
922 B
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 |