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

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Recordchange(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
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"
		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
End Sub