VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} openf 
   Caption         =   "Open a Forecast"
   ClientHeight    =   1365
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   6825
   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 = shConfig.Range("server").Value
    cbDSM.list = shSupportingData.ListObjects("DSM").DataBodyRange.Value

End Sub