From 5dce3313553263e9c11fe232afb44b1f36ba89e0 Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <fleetside72@hotmail.com>
Date: Fri, 15 Mar 2019 15:53:32 -0400
Subject: [PATCH] add formatting and start work on calcing a grand total

---
 fpvt.frx    | Bin 19992 -> 19992 bytes
 handler.bas |   9 +++
 months.cls  | 199 +++++++++++++++++++++++++++++++++++++++++++++++++---
 3 files changed, 197 insertions(+), 11 deletions(-)

diff --git a/fpvt.frx b/fpvt.frx
index 5af89ec19b773b268696235b8341cca00aa5e3e1..0d88ecb4062aa1ca55e02e0fa6712884837d1631 100644
GIT binary patch
delta 959
zcmZ8fOH5Ni6n*nv5noc|6Mpik{Qw0T+t*rJpwN#{3Z)2wn6N==X#jb&#KMB0f{Dg7
zQKH@uF`@xCm}m&eY}B}LXGlynK^LeISs6cZ<A#mF+gB{6n=^Or+<WKDIkT`x78c1`
z5la{-W=lBcCl9OYGTP572w~|(E}c&sf7P-Tpiy~*WW05{w*nvEkwl6=6ycI7=?J3P
zkz{6I3HyN0iDXC-wn;0E=B&%q43o|<vmN2k#IQKUWMbSE3=NKihLlai{?Je`;)02S
zJ0wWuh2v~;<lZGk`<Em#d~r&KMvH&%)7@(;O(_Cik&>ZN#WrCBK@gSYsK{;QPJDA+
zWoL)O@LE+$Ebv|RGM;;)R_BWh!xl1?48t5i{;t7ulaUGOs1oFw2SkL&8Z8m&hNeeG
zCaJda3?TwstFqw~qb#3pR-Ke#sMBi^dnBCJ>qr1rB;3$zWdbv90*Cc56c`?IqwQgs
zWfkzjV1^UI5os?7jc`;bhv#+=T=w=J6emyn#mS%_K6_i>f|2Kt90={zuv)K$O=Fl$
zK%414x8je1zaf|YF-;Np)m#l<40?!}2OuOUVXiKh)Iz)0ig>SPnZ%&cqGp47>bJ~e
zwOL6_&?z_&GZSdHV*JM3k4#kYsJR=~?X}3K2}<g7;?k|TdwKtGxa<5#0J+W8M~NP?
zEGnq8UBdT1wXLvW1_|j<vutZFEH~KMut>KXT!cMa3!j7v@Y-jf&07n7?n=0!lEad$
z4Eh{bxz5oTY&&|Twa%#{F&cDck^i)DA}b9oJU-9DShEwx1T)T=Mq=4g(VF`!KJcbP
z1<zXEOH*!ns?quvo-2s1)+)|3-A%_@YY3Y3!=OQ&vD=W2InR=`KP~=!rMF2nDJKa>
z{&nvP`h+RQ3Y@j;)pID!o<%xv%5vc@`rK;DfIOca^*H70MlIlxFD_1&HIIJt$q9FC
J*$F!x%D+wPOc?+G

delta 906
zcmZ9JUr3Wt7{<>z-%LkSH_0@oWApzUY~OU7ZLUpIQ*>J9ALu3>Hk|Oe&zch~ETJF<
z5!r*JC4pfW2qAno1zmL8pF0cEDDo<j3c(w1g3dSb=DRuP<>5W&{XNgSxJ(z9=|%~o
zBFwB*NdDHtX|Gf+GYh3enH942S#$e)<`yMwNYdPq=e+#-i5^P&yrhtuDUT$iO-YTS
zFVHATy5OCz+`pPl$Xt({n2Jj?tNFaX5KCMcPmEbx<I%)eENQ}2(IYyo7>XyE=F4=6
z=1b_!8bwK)_o?<-nWhPPi$+n>mL1Au36iynM)A;kfR}-MEZN+Q5PY<i(JAcO-qJ=m
z>~2)rMHnicQa9EsYIs_k75zFYD>b#lJUiUAH?gP$x2{mxviIq@;&AdV^k>c+P6w~o
z_?g0{vqneAWIe)-r%>d2CXC1@F~=;}c6q1==fze$ZZYFen+Gf6Y1)fzae&2TeCevj
zklQ6h6QdBj`>^GfkrT<qVEw#`I}$8Z{?*S=IK6epkMV?uWGOWfld$f&&7>4W(NZW8
z!iq^PAtXy(!L{+xSc4xQLO#|&@Wi`9Cve7B&SauQeG3$cwy?l^u;+>6hpPt@VwH-P
zA=vYT@YiESulEGrhZ?DbZT~=?lscU1C)1OBX2w-}1Gj!Zkfy6J`fTtw-J~*JHLWq%
zDxyILjE#j@35K`_WhdA|vFoZuSLl{%9yI(-ASr^K@L=ZlH}f2oShJC4Qk!g><xmw$
z@!18I5mc&#zkyQDG>l6DGfD#{f&0Zq`%ez=AZ)|ybDsqw6U=wiagaA1cQ|`Xr(Nw*
zCOW-G021>_Ft*=Ask<O2E)PYeRE*$zmz6J}+HgIG5EDlh)#ZuZb<~S_T?k9vGM}Q4
ebaBfAk&BGTco9)o&rK@7A_gi%!dG$7WBm^%COnA%

