forecast project files

handler.bas

@@ -0,0 +1,104 @@
+Option Explicit
+
+Public sql As String
+Public jsql As String
+Public scenario As String
+Public sc() As Variant
+Public x As New TheBigOne
+Public wapi As New Windows_API
+
+
+Sub load_fpvt()
+
+    Call wapi.ClipBoard_SetData(sql)
+
+    fpvt.Show
+    
+
+
+End Sub
+
+
+Sub pull_months(doc As String)
+
+    Dim req As New WinHttp.WinHttpRequest
+    Dim wapi As New Windows_API
+    Dim wr As String
+    Dim json As Object
+    Dim i As Long
+    
+         
+         
+    With req
+        '.Open "GET", "http://10.56.1.108:3000/monthly_orders", True
+        .Open "GET", "http://192.168.1.69:3000/monthly_orders", True
+        .SetRequestHeader "Content-Type", "application/json"
+        .Send doc
+        .WaitForResponse
+        wr = .ResponseText
+    End With
+
+    Call wapi.ClipBoard_SetData(wr)
+    
+    'MsgBox (wr)
+    
+    On Error GoTo jerr
+    
+    Set json = JsonConverter.ParseJson(wr)
+    
+jerr:
+    If Err.Number <> 0 Then
+        MsgBox ("function call error:" & vbCrLf & wr)
+        Exit Sub
+    End If
+    
+    On Error GoTo errh
+    
+    Sheets("test").range("A2:D1000").ClearContents
+    Sheets("test").range("N3:Q14").ClearContents
+    
+    For i = 1 To json("jsonb_agg").Count
+        Sheets("test").Cells(i + 1, 1) = json("jsonb_agg")(i)("oseas")
+        Sheets("test").Cells(i + 1, 2) = json("jsonb_agg")(i)("monthn")
+        Sheets("test").Cells(i + 1, 3) = json("jsonb_agg")(i)("qty")
+        Sheets("test").Cells(i + 1, 4) = json("jsonb_agg")(i)("sales")
+    Next i
+    
+    Sheets("test").Select
+    
+errh:
+    If Err.Number <> 0 Then
+        MsgBox (Err.Description)
+    End If
+        
+End Sub
+
+Sub pg_main_workset()
+
+    Dim req As New WinHttp.WinHttpRequest
+    Dim wapi As New Windows_API
+    Dim wr As String
+    Dim json As Object
+    Dim i As Long
+    Dim doc As String
+    
+    doc = "{""quota_rep"":""50200 - DORAN MARABLE""}"
+         
+    With req
+        '.Open "GET", "http://10.56.1.15:3000/get_pool", True
+        .Open "GET", "http://192.168.1.69:3000/get_pool", True
+        .SetRequestHeader "Content-Type", "application/json"
+        .Send doc
+        .WaitForResponse
+        wr = .ResponseText
+    End With
+
+    
+    Set json = JsonConverter.ParseJson(wr)
+    
+
+End Sub
+
+
+
+

http.bas

@@ -0,0 +1,55 @@
+Attribute VB_Name = "http"
+
+Sub pull_months(doc As String)
+
+    Dim req As New WinHttp.WinHttpRequest
+    Dim wapi As New Windows_API
+    Dim wr As String
+    Dim json As Object
+    Dim i As Long
+    
+         
+         
+    With req
+        .Open "GET", "http://10.56.1.108:3000/monthly_orders", True
+        '.Open "GET", "http://192.168.1.69:3000/monthly_orders", True
+        .SetRequestHeader "Content-Type", "application/json"
+        .Send doc
+        .WaitForResponse
+        wr = .ResponseText
+    End With
+
+    Call wapi.ClipBoard_SetData(wr)
+    
+    'MsgBox (wr)
+    
+    On Error GoTo jerr
+    
+    Set json = JsonConverter.ParseJson(wr)
+    
+jerr:
+    If Err.Number <> 0 Then
+        MsgBox ("function call error:" & vbCrLf & wr)
+        Exit Sub
+    End If
+    
+    On Error GoTo errh
+    
+    Sheets("test").range("A2:D1000").ClearContents
+    Sheets("test").range("N3:Q14").ClearContents
+    
+    For i = 1 To json("jsonb_agg").Count
+        Sheets("test").Cells(i + 1, 1) = json("jsonb_agg")(i)("oseas")
+        Sheets("test").Cells(i + 1, 2) = json("jsonb_agg")(i)("monthn")
+        Sheets("test").Cells(i + 1, 3) = json("jsonb_agg")(i)("qty")
+        Sheets("test").Cells(i + 1, 4) = json("jsonb_agg")(i)("sales")
+    Next i
+    
+    Sheets("test").Select
+    
+errh:
+    If Err.Number <> 0 Then
+        MsgBox (Err.Description)
+    End If
+        
+End Sub