fde6c97964
A lot has changed here, including:
1. Adding pounds to the data available for display in pivot table.
2. Visual improvements
3. Code simplification
4. Hiding / showing sheets as needed. A developer's backdoor allows for
easy toggling for debugging purposes: Ctrl+RightClick on the Forecast
Adjustment form's "Selected Scenario" label.
5. Fixed a bug that happened when deleting rows from the basket. The
definition of the Target variable was lost in some cases.
6. Made use of the Cancel and Default form properties to purge some
unnecessary code.
7. Added a sheet that contains Help text for the users.
8. Replacing more harcoded range reference with range names.
9. Refactor checks for division by zero errors, and improve error
messages for users.
10. Remove manual formatting. It's already done and saved in the
workbook; there's no need to redo it in code.
11. Added more data validation before Save operation proceeds.
12. Added a new IntersectsWith function to simplify If statements.
88 lines
2.1 KiB
Plaintext
88 lines
2.1 KiB
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} changes
|
|
Caption = "History"
|
|
ClientHeight = 7815
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 16710
|
|
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 cbUndo_Click()
|
|
Call Me.delete_selected
|
|
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, 7)
|
|
Exit Sub
|
|
End If
|
|
Next i
|
|
End Sub
|
|
|
|
Private Sub UserForm_Activate()
|
|
Dim fail As Boolean
|
|
|
|
X = handler.list_changes("{""scenario"":{""quota_rep_descr"":""" & shData.Cells(2, 5) & """}}", fail)
|
|
If fail Then
|
|
Me.Hide
|
|
Exit Sub
|
|
End If
|
|
Me.lbHist.list = X
|
|
|
|
'lbHEAD.ColumnCount = lbHist.ColumnCount
|
|
'lbHEAD.ColumnWidths = lbHist.ColumnWidths
|
|
|
|
' add header elements
|
|
' lbHEAD.clear
|
|
' lbHEAD.AddItem
|
|
' lbHEAD.list(0, 0) = "Modifier"
|
|
' lbHEAD.list(0, 1) = "Owner"
|
|
' lbHEAD.list(0, 2) = "When"
|
|
' lbHEAD.list(0, 3) = "Tag"
|
|
' lbHEAD.list(0, 4) = "Comment"
|
|
' lbHEAD.list(0, 5) = "Sales"
|
|
' lbHEAD.list(0, 6) = "id"
|
|
Call Utils.frmListBoxHeader(Me.lbHEAD, Me.lbHist, "Modifier", "Owner", "When", "Tag", "Comment", "Sales", "id")
|
|
End Sub
|
|
|
|
Sub delete_selected()
|
|
Dim logid As Integer
|
|
Dim i As Integer
|
|
Dim fail As Boolean
|
|
Dim proceed As Boolean
|
|
|
|
If MsgBox("Permanently delete these changes?", vbOKCancel) = vbCancel Then
|
|
Exit Sub
|
|
End If
|
|
|
|
For i = 0 To Me.lbHist.ListCount - 1
|
|
If Me.lbHist.Selected(i) Then
|
|
Call handler.undo_changes(X(i, 6), fail)
|
|
If fail Then
|
|
MsgBox ("undo did not work")
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Next i
|
|
|
|
shOrders.PivotTables("ptOrders").PivotCache.Refresh
|
|
|
|
Me.lbHist.clear
|
|
Me.Hide
|
|
End Sub
|