'++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 source.activeview.name = "Data Entry Screen" Then
		If source.activeview.body.commitflag.text="1" Then
			source.activeview.body.voidbutton.text="Remove this transaction from the balance"
		Else
			source.activeview.body.voidbutton.text= "Apply this transaction to the balance"
			Messagebox("You must apply this transaction to the balance before you may go on to another record.")
		End If	
		If source.activeview.body.transtype.text="Check" Then
			source.activeview.body.checknumber.visible=True
			source.activeview.body.depositnumber.visible=False
		Else
			If source.activeview.body.transtype.text="Deposit" Then
				source.activeview.body.checknumber.visible=False
				source.activeview.body.depositnumber.visible=True
			Else
				If source.activeview.body.transtype.text="ATM Withdrawl" Then
					source.activeview.body.checknumber.visible=False
					source.activeview.body.depositnumber.visible=False
				End If
			End If
			'source.activeview.body.checknumber.visible=True
		End If
	End If
End Sub
'++LotusScript Development Environment:2:2:Newrecord:1:12
Sub Newrecord(Source As Docwindow)
	If source.activeview.name = "Data Entry Screen" Then
		If source.activeview.body.commitflag.text="1" Then
			source.activeview.body.voidbutton.text="Remove this transaction from the balance"
		Else
			source.activeview.body.voidbutton.text= "Apply this transaction to the balance"
			Messagebox("You must apply this transaction to the balance before you may go on to another record.")
		End If	
		If source.activeview.body.transtype.text="Check" Then
			source.activeview.body.checknumber.visible=True
			source.activeview.body.depositnumber.visible=False
		Else
			If source.activeview.body.transtype.text="Deposit" Then
				source.activeview.body.checknumber.visible=False
				source.activeview.body.depositnumber.visible=True
			Else
				If source.activeview.body.transtype.text="ATM Withdrawl" Then
					source.activeview.body.checknumber.visible=False
					source.activeview.body.depositnumber.visible=False
				End If
			End If
			'source.activeview.body.checknumber.visible=True
		End If
	End If
End Sub