home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus036.dsk / AMORTIZE.MPR / SCRIPT / A007ApprGlobObj897.s (.txt) < prev    next >
Null Bytes Alternating  |  1995-11-12  |  3KB  |  45 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:74
  2. Option Public
  3.  
  4.  
  5.  
  6.  
  7.  
  8. '++LotusScript Development Environment:2:5:(Forward):0:1
  9. Declare Sub DeleteMessage
  10. Declare Sub CreateMessage
  11. Declare Sub Modifymessage
  12.  
  13. '++LotusScript Development Environment:2:5:(Declarations):0:10
  14. %INCLUDE "c:\lotus\compnent\LSCONST.LSS"
  15. '++LotusScript Development Environment:2:2:DeleteMessage:1:8
  16. Sub DeleteMessage
  17.     Set tt = New textbox(currentview.body)
  18.     tt.text = Chr(10)+" Deleting Records... "
  19.     tt.namedstyle="DeleteRecords"
  20.     tt.height = 825
  21.     tt.left = 3525
  22.     tt.top = 1935
  23.     tt.width =  2580
  24.     tt.name="txtDelMessage"
  25. End Sub
  26. '++LotusScript Development Environment:2:2:CreateMessage:1:8
  27. Sub CreateMessage
  28.     Set tt = New textbox(currentview.body)
  29.     tt.text = Chr(10)+" Creating Records... "
  30.     tt.namedstyle="DeleteRecords"
  31.     tt.height = 825
  32.     tt.left = 3525
  33.     tt.top = 1935
  34.     tt.width =  2580
  35.     tt.name="txtCreateMessage"
  36. End Sub
  37. '++LotusScript Development Environment:2:2:Modifymessage:1:8
  38. Sub Modifymessage
  39.     Dim boxType As Long
  40.     boxType=MB_OK+MB_ICONEXCLAMATION
  41.     If currentview.repeatingpanel.pay_date.text <>"" Then
  42.         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"
  43.         currentview.body.butDeleteAmort.setfocus
  44.     End If    
  45. End Sub