From c38e26273379a3295e7a9a609365d80d2409c9c5 Mon Sep 17 00:00:00 2001
From: Trowbridge <ptrowbridge@HC-Companies.com>
Date: Mon, 25 Mar 2019 16:04:04 -0400
Subject: [PATCH] clean up

---
 fpvt.frm    |   1 +
 fpvt.frx    | Bin 19992 -> 19992 bytes
 handler.bas |  14 ++------------
 months.cls  |   2 +-
 4 files changed, 4 insertions(+), 13 deletions(-)

diff --git a/fpvt.frm b/fpvt.frm
index 340b5a9..2db68b6 100644
--- a/fpvt.frm
+++ b/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
diff --git a/fpvt.frx b/fpvt.frx
index 2d75cf960c830add009e0647b3b09effe7ee4296..a038d1d903d1f79006c6040f127f0c7a2ad00db2 100644
GIT binary patch
delta 1019
zcmZ8fQAkr!7(VCT89BwwB&XuKb4#z9^KRmtI(6CR)NN^y69mJ#25MJlOCN+pBYJ2Q
zAzy)pK?K!{iEu+4WnjHXh*%UM^dde*FVR!Jb?y{}`*80$=R5!T&i8%)nOmT93v_vy
z<1Qy5b1OwjLIm=i62cKO!xKWxL`Nv8BO_zMPBim(`0=4G<rBYt@<jjA>Y{f~No2-p
zR)6CPn}4GRqoU7>^BN3^({U}N&(T6kBBv~k61>d|F#$@ZVT{urN)%`hL0_naltkfQ
zttupnv}Mp6wUCl9u2VXJfN+hA$ygN5(=fgY|2Uao)6~a>2`Y;B3^AE-1|qV6POzXZ
zULT&gHBQLqG>meBTH0p5OOx0%8>th&&84cDTuX_La}v13ay9Kiv78x&DDqK4FkPFE
zA0l*z92OKvdi|yFXe27j@*!;v!A4oVs>-IzRSf0TIz|w%8mR*}tRj{1*jmDnch(*n
z!<nj5oh*;pQ_MY8FL=WGH{&ltzH~J;ACnqW<FXXOR=XbAw!U;$6AH@{(I|}mR=l^R
zp9&8|yW&HUs8Aw=Vsa9K--Ks=3-awTnpE!FD>*EAEa>$>eJqf?vuxXdd`E<BPdQd;
z3Rdr8yg0s7gdhb`S>rz1SM^EWH9kBT!yj)qKM-uiM*Sm}Vwb~&$%YKtf_n`&`A(MI
ze#0x)qUWv)%=DGoT<p5?nDKpA33Vz$qm^Py(z6Tf_}JuRpAWl|6T5XH(<WiQIfC1c
zbfmcpSWbdF#J~0=G3l<L*~&|I_K{+|@t74uOA&V%lZbxL!{g|f+vU0;##)A_^#%Cp
z&Ec2>Rk`Y*tyNXN-E6{sYX+O8`QmERCw<*Ki4lD9?QoH(ve;Hk)qZZbJMf{&g_aH<
zU+o}x(9x^HZd+vrBTKa;%+`Wm?RB%?dJv|+TrHZ_HDbpfW3RM5aE|3+a_3?yaF&y0
aJPDLCU@cIV3hh@weUc-=3ih85PX7nFs9dW6

delta 1115
zcmZ8gU1$?o6u$RPDz&YxT5D5l<0P?Z+Sp`LNit2^nJ8#$8Zi$VL0BQJfmWwxOdFws
zxQqB;5PbMl6nt<O^hu;JA`6RP@kPW3m0iT22Y>KM5EUQnqTrd?x?o=Bp7Y&vzx$o<
z%)NM-U%brc4+>FYFvP7c#+c0h;fx8!ew8TmGZ*7*kWHIsnxIR+*_d@#TBu)k<><%y
z*DtMVQ<*o*+6RjN=1W*Zb6KjvP+e7S{%`w785&mCLRNKkZyh&rvpp}yRjbKuirPcf
zb+w1k&{+#v)y_|~s!;8!EklE+7P6|I1<s4e%KODc5!dBz&hS|NVkZy0zlhmMgnVz@
z33ABIf@H=rGHT0#gO!=t1iN2{!$P)8NBt*x84vs(Zs482hahXs#(>M-8VdH=ZchgL
zcnJswZAWn;(SavHxRfOhuHcC;AqocW^(HBay4oyv-)0w|MmFpr;7~Y7!p?;Q6#o_8
zOL1$Y$HkaA;Bf7Y{2^s%VjtSqBc~;?PwjMaQyF&Fc_ojq-inUs?#A-eM805DiiW`;
zk9lw*8fhU-Il_x_K+czpw+{Y3*@KRO5@*)wfqo%oicquxt|FxPsmqqZ{pcU`wyFO+
zQ%BA?Bn1_XdR)-*JoY=j>dUQD@p&#4#)~i&509cHwm~?_F#2O&BHN{<Y{@pEO&!yn
zuT!LKn<CZS1n9{~^LUZuRi=wkcGNT~PP^%-j6ahr99!=t&yq8_xEFJ&Mv6|Qj!2Bm
zUrb%2?8?w4<PvRoHPlXYi$ei!Sn_a~)2~OS#qH$|c~{j`{HwK)UKN`Z-`a8Y$L#G6
z9qa6^7qMZaU2a^`C-_@@(|x=GIh~i-1jAf9M7CW`ujD^X!Bk|+y|qg?prY-=vn?8O
zO4m<C^MkjYUd-ek2Or&jmiQm)UMz06d#W2L(__Wl$R6qQR}+s$o(fj7u8;b-h%-Fg
z5$7@JnH08WMzE0S#*K^$EgESoOqLw&^w^ii9%wpN&)6zrQw~hc!W`?v`(%ikT7#!!
qB|eKC*$vcE8;)n!+E<>>_R#&ev%LsxZpC7DhO+6MAyRi~=ZWvK&~w57

diff --git a/handler.bas b/handler.bas
index 8016a2f..0379b97 100644
--- a/handler.bas
+++ b/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
diff --git a/months.cls b/months.cls
index 260ef0e..1878742 100644
--- a/months.cls
+++ b/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