pt/forecast_api
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Allow getting the list of changes for director or segment pools.

Browse Source
This commit is contained in:
PhilRunninger 2024-04-01 17:48:45 -04:00
parent 2c46764be2
commit 2df666a44f
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Master Template.xlsm_EXPORTS/changes.frm
View File

@ -19,10 +19,10 @@ Private Sub UserForm_Activate()
tbPrint.value = "" tbPrint.value = ""
Dim errorMsg As String Dim errorMsg As String
X = handler.list_changes("{""scenario"":{""quota_rep_descr"":""" & shData.Cells(2, 5) & """}}", errorMsg) X = handler.list_changes(errorMsg)
If errorMsg <> "" Then If errorMsg <> "" Then
Unload Me Unload Me
MsgBox "No adjustments have been made.", vbOKOnly + vbExclamation, errorMsg MsgBox errorMsg, vbOKOnly + vbExclamation, "No data found."
End End
End If End If
Me.lbHist.list = X Me.lbHist.list = X

BIN
Master Template.xlsm_EXPORTS/changes.frx
View File

Binary file not shown.

14
Master Template.xlsm_EXPORTS/handler.bas
View File

@ -14,7 +14,6 @@ Public basis() As Variant
Public baseline() As Variant Public baseline() As Variant
Public adjust() As Variant Public adjust() As Variant
Sub load_fpvt() Sub load_fpvt()
Application.StatusBar = "retrieving selection data....." Application.StatusBar = "retrieving selection data....."
@ -48,8 +47,10 @@ Sub pg_main_workset(catg As String, rep As String)
Dim errorMsg As String Dim errorMsg As String
Application.StatusBar = "Querying for " & rep & "'s pool of data..." Application.StatusBar = "Querying for " & rep & "'s pool of data..."
shConfig.Range("current_pool").value = "{""scenario"":{""" & catg & """:""" & rep & """}}"
Dim json As Object Dim json As Object
Set json = makeHttpRequest("GET", "get_pool", "{""scenario"":{""" & catg & """:""" & rep & """}}", errorMsg) Set json = makeHttpRequest("GET", "get_pool", shConfig.Range("current_pool").value, errorMsg)
If errorMsg <> "" Then If errorMsg <> "" Then
MsgBox errorMsg, vbOKOnly + vbExclamation, "Couldn't " & rep & "'s pool of data." MsgBox errorMsg, vbOKOnly + vbExclamation, "Couldn't " & rep & "'s pool of data."
@ -378,9 +379,14 @@ Function co_num(ByRef one As Variant, ByRef two As Variant) As Variant
End Function End Function
Function list_changes(doc As String, ByRef errorMsg As String) As Variant() Function list_changes(ByRef errorMsg As String) As Variant()
If shConfig.Range("current_pool").value = "" Then
errorMsg = "Nothing to undo. Load some data with the folder icon first."
Exit Function
End If
Dim json As Object Dim json As Object
Set json = makeHttpRequest("GET", "list_changes", doc, errorMsg) Set json = makeHttpRequest("GET", "list_changes", shConfig.Range("current_pool").value, errorMsg)
If errorMsg <> "" Then If errorMsg <> "" Then
Exit Function Exit Function