From 513e6e91b7e88e8382bfec7d05b8cb36a041b7af Mon Sep 17 00:00:00 2001
From: Trowbridge <ptrowbridge@HC-Companies.com>
Date: Thu, 21 Mar 2019 16:33:22 -0400
Subject: [PATCH] send the new part

---
 months.cls | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/months.cls b/months.cls
index d20d84c..02a6942 100644
--- a/months.cls
+++ b/months.cls
@@ -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