Pushbutton

Hi William, here is some sample code. The menu I put together looks like this:

The script allows you to select the file to import, select the import definition and then select several audit steps to perform.  You can find the code below and I have attached it so that you can look at it.

'**********************************************************************************************
'* Script:		Audit Step Selection Demo.iss
'* Author:	Brian Element - brian.element@ideascripting.com
'* Purpose:	Demo script to example of obtaining files and then performing audit steps on them.
'* Date:		July 15, 2014
'* This script is provided without any warranty or guarantee.  Anybody using this script
'* is encouraged to validate the effectiveness and reliability on their own.
'**********************************************************************************************

Option Explicit

Dim sFilename As String
Dim sImportFilename As String
Dim sImportDefinition As String
Dim bAuditSteps(3) As Boolean
Dim dlg As NewDialog
Dim sIDEAVer As String 'holds the idea version number
Dim Opendlg As Object
Dim working_directory as string

Sub Main
	working_directory = Client.WorkingDirectory()
	sIDEAVer  = verIDEA() 
	Call menu()
	Call ImportFile()
	
	If bAuditSteps(0) Then Call doSomething1()
	If bAuditSteps(1) Then Call doSomething2()
	If bAuditSteps(2) Then Call doSomething3()
	If bAuditSteps(3) Then Call doSomething4()
End Sub

Function importFile()
	sFilename = client.UniqueFileName("Demo Test")
	Client.ImportPrintReport sImportDefinition, sImportFilename, sFilename, FALSE
End Function

Function doSomething1()

End Function

Function doSomething2()

End Function

Function doSomething3()

End Function

Function doSomething4()

End Function

Function menu()
	Dim button As Integer
	button = Dialog(dlg)
End Function

Function displayIt(ControlID$, Action%, SuppValue%)
	Dim bExitFun As Boolean
	
	Select Case Action%
		Case 1
		
		Case 2
			Select Case ControlId$
			
				Case "PushButton1"
					'********************************************************************
					'* The following 3 lines can be used for V8 of IDEA
					If sIDEAVer = "8" Then 
						Set Opendlg = CreateObject("Ideaex.SaveOpenDialog")
						Opendlg.DisplayDialog False'For V8.5
						sImportFilename = Opendlg.SelectedFile
					'* End of section for idea verion 8.5
					'***********************************************************************
					Else
					'**********************************************************************
					'* Start of dialogs for IDEA V9
						Set Opendlg = Client.CommonDialogs
						sImportFilename = Opendlg.FileOpen("", "", "*.* (*.*)|*.*")		
					'*End of section for V9
					'**********************************************************************
					End If
				Case "PushButton2"
					'********************************************************************
					'* The following 3 lines can be used for V8 of IDEA
					If sIDEAVer = "8" Then 
						Set Opendlg = CreateObject("Ideaex.SaveOpenDialog")
						Opendlg.DisplayDialog False'For V8.5
						sImportDefinition = Opendlg.SelectedFile
					'* End of section for idea verion 8.5
					'***********************************************************************
					Else
					'**********************************************************************
					'* Start of dialogs for IDEA V9
						Set Opendlg = Client.CommonDialogs
						sImportDefinition = Opendlg.FileOpen("", "", "JPM Files (*.JPM)|*.JPM")		
					'*End of section for V9
					'**********************************************************************
					End If
					
				Case "OKButton1"
					bAuditSteps(0) = dlg.CheckBox1
					bAuditSteps(1) = dlg.CheckBox2
					bAuditSteps(2) = dlg.CheckBox3
					bAuditSteps(3) = dlg.CheckBox4
					bExitFun = True
			End Select
	End Select
	
	If sImportFilename = "" Then
		DlgText "Text1", "Please Select a file to import"
	Else
		DlgText "Text1", sImportFilename
	End If
	
	If sImportDefinition = "" Then
		DlgText "Text2", "Please Select a definition for the file import"
	Else
		DlgText "Text2", sImportDefinition
	End If
	
	If bExitFun Then
		displayIt = 0
	Else 
		displayIt = 1
	End If
End Function

Function verIDEA() As String
	On Error GoTo errorHandler
	Dim openDlg As Object
	Set openDlg = Client.CommonDialogs
	
	verIDEA = "9"
	Set openDlg = Nothing
	Exit Function
errorHandler:
	verIDEA = "8"
	Set openDlg = Nothing
End Function