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