'++LotusScript Development Environment:2:5:(Options):0:66
Option Public

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub StartCheck
Declare Sub SetDefaultButtonText
Declare Sub Removemessage

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:StartCheck:1:8
Sub StartCheck
	If (currentview.body.transtype.text=("") Or (currentview.body.transtype.text="None")) Then
		Messagebox("You must specify a transaction type of Check, Deposit, or Misc Withdrawl.")
		currentview.body.checkradio.setfocus
	Else
		If currentview.body.voidbutton.text="Remove this transaction from the balance"  Then
			removemessage
			currentview.body.voidbutton.setfocus
		End If
	End If
	
End Sub
'++LotusScript Development Environment:2:2:SetDefaultButtonText:1:8
Sub SetDefaultButtonText
	If currentview.name="Data Entry Screen" Then
		If currentview.body.commitflag.text="1" Then
			currentview.body.voidbutton.text="Remove this transaction from the balance"
			startcheck
		Else
			currentview.body.voidbutton.text="Apply this transaction to the balance"
		End If
		If currentview.body.Transtype.text="Check" Then
			currentview.body.Checknumber.visible=True
			currentview.body.Depositnumber.visible=False
		Else
			If currentview.body.Transtype.text="Deposit" Then
				currentview.body.Checknumber.visible=False
				currentview.body.Depositnumber.visible=True
			Else
				currentview.body.Checknumber.visible=False
				currentview.body.Depositnumber.visible=False
			End If
		End If
	End If
	currentwindow.repaint
End Sub
'++LotusScript Development Environment:2:2:Removemessage:1:8
Sub Removemessage
	Messagebox("This transaction must be removed from the balance before it can be modified.")
End Sub