81174b5d57
1. Remove/Hide Swap Part 2. Remove/Hide Swap Customer 3. Improved the location of controls on fpvt form. 4. Make user experience more intuitive on the Month sheet 5. Make more and better use of named ranges in place of hardcoded cell locations. 6. Added error checking to ensure Tag is entered and at least one month has a forecast on Month sheet.
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} openf
|
|
Caption = "Open a Forecast"
|
|
ClientHeight = 2025
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 3825
|
|
OleObjectBlob = "openf.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "openf"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Sub cbCancel_Click()
|
|
|
|
openf.Hide
|
|
|
|
End Sub
|
|
|
|
Private Sub cbOK_Click()
|
|
|
|
Application.StatusBar = "Retrieving data for " & cbDSM.value & "....."
|
|
|
|
openf.Caption = "retrieving data......"
|
|
Call handler.pg_main_workset(cbDSM.value)
|
|
shOrders.PivotTables("ptOrders").PivotCache.Refresh
|
|
Application.StatusBar = False
|
|
openf.Hide
|
|
|
|
End Sub
|
|
|
|
Private Sub UserForm_Activate()
|
|
|
|
'handler.server = "http://192.168.1.69:3000"
|
|
handler.server = shConfig.Range("server").value
|
|
|
|
openf.Caption = "Select a DSM"
|
|
cbDSM.list = shSupportingData.ListObjects("DSM").DataBodyRange.value
|
|
|
|
End Sub
|
|
|