From 830894ed5dc15c1c6cb74cc057c9b5f8a058878e Mon Sep 17 00:00:00 2001 From: Trowbridge Date: Fri, 22 Mar 2019 18:18:23 -0400 Subject: [PATCH] list history of changes --- build.frm | 3 +- build.frx | Bin 3096 -> 3096 bytes changes.frm | 53 +++++++++++++++++++++++++++++++++ changes.frx | Bin 0 -> 3096 bytes fpvt.frm | 19 ++++++++++-- fpvt.frx | Bin 19992 -> 19992 bytes handler.bas | 83 ++++++++++++++++++++++++++++++++++++++++++++-------- months.cls | 2 +- pivot.cls | 1 + 9 files changed, 145 insertions(+), 16 deletions(-) create mode 100644 changes.frm create mode 100644 changes.frx diff --git a/build.frm b/build.frm index 681d4fa..b9a4869 100644 --- a/build.frm +++ b/build.frm @@ -28,7 +28,7 @@ Private Sub cbBill_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift A useval = True Me.Hide Case 27 - canel = False + useval = False Me.Hide End Select End Sub @@ -75,3 +75,4 @@ Private Sub UserForm_Activate() End Sub + diff --git a/build.frx b/build.frx index 1d32c5a69dbaa7010de917647b58a498fd91763d..4559166ee581e4d6746265d77725c95e40d3bee8 100644 GIT binary patch delta 80 zcmbOsF+*ZQ3k%zVecxFhJ=omE@`73IDFcHF!&62E1~vwU1|Y>?0mKXpk_^d70f|K= h`3zTpJpai&oK~AJailXc=1;cbQfFk?oW!+_5dhMz72W^< delta 80 zcmbOsF+*ZQ3k#b-J7>$3dz-shUNEbjW?)cZc*@AYz{bGP0Hhc!fS7?nk|8-MAhD=~ hf#C{}=RcW;(`xf2j&w#whRIf3>WulDleo4q0sv8w6VCtu diff --git a/changes.frm b/changes.frm new file mode 100644 index 0000000..dc539c9 --- /dev/null +++ b/changes.frm @@ -0,0 +1,53 @@ +VERSION 5.00 +Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} changes + Caption = "History" + ClientHeight = 7740 + ClientLeft = 120 + ClientTop = 465 + ClientWidth = 16260 + OleObjectBlob = "changes.frx":0000 + StartUpPosition = 1 'CenterOwner +End +Attribute VB_Name = "changes" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private x As Variant + +Private Sub cbCancel_Click() + + Me.Hide + +End Sub + +Private Sub lbHist_Change() + + Dim i As Integer + + For i = 0 To Me.lbHist.ListCount - 1 + If Me.lbHist.Selected(i) Then + Me.tbPrint.value = x(i, 4) + Exit Sub + End If + Next i + + + +End Sub + + + +Private Sub UserForm_Activate() + + Dim fail As Boolean + + x = handler.list_changes("{""user"":""" & Application.UserName & """}", fail) + If fail Then + Me.Hide + Exit Sub + End If + Me.lbHist.list = x + +End Sub + diff --git a/changes.frx b/changes.frx new file mode 100644 index 0000000000000000000000000000000000000000..82e49b9c453595c6fbe16ee31c01075df4302f35 GIT binary patch literal 3096 zcmeHJ&ubG=5dPk7S{sefRH@N=*gy{=C00?WqD5LOMJ>_N;yIh7n9^ixvK2gtd(g9b z^P(W=MLejd{sp3!>Y?DJhiLKU!Gq|@#&32v>qcl<+KZJ;c$sif6 zz&;DyHGmKAll3RB4txp@d}0_n)*5kih7J^ISuS(~8VT92H5v_%36N~VHp;*+`YP`y zE9SrDHgdo1>J~FF35y>a2F6e!uHt61l_TL^bOb#w^Wac#f+Vvf)c! zE>3Ho>&r?f(-C39jE6S;9pe-Vry%M@KYc+fs=_*Qw6A0aN=)L%I$|ws3BB%f6h@i< zGUkzmiP;vpD4U*5#Lr&>zO@J9yUcj;U;4j;OJ>0iAIE(h&T*Ume=>krKe`g#33+>| zUa1Y-0^;+))Ct*mpii#udT?(k`Dm4WeR1)M)XjZ$ZbYGTDtFB)=e+WHD$;ipyQ&{w zD8n*xJAH_3g?+Hi%hgiF#>Zh16wp#gD>y>-jXN)-H{J~br^GhT1hGDyXT&UZG>t*q zi$i45Z)dtvu)eZTvr@#=Ss?nOqla`-u8y3I<|_H(91uXI0L#ys|@b; z8Q{hdGB@&5lr{n{PvVkzf1FE05_waC0)EiaTc)F#Pd<-B79^j#E9V8WC*3M1_t8U~ z<^ocfGsjCc8(8K}Rsf3KuJ80_*Wa^yKcyy0`Knd3W^CiURV~+yW0^sh0{{PEtZWtw hg<`?TnzO~cjoswAVj20)9L4vOudfHD+QdJYf!|-bIkW%( literal 0 HcmV?d00001 diff --git a/fpvt.frm b/fpvt.frm index 13c8a28..340b5a9 100644 --- a/fpvt.frm +++ b/fpvt.frm @@ -1,10 +1,10 @@ VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fpvt Caption = "Forecast Adjustment" - ClientHeight = 7590 + ClientHeight = 7350 ClientLeft = 120 ClientTop = 465 - ClientWidth = 7095 + ClientWidth = 7110 OleObjectBlob = "fpvt.frx":0000 StartUpPosition = 1 'CenterOwner End @@ -147,6 +147,10 @@ Private Sub lbMonth_Change() +End Sub + +Private Sub lheader_Click() + End Sub Private Sub opEditPrice_Click() @@ -301,10 +305,15 @@ Private Sub UserForm_Activate() Dim k As Long Dim ok As Boolean + Me.Caption = "Forecast Adjust " & Worksheets("config").Cells(8, 2) Me.mp.Visible = False + + Me.lheader = "Loading..." Set sp = handler.scenario_package("{""scenario"":" & scenario & "}", ok) + Me.lheader = "Ready" + If Not ok Then fpvt.Hide Application.StatusBar = False @@ -327,6 +336,12 @@ Private Sub UserForm_Activate() fVol = 0 fPrc = 0 + If IsNull(sp("package")("totals")) Then + fpvt.Hide + Application.StatusBar = False + Exit Sub + End If + For i = 1 To sp("package")("totals").Count Select Case sp("package")("totals")(i)("order_season") Case 2020 diff --git a/fpvt.frx b/fpvt.frx index 5184950e5155cc93b9d0e61c294ddebcb3a99473..2d75cf960c830add009e0647b3b09effe7ee4296 100644 GIT binary patch delta 2097 zcmZXVZERCj7{|}KZKW-}UAM7P#$LMjj=l5__fodey)f9=i%gjV0vfulvcaVtTf2yh z-YJo=u#zl~fvKqYf}$}-(!`J$j34|YpNybeLgHe?55fmbj4=kN|8v_dVK({Q|9Q?i z_c_mf&T~!|F7kzo+}Yc1X6z}p`ui$}u|(cgrzFvGpG#6Q=-<9Pa!KFL&zOyvb(0pQ z0`r_ryik)t+~9Qj(3DsfQ%8e=k>CW2W{W|pGW5fBW&vYOGQDotLoQ>4Ux~+zXE`mp zLv-6{yZZ8JUdoJ>tjo5+)+{k*Y-LPlY$lOl?8bU{d6}_?3S*bIlHXjx&GDn=yPURL zI^x4tjg!l!%9p18H2=DMlN&I5hURS=KSt^DwCO$A4w{#b$!`CBeTF_WZn2+|xPxL2 zjmspbhaVrN+4RX(m--82$ynPnn{kS-CplB&R*K=dk>m{(ngt7f1Rf<436UP5c4%6v zoes?anJGIfrDC2d)fSl(Ha3CfrrP;XH$Wm;ArRxmDJ_MTCEHq}9E~lY0#qhD6V)k2 z4p|M@3Z4YDpbpf71|XbngEoRD&}&!EqowgrVc$1egGmK=embO82vdsmap8 zO?23qO%u*#WNIA>qAwhZjH)NaCd~8)LnC9MBkmoefzXlQ3zBF+4YuoE=_MAG6tO>%+2nZI7s!O}ZZs#d0)WLUQi^ zDld2KTb8`FJ@8{HLS!MD&z$CmD3-5T`e84M51?Bc>#fMBi~YuNlqk#ntTY@X)m&kGBk*ni2zJeczYveY(mG&&h+5JMia6={5e=8E$4 zxkZ)Y44cGlF|G&DMRJM8+bLF}nOawSeH1IzxR>NI%~ZA0YrTNh65>K6KNS^=z#bIk zq#0Q{8;VByb_7DhK{ZTeo(dkOy&jJqa!bP|y5J#6(F3LPKD#+NF&ViOQ0Yv0KP@;q z=+G9$bPmpqlwLM%nnNoY;%gME&`eXX7xj_I>PU#>D$O(syPxJurcE#CBR`Zk%BZ?x zb_=nJe2}ZUQGESCbtzY9x_TdH^ken!hVD5Vwf5xFl6OFFE6R3V$Cc~WiLv3qfEo>| zD*e)(PlGjHaS8OJJLoQT4~Eq{wA`IXUo@7*mul=B9uGHX#UE~cksAV&K^j*)wCuIg zXSKy#r8Fha5LTlk7D#FyovyR5)7=Gpbi?1keRS7bO3(GUXsPbBa958oMJ0-(h7$^dk0q>>F!(fXTCo3+_rI8+D@;1D2OsWkZw8du}X&F!52@D|f6{$~1qw~rdT9VE3BlihEnfBfI^J9NFJ zkVk2`WgqI%*Lq4C^3nE&Yma47QQYQNv6eXG;FFa7snDw@4svoRxv8BL+Yoy!uKOL=sj6|m1-q}O zfyeE;202m|>?}9@^#C>3S&poH-Fbi<4Ovv))h4lUTTI!o=hTCnv5M(yJ?gq1(zO+e`SHO~(bGjEqG{=~?6vvh;Q%ih#9 delta 2065 zcmZ8iYiyHM7(S;LSm#=H>*&TV->&W0DBb9~jcr{wcEjCDa08;jbmem!>)NudiW#O= z5@ljB%}W#%b&7~TFahfyFA(A{MMGjT!;F9C1!JO#{P7Y^oX`3CQ4C-5e9w6=-+SJ3 z&ikJ4%sGDM94{E^&R}eWrJsw%jQv)2r9h)0ujV=xYs;NeAz@w36K@;)oinzPu~@N& zu|{Y-fQFgbkZ(c`xEk0BWRr=GXuTOB7Aa!vdlP-G9Zke^WZB>$i*A8mOvZI5d2;`T z>pT(j)G%E=8_3GfYC}XF!Wj{LeVwt-9zdw482iD&*pQRl8FhSP@^Hp4Jb6Ad!YQU7 zAxl=k7_(md_S)JC*TUOFiL5BMQjT#^|2kv~C5$u1wdD(nhvJzun2u}sCW>cAc@`OS zLTPiDArLL)%o~*vLMk7SA$LAKNlLSndz@#IF)zvu6vw-OjQMrZ^O*48_4Rd;wqUG- znbdJMI0wj8<$RTe-)41OsPYytPC9bA2oC~- zz>sPXwIv+9VA^lCWeDLBA)GKv144LA^_T)r1BZbbAOHw^5G+bC3>*RG0HI${`EfAa zG5hs;3|45lporctSgQ!!7G*jd3NB0qp1i#YW3L=MG##9jc1`($lkz;H4>phEutedY z^q7{+lFNjdEbK=VxelrjC3Ky%-{RDpAvr0LyU6p%SQzCc6vw-Wj76dQ%4MnO{&F#F zxnCm+$fCrtQoK0ItH@Y#uMm}brKOVjbZMqEhSGZ)wODhH>#^@FNQt~f{xHSMqJ~k( zt71JgCXH!A0lFkrYp1{~(jR<^z9>Ja9fwq3aZT3}xS^+@MzZ*2rm>*88QXw;>N<2d zGQZ%LQ$|fofCeg$b4FiQmTLSm{aRU17F&hTx7&(EN9%|2Wmw6fpN!Q}-bL~1sJ=6; zZKilll-tQ@jq2;~YPY@#xSV6Oo1CUA~}S4m?4VwmKdmve~pURuXM4q+2$^ zk)(1mHwFHmaOxvQGqqN_QHyKAzC$!#75f^|#fsE(-0IZF#axtQUDTh%D3$Zm6t9cw zBal}W%Y520OU7+c{Ul^BC8`&*kc(1=AQZEGr=}@Dr|mV^n~&}Lc!=`0|D>Js%~EWz zgbwta7L`Sp9aqUbI7**17_@WKehLrnNftJmINX=p&B=}(N4a)lxR1h3Hd=Gqc?*p? zN>ds~2ff!*O@F(yX`;7^PBocy>2WxBa@iEj06P6pc= zQkh11b5iQ)=9JlKqvzdDde+^J%r?A z*;dTgaW^5ACFLe~MocetOWC5MUw|O^lu&xRi-(2qGK4e0S>P4mRp1=(8X)X%fR}+c zfwusmdmDTKct@4r6@2B$qg?C)jX2Vqlg>%x=;*zw#SYM&-Z4Ws5K(r*mmKLE=UB*v z{#vCJzv{2$GX2wk04K1gIiIEny3iEKO9K_0ZaOkaa%6HB)j6#6sk;RjP>$~A?o7&V zuyZGMHrNgLRf=7=i=%