home *** CD-ROM | disk | FTP | other *** search
Null Bytes Alternating | 1997-01-09 | 2.5 KB | 36 lines |
- '++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