VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} openf 
   Caption         =   "Open a Forecast"
   ClientHeight    =   2400
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   8220.001
   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()
    If opDSM.value Then
        Call handler.pg_main_workset("quota_rep_descr", cbDSM.value)
    ElseIf opDirector.value Then
        Call handler.pg_main_workset("director", cbDirector.value)
    ElseIf opSegment.value Then
        Call handler.pg_main_workset("segm", cbSegment.value)
    End If
    If ActiveSheet.CodeName = "shOrders" Then
        shOrders.PivotTables("ptOrders").PivotCache.Refresh
    Else
        shShipments.PivotTables("ptShipments").PivotCache.Refresh
    End If
    
    openf.Hide
End Sub

Private Sub cbOK_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 And Shift = 2 Then
        shConfig.Range("debug_mode") = Not shConfig.Range("debug_mode")
    End If
End Sub

Private Sub opDSM_Click()
    cbDSM.Visible = True
    cbDirector.Visible = False
    cbSegment.Visible = False
End Sub

Private Sub opDirector_Click()
    cbDSM.Visible = False
    cbDirector.Visible = True
    cbSegment.Visible = False
End Sub

Private Sub opSegment_Click()
    cbDSM.Visible = False
    cbDirector.Visible = False
    cbSegment.Visible = True
End Sub

Private Sub UserForm_Activate()
    handler.server = shConfig.Range("server").value
    cbDSM.list = RangeToArray(shSupportingData.ListObjects("DSM").DataBodyRange)
    cbDirector.list = RangeToArray(shConfig.ListObjects("DIRECTORS").DataBodyRange)
    cbSegment.list = RangeToArray(shConfig.ListObjects("SEGMENTS").DataBodyRange)
End Sub



