clean up

fpvt.frm

@@ -335,6 +335,7 @@ Private Sub UserForm_Activate()
     fVal = 0
     fVol = 0
     fPrc = 0
+    Me.tbAPI.value = ""
     
     If IsNull(sp("package")("totals")) Then
         fpvt.Hide

handler.bas

@@ -169,23 +169,13 @@ Sub pg_main_workset(rep As String)
     res(0, 30) = "cost_loc"
     res(0, 31) = "cost_usd"
     res(0, 32) = "units"
-
     
     Set json = Nothing
 
     ReDim str(UBound(res, 1), UBound(res, 2))
     
-    For i = 0 To UBound(res, 1)
-        For j = 0 To UBound(res, 2)
-            If IsNull(res(i, j)) Then
-                str(i, j) = ""
-            Else
-                str(i, j) = res(i, j)
-            End If
-        Next j
-    Next i
-    
-    Call x.SHTp_Dump(str, "data", 1, 1, True, False, 28, 29, 30, 31, 32)
+    Worksheets("data").Cells.ClearContents
+    Call x.SHTp_DumpVar(res, "data", 1, 1, False, True, True)
     
 
 End Sub

months.cls

@@ -217,7 +217,7 @@ Sub ms_adj()
     Dim i As Integer
     Call Me.get_sheet
     Dim vp As String
-    vp = Sheets("month").Range("R2")
+    vp = Sheets("month").Range("Q2")
 
     For i = 1 To 12
         If sales(i, 4) = "" Then sales(i, 4) = 0