diff --git a/handler.bas b/handler.bas
index 81d94fd..bf08f60 100644
--- a/handler.bas
+++ b/handler.bas
@@ -198,7 +198,7 @@ End Sub
 
 
 
-Function request_adjust(doc As String) As Object
+Function request_adjust(doc As String, ByRef fail As Boolean) As Object
 
     Dim req As New WinHttp.WinHttpRequest
     Dim json As Object
@@ -221,11 +221,19 @@ Function request_adjust(doc As String) As Object
     
     If Mid(wr, 2, 5) = "error" Then
         MsgBox (wr)
+        fail = True
         Exit Function
     End If
     
     If Mid(wr, 1, 6) = "<body>" Then
         MsgBox (wr)
+        fail = True
+        Exit Function
+    End If
+    
+    If Mid(wr, 1, 6) = "<!DOCT" Then
+        MsgBox (wr)
+        fail = True
         Exit Function
     End If
 
@@ -233,6 +241,7 @@ Function request_adjust(doc As String) As Object
     
     If IsNull(json("x")) Then
         MsgBox ("no adjustment was made")
+        fail = True
         Exit Function
     End If
     
diff --git a/months.cls b/months.cls
index 9375c14..d20d84c 100644
--- a/months.cls
+++ b/months.cls
@@ -58,11 +58,11 @@ Private Sub Worksheet_Change(ByVal target As Range)
     End If
 End Sub
 
-Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
+Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
 
 
     If Not Intersect(target, Range("B33:Q1000")) Is Nothing And Worksheets("config").Cells(6, 2) = 1 Then
-        Cancel = True
+        cancel = True
         Call Me.basket_pick(target)
         target.Select
     End If
@@ -79,10 +79,10 @@ Attribute picker_shortcut.VB_ProcData.VB_Invoke_Func = "I\n14"
 
 End Sub
 
-Private Sub Worksheet_BeforeRightClick(ByVal target As Range, Cancel As Boolean)
+Private Sub Worksheet_BeforeRightClick(ByVal target As Range, cancel As Boolean)
 
     If Not Intersect(target, Range("B33:Q1000")) Is Nothing And Worksheets("config").Cells(6, 2) = 1 Then
-        Cancel = True
+        cancel = True
         Call Me.basket_pick(target)
         target.Select
     End If
@@ -488,6 +488,7 @@ Sub build_json()
         np("scenario")("version") = "b20"
         np("scenario")("iter") = handler.basis
         np("source") = "adj"
+        np("type") = "new_part"
         Set m = JsonConverter.ParseJson("{}")
     End If
     
@@ -596,7 +597,7 @@ Sub crunch_array()
 
 End Sub
 
-Sub Cancel()
+Sub cancel()
 
     Sheets("Orders").Select
 
@@ -764,12 +765,19 @@ End Sub
 Sub post_adjust()
     
     Dim i As Long
+    Dim fail As Boolean
     
-    For i = 2 To 13
-        If Sheets("_month").Cells(i, 16) <> "" Then
-            Call handler.request_adjust(Sheets("_month").Cells(i, 16))
-        End If
-    Next i
+    If Me.newpart Then
+        Call handler.request_adjust(Sheets("_month").Cells(2, 16), fail)
+        If fail Then Exit Sub
+    Else
+        For i = 2 To 13
+            If Sheets("_month").Cells(i, 16) <> "" Then
+                Call handler.request_adjust(Sheets("_month").Cells(i, 16), fail)
+                If fail Then Exit Sub
+            End If
+        Next i
+    End If
     
     Sheets("Orders").Select
     Worksheets("month").Visible = xlHidden
