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

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Recordchange(Source As Docwindow)
Declare Sub Newrecord(Source As Docwindow)

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

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As DOCWINDOW
	Set Source = Bind(Objectname_)
	On Event Recordchange From Source Call Recordchange
	On Event Newrecord From Source Call Newrecord
End Sub

'++LotusScript Development Environment:2:2:Recordchange:1:12
Sub Recordchange(Source As Docwindow)
	If currentview.name="Data Entry Screen" Then
		If currentview.body.commitflag.text="1" Then
			currentview.body.voidbutton.text="Remove this transaction from the balance"
			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
			End If
		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:Newrecord:1:12
Sub Newrecord(Source As Docwindow)
	setdefaultbuttontext
End Sub