From e726349c982f51ded37836869d3d3b46f314f8d7 Mon Sep 17 00:00:00 2001
From: PhilRunninger <prunninger@hc-companies.com>
Date: Wed, 17 May 2023 15:09:08 -0400
Subject: [PATCH] Simplify code. Add backdoor to openf form. Fix integer
 overflow in undo.

---
 VBA/build.frx       | Bin 3608 -> 3608 bytes
 VBA/changes.frx     | Bin 3096 -> 3096 bytes
 VBA/fpvt.frx        | Bin 15896 -> 15896 bytes
 VBA/handler.bas     |  10 +++++-----
 VBA/openf.frm       |   6 ++++++
 VBA/openf.frx       | Bin 3608 -> 3608 bytes
 VBA/part.frx        | Bin 3096 -> 3096 bytes
 VBA/shMonthView.cls |   9 +--------
 8 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/VBA/build.frx b/VBA/build.frx
index c85abb26cc9e7674ca8a0fc8dc04e7342e0cbdec..648a4613860f6cc5220b3d677fe5e954f266f9b9 100644
GIT binary patch
delta 92
zcmbOsGec%W3k%zXXx|y1IyQH)G_Wu-Oy=gyX3U#h&S?)Mw{zMHRx&U!i7;p|04WBB
t27mAL$@W}olXbZSfoko!lo?YeFJv*BJd^7LW76a#ZY{=~&Ar^+OaRXZ8CL)R

delta 91
zcmbOsGec%W3kzF;8qZDBrp;X}4J?c$lesyw85t&*bJ_#R?VR>P3=9lRA`BWJih-fQ
r-@71nvICdWWGyZcpkjM2<;e?K%qP#}I>DGaIf+|~(P(oocQ+FNMZ6cH

diff --git a/VBA/changes.frx b/VBA/changes.frx
index d1202a7a68f1c08a74ae498617523a38af1af133..85522b7703dc3c0efeb87c13b3d4073274752413 100644
GIT binary patch
delta 40
wcmbOsF+*ZQ3k#dT6u%jtIyQH)ykKT5nq17$&zLuvnRClzLl(8ocR8(@05`!7WdHyG

