This commit is contained in:
Trowbridge 2019-03-25 16:04:04 -04:00
parent 830894ed5d
commit c38e262733
4 changed files with 4 additions and 13 deletions

View File

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

BIN
fpvt.frx

Binary file not shown.

View File

@ -170,22 +170,12 @@ Sub pg_main_workset(rep As String)
res(0, 31) = "cost_usd" res(0, 31) = "cost_usd"
res(0, 32) = "units" res(0, 32) = "units"
Set json = Nothing Set json = Nothing
ReDim str(UBound(res, 1), UBound(res, 2)) ReDim str(UBound(res, 1), UBound(res, 2))
For i = 0 To UBound(res, 1) Worksheets("data").Cells.ClearContents
For j = 0 To UBound(res, 2) Call x.SHTp_DumpVar(res, "data", 1, 1, False, True, True)
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)
End Sub End Sub

View File

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