VBA/changes.frm

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 cbUndo_Click()

    Dim logid As Integer
    Dim i As Integer
    Dim fail As Boolean
    
    For i = 0 To Me.lbHist.ListCount - 1
        If Me.lbHist.Selected(i) Then
            Call handler.undo_changes(x(i, 5), fail)
            If fail Then
                MsgBox ("undo did not work")
                Exit Sub
            End If
        End If
    Next i
    
    Sheets("Orders").PivotTables("PivotTable1").PivotCache.Refresh
    

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, 6)
            Exit Sub
        End If
    Next i
        
    

End Sub



Private Sub UserForm_Activate()

    Dim fail As Boolean
    
    'x = handler.list_changes("{""user"":""" & Application.UserName & """}", fail)
    x = handler.list_changes("{""quota_rep_descr"":""" & Sheets("data").Cells(2, 5) & """}", fail)
    If fail Then
        Me.Hide
        Exit Sub
    End If
    Me.lbHist.list = x

End Sub