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





'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub DeleteMessage
Declare Sub CreateMessage
Declare Sub Modifymessage

'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "c:\lotus\compnent\LSCONST.LSS"
'++LotusScript Development Environment:2:2:DeleteMessage:1:8
Sub DeleteMessage
	Set tt = New textbox(currentview.body)
	tt.text = Chr(10)+" Deleting Records... "
	tt.namedstyle="DeleteRecords"
	tt.height = 825
	tt.left = 3525
	tt.top = 1935
	tt.width =  2580
	tt.name="txtDelMessage"
End Sub
'++LotusScript Development Environment:2:2:CreateMessage:1:8
Sub CreateMessage
	Set tt = New textbox(currentview.body)
	tt.text = Chr(10)+" Creating Records... "
	tt.namedstyle="DeleteRecords"
	tt.height = 825
	tt.left = 3525
	tt.top = 1935
	tt.width =  2580
	tt.name="txtCreateMessage"
End Sub
'++LotusScript Development Environment:2:2:Modifymessage:1:8
Sub Modifymessage
	Dim boxType As Long
	boxType=MB_OK+MB_ICONEXCLAMATION
	If currentview.repeatingpanel.pay_date.text <>"" Then
		Messagebox"You must delete the current amortization schedule in order to create a new one.  If you would like to leave this schedule and create another, choose 'Create a New Customer Record'",boxType,"Unable to modify this field"
		currentview.body.butDeleteAmort.setfocus
	End If	
End Sub