delta 42
ycmbOsF+*ZQ3kzGpbiSLWO`E$|UNAETPcG)@XJnYn%(;b8ak3$c>gKzg)=U6A_6?c<

diff --git a/VBA/fpvt.frx b/VBA/fpvt.frx
index 5930f72334cf93a46f43e7e28b967e33013296c5..55e75a680add251058282fd600d1602969bb0db5 100644
GIT binary patch
delta 687
zcmah`OK1~O6n*ba8p$*aQIQ69lF?>tGN#Ei#$+-{swJ(UEv0@?vJuldkisMrhm>Lo
z=(40Pl-otNuKX-Sc+^F4p`r_+lz<2Zp<TF9aOI|3-(*C^jhlBb=bn4ceVk6K(|X?W
z2y^CC=f`RfyOp**woiEFpX_62r<@t(1)CGPr(8_hb1Jm=+k)Hnuo`k{2UZ6NLUeto
zN`BJ=-9DW^YzuDN!@r>RUy!Rr`6Ck;TXg2=IK~>RiD#G`Y>6V5RS|p_cd-Fmp>uc)
z4u(f?7V_Z_uo>ZLP}=Zd4BL?jtV2M)jqgBPE^($+pk4V5aYWXm3WqF2Uq?OISD82F
z?8OBG!FKF2SDmatL^;nj%q8f`*Gb)=T}8tffiFJH-qE;1rV*6mE6(RW#&eihCIk{2
z+)TZ|Hq!7i!IP>5Hxd`%QZma`Sl<vuc#`zPw`96clhhONG&#sIYmn57eXOab$h-!R
z)lm+y6F;d5m{q*sAA3ib?dOxn{Q-vGW3K2v190jVw`eTWr4)6Ji=|`a%QRd`KOD@z
zT^0m{9$}`UDj`xa;n?Xt7|PVVjm>^E?Tn58Nfmf4^j{e%mtjF%%h5yZ2ogk5R=fz^
zEmi6ZhN(eVA7=BCo+TQBmYxd!q3v^MR;^~#o7(#Un3W~c)ZnY0Vhaz*IF$2cW>521
fS#o^A>2DTfC#to=GpFQ>E7*h=#SzBeDe6A~Zu{G1

delta 698
zcmaJ;OKTHh6#ecu(`aHljaF$;^Po-IWK5^iA?Dp;J5Ugc)(1+!g_8$VoMh^dE?Tk(
zZj|VvdW+OuT}WL?;R9E?(1lP?DTrtgDu@dO1^owpNm>yXZtmmUa}EdYYHhW)Q4^)*
z4ca_@y$PMp8lvr#)R)l4=JTx^b4j)!o%qqgE@xU8Hul?6XKX^JGuMHeUGy`umHs*U
zhdz6-O?Mr(rOw!d9jNgawCiwW5}?dxj!pnphI;Y7cZ|*#@s-yr7?z3Oy`O+@zG+Be
zpMRLwjQ=goCz(6&Oauep1Sf%@JG97aBcu!Vl>*xey`XfVgezfLSmfcJhedF1Pu-j4
z#}b!B&Iv}oghBZv_6!yAo6^U=$Uy)RozX#FN1`&7Ma)H)cw_IPDL_ee;Ed9Z0p(#^
zyA_JzQ^hH8SN!SsQJ%D}$ar=%fv@}h=vI3KLI?)b0Z8Eb=+w@3Mlj|qtg0I2$4BZ&
zd;Op)E&blHO==MQcx<5C&9%2Vg)BoILAxdpi?9WawIW7h5n3qW`PhSf){S0CB4i!7
znJW80$6xg7UEvb0Q4KwD)3Nrx{mVw&hJXHxuB7k3W>n|tQ*o%`#S}Ya5<)#B%o8~X
zsq03iP%?G&rw74AJ)J;FabP{Icr0_5x2MIk%H>j}N;bRjR472J1iz*=?s$hzU@nsb
m3t8p@|Dh|J<37b~h#Dr|%08z0Y0Qi-frd}UhdF<HJpCJCjMx?c

