c0f8d8163d
- Fix test result indicators encoding (use ?? instead of Unicode symbols) - Add missing newlines at end of files - Add new VBA module files for main functionality Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
12 lines
323 B
OpenEdge ABL
12 lines
323 B
OpenEdge ABL
Private Sub CommandButton1_Click()
|
|
Dim ws As Worksheet
|
|
Set ws = ThisWorkbook.Worksheets("货期检查")
|
|
ws.Range("A4:P10000").ClearContents
|
|
Call RunDeliveryCheck
|
|
End Sub
|
|
|
|
Private Sub CommandButton2_Click()
|
|
Call SyncModifiedDatesToAccess
|
|
Call ArchiveModifiedData
|
|
Call UpdateSourceDataCopy
|
|
End Sub |