52 lines
1.2 KiB
Plaintext
52 lines
1.2 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)
|
||
|
|
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
|
||
|
|
|