pt/forecast_api
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

If no history, hide form before showing message.

Browse Source
This commit is contained in:
PhilRunninger 2023-08-31 17:07:17 -04:00
parent 395da4671b
commit 7bd8cc2674
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
VBA/changes.frm
View File

@ -15,6 +15,20 @@ Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private X As Variant
Private Sub UserForm_Activate()
tbPrint.Value = ""
Dim fail As Boolean
X = handler.list_changes("{""scenario"":{""quota_rep_descr"":""" & shData.Cells(2, 5) & """}}", fail)
If fail Then
Unload Me
MsgBox ("No adjustments have been made.")
End
End If
Me.lbHist.list = X
Call Utils.frmListBoxHeader(Me.lbHEAD, Me.lbHist, "Modifier", "Owner", "When", "Tag", "Comment", "Sales", "id")
End Sub
Private Sub cbCancel_Click()
Me.Hide
End Sub
@ -34,25 +48,13 @@ Private Sub lbHist_Change()
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
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
If MsgBox("Permanently delete these changes?", vbYesNo) = vbNo Then
Exit Sub
End If