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)
    Sheets("Orders").PivotTables("PivotTable1").PivotCache.Refresh
    Application.StatusBar = False
    openf.Hide

End Sub

Private Sub UserForm_Activate()

    'handler.server = "http://192.168.1.69:3000"
    handler.server = Sheets("config").Cells(1, 2)

    Dim x As New TheBigOne
    Dim d() As String
    
    openf.Caption = "Select a DSM"
    d = x.SHTp_Get("reps", 1, 1, True)
    
    For i = 1 To UBound(d, 2)
        Call cbDSM.AddItem(d(0, i))
    Next i


End Sub