diff --git a/handler.bas b/handler.bas
index d3cfd4f..3971e9b 100644
--- a/handler.bas
+++ b/handler.bas
@@ -336,10 +336,14 @@ End Sub
 
 Sub month_tosheet(ByRef pkg() As Variant)
 
+    Dim j As Object
     Dim i As Integer
     Dim sh As Worksheet
     Set sh = Sheets("_month")
     
+    Set j = JsonConverter.ParseJson("{""scenario"":" & scenario & "}")
+    
+    
     For i = 0 To 12
         '------------volume-------------------
         sh.Cells(i + 1, 1) = co_num(pkg(i, 1), 0)
@@ -401,7 +405,12 @@ Sub month_tosheet(ByRef pkg() As Variant)
             Else
                 sh.Cells(i + 1, 10) = pkg(i, 8) / pkg(i, 4)
             End If
+            
+            '--json--
+            sh.Cells(i + 1, 16) = JsonConverter.ConvertToJson(j)
         End If
+        
+        
     Next i
 End Sub
 
diff --git a/months.cls b/months.cls
index 5cd19e3..d140f9c 100644
--- a/months.cls
+++ b/months.cls
@@ -13,8 +13,15 @@ Private x As New TheBigOne
 Private units() As Variant
 Private price() As Variant
 Private sales() As Variant
+Private tunits() As Variant
+Private tprice() As Variant
+Private tsales() As Variant
 Private dumping As Boolean
 Private vedit As String
+Private adjust() As Object
+Private jtext() As Variant
+Private basejson As Object
+
 
 Private Sub Worksheet_Activate()
 
@@ -22,19 +29,22 @@ Private Sub Worksheet_Activate()
 
 End Sub
 
-Private Sub Worksheet_Change(ByVal Target As Range)
+Private Sub Worksheet_Change(ByVal target As Range)
 
+    Application.Calculation = xlCalculationManual
     If Not dumping Then
 
-        If Not Intersect(Target, Range("E6:E17")) Is Nothing Then Call Me.mvp_adj
-        If Not Intersect(Target, Range("F6:F17")) Is Nothing Then Call Me.mvp_set
-        If Not Intersect(Target, Range("K6:K17")) Is Nothing Then Call Me.mvp_adj
-        If Not Intersect(Target, Range("L6:L17")) Is Nothing Then Call Me.mvp_set
+        If Not Intersect(target, Range("E6:E17")) Is Nothing Then Call Me.mvp_adj
+        If Not Intersect(target, Range("F6:F17")) Is Nothing Then Call Me.mvp_set
+        If Not Intersect(target, Range("K6:K17")) Is Nothing Then Call Me.mvp_adj
+        If Not Intersect(target, Range("L6:L17")) Is Nothing Then Call Me.mvp_set
         'If Not Intersect(Target, Range("Q6:Q17")) Is Nothing Then Call Me.ms_adj
         'If Not Intersect(Target, Range("R6:R17")) Is Nothing Then Call Me.ms_set
             
     End If
     
+    'Call Me.set_format
+    Application.Calculation = xlCalculationAutomatic
     
 
 End Sub
@@ -55,7 +65,8 @@ Sub mvp_set()
         sales(i, 4) = sales(i, 5) - (sales(i, 2) + sales(i, 3))
     Next i
     
-    set_sheet
+    Me.crunch_array
+    Me.set_sheet
     
         
 End Sub
@@ -74,7 +85,8 @@ Sub mvp_adj()
         sales(i, 4) = sales(i, 5) - (sales(i, 2) + sales(i, 3))
     Next i
     
-    set_sheet
+    Me.crunch_array
+    Me.set_sheet
     
         
 End Sub
@@ -99,9 +111,16 @@ End Sub
 
 Sub get_sheet()
 
+    Dim i As Integer
+    
     units = Range("B6:F17")
     price = Range("H6:L17")
     sales = Range("N6:R17")
+    tunits = Range("B18:F18")
+    tprice = Range("H18:L18")
+    tsales = Range("N18:R18")
+    ReDim adjust(12)
+    Set basejson = JsonConverter.ParseJson("{""scenario"":" & Sheets("_month").Range("P1").FormulaR1C1 & "}")
       
 End Sub
 
@@ -119,11 +138,169 @@ End Sub
 
 Sub load_sheet()
 