diff --git a/VBA/handler.bas b/VBA/handler.bas
index aa99c66..2df22ff 100644
--- a/VBA/handler.bas
+++ b/VBA/handler.bas
@@ -85,7 +85,7 @@ Sub pg_main_workset(catg As String, rep As String)
     Dim res() As Variant
 
     doc = "{""scenario"":{""" & catg & """:""" & rep & """}}"
-    
+
     Application.StatusBar = "Querying for " & rep & "'s pool of data..."
     With req
         .Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_Ignore_All
@@ -516,8 +516,8 @@ Function list_changes(doc As String, ByRef fail As Boolean) As Variant()
     Dim req As New WinHttp.WinHttpRequest
     Dim json As Object
     Dim wr As String
-    Dim i As Integer
-    Dim j As Integer
+    Dim i As Long
+    Dim j As Long
     Dim res() As Variant
 
     If doc = "" Then
@@ -570,8 +570,8 @@ Function undo_changes(ByVal logid As Integer, ByRef fail As Boolean) As Variant(
     Dim req As New WinHttp.WinHttpRequest
     Dim json As Object
     Dim wr As String
-    Dim i As Integer
-    Dim j As Integer
+    Dim i As Long
+    Dim j As Long
     Dim res() As Variant
     Dim doc As String
     Dim ds As Worksheet
diff --git a/VBA/openf.frm b/VBA/openf.frm
index 0f6ca9d..9c5062c 100644
--- a/VBA/openf.frm
+++ b/VBA/openf.frm
@@ -29,6 +29,12 @@ Private Sub cbOK_Click()
     openf.Hide
 End Sub
 
+Private Sub cbOK_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
+    If Button = 2 And Shift = 2 Then
+        shConfig.Range("debug_mode") = Not shConfig.Range("debug_mode")
+    End If
+End Sub
+
 Private Sub opDSM_Click()
     cbDSM.Enabled = True
     cbDirector.Enabled = False
diff --git a/VBA/openf.frx b/VBA/openf.frx
index 42b20bae07d643d76f3557b93c24f00a9e508cd6..a749ad5d8c8dd6991003a3f3af6523f12ffce153 100644
GIT binary patch
delta 170
zcmbOsGec%W3kzF-pVy2}9h<vYqFLD!GxA-6ee)+T;FMxbWnf@3n7p4;Qi6klp<x+2
z14A_v1A~FC0)tCtQEGBYei2w%3QU<ePz6Gn5<^~aYI<&JUdiP7obr=baal}W#$_{E
zj(a`Okjdw{RYBA@Zf(Z=$x1w0j75`ud31p6Djsc)RE7gw3=HW!lNYjRZ@$6fzz6`k
Cn=TXp

delta 171
zcmbOsGec%W3k%x?J&v2EO`E$|qFLFLlo(useJ9W7lxEFiU|=$syq{B2f`fsfVHrCE
zLp2ivg8>5rgG**nYH~?_(c}f3a*SXl;y_u15}<T&YI<&JUJ1}3`N^xeEEv-#FXytG
z?80j?Ig-1CDK%&Ed2Usv#PrGExV0G>CM)r10ZCsT9Uxi7qs@`eaDa<}A)ROPLKf}K
IH+UQv0e&bhEC2ui

diff --git a/VBA/part.frx b/VBA/part.frx
index 7d1581307779232c6bf7f5b4a8d81d537d9a6831..4919787b502c1e1a20a15887b1a6528114fb7f2b 100644
GIT binary patch
delta 101
zcmbOsF+*ZQ3k%zXGyXF^b!_fpdBV&nJvpCavRG;k1Cs=U1_J{F8v{dwb7Ed{YECM{
yWFJl?A&`^^Sc(ZK<?rq43ly$mtekwDGl?;OvKE&XW8&mcE*+-SoXyQ#QyBr-7#o`a

delta 99
zcmbOsF+*ZQ3kzF=zTi#Mrp;X}Pna25Cg*cZ7Gq#wV3J_a08(rW3=PhSdC93c3=ETf
wIMw(>z`{&GVSn#{BA`&!WJ4C=$u~Iz7)vH=acMCoPY&hM0m^S~=9<a~0MNe|)c^nh

diff --git a/VBA/shMonthView.cls b/VBA/shMonthView.cls
index 9e28a11..149e60b 100644
--- a/VBA/shMonthView.cls
+++ b/VBA/shMonthView.cls
@@ -440,14 +440,7 @@ Private Sub BuildJson()
                 'if there is no existing volume on the target month but units are being added
                 If units(pos, 2) + units(pos, 3) = 0 And units(pos, 4) <> 0 Then
                     'add month
-                    If Round(price(pos, 5), 8) <> Round(tprice(1, 2) + tprice(1, 3), 8) Then
-                        'if the target price is diferent from the average and a month is being added
-                        adjust(pos)("type") = "addmonth_vp"
-                    Else
-                        'if the target price is the same as average and a month is being added
-                        '--ignore above comment and always use add month_vp
-                        adjust(pos)("type") = "addmonth_vp"
-                    End If
+                    adjust(pos)("type") = "addmonth_vp"
                     adjust(pos)("month") = shMonthView.Range("OrderMonths").Cells(pos, 1)
                     adjust(pos)("qty") = units(pos, 4)
                     adjust(pos)("amount") = sales(pos, 4)