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

send the new part

Browse Source
This commit is contained in:
Trowbridge 2019-03-21 16:33:22 -04:00
parent 70326aa1fb
commit 513e6e91b7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
months.cls
View File

@ -71,7 +71,6 @@ End Sub
Sub picker_shortcut()
Attribute picker_shortcut.VB_ProcData.VB_Invoke_Func = "I\n14"
If Not Intersect(Selection, Range("B33:Q1000")) Is Nothing And Worksheets("config").Cells(6, 2) = 1 Then
Call Me.basket_pick(Selection)
@ -486,7 +485,7 @@ Sub build_json()
np("stamp") = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
np("user") = Application.UserName
np("scenario")("version") = "b20"
np("scenario")("iter") = handler.basis
Set np("scenario")("iter") = JsonConverter.ParseJson("[""copy""]")
np("source") = "adj"
np("type") = "new_part"
Set m = JsonConverter.ParseJson("{}")
@ -545,6 +544,7 @@ Sub build_json()
If Me.newpart Then
Set np("months") = JsonConverter.ParseJson(JsonConverter.ConvertToJson(m))
np("newpart") = Worksheets("month").Range("B33").value
End If
End Sub
@ -657,7 +657,6 @@ End Sub
Sub basket_pick(ByRef target As Range)
Attribute basket_pick.VB_ProcData.VB_Invoke_Func = "I\n14"
Dim i As Long