-    units = Sheets("_month").Range("A2:e13").FormulaR1C1
-    price = Sheets("_month").Range("F2:j13").FormulaR1C1
-    sales = Sheets("_month").Range("K2:o13").FormulaR1C1
+    units = Sheets("_month").Range("A2:E13").FormulaR1C1
+    price = Sheets("_month").Range("F2:J13").FormulaR1C1
+    sales = Sheets("_month").Range("K2:O13").FormulaR1C1
+   
+
+End Sub
+
+Sub set_format()
+
+    Dim prices As Range
+    Dim price_adj As Range
+    Dim price_set As Range
+    Dim vol As Range
+    Dim vol_adj As Range
+    Dim vol_set As Range
+    Dim val As Range
+    Dim val_adj As Range
+    Dim val_set As Range
     
-    Call Me.set_sheet
+    Set prices = Sheets("month").Range("H6:L17")
+    Set price_adj = Sheets("month").Range("K6:K17")
+    Set price_set = Sheets("month").Range("L6:L17")
+    
+    Set vol = Sheets("month").Range("B6:F17")
+    Set vol_adj = Sheets("month").Range("E6:E17")
+    Set vol_set = Sheets("month").Range("F6:F17")
+    
+    Set val = Sheets("month").Range("N6:R17")
+    Set val_adj = Sheets("month").Range("Q6:Q17")
+    Set val_set = Sheets("month").Range("R6:R17")
+    
+    Call Me.format_price(prices)
+    Call Me.set_border(prices)
+    Call Me.fill_yellow(price_adj)
+    Call Me.fill_none(price_set)
+    
+    Call Me.format_number(vol)
+    Call Me.set_border(vol)
+    Call Me.fill_yellow(vol_adj)
+    Call Me.fill_none(vol_set)
+    
+    Call Me.format_number(val)
+    Call Me.set_border(val)
+    Call Me.fill_yellow(val_adj)
+    Call Me.fill_none(val_set)
+    
+End Sub
+
+Sub set_border(ByRef targ As Range)
+
+    targ.Borders(xlDiagonalDown).LineStyle = xlNone
+    targ.Borders(xlDiagonalUp).LineStyle = xlNone
+    With targ.Borders(xlEdgeLeft)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+    With targ.Borders(xlEdgeTop)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+    With targ.Borders(xlEdgeBottom)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+    With targ.Borders(xlEdgeRight)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+    With targ.Borders(xlInsideVertical)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+    With targ.Borders(xlInsideHorizontal)
+        .LineStyle = xlContinuous
+        .ColorIndex = 0
+        .TintAndShade = 0
+        .Weight = xlThin
+    End With
+
+End Sub
+
+Sub fill_yellow(ByRef target As Range)
+
+    With target.Interior
+        .Pattern = xlSolid
+        .PatternColorIndex = xlAutomatic
+        .ThemeColor = xlThemeColorAccent4
+        .TintAndShade = 0.799981688894314
+        .PatternTintAndShade = 0
+    End With
+
+End Sub
+
+Sub fill_none(ByRef target As Range)
+
+    With target.Interior
+        .Pattern = xlNone
+        .TintAndShade = 0
+        .PatternTintAndShade = 0
+    End With
+    
+End Sub
+
+Sub format_price(ByRef target As Range)
+
+    target.NumberFormat = "_(* #,##0.000_);_(* (#,##0.000);_(* ""-""???_);_(@_)"
+
+End Sub
+
+Sub format_number(ByRef target As Range)
+
+    target.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
+
+End Sub
+
+Sub build_json(ByVal pos As Integer)
+
+    'if there is no existing volume on the target month
+    If units(pos, 2) + units(pos, 3) = 0 Then
+        'add month
+        If price(pos, 4) = 0 Then
+            'if the target price is diferent from the average
+            adjust(pos)("type") = "addmonth_vd"
+        End If
+    End If
+
+End Sub
+
+Sub crunch_array()
+
+    Dim i As Integer
+    
+    For i = 1 To 5
+        tunits(1, i) = 0
+        tprice(1, i) = 0
+        tsales(1, i) = 0
+    Next i
+    
+    For i = 1 To 12
+        tunits(1, 1) = tunits(1, 1) + units(i, 1)
+        tsales(1, 1) = tsales(1, 1) + sales(i, 1)
+    Next i
+    
+    'prior
+    tprice(1, 1) = tsales(1, 1) / tunits(1, 1)
+    'base
+    tprice(2, 1) = tsales(2, 1) / tunits(2, 1)
+    'forecast
+    tprice(5, 1) = tsales(5, 1) / tunits(5, 1)
+    'adjust
+    tprice(3, 1) = (tsales(2, 1) + tsales(3, 1)) / (tunits(2, 1) + tunits(3, 1)) - tprice(2, 1)
+    'current adjust
+    tprice(4, 1) = tprice(5, 1) - (tprice(2, 1) + tprice(3, 1))
     
 
 End Sub