forecast project files
This commit is contained in:
parent
0da2984907
commit
cc7a4a7e08
1125
JsonConverter.bas
Normal file
1125
JsonConverter.bas
Normal file
File diff suppressed because it is too large
Load Diff
104
handler.bas
Normal file
104
handler.bas
Normal file
@ -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
|
||||
|
||||
|
||||
|
||||
|
55
http.bas
Normal file
55
http.bas
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user