home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW06_S1.NSF (.txt) < prev    next >
Lotus Notes Database  |  1997-02-02  |  934KB  |  3,734 lines
  1. Customer Stock Portfolios
  2. Company
  3. Company:        
  4. Company
  5. Company name required to save form.
  6.     3S4S5S6S8S13SCompany
  7. Symbol:        
  8. Ticker
  9. Symbol required to save form.
  10.     3S4S5S6S8S13STicker
  11. Current value:     
  12. CurrentValue
  13. Current value required to save form.{
  14.     3S4S5S6S8S13SCurrentValue
  15. Hidden field(s):
  16. Ticker
  17. CurrentValueV
  18.     1S4S7S2E
  19. CurrentQuote
  20. Debbie Williams
  21. [_jwI
  22. ,*!}g
  23. ox=G)r
  24. @=fBx
  25. Z~)4H
  26. 6ttCLZ
  27. $Modified
  28.     1S2S3S
  29. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  30.     0SL1S
  31. $TITLE
  32. Customer Portfolio
  33. CN=Todd Flolo/OU=CAM/O=Lotus
  34. Position edit dialog
  35. Copy Of Position edit dialog
  36. Position delete dialog
  37. Stock Price
  38. Customer:  All by name
  39. Stocks: All by ticker
  40. Customer Information
  41. Customer/All by name
  42. Customer\All by name
  43. Stocks\All by ticker
  44. Customers\All by name
  45. Stocks\All by $50 range
  46. Stocks\All by gain/loss
  47. Customers\All by $50K range
  48. Customers\All by performance
  49. Customers\All by state
  50. Debbie Williams
  51. all documents
  52. Summary Data
  53. Chris Smith 
  54. Summaries\All Portfolio Review
  55. Brokerage Summary
  56. e coli
  57. David Folk
  58. Print Letter
  59. Untitled
  60. Print Letters
  61. Position add dialog
  62. Ticker    
  63. Tickers
  64. Companies/By Name
  65. Companies\By Name
  66. Copy Of Companies\By Name
  67. Companies\By Ticker
  68. Companies\By Performance    
  69. Company
  70. Copy Of Companies\By Ticker
  71. (By Ticker)
  72. Sell Stock dialog
  73. Copy Of Customer Portfolio
  74. Portfolio
  75. Copy Of Portfolio
  76. Customer
  77. tester
  78. Copy Of Customers\All by name
  79. Untitled\Untitled
  80. (templates)
  81. Template Form
  82. templates
  83. Copy Of Customer
  84. Template Customer
  85. Template
  86. Templates
  87. Buy stock dialog
  88. ($All)
  89. CN=David Folk/OU=CAM/O=Lotus
  90. Copy Of Buy stock dialog
  91. Sell stock dialog
  92. ect:    f
  93.     $CONTENT(BEGIN):
  94.     $CONTENT(END)
  95.     $CONTENT(BEGIN)@
  96. CN=Todd Flolo/OU=CAM/O=Lotus
  97. Chris Smith
  98. CN=David Folk/OU=CAM/O=Lotus
  99. David Folk
  100. David Folk
  101. David Folk
  102. David Folk
  103. David Folk
  104. David Folk
  105. David Folk
  106. David Folk
  107. David Folk
  108. David Folk
  109. David Folk
  110. David Folk
  111. David Folk
  112. David Folk
  113. David Folk
  114. David Folk
  115. David Folk
  116. David Folk
  117. David Folk
  118. David Folk
  119. David Folk
  120. David Folk
  121. David Folk
  122. David Folk
  123. David Folk
  124. ox=G)r
  125. David Folk
  126. @=fBx
  127. David Folk
  128. David Folk
  129. [_jwI
  130. David Folk
  131. David Folk
  132. David Folk
  133. David Folk
  134. David Folk
  135. David Folk
  136. Z~)4H
  137. Z~)4H
  138. Z~)4H
  139. Z~)4H
  140. VTpo 
  141. VTpo 
  142. CustNamePortValue$Conflict$REF$C1$
  143. Customer
  144.     L1S2S3S
  145. CustName
  146. New Customer    
  147. My test
  148. ***New Customer***
  149. *** N
  150. David FOlk
  151. Joe User
  152. David Folk
  153. Reeti Punja
  154. David
  155. Dave Davd
  156. Melvin Schwartz
  157. David Laucirica
  158. Chris Smith
  159. Leah Shriro
  160. Sandra Chinoporos
  161. Merry Morse
  162. Lance McVay
  163. Peter Rodman
  164. Stephen Morrisey
  165. Jon Marr
  166. Richare Feinman
  167. Scott Marsumoto
  168. Bill Clinton
  169. Carolyn Schwartz
  170. Jen Bonner
  171. Victor Shing
  172. Stephen Rupp
  173. Jerzy Kosinski
  174. Jim Jones
  175. Julius Irving
  176. Howard Stern
  177. Henry Louis Gates
  178. Scott Matsumoto
  179. Richard Feinman
  180. zzzzzzzz
  181. ttttttttttt
  182. 1ttttt
  183. David Folk!
  184. david folk
  185. David 
  186. Eric Arthur-Blair
  187. Mary Ann Evans
  188. Gordon M. Sumner
  189. Samuel Clemens
  190. Charles Ludwidge Dodgson
  191. Francis Scott Key
  192. William Frederick Cody
  193. Amandine Dupin
  194. Stephen Belkin
  195. Holly Folk
  196. Chuck Carey
  197. Kate Story
  198. Damian Gallo
  199. Robert Dipianta
  200. Ken Perra
  201. Louis Messina
  202. Robert Ruta
  203. Wendy Waller
  204. Jeniffer Rudis
  205. Charles Carey
  206. Ellenore DeLaverne
  207. Ellie DeLaverne
  208. Jim Parsons
  209. Mathew Tuttleman
  210. Ronald Nathonson
  211. Lisa Archebald
  212. Lisa Archibald
  213. Lisa Radavich
  214. Tor Stahl
  215. Stephen Feige
  216. Baju Punja
  217. Canaan Renkie
  218. Andrew Tuykody
  219. Ravi Punja
  220. Ian Compton
  221. david
  222. david2
  223. David's Test
  224.     0S0E
  225. EXT56648Lotus123.Workbook.97
  226. "Arial
  227. Total:
  228. "Arial
  229.    ' SmartMaster. This path will be used by
  230.                     ' scripts in the SmartMaster so it can
  231.                     ' access data in this Notes database.
  232.                     Handle.ActiveDocument.DocInfo.FieldManager.Fields( _
  233.                     "Field2").Contents = db.Server
  234.                     
  235.                     
  236.                     ' Close and save the Word Pro SmartMaster
  237.                     ' MillCorp.MWP.
  238.                     Handle.Close (True)
  239.                     
  240.                     ' Close Word Pro.
  241.                     Handle.Quit
  242.                Else
  243.             
  244. Categori_ze
  245. _Edit Document
  246. Send Docu_ment
  247. _Forward
  248. _Move To Folder...
  249. _Remove From Folder_
  250. Print form letters for all clients'++LotusScript Development Environment:2:5:(Options):0:66
  251. '++LotusScript Development Environment:2:5:(Forward):0:1
  252. Declare Sub Click(Source As Button)
  253. Declare Sub DetachTemplateLetter
  254. '++LotusScript Development Environment:2:5:(Declarations):0:2
  255. '++LotusScript Development Environment:2:2:BindEvents:1:129
  256. Private Sub BindEvents(Byval Objectname_ As String)
  257.      Static Source As BUTTON
  258.      Set Source = Bind(Objectname_)
  259.      On Event Click From Source Call Click
  260. End Sub
  261. '++LotusScript Development Environment:2:2:Click:1:12
  262. Sub Click(Source As Button)
  263.      Dim Session As New NotesSession  
  264.      Dim Db As NotesDatabase  
  265.      Dim View As NotesView
  266.      Dim Doc As NotesDocument  
  267.      Set Db = Session.CurrentDatabase  
  268.      Set View = Db.GetView("Customers\All by name")
  269.      Set Doc = View.GetFirstDocument   
  270.      Dim Handle As Variant 
  271.      
  272.      ' The file, Temp.lwp, is stored in another document in
  273.      ' the database. The following local sub,
  274.      ' DetachTemplateLetter, is also defined with the button. 
  275.      ' It locates the document containing Temp.lwp, and
  276.      ' detaches Temp.lwp to the current drive.
  277.      DetachTemplateLetter
  278.      
  279.      ' Get Word Pro, make it visible, and open Temp.lwp: 
  280.      Set Handle  = CreateObject("WordPro.Application")
  281.      Handle.Visible = True
  282.      
  283.      ' Loop for each document in the Notes view.
  284.      While Not (Doc Is Nothing)
  285.           
  286.           ' Open the template document
  287.           Handle.OpenDocument Curdrive$() + "\Temp.lwp"
  288.           
  289.           ' Get customer's name from field CustName in the
  290.           ' current document and write it in two places in
  291.           ' Temp.lwp:   
  292.           Dim TheCustomer As String
  293.           TheCustomer = Doc.GetFirstItem("CustName").Text
  294.           Call Handle.Foundry.ClickHeres( "Name" _
  295.           ).InsertText(TheCustomer)
  296.           Call Handle.Foundry.ClickHeres( "Greeting" _
  297.           ).InsertText("Dear " + TheCustomer + ":" )
  298.           
  299.           ' Get street address from field CustAddress1 in the
  300.           ' current document and write to Temp.lwp:       
  301.           Dim Address1 As String         
  302.           Address1 = Doc.GetFirstItem("CustAddress1").Text
  303.           Call Handle.Foundry.ClickHeres("Address" _ 
  304.           ).InsertText(Address1)   
  305.           
  306.           ' Get city, state, and zip from field CustAddress2 in
  307.           ' the current document and write to Temp.lwp:
  308.           Dim Address2 As String
  309.           Address2 = Doc.GetFirstItem("CustAddress2").Text
  310.           Call Handle.Foundry.ClickHeres("CityStateZip" _
  311.           ).InsertText(Address2)
  312.           
  313.           ' Get the portfolio's value from field PortValue in
  314.           ' the current document and write to Temp.lwp:
  315.           Dim PortFolioValue As String         
  316.           PortFolioValue = doc.GetFirstItem("PortValue").Text
  317.           Call Handle.Foundry.ClickHeres("Portfolio Info" _
  318.           ).InsertText("Portfolio value: $" + PortFolioValue)
  319.           
  320.           ' Depending on the portfolio's value, write a
  321.           ' different closing sentence in Temp.lwp: 
  322.           Dim ClosingSentence As String
  323.           If Clng (PortFolioValue) < 5000 Then
  324.                ClosingSentence  = "Feel free to contact us" _ 
  325.                + " with any questions regarding your account."
  326.           Else
  327.                ClosingSentence = "Your account is important" _
  328.                + " to us! One of our brokers will contact you soon."
  329.           End If
  330.           Call Handle.Foundry.ClickHeres("Closing" _
  331.           ).InsertText(ClosingSentence)   
  332.           
  333.           ' Write author's name in letter.
  334.           Call Handle.Foundry.ClickHeres( "YourName" _
  335.           ).InsertText(session.CommonUserName )  
  336.           
  337.           ' Print file and close it without saving changes.
  338.           Handle.Print
  339.           Handle.Close False
  340.           
  341.           ' Get the next document in the Notes view.
  342.           Set doc = view.GetNextDocument(doc)
  343.      Wend
  344.      
  345.      ' Exit Word Pro.
  346.      Handle.Quit
  347.      
  348.      ' Delete Temp.lwp from the current drive. 
  349.      Kill Curdrive$() + "\Temp.lwp" 
  350. End Sub
  351. '++LotusScript Development Environment:2:2:DetachTemplateLetter:1:8
  352. Sub DetachTemplateLetter
  353.      ' The following sub detaches the attached file Temp.lwp
  354.      ' from a Template document in the Notes database to the
  355.      ' current drive on the local machine.
  356.      
  357.      Dim Session As New NotesSession
  358.      Dim Db As NotesDatabase
  359.      Dim View As NotesView
  360.      Dim TemplateDocument As NotesDocument
  361.      
  362.      Set Db = session.CurrentDatabase  
  363.      Set View = Db.GetView("Templates")
  364.      
  365.      ' Set TemplateDocument to the first document in the Notes
  366.      ' view Templates.
  367.      Set TemplateDocument = View.GetFirstDocument   
  368.      
  369.      ' Loop for each document in Templates.
  370.      While Not (TemplateDocument Is Nothing)
  371.           
  372.           ' If the docment's subject field contains the string
  373.           ' "Customer Letter", then extract the file attachment
  374.           ' Temp.lwp. Otherwise, get the next document in 
  375.           ' the view.
  376.           If TemplateDocument.GetFirstItem("Subject").text = _
  377.           "Customer Letter" Then
  378.                Dim Rtitem As Variant
  379.                Dim Object As NotesEmbeddedObject
  380.                Set Object = TemplateDocument.GetAttachment( _
  381.                "Temp.lwp" )
  382.                Call Object.ExtractFile (Curdrive$() + _
  383.                "\Temp.lwp")
  384.           End If
  385.           Set TemplateDocument = _ 
  386.           View.GetNextDocument(TemplateDocument)               
  387.      Wend
  388. End Sub
  389. Install MillCorp SmartMaster'++LotusScript Development Environment:2:5:(Options):0:66
  390. '++LotusScript Development Environment:2:5:(Forward):0:1
  391. Declare Sub Initialize
  392. Declare Sub Click(Source As Button)
  393. '++LotusScript Development Environment:2:5:(Declarations):0:2
  394. '++LotusScript Development Environment:2:2:BindEvents:1:129
  395. Private Sub BindEvents(Byval Objectname_ As String)
  396.      Static Source As BUTTON
  397.      Set Source = Bind(Objectname_)
  398.      On Event Click From Source Call Click
  399. End Sub
  400. '++LotusScript Development Environment:2:2:Initialize:1:10
  401. Sub Initialize
  402.      
  403. End Sub
  404. '++LotusScript Development Environment:2:2:Click:1:12
  405. Sub Click(Source As Button)
  406.      ' This sub detaches the attached SmartMaster file
  407.      ' MillCorp.MWP from a Template document in the Notes
  408.      ' database to a drive on the local machine. 
  409.      
  410.      Dim Session As New NotesSession
  411.      Dim Db As NotesDatabase
  412.      Dim View As NotesView
  413.      Dim TemplateDocument As NotesDocument
  414.      
  415.      ' Access the Templates view in the current database.
  416.      Set Db = Session.CurrentDatabase  
  417.      Set View = Db.GetView("Templates")
  418.      
  419.      ' Set TemplateDocument to the first document in the Notes
  420.      ' view Templates.
  421.      Set TemplateDocument = View.GetFirstDocument
  422.      
  423.      ' Loop for each document in Templates.
  424.      While Not (TemplateDocument Is Nothing)
  425.           
  426.           ' If the docment's subject field contains the string
  427.           ' "SmartMaster:MillCorp", then extract the file
  428.           ' attachment MillCorp.MWP. Otherwise, get the next
  429.           ' document in the view.
  430.           If TemplateDocument.GetFirstItem("Subject").Text = _
  431.           "SmartMaster:MillCorp" Then
  432.                Dim InstallingTo As String   
  433.                Dim Rtitem As Variant
  434.                Dim Object As NotesEmbeddedObject
  435.                Set Object = TemplateDocument.GetAttachment( _
  436.                "MillCorp.MWP" )
  437.                
  438.                ' Give the user the option to detach the file to
  439.                ' a different path.
  440.                InstallingTo =  Inputbox$( "The file will " _
  441.                + "install to the following directory: ", _
  442.                "Detaching file:", "C:\LOTUS\SMASTERS\WORDPRO")
  443.                
  444.                If  InstallingTo <> "" Then
  445.                     
  446.                     ' Detach the file.
  447.                     Call Object.ExtractFile (InstallingTo + "\MillCorp.MWP")
  448.                     
  449.                     ' Get an object handle to Word Pro.
  450.                     Dim Handle As Variant
  451.                     Set Handle  =  CreateObject( _
  452.                     "WordPro.Application")
  453.                     
  454.                     ' Make Word Pro visible.
  455.                     Handle.Visible = True
  456.                     
  457.                     ' Open the file MillCorp.MWP.
  458.                     Handle.OpenDocument InstallingTo + _
  459.                     "\MillCorp.MWP"         
  460.                     
  461.                     ' Write the name of
  462.                     ' this Notes database to a field in the
  463.                     ' SmartMaster. This path will be used by
  464.                     ' scripts in the SmartMaster so it can
  465.                     ' access data in this Notes database.
  466.                     Handle.ActiveDocument.DocInfo.FieldManager.Fields( _
  467.                     "Field1").Contents = db.FileName
  468.                     
  469.                     ' Write the name of
  470.                     ' this Notes database to a field in the
  471.                     ' SmartMaster. This path will be used by
  472.                     ' scripts in the SmartMaster so it can
  473.                     ' access data in this Notes database.
  474.                     Handle.ActiveDocument.DocInfo.FieldManager.Fields( _
  475.                     "Field2").Contents = db.Server
  476.                     
  477.                     
  478.                     ' Close and save the Word Pro SmartMaster
  479.                     ' MillCorp.MWP.
  480.                     Handle.Close (True)
  481.                     
  482.                     ' Close Word Pro.
  483.                     Handle.Quit
  484.                Else
  485.                     ' If the user clicked Cancel then
  486.                     ' InstallingTo contains an empty string.
  487.                     Msgbox "No file detached."
  488.                End If
  489.           End If
  490.           Set TemplateDocument = view.GetNextDocument(_
  491.           TemplateDocument) 
  492.      Wend     
  493. End Sub
  494. (Untitled)'++LotusScript Development Environment:2:5:(Options):0:66
  495. '++LotusScript Development Environment:2:5:(Forward):0:1
  496. Declare Sub Click(Source As Button)
  497. '++LotusScript Development Environment:2:5:(Declarations):0:2
  498. '++LotusScript Development Environment:2:2:BindEvents:1:129
  499. Private Sub BindEvents(Byval Objectname_ As String)
  500.      Static Source As BUTTON
  501.      Set Source = Bind(Objectname_)
  502.      On Event Click From Source Call Click
  503. End Sub
  504. '++LotusScript Development Environment:2:2:Click:1:12
  505. Sub Click(Source As Button)
  506.      
  507. End Sub
  508.     }t    #
  509. CN=Scott Matsumoto/OU=CAM/O=Lotus
  510. FOLDER_DIRECTORY_OBJECT
  511. David Folk
  512. $Modified
  513.     1S2S3S
  514. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  515.     0SL1S3724
  516. $TITLE
  517. CN=Todd Flolo/OU=CAM/O=Lotus
  518. ###########
  519. Customers\All by name
  520. David Folk^
  521. CustNamePortValue$Conflict$REF
  522. Customer
  523.     L1S2S3S1
  524. CustName
  525. CustNameCustomer NamePortValuePortfolio Value&
  526. #####################
  527. CN=Todd Flolo/OU=CAM/O=LotusChris SmithMain############
  528. CN=Todd Flolo/OU=CAM/O=Lotus####################################
  529. Debbie WilliamsDebbie WilliamsSummary Data
  530. Debbie Williamst
  531. CustNamePortValueCustAnGain$Conflict$REF
  532. Customer Portfolio
  533.     L1S2S3S1
  534. CustName
  535. CustNameCustomer NamePortValuePortfolio ValueCustAnGainAnnualized Gain&
  536. PYV############################################
  537. 123temp.123
  538. #TemplateNew Customer
  539. David FolkCN=David Folk/OU=CAM/O=Lotus&
  540. ##########################################################
  541. ##########################################################
  542. 30719
  543. David Folk
  544. ##########################################################
  545. 2David Folk
  546. David Folk#######################################################
  547. Print Letters
  548. EDavid Folk4
  549. David FolkfL3
  550. ############################
  551. David Folk#############
  552. David Folk#############
  553. David Folk#############
  554. David Folk#############
  555. David Folk#############
  556. David Folk#############
  557. David Folk#############
  558. David Folk#############
  559. David Folk#############
  560. David Folk#############
  561. David Folk#############
  562. David Folk#############
  563. David Folk#############
  564. David Folk#############
  565. David Folk#############
  566. David Folk#############
  567. David Folk#############
  568. David Folk#############
  569. David Folk#############
  570. David Folk#############
  571. David Folk#############
  572. David Folk#############
  573. ox=G)r
  574. David Folk#############
  575. @=fBx
  576. David Folk#############
  577. David Folk#############
  578. [_jwI
  579. David Folk#############
  580. David Folk#############
  581. David Folk#############
  582. David Folk#############
  583. David Folk#############
  584. David Folk#############
  585. David Folk#############
  586. CBuy stock dialog
  587. CN=David Folk/OU=CAM/O=LotusCD
  588. StockNameAndValueNewStockQuoteNumberSharesNumberOf########################################################
  589. Company
  590. David Folk
  591. CurrentQuoteCurrentValueTickerCompany##################
  592. Companies\By Ticker
  593. David Folkx
  594. TickerCompanyCurrentValueCurrentQuote$Conflict$REF
  595. Company
  596.     L1S2S3S2E1
  597. Ticker
  598. TickerTickerCompanyCompanyCurrentValueCurrent valueCurrentQuoteHidden column&
  599. ###################
  600. Z~)4H
  601. PortValueValForFX
  602. @1-2-3 6.0 Worksheet
  603. ABCCustomer
  604. CN=David Folk/OU=CAM/O=Lotus
  605. PorListPosListBodyCustAddress2CustAddress1PortValueCustName##############################
  606. Templates
  607. David FolkR
  608. Subject$Conflict$REF
  609. Template
  610.     L1S2S3S1
  611. Subject&
  612. PortValueValForFX
  613. @1-2-3 6.0 Worksheet
  614. ABCTemplate
  615. David Folk
  616. BodySubject##########################
  617. 'IBMCompanyIBMIBM
  618. [@IBM @ 110.5
  619. David Folk
  620. ##############################################
  621. 'IADCompanyInland SteelIAD
  622. 1@IAD @ 17.5
  623. David Folk
  624. ######################################
  625. 'INTUCompanyIntuitINTU
  626. `B@INTU @ 36.75
  627. David Folk
  628. ########################################
  629. 'MCICCompanyMCIMCIC
  630. :@MCIC @ 26
  631. David Folk
  632. ##############################################
  633. 'MDCompanyMcDonnell DouglasMD
  634. H@MD @ 49.875
  635. David Folk
  636. ##################################
  637. 'MOBCompanyMobilMOB
  638. \@MOB @ 114.5
  639. David Folk
  640. ############################################
  641. 'BJICACompanyBen & Jerry'sBJICA
  642. 0@BJICA @ 16
  643. David Folk
  644. #################################
  645. 'BORLCompanyBorland InternationalBORL
  646. @!@BORL @ 8.625
  647. David Folk
  648. #########################
  649. 'CPBCompanyCampbell SoupCPB
  650. P@CPB @ 67.375
  651. David Folk
  652. ###################################
  653. 'BIKECompanyCannondaleBIKE
  654. 2@BIKE @ 18
  655. David Folk
  656. ###############
  657. 'DISCompanyWALT DISNEY COMPANYDIS
  658. L@DIS @ 57.25
  659. David Folk
  660. ######################
  661. 'BKBCompanyBank of BostonBKB
  662. `K@BKB @ 54.75
  663. David Folk
  664. ###################################
  665. 'BUDCompanyAnheuser-BuschBUD
  666. R@BUD @ 75.125
  667. David Folk
  668. ##########################
  669. 'AXPCompanyAmerican ExpressAXP
  670. F@AXP @ 45.125
  671. David Folk
  672. ################################
  673. 'AETCompanyAetna Life and CasualtyAET
  674. P@AET @ 67.75
  675. David Folk
  676. ##########################
  677. 6ttCLZ
  678. 'THDOCompany3DOTHDO
  679.  @THDO @ 8.25
  680. David Folk
  681. ############################################
  682. 'CBSCompanyCBSCBS
  683. 2@CBS @ 18.75
  684. David Folk
  685. ##############################################
  686. 'DALCompanyDelta Air LinesDAL
  687. pQ@DAL @ 69.75
  688. David Folk
  689. ##################################
  690. 'DOLCompanyDole FoodDOL
  691. D@DOL @ 41.75
  692. David Folk
  693. ########################################
  694. 'DOWCompanyDow ChemicalDOW
  695. S@DOW @ 79.75
  696. David Folk
  697. #####################################
  698. 'DDCompanyDuPontDD
  699. T@DD @ 83.625
  700. David Folk
  701. #############################################
  702. 'EKCompanyEastman KodakEK
  703. pR@EK @ 73.75
  704. David Folk
  705. #######################################
  706. 'FNMCompanyFederal National Mortgage AssociationFNM
  707. @@@FNM @ 32.5
  708. David Folk
  709. #############
  710. 'FCompanyFord MotorF
  711. @@F @ 33.625
  712. David Folk
  713. ############################################
  714. 'GTCompanyGoodyear Tire &
  715.  RubberGT
  716. G@GT @ 47
  717. David Folk
  718. ################################
  719. 'GTECompanyGTEGTE
  720.  D@GTE @ 40.25
  721. David Folk
  722. ######################
  723. 'HSYCompanyHershey FoodsHSY
  724. U@HSY @ 87.625
  725. David Folk
  726. ###################################
  727. 'HDCompanyHondaHD
  728. pJ@HD @ 52.875
  729. David Folk
  730. ##############################################
  731. 'INTCCompanyIntelINTC
  732. S@INTC @ 79.5
  733. David Folk
  734. ##########################################
  735. 'JPMCompanyJ.P. MorganJPM
  736. V@JPM @ 91.625
  737. David Folk
  738. #####################################
  739. 'LCompanyLiberty FinancialL
  740. @>@L @ 30.25
  741. David Folk
  742. ######################################
  743. 'MMMCompanyMinnesota, Mining and Manufacturing (MMM)MMM
  744.  Q@MMM @ 68.5
  745. David Folk
  746. #########
  747. 'NOCCompanyNorthrop GrummanNOC
  748. R@NOC @ 72
  749. David Folk
  750. ####################################
  751. 'ORCLCompanyOracleORCL
  752. C@ORCL @ 39
  753. David Folk
  754. ###########################################
  755. 'PETMCompanyPETsMARTPETM
  756. 8@PETM @ 24.87
  757. David Folk
  758. ######################################
  759. 'PSIXCompanyPSInetPSIX
  760. @&@PSIX @ 11.125
  761. David Folk
  762. #######################################
  763. 'QDEKCompanyQuarterdeckQDEK
  764.  @QDEK @ 8.44
  765. David Folk
  766. ####################################
  767. 'RBKCompanyReebokRBK
  768. 0B@RBK @ 36.375
  769. David Folk
  770. ##########################################
  771. 'RBDCompanyRubbermaidRBD
  772. ;@RBD @ 27.875
  773. David Folk
  774. ######################################
  775. 'SSPCompanyScripps HowardSSP
  776. F@SSP @ 45.25
  777. David Folk
  778. ###################################
  779. 'SEGCompanySeagate TechnologySEG
  780.  I@SEG @ 50.25
  781. David Folk
  782. ###############################
  783. 'SPGLACompanySpiegelSPGLA
  784. !@SPGLA @ 8.75
  785. David Folk
  786. #####################################
  787. 'STKCompanyStorage TechnologySTK
  788. @C@STK @ 38.5
  789. David Folk
  790. ################################
  791. 'TOYCompanyToys "R" UsTOY
  792. =@TOY @ 29.875
  793. David Folk
  794. #####################################
  795. 'UTXCompanyUnited TechnologiesUTX
  796. \@UTX @ 115.25
  797. David Folk
  798. #############################
  799. ,*!}g
  800. 'VOLVYCompanyVolvoVOLVY
  801. 4@VOLVY @ 20.625
  802. David Folk
  803. #####################################
  804. 'XRXCompanyXeroxXRX
  805. @L@XRX @ 56.5
  806. David Folk
  807. #############################################
  808. ##########################################################
  809. ##########################################################
  810. ##########################################################
  811. ##########################################################
  812. ##########################################################
  813. ##########################################################
  814. ##########################################################
  815. ##########################################################
  816. ##########################################################
  817. ##########################################################
  818. ##########################################################
  819. Sell stock dialog
  820. CN=David Folk/OU=CAM/O=LotusCD
  821. StockNameAndValueStockQuoteNumberSharesNumberOfSharesToSell##############################################
  822. ##########################################################
  823. ##########################################################
  824. ##########################################################
  825. ##########################################################
  826. ##########################################################
  827. ##########################################################
  828. ##########################################################
  829. ##########################################################
  830. ##########################################################
  831. ##########################################################
  832. ##########################################################
  833. ##########################################################
  834. ##########################################################
  835. ##########################################################
  836. ##########################################################
  837. STG17094
  838. STG14523
  839. STG61162
  840. STG12470Number of shares to buy:20INTC @ 79.5Stock name and value:
  841. STG31600
  842. STG44670
  843. STG41000
  844. STG48369
  845. STG55744
  846. STG60358
  847. EXT56076
  848. EXT56076JournalBody
  849. CustomerHolly Folk
  850. @26 Fox Hill LaneKensington, CT 06037
  851. CN=David Folk/OU=CAM/O=Lotus
  852. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  853. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  854. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  855. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  856. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  857. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  858. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  859. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  860. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  861. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  862. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  863. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  864. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  865. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  866. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  867. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  868. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  869. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  870. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  871. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  872. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  873. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  874. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  875. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  876. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  877. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  878. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  879. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  880. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  881. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  882. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  883. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  884. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  885. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  886. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  887. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  888. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  889. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  890. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  891. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  892. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  893. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  894. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  895. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  896. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  897. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  898. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  899. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  900. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  901. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  902. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  903. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  904. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  905. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  906. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  907. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  908. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  909. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  910. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  911. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  912. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  913. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  914. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  915. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  916. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  917. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  918. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  919. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  920. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  921. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  922. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  923. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  924. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  925. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  926. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  927. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  928. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  929. $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  930. $Modified
  931.     1S2S3S
  932. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$Private
  933.     0SL1S$PrivateDesignn4096
  934. $TITLE
  935. Debbie Williams
  936. ###############################################
  937. Temp.lwp
  938. TemplateCustomer Letter
  939. David FolkCN=David Folk/OU=CAM/O=Lotus
  940. ###############################
  941. MillCorp.MWP{
  942. TemplateSmartMaster:MillCorp
  943. David FolkCN=David Folk/OU=CAM/O=Lotus
  944. ######################################
  945. ##########################################################
  946. ##########################################################
  947. ##########################################################
  948. ##########################################################
  949. ##########################################################
  950. ##########################################################
  951. ##########################################################
  952. ##########################################################
  953. ##########################################################
  954. ##########################################################
  955. ##########################################################
  956. ##########################################################
  957. ##########################################################
  958. ##########################################################
  959. ##########################################################
  960. ##########################################################
  961. ##########################################################
  962. ##########################################################
  963. ##########################################################
  964. ##########################################################
  965. ##########################################################
  966. ##########################################################
  967. ##########################################################
  968. ##########################################################
  969. ##########################################################
  970. ##########################################################
  971. ##########################################################
  972. ##########################################################
  973. ##########################################################
  974. ##########################################################
  975. ##########################################################
  976. ##########################################################
  977. ##########################################################
  978. ##########################################################
  979. ##########################################################
  980. ##########################################################
  981. ##########################################################
  982. ##########################################################
  983. ##########################################################
  984. ##########################################################
  985. ##########################################################
  986. ##########################################################
  987. ##########################################################
  988. ##########################################################
  989. ##########################################################
  990. ##########################################################
  991. ##########################################################
  992. ##########################################################
  993. ##########################################################
  994. ##########################################################
  995. ##########################################################
  996. ##########################################################
  997. ##########################################################
  998. ##########################################################
  999. ##########################################################
  1000. ##########################################################
  1001. ##########################################################
  1002. ##########################################################
  1003. ##########################################################
  1004. ##########################################################
  1005. ##########################################################
  1006. ##########################################################
  1007. ##########################################################
  1008. ##########################################################
  1009. ##########################################################
  1010. ##########################################################
  1011. ##########################################################
  1012. ##########################################################
  1013. ##########################################################
  1014. ##########################################################
  1015. ##########################################################
  1016. ##########################################################
  1017. ##########################################################
  1018. ##########################################################
  1019. ##########################################################
  1020. ##########################################################
  1021. ##########################################################
  1022. ##########################################################
  1023. ##########################################################
  1024. ##########################################################
  1025. ##########################################################
  1026. ##########################################################
  1027. ##########################################################
  1028. ##########################################################
  1029. ##########################################################
  1030. ##########################################################
  1031. ##########################################################
  1032. ##########################################################
  1033. ##########################################################
  1034. ##########################################################
  1035. ##########################################################
  1036. ##########################################################
  1037. ##########################################################
  1038. ##########################################################
  1039. ##########################################################
  1040. ##########################################################
  1041. ##########################################################
  1042. ##########################################################
  1043. ##########################################################
  1044. ##########################################################
  1045. ##########################################################
  1046. ##########################################################
  1047. ##########################################################
  1048. ##########################################################
  1049. ##########################################################
  1050. ##########################################################
  1051. ##########################################################
  1052. ##########################################################
  1053. ##########################################################
  1054. ##########################################################
  1055. ##########################################################
  1056. ##########################################################
  1057. ##########################################################
  1058. ##########################################################
  1059. ##########################################################
  1060. ##########################################################
  1061. ##########################################################
  1062. ##########################################################
  1063. ##########################################################
  1064. ##########################################################
  1065. ##########################################################
  1066. ##########################################################
  1067. ##########################################################
  1068. ##########################################################
  1069. ##########################################################
  1070. ##########################################################
  1071. ##########################################################
  1072. ##########################################################
  1073. ##########################################################
  1074. ##########################################################
  1075. ##########################################################
  1076. ##########################################################
  1077. ##########################################################
  1078. ##########################################################
  1079. ##########################################################
  1080. ##########################################################
  1081. ##########################################################
  1082. ##########################################################
  1083. ##########################################################
  1084. ##########################################################
  1085. ##########################################################
  1086. ##########################################################
  1087. ##########################################################
  1088. ##########################################################
  1089. ##########################################################
  1090. ##########################################################
  1091. ##########################################################
  1092. ##########################################################
  1093. ##########################################################
  1094. ##########################################################
  1095. ##########################################################
  1096. ##########################################################
  1097. ##########################################################
  1098. ##########################################################
  1099. ##########################################################
  1100. ##########################################################
  1101. ##########################################################
  1102. ##########################################################
  1103. ##########################################################
  1104. ##########################################################
  1105. ##########################################################
  1106. ##########################################################
  1107. ##########################################################
  1108. ##########################################################
  1109. ##########################################################
  1110. ##########################################################
  1111. ##########################################################
  1112. ##########################################################
  1113. ##########################################################
  1114. ##########################################################
  1115. ##########################################################
  1116. ##########################################################
  1117. ##########################################################
  1118. ##########################################################
  1119. ##########################################################
  1120. ##########################################################
  1121. ##########################################################
  1122. ##########################################################
  1123. ##########################################################
  1124. ##########################################################
  1125. ##########################################################
  1126. ##########################################################
  1127. ##########################################################
  1128. ##########################################################
  1129. ##########################################################
  1130. ##########################################################
  1131. ##########################################################
  1132. ##########################################################
  1133. ##########################################################
  1134. ##########################################################
  1135. ##########################################################
  1136. ##########################################################
  1137. ##########################################################
  1138. ##########################################################
  1139. ##########################################################
  1140. ##########################################################
  1141. ##########################################################
  1142. ##########################################################
  1143. ##########################################################
  1144. ##########################################################
  1145. ##########################################################
  1146. ##########################################################
  1147. ##########################################################
  1148. ##########################################################
  1149. ##########################################################
  1150. ##########################################################
  1151. ##########################################################
  1152. ##########################################################
  1153. ##########################################################
  1154. ##########################################################
  1155. ##########################################################
  1156. ##########################################################
  1157. ##########################################################
  1158. ##########################################################
  1159. ##########################################################
  1160. ##########################################################
  1161. ##########################################################
  1162. ##########################################################
  1163. ##########################################################
  1164. ##########################################################
  1165. ##########################################################
  1166. ##########################################################
  1167. ##########################################################
  1168. ##########################################################
  1169. ##########################################################
  1170. ##########################################################
  1171. ##########################################################
  1172. ##########################################################
  1173. ##########################################################
  1174. ##########################################################
  1175. ##########################################################
  1176. ##########################################################
  1177. ##########################################################
  1178. ##########################################################
  1179. ##########################################################
  1180. ##########################################################
  1181. ##########################################################
  1182. ##########################################################
  1183. ##########################################################
  1184. ##########################################################
  1185. ##########################################################
  1186. ##########################################################
  1187. ##########################################################
  1188. ##########################################################
  1189. ##########################################################
  1190. ##########################################################
  1191. ##########################################################
  1192. ##########################################################
  1193. ##########################################################
  1194. ##########################################################
  1195. ##########################################################
  1196. ##########################################################
  1197. ##########################################################
  1198. ##########################################################
  1199. ##########################################################
  1200. ##########################################################
  1201. ##########################################################
  1202. ##########################################################
  1203. ##########################################################
  1204. ##########################################################
  1205. ##########################################################
  1206. ##########################################################
  1207. ##########################################################
  1208. ##########################################################
  1209. ##########################################################
  1210. ##########################################################
  1211. ##########################################################
  1212. ##########################################################
  1213. ##########################################################
  1214. ##########################################################
  1215. ##########################################################
  1216. ##########################################################
  1217. ##########################################################
  1218. ##########################################################
  1219. ##########################################################
  1220. ##########################################################
  1221. ##########################################################
  1222. ##########################################################
  1223. ##########################################################
  1224. ##########################################################
  1225. ##########################################################
  1226. ##########################################################
  1227. ##########################################################
  1228. ##########################################################
  1229. ##########################################################
  1230. ##########################################################
  1231. ##########################################################
  1232. ##########################################################
  1233. ##########################################################
  1234. ##########################################################
  1235. ##########################################################
  1236. ##########################################################
  1237. ##########################################################
  1238. ##########################################################
  1239. ##########################################################
  1240. ##########################################################
  1241. ##########################################################
  1242. ##########################################################
  1243. ##########################################################
  1244. ##########################################################
  1245. ##########################################################
  1246. ##########################################################
  1247. ##########################################################
  1248. ##########################################################
  1249. ##########################################################
  1250. ##########################################################
  1251. ##########################################################
  1252. ##########################################################
  1253. ##########################################################
  1254. ##########################################################
  1255. ##########################################################
  1256. ##########################################################
  1257. ##########################################################
  1258. ##########################################################
  1259. ##########################################################
  1260. ##########################################################
  1261. ##########################################################
  1262. ##########################################################
  1263. ##########################################################
  1264. ##########################################################
  1265. ##########################################################
  1266. ##########################################################
  1267. ##########################################################
  1268. ##########################################################
  1269. ##########################################################
  1270. ##########################################################
  1271. ##########################################################
  1272. ##########################################################
  1273. ##########################################################
  1274. ##########################################################
  1275. ##########################################################
  1276. ##########################################################
  1277. ##########################################################
  1278. ##########################################################
  1279. ##########################################################
  1280. ##########################################################
  1281. ##########################################################
  1282. ##########################################################
  1283. ##########################################################
  1284. ##########################################################
  1285. ##########################################################
  1286. ##########################################################
  1287. ##########################################################
  1288. ##########################################################
  1289. ##########################################################
  1290. ##########################################################
  1291. ##########################################################
  1292. ##########################################################
  1293. ##########################################################
  1294. ##########################################################
  1295. ##########################################################
  1296. ##########################################################
  1297. ##########################################################
  1298. ##########################################################
  1299. ##########################################################
  1300. ##########################################################
  1301. ##########################################################
  1302. ##########################################################
  1303. ##########################################################
  1304. ##########################################################
  1305. ##########################################################
  1306. ##########################################################
  1307. ##########################################################
  1308. ##########################################################
  1309. ##########################################################
  1310. ##########################################################
  1311. ##########################################################
  1312. ##########################################################
  1313. ##########################################################
  1314. ##########################################################
  1315. ##########################################################
  1316. ##########################################################
  1317. ##########################################################
  1318. ##########################################################
  1319. ##########################################################
  1320. ##########################################################
  1321. ##########################################################
  1322. ##########################################################
  1323. ##########################################################
  1324. ##########################################################
  1325. ##########################################################
  1326. ##########################################################
  1327. ##########################################################
  1328. ##########################################################
  1329. ##########################################################
  1330. ##########################################################
  1331. ##########################################################
  1332. ##########################################################
  1333. ##########################################################
  1334. ##########################################################
  1335. ##########################################################
  1336. ##########################################################
  1337. ##########################################################
  1338. ##########################################################
  1339. ##########################################################
  1340. ##########################################################
  1341. ##########################################################
  1342. ##########################################################
  1343. ##########################################################
  1344. ##########################################################
  1345. ##########################################################
  1346. ##########################################################
  1347. ##########################################################
  1348. ##########################################################
  1349. ##########################################################
  1350. ##########################################################
  1351. ##########################################################
  1352. ##########################################################
  1353. ##########################################################
  1354. ##########################################################
  1355. ##########################################################
  1356. ##########################################################
  1357. ##########################################################
  1358. ##########################################################
  1359. ##########################################################
  1360. ##########################################################
  1361. ##########################################################
  1362. ##########################################################
  1363. ##########################################################
  1364. ##########################################################
  1365. ##########################################################
  1366. ##########################################################
  1367. ##########################################################
  1368. ##########################################################
  1369. ##########################################################
  1370. ##########################################################
  1371. ##########################################################
  1372. ##########################################################
  1373. ##########################################################
  1374. ##########################################################
  1375. ##########################################################
  1376. ##########################################################
  1377. ##########################################################
  1378. ##########################################################
  1379. ##########################################################
  1380. ##########################################################
  1381. ##########################################################
  1382. ##########################################################
  1383. ##########################################################
  1384. ##########################################################
  1385. ##########################################################
  1386. ##########################################################
  1387. ##########################################################
  1388. ##########################################################
  1389. ##########################################################
  1390. ##########################################################
  1391. ##########################################################
  1392. ##########################################################
  1393. ##########################################################
  1394. ##########################################################
  1395. ##########################################################
  1396. ##########################################################
  1397. ##########################################################
  1398. ##########################################################
  1399. ##########################################################
  1400. ##########################################################
  1401. ##########################################################
  1402. ##########################################################
  1403. ##########################################################
  1404. ##########################################################
  1405. ##########################################################
  1406. ##########################################################
  1407. ##########################################################
  1408. ##########################################################
  1409. ##########################################################
  1410. ##########################################################
  1411. Lotus Development Inc
  1412. 0wmS(
  1413. PURSAF
  1414. '|q/n
  1415. O=Lotus
  1416. O=Lotus
  1417. PURSAFO
  1418. O=Lotus
  1419. OU=CAM/O=Lotus
  1420. PURSAFO
  1421. OU=CAM/O=Lotus
  1422. CN=Todd Flolo/OU=CAM/O=Lotus
  1423. mF"$U
  1424. 1*%J    c^;8m-
  1425. PURSAFO
  1426. )4X:s
  1427. $ACLDigest
  1428. "MS Sans Serif
  1429. Total:
  1430. "MS Sans Serif
  1431. Lotus 1-2-3 97 Workbook
  1432. 123Native97
  1433. Lotus123.Workbook.97
  1434. David Folk
  1435. David Folk/CAM/Lotus
  1436. Lotus Chart
  1437. STG60358
  1438. STG31600
  1439. STG44670
  1440. STG41000
  1441. STG17094
  1442. STG14523
  1443. STG61162
  1444. STG12470
  1445. STG48369
  1446. STG55744
  1447. STG12891
  1448. STG05727
  1449. STG54645
  1450. STG13119
  1451.     0S0E
  1452. Documents created with this form are meant to store template files. 
  1453. Ordinarily, views containing documents like this are hidden.  However, we exposed this view so you could see how we accessed each template file.  (You hide a view by inclosing its name in parentheses.)
  1454. When you create a Customer document, the file attached below is detached (to a path) and then embedded in the customer document.  After the file is embedded, it is deleted from the path.  This insures that any time a Customer document is created, the most current file is embedded.
  1455. Open the Customer form and examine the Postopen event and 
  1456. DetachTemplateWorksheet sub to see how this works.
  1457. 123temp.123
  1458. 123temp.123
  1459. O=Lotus
  1460. O=Lotus
  1461. PURSAFO
  1462. O=Lotus
  1463. OU=CAM/O=Lotus
  1464. PURSAFO
  1465. OU=CAM/O=Lotus
  1466. CN=David Folk/OU=CAM/O=Lotus
  1467. PURSAFO
  1468. ODe;o
  1469. 123temp.123
  1470. l machine.
  1471.      
  1472. ssion
  1473.      Dim D
  1474.  As NotesView
  1475. Started running agent 'Print Letters' on 03/06/96 11:04:46 AM
  1476. Running on selected documents: 1 total
  1477. Found 1 document(s) that match search criteria
  1478. ERROR: LotusScript did not run to completion.
  1479. Ran LotusScript code
  1480. Done running agent 'Print Letters' on 03/06/96 11:08:44 AM
  1481. nV$DesignVersion$Version$Formula$FormulaClass$Collation$UpdatedBy$Collection$ViewContainer$TITLE$Index$ViewFormat$Comment$Flags$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8IconBitmap$FlagsNoRefresh$DefaultNavigator$ACLDigest$Signature$Readers$Authors$FILEFormSubjectBody$Revisions$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$AssistVersion$AssistType$AssistLastRun$AssistDocCount$AssistFlags$MachineName$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$FontsSharedPositionNewShares$Info$$Script_O$$ScriptName$$FormScript$$$FormScript_ONumberOfNumberSharesNewStockQuoteStockNameAndValue$Fields$BodyCompanyTickerCurrentValueCurrentQuoteNOTESFIELDSTitleCategoriesDocumentCommentsRevisionCommentsLastEditorSizeInPagesDocumentClassSizeInCharactersSizeInKDateLastRevisionDateNumberOfEditsEditingTimePageTitlesCustAnGainSPAnGain$ScriptCustNamePortValueCustAddress1CustAddress2PosListPorListTickerWithAposNumberOfSharesToSellStockQuote$Name$ReplFlags$OLEOBJINFO
  1482. '++LotusScript Development Environment:2:5:(Options):0:66
  1483. Option Public
  1484. '++LotusScript Development Environment:2:5:(Forward):0:1
  1485. Declare Sub Terminate
  1486. Declare Sub Initialize
  1487. Declare Function GetWordPro As Variant
  1488. Declare Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  1489. Declare Function OpenLetter (app As Variant) 
  1490. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1491. '++LotusScript Development Environment:2:2:Terminate:1:10
  1492. Sub Terminate
  1493.      
  1494.      
  1495.      
  1496.      
  1497. End Sub
  1498. '++LotusScript Development Environment:2:2:Initialize:1:10
  1499. Sub Initialize
  1500.      
  1501.      Dim session As New NotesSession  
  1502.      Dim db As NotesDatabase  
  1503.      Dim collection As NotesDocumentCollection  
  1504.      Dim doc As NotesDocument  
  1505.      Dim i As Integer 
  1506.      i = 1    
  1507.      Set db = session.CurrentDatabase  
  1508.      Set collection = db.AllDocuments  
  1509.      
  1510.        'These variables will populate the Word Pro object
  1511.      
  1512.      
  1513.      Dim CustName As Variant
  1514.      Dim CustAddress1 As Variant
  1515.      Dim CustAddress2 As Variant
  1516.      Dim PortValue As Variant
  1517.      Dim CustAnGain As Integer
  1518.      Dim PortStr As String
  1519.      Dim SPAnGain As Integer    
  1520.      Dim Closing As String
  1521.      
  1522.      
  1523.            'This variable will be the Word Pro application object
  1524.      Dim theWPobject As Variant
  1525.      
  1526.   'Prepare Word Pro and get the template letter
  1527.      Set theWPobject  = GetWordPro()
  1528.      
  1529.      
  1530.      
  1531. getanotherdoc:  Set doc = collection.GetNthDocument( i )           
  1532.      
  1533. 'Get customer's name and write it in the letter, where necessary
  1534.      Set CustName = doc.GetFirstItem("CustName")
  1535.      If ( CustName Is Nothing ) Then
  1536.           i = i + 1
  1537.           Goto getanotherdoc 
  1538.           
  1539.      End If
  1540.      
  1541.  'Get street address and write it in the letter  
  1542.      Set CustAddress1 = doc.GetFirstItem("CustAddress1")
  1543.      If ( CustAddress1 Is Nothing ) Then
  1544.           i = i + 1
  1545.           Goto getanotherdoc 
  1546.           
  1547.      End If  
  1548.      
  1549. 'Get city, state, and zip and write it in the letter  
  1550.      Set CustAddress2 = doc.GetFirstItem("CustAddress2")
  1551.      If ( CustAddress2 Is Nothing ) Then
  1552.           i = i + 1
  1553.           Goto getanotherdoc 
  1554.           
  1555.      End If
  1556.      
  1557. 'Build string consisting of portfolio value and percentage gain and write it in the letter
  1558.      Set PortValue = doc.GetFirstItem("PortValue")
  1559.      If ( PortValue Is Nothing ) Then
  1560.           i = i + 1
  1561.           Goto getanotherdoc 
  1562.      Else    
  1563.           If SPAnGain > CustAnGain Then
  1564.                Closing= "We're doing fine and will contact you about some changes to your investment mix."
  1565.           Else
  1566.                Closing = "We're beating the S & P 500 - Aren't you glad you invested with us!"
  1567.           End If
  1568.           
  1569.      End If
  1570.      
  1571.      
  1572.      
  1573.      OpenLetter (theWPobject ) 
  1574.      
  1575.    'Set the current time stamp on the letter
  1576.      Call theWPobject.Text.InsertText( Now, False )
  1577.      Call EnterClickHere( "Name", CustName.text ,theWPobject  )
  1578.      Call EnterClickHere( "Greeting", "Dear " + CustName.text + ":", theWPobject  )    
  1579.      Call EnterClickHere( "Address", CustAddress1.text, theWPobject  )    
  1580.      Call EnterClickHere( "CityStateZip", CustAddress2.text, theWPobject  )    
  1581.      Call EnterClickHere( "Closing", Closing, theWPobject  )    
  1582.      
  1583.      theWPobject.Visible = True
  1584.      Call theWPobject.Print
  1585.      Call theWPobject.Close(False)
  1586.      If (i = collection.Count) Then 
  1587.           Call theWPobject.Quit         
  1588.           Exit Sub
  1589.      Else
  1590.           i = i + 1
  1591.           Goto getanotherdoc 
  1592.      End If
  1593.      
  1594.      
  1595. End Sub
  1596. '++LotusScript Development Environment:2:1:GetWordPro:1:8
  1597. Function GetWordPro As Variant
  1598.      Set GetWordPro = CreateObject("WordPro.Application")
  1599. End Function
  1600. '++LotusScript Development Environment:2:2:EnterClickHere:1:8
  1601. Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  1602.      app.foundry.clickheres( CHB ).inserttext( Value )
  1603. End Sub
  1604. '++LotusScript Development Environment:2:1:OpenLetter:1:8
  1605. Function OpenLetter (app As Variant) 
  1606.      Call app.OpenDocument("C:\lotusphere\custsum.lwp")
  1607. End Function
  1608. O8    SD    ]t
  1609. David Folk
  1610. PURSAF
  1611. Notes Product Development
  1612. )I^-.
  1613. PURSAF
  1614. Lotus Development Inc
  1615. 0wmS(
  1616. PURSAF
  1617. ,}CwG9#c
  1618. $TITLE
  1619. $AssistType
  1620. $AssistLastRun
  1621. $AssistDocCount
  1622. $AssistFlags
  1623. $MachineName
  1624. $AssistInfo
  1625. $AssistQuery
  1626. $AssistAction
  1627. $AssistAction_Ex
  1628. $UpdatedBy
  1629. $Flags
  1630. 5Courier New
  1631. Buy stock dialog'++LotusScript Development Environment:2:5:(Options):0:66
  1632. '++LotusScript Development Environment:2:5:(Forward):0:1
  1633. Declare Sub Postopen(Source As Notesuidocument)
  1634. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1635. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1636. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1637. Private Sub BindEvents(Byval Objectname_ As String)
  1638.      Static Source As NOTESUIDOCUMENT
  1639.      Set Source = Bind(Objectname_)
  1640.      On Event Postopen From Source Call Postopen
  1641.      On Event Queryclose From Source Call Queryclose
  1642. End Sub
  1643. '++LotusScript Development Environment:2:2:Postopen:1:12
  1644. Sub Postopen(Source As Notesuidocument)
  1645.      Call Source.FieldSetText( "NumberShares", "" )
  1646. End Sub
  1647. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1648. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1649.      
  1650. End Sub
  1651. Number of shares to buy:
  1652. NumberOf
  1653. NumberShares
  1654. NewStockQuote
  1655. Notes
  1656. No Cache
  1657. Companies\By Ticker
  1658.     6S8S10S
  1659. Stock name and value:
  1660. StockNameAndValue
  1661. Notes Product Development
  1662. )I^-.
  1663. PURSAF
  1664. Lotus Development Inc
  1665. 0wmS(
  1666. PURSAF
  1667. O=Lotus
  1668. O=Lotus
  1669. PURSAFO
  1670. O=Lotus
  1671. OU=CAM/O=Lotus
  1672. PURSAFO
  1673. OU=CAM/O=Lotus
  1674. CN=David Folk/OU=CAM/O=Lotus
  1675. PURSAFO
  1676. !Oj,U
  1677. 1ZnlZs
  1678. $TITLE
  1679. $Info
  1680. $$Script_O
  1681. $$ScriptName
  1682. $$FormScript
  1683. $$$FormScript_O
  1684. $Body
  1685. TickerCompanyCurrentValueCurrentQuote$Conflict$REF$C1$
  1686. Company
  1687.     L1S2S3S2E
  1688. Ticker
  1689. IBM @ 123.8
  1690. Inland Steel
  1691. IAD @ 45
  1692. Intuit
  1693. INTU @ 36
  1694. MCIC @ 56.25
  1695. McDonnell Douglas    
  1696. MD @ 79
  1697. Mobil
  1698. MOB @ 35.6
  1699. BJICA
  1700. Ben & Jerry's
  1701. BJICA @ 45
  1702. Borland International
  1703. BORL @ 14
  1704. Campbell Soup
  1705. CPB @ 54
  1706. Cannondale
  1707. BIKE @ 53
  1708. Capitol Cities/ABC
  1709. DIS @ 78
  1710. Bank of Boston
  1711. BKB @ 23
  1712. Anheuser-Busch
  1713. BUD @ 100
  1714. American Express
  1715. AXP @ 44
  1716. Aetna Life and Casualty
  1717. AET @ 45
  1718. THDO @ 23
  1719. CBS @ 23
  1720. Delta Air Lines
  1721. DAL @ 67
  1722. Dole Food
  1723. DOL @ 56
  1724. Dow Chemical
  1725. DOW @ 65
  1726. DuPont    
  1727. DD @ 78
  1728. Eastman Kodak    
  1729. EK @ 89
  1730. FNM @ 23
  1731. Ford Motor
  1732. F @ 48
  1733. Goodyear Tire &
  1734.  Rubber    
  1735. GT @ 38
  1736. GTE @ 12
  1737. Hershey Foods
  1738. HSY @ 76
  1739. Honda    
  1740. HD @ 98
  1741. Intel
  1742. INTC @ 45
  1743. J.P. Morgan
  1744. JPM @ 74
  1745. Liberty Financial
  1746. L @ 37
  1747. MMM @ 69.3
  1748. Northrop Grumman
  1749. NOC @ 34.56
  1750. Oracle
  1751. ORCL @ 29.75
  1752. PETsMART
  1753. PETM @ 23.9
  1754. PSInet
  1755. PSIX @ 23.8
  1756. Quarterdeck
  1757. QDEK @ 78
  1758. Reebok
  1759. RBK @ 67
  1760. Rubbermaid
  1761. RBD @ 23
  1762. Scripps Howard
  1763. SSP @ 87.9
  1764. Seagate Technology
  1765. SEG @ 32
  1766. SPGLA    
  1767. Spiegel
  1768. SPGLA @ 65
  1769. Storage Technology
  1770. STK @ 87.2
  1771. Toys "R" Us
  1772. TOY @ 54
  1773. United Technologies
  1774. UTX @ 32
  1775. VOLVY
  1776. Volvo
  1777. VOLVY @ 43
  1778. Walt Disney
  1779. Xerox
  1780. XRX @ 75
  1781. BIKE @ 18
  1782. AXP @ 45.125
  1783. AET @ 67.75
  1784. BJICA @ 16
  1785. BKB @ 54.75
  1786. BORL @ 8.625
  1787. BUD @ 75.125
  1788. CBS @ 18.75
  1789. CPB @ 67.375
  1790. DAL @ 69.75
  1791. DD @ 83.625
  1792. DIS @ 57.25
  1793. WALT DISNEY COMPANY
  1794. DOL @ 41.75
  1795. DOW @ 79.75
  1796. EK @ 73.75
  1797. F @ 33.625
  1798. FNM @ 32.5
  1799. GTE @ 40.25    
  1800. GT @ 47
  1801. HD @ 52.875
  1802. HSY @ 87.625
  1803. IAD @ 17.5
  1804. IBM @ 110.5
  1805. INTC @ 79.5
  1806. INTU @ 36.75
  1807. JPM @ 91.625
  1808. L @ 30.25
  1809. MCIC @ 26
  1810. MD @ 49.875
  1811. MMM @ 68.5
  1812. MOB @ 114.5
  1813. NOC @ 72
  1814. ORCL @ 39
  1815. PETM @ 24.87
  1816. PSIX @ 11.125
  1817. QDEK @ 8.44
  1818. RBD @ 27.875
  1819. RBK @ 36.375
  1820. SEG @ 50.25
  1821. SPGLA @ 8.75
  1822. SSP @ 45.25
  1823. STK @ 38.5
  1824. THDO @ 8.25
  1825. TOY @ 29.875
  1826. UTX @ 115.25
  1827. VOLVY @ 20.625
  1828. XRX @ 56.5
  1829. IBM1239    
  1830. IBM1240    
  1831. IBM1241
  1832. Companies\By TickerT
  1833. otusCD
  1834. StockNameAndValueNew$TITLEuo
  1835. $TITLE
  1836. $Indexed
  1837. David Folk
  1838. $UpdatedBy
  1839. TickerCompanyCurrentValueCurrentQuote$Conflict$REF
  1840. Company
  1841.     L1S2S3S2E
  1842. CN=David Folk/OU=CAM/O=Lotus
  1843. $Formula
  1844. $UpdatedBy
  1845. $FormulaClass
  1846. Ticker
  1847. vironment:2:2:BindEvTicker:1
  1848. $Collation
  1849. TickerTickerCompanyCompanyCurrentValueCurrent valueCurrentQuoteHidden column&
  1850. $PrivateDesign
  1851. Minnesota, Mining and Ma
  1852. ,*!}g
  1853. Minnesota, Mining and Ma
  1854. ,*!}g
  1855. 6ttCLZ
  1856. ,*!}g
  1857. Federal National Mortgage Association
  1858. Minnesota, Mining and Manufacturing (MMM)
  1859. 6ttCLZ
  1860. ,*!}g
  1861. Federal National Mortgage Association
  1862. Minnesota, Mining and Manufacturing (MMM)
  1863. Federal National Mortgage Association
  1864. Minnesota, Mining and Manufacturing (MMM)
  1865. 6ttCLZ
  1866. ,*!}g
  1867. Categori_ze
  1868. _Edit Document
  1869. Send Docu_ment
  1870. _Forward
  1871. _Move To Folder...
  1872. _Remove From Folder
  1873. '++LotusScript Development Environment:2:5:(Options):0:66
  1874. '++LotusScript Development Environment:2:5:(Forward):0:1
  1875. Declare Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  1876. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1877. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1878. Private Sub BindEvents(Byval Objectname_ As String)
  1879.      Static Source As BUTTON
  1880.      Set Source = Bind(Objectname_)
  1881. End Sub
  1882. '++LotusScript Development Environment:2:2:EnterClickHere:1:8
  1883. Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  1884.      app.foundry.clickheres( CHB ).inserttext( Value )
  1885. End Sub
  1886. &Arial
  1887. '++LotusScript Development Environment:2:5:(Options):0:74
  1888. Option Public
  1889. '++LotusScript Development Environment:2:5:(Forward):0:1
  1890. Declare Sub Terminate
  1891. Declare Sub WriteToSheet
  1892. Declare Function GetCurrentPrice (ThisTicker As String) As String
  1893. Declare Sub UpdatePrices
  1894. Declare Function GetTicker (Quote As String) As String
  1895. Declare Sub UpdatePortfolioValue
  1896. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1897. ' Handle is used as object handle.
  1898. Dim Handle As Variant           
  1899. ' MyRange is used to access ranges in the embedded 1-2-3 
  1900. ' document object.
  1901. Dim MyRange As Variant 
  1902. ' Quote holds a stock quote, such as "IBM @ 119".
  1903. Dim Quote As String
  1904. ' Ticker holds a stock symbol, such as "IBM".
  1905. Dim Ticker As String              
  1906. ' Price holds a stock's price, such as "119".
  1907. Dim Price As String
  1908. ' Holds a number of shares to buy or sell, such as "100"
  1909. ' or "-100"
  1910. Dim BlockOfShares As String
  1911. ' Holds either the current date and time or the string
  1912. ' "'SELL STOCK".
  1913. Dim ThisDay As String
  1914. ' Flag which is set when message box is displayed.
  1915. ' This insures that the message box displays only once per document.
  1916. Dim ShowUpdateMB As Integer
  1917. '++LotusScript Development Environment:2:2:Terminate:1:10
  1918. Sub Terminate
  1919.      
  1920. End Sub
  1921. '++LotusScript Development Environment:2:2:WriteToSheet:1:8
  1922. Sub WriteToSheet
  1923.      ' This sub writes to several ranges in a row in the
  1924.      ' embedded 1-2-3 document object. 
  1925.      ' 
  1926.      ' If the user is purchasing stock when WriteToSheet is
  1927.      ' called, then the global variables Price, BlockOfShares,
  1928.      ' Ticker, and ThisDay already contain data for the 
  1929.      ' per-share-price, number of shares, ticker symbol and
  1930.      ' date, respectively.
  1931.      '
  1932.      ' If the user is selling stock when WriteToSheet is     
  1933.      ' called, then the global variables Price, BlockOfShares,
  1934.      ' and Ticker already contain empty strings, and already
  1935.      ' ThisDay contains the string ' "SELL STOCK".
  1936.      '
  1937.      ' In the embedded document object, the event
  1938.      ' CellValueChanged for the 1-2-3 range C:A5 is triggered
  1939.      ' whenever the range's contents changes.
  1940.      '
  1941.      ' Depending upon the new contents of range C:A5 the script
  1942.      ' for the CellValueChanged event does one of the
  1943.      ' following:
  1944.      ' 1. If the range contains a new date, then 1-2-3 scripts
  1945.      '     process the transaction
  1946.      ' 2. If the range is empty, then a message box isdisplayed
  1947.      '     indicating that no stocks were sold.
  1948.      ' 3. If the range contains the text "'SELL STOCK" then a
  1949.      '     1-2-3 dialog is displayed allowing the user to sell
  1950.      '     stocks. If the user sells stock in the dialog, the
  1951.      '     transaction is written to the ranges in the row and
  1952.      '     when the new date is written, 1-2-3 scripts process
  1953.      '     the transaction. Otherwise, the user cancelled the
  1954.      '     transaction, so the range's contents is removed and a
  1955.      '     message box is displayed indicating that no stocks
  1956.      '     were sold.
  1957.      
  1958.      Dim Workspace As New NotesUIWorkspace
  1959.      Dim Uidoc As NotesUIDocument
  1960.      
  1961.      ' Access the current Notes Customer document and put it in
  1962.      ' Edit mode.
  1963.      Set Uidoc = Workspace.CurrentDocument
  1964.      Uidoc.EditMode = True
  1965.      
  1966.      ' Make the global variable Handle an object handle to the
  1967.      ' embedded 1-2-3 worksheet object.
  1968.      Set Handle = Uidoc.GetObject("Journal")
  1969.      
  1970.      ' Write the global variables to the 1-2-3 worksheet
  1971.      ' object.
  1972.      Set MyRange = Handle.Ranges.Item("C:D5")
  1973.      MyRange.Contents = Price 
  1974.      Set MyRange = Handle.Ranges.Item("C:C5")
  1975.      MyRange.Contents = BlockOfShares
  1976.      Set MyRange = Handle.Ranges.Item("C:B5")    
  1977.      MyRange.Contents = Ticker 
  1978.      Set MyRange = Handle.Ranges.Item("C:A5")
  1979.      MyRange.Contents = ThisDay   
  1980.      
  1981. End Sub
  1982. '++LotusScript Development Environment:2:1:GetCurrentPrice:1:8
  1983. Function GetCurrentPrice (ThisTicker As String) As String
  1984.      ' This function returns the current price for a given
  1985.      ' ticker. First, it iterates through documents in the
  1986.      ' database view Companies\By Ticker until it finds one
  1987.      ' with a Ticker field whose contents matches ThisTicker.
  1988.      ' Then, it returns the CurrentValue field for the document
  1989.      ' containing the matching ticker.
  1990.      
  1991.      ' Depending on when the function is called, ThisTicker may
  1992.      ' or may not begin with an apostrophe. If it has an
  1993.      ' apostrophe, then the apostrophe is removed.
  1994.      If Instr (1,ThisTicker,"'") Then
  1995.           ThisTicker = Mid$(ThisTicker, 2, 10)
  1996.      End If 
  1997.      
  1998.      Dim Session As New NotesSession  
  1999.      Dim Db As NotesDatabase  
  2000.      Dim View As NotesView
  2001.      Dim Doc As NotesDocument  
  2002.      
  2003.      Set Db = Session.CurrentDatabase  
  2004.      Set View = Db.GetView("Companies\By Ticker")
  2005.      Set Doc = View.GetFirstDocument   
  2006.      While Not (Doc Is Nothing)
  2007.           If (Doc.GetFirstItem("Ticker").Text = ThisTicker ) _
  2008.           Then 
  2009.                GetCurrentPrice  = _
  2010.                Doc.GetFirstItem("CurrentValue").Text
  2011.                Set Doc = Nothing
  2012.           Else
  2013.                Set Doc = View.GetNextDocument(Doc)
  2014.           End If          
  2015.      Wend
  2016. End Function
  2017. '++LotusScript Development Environment:2:2:UpdatePrices:1:8
  2018. Sub UpdatePrices
  2019.      ' This sub updates the stocks listed in the embedded 1-2-3
  2020.      ' document object with the latest prices from the Company
  2021.      ' documents in the Notes database.
  2022.      
  2023.      Dim Workspace As New NotesUIWorkspace
  2024.      Dim Uidoc As NotesUIDocument
  2025.      Dim Doc As NotesDocument
  2026.      Dim X As String 
  2027.      Dim Y As Integer
  2028.      
  2029.      ' Access the current Notes Customer document and put it in
  2030.      ' Edit mode.
  2031.      Set Uidoc = Workspace.CurrentDocument
  2032.      Uidoc.EditMode = True
  2033.      Set Doc = Uidoc.Document
  2034.      
  2035.      ' Make the global variable Handle an object handle to the
  2036.      ' embedded 1-2-3 worksheet object named Journal.
  2037.      Set Handle = Uidoc.GetObject("Journal")
  2038.      
  2039.      ' Set the global variable MyRange to the range containing
  2040.      ' the first stock ticker. Each block of stock in a
  2041.      ' portfolio is entered in descending rows, starting at row
  2042.      ' number 8. 
  2043.      Set MyRange = Handle.Ranges.Item("B:C8")    
  2044.      
  2045.      'The variable Y is set to 8 (the number of the first row).
  2046.      Y = 8
  2047.      
  2048.      ' Continue to loop while not at an empty range:
  2049.      While (MyRange.Contents <> "")
  2050.           Dim ThisTicker As String
  2051.           Dim LatestPrice  As String
  2052.           
  2053.           ' Set the local variable ThisTicker to the contents
  2054.           ' of the range.
  2055.           ThisTicker = MyRange.Contents
  2056.           
  2057.           ' The global sub GetCurrentPrice looks up the current
  2058.           ' price for a given Ticker by iterating through the
  2059.           ' Notes view Companies\By ticker until it finds a
  2060.           ' document with a matching ticker and then reading
  2061.           ' the current value. Hence, the following line sets
  2062.           ' the variable LatestPrice to current price for a
  2063.           ' given ticker.
  2064.           LatestPrice = GetCurrentPrice (ThisTicker)
  2065.           
  2066.           ' Set X to the address of the range two columns to
  2067.           ' the right (the column containing prices), and make
  2068.           ' that range's contents match LatestPrice.
  2069.           X = "B:E"+ Cstr(Y)
  2070.           Set MyRange = Handle.Ranges.Item(X)
  2071.           MyRange.Contents = LatestPrice 
  2072.           
  2073.           ' Increase Y by one so it corresponds to the next row
  2074.           ' number.
  2075.           Y = Y + 1
  2076.           
  2077.           ' Set X to the address of the range in the column
  2078.           ' that contains tickers.
  2079.           X = "B:C"+ Cstr(Y)
  2080.           
  2081.           ' Set the global variable MyRange to the range that
  2082.           ' either contains the next stock ticker or is empty.
  2083.           Set MyRange = Handle.Ranges.Item(X)
  2084.      Wend
  2085. End Sub
  2086. '++LotusScript Development Environment:2:1:GetTicker:1:8
  2087. Function GetTicker (Quote As String) As String
  2088.      ' Return everything to the left of the first space in
  2089.      ' Quote.
  2090.      GetTicker = Trim$(Mid$(Quote, 1, Instr(Quote," ")))
  2091. End Function
  2092. '++LotusScript Development Environment:2:2:UpdatePortfolioValue:1:8
  2093. Sub UpdatePortfolioValue
  2094.      ' This sub updates the PortValue field in the current
  2095.      ' Notes Customer document with a value contained in a cell
  2096.      ' in the embedded 1-2-3 worksheet object.
  2097.      
  2098.      Dim Workspace As New NotesUIWorkspace
  2099.      Dim Uidoc As NotesUIDocument
  2100.      
  2101.      ' Access the current Notes Customer document and put it in
  2102.      ' Edit mode.
  2103.      Set Uidoc = Workspace.CurrentDocument
  2104.      Uidoc.EditMode = True
  2105.      
  2106.      ' Make the global variable Handle an object handle to the
  2107.      ' embedded 1-2-3 worksheet object.
  2108.      Set Handle = Uidoc.Getobject("Journal")
  2109.      
  2110.      ' Set the global variable MyRange to the range containing
  2111.      ' the value. 
  2112.      Set MyRange = Handle.Ranges.Item("B:B3")
  2113.      
  2114.      ' Set the PortValue field in the current Notes Customer
  2115.      ' document to the value of the range.
  2116.      Uidoc.FieldSetText "PortValue", Cstr(MyRange.CellValue)  
  2117. End Sub
  2118. Customer'++LotusScript Development Environment:2:5:(Options):0:66
  2119. '++LotusScript Development Environment:2:5:(Forward):0:1
  2120. Declare Sub Postmodechange(Source As Notesuidocument)
  2121. Declare Sub Postopen(Source As Notesuidocument)
  2122. Declare Sub Initialize
  2123. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2124. Declare Sub DetachTemplateWorksheet
  2125. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2126. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2127. Private Sub BindEvents(Byval Objectname_ As String)
  2128.      Static Source As NOTESUIDOCUMENT
  2129.      Set Source = Bind(Objectname_)
  2130.      On Event Postmodechange From Source Call Postmodechange
  2131.      On Event Postopen From Source Call Postopen
  2132.      On Event Queryopen From Source Call Queryopen
  2133. End Sub
  2134. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  2135. Sub Postmodechange(Source As Notesuidocument)
  2136.      
  2137. End Sub
  2138. '++LotusScript Development Environment:2:2:Postopen:1:12
  2139. Sub Postopen(Source As Notesuidocument)
  2140.      ' If the document is a new Customer document, embed a new
  2141.      ' 1-2-3 document object. This event uses the sub
  2142.      ' DetachTemplateWorksheet to detach a 1-2-3 file from
  2143.      ' document in the Notes database, and then embeds a copy
  2144.      ' of the 1-2-3 file as a 1-2-3 document object in the Body
  2145.      ' field of the new Customer document.
  2146.      
  2147.      Dim DocStatus As Integer    
  2148.      DocStatus = Source.IsNewDoc
  2149.      
  2150.      If DocStatus = True Then
  2151.           
  2152.           ' The sub DetachTemplateWorksheet is defined with the
  2153.           ' Customer form. It detaches the attached file
  2154.           ' 123Temp.123 from a Template document in the Notes
  2155.           ' database to the current drive on the local machine.
  2156.           DetachTemplateWorksheet
  2157.           
  2158.           ' Move the insertion point to the field named Body.
  2159.           Source.Gotofield("Body")
  2160.           
  2161.           ' Embed a copy of 123Temp.123 as a 1-2-3 document
  2162.           ' object and set its Name property to "Journal".
  2163.           Call Source.CreateObject("Journal", ,Curdrive$() + _
  2164.           "\123Temp.123")
  2165.           
  2166.           
  2167.           'Msgbox "To see the 1-2-3 object update, you must activate it before performing your first transaction." + Chr(10) + _
  2168.          '+ Chr(10) + "You activate the object in-place by double clicking it." + Chr(10) + _
  2169.          ' + Chr(10) + "If you don't activate the object first, you can still perform transactions, but you won't see the" + Chr(10) + _
  2170.           '"object update until you activate it." ,,"FYI"
  2171.           
  2172.           ShowUpdateMB = True
  2173.           
  2174.      End If   
  2175.      
  2176.      
  2177. End Sub
  2178. '++LotusScript Development Environment:2:2:Initialize:1:10
  2179. Sub Initialize
  2180.      
  2181. End Sub
  2182. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2183. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2184.      
  2185. End Sub
  2186. '++LotusScript Development Environment:2:2:DetachTemplateWorksheet:1:8
  2187. Sub DetachTemplateWorksheet
  2188.      ' The following sub detaches the attached file 123Temp.123
  2189.      ' from a Template document in the Notes database to the
  2190.      ' current drive on the local (user's) machine.
  2191.      
  2192.      Dim Session As New NotesSession
  2193.      Dim Db As NotesDatabase
  2194.      Dim View As NotesView
  2195.      Dim TemplateDocument As NotesDocument
  2196.      
  2197.      ' Access the Templates view in the current database.
  2198.      Set Db = Session.CurrentDatabase
  2199.      Set View = Db.GetView("Templates")
  2200.      
  2201.      ' Set TemplateDocument to the first document in the Notes
  2202.      ' view Templates.
  2203.      Set TemplateDocument = View.GetFirstDocument   
  2204.      
  2205.    ' Loop for each document in Templates.
  2206.      While Not (TemplateDocument Is Nothing)
  2207.           
  2208.           ' If the docment's subject field contains the string
  2209.           ' "New Customer", then extract the file attachment
  2210.           ' 123Temp.123. Otherwise, get the next document in
  2211.           ' the view.
  2212.           If TemplateDocument.GetFirstItem("Subject").text = _
  2213.           "New Customer" Then               
  2214.                Dim Rtitem As Variant
  2215.                Dim Object As NotesEmbeddedObject
  2216.                Set Object = TemplateDocument.GetAttachment( _
  2217.                "123Temp.123" )
  2218.                Call object.ExtractFile (Curdrive$() + _
  2219.                "\123Temp.123")
  2220.           End If
  2221.           Set TemplateDocument = _
  2222.           view.GetNextDocument(TemplateDocument)
  2223.      Wend  
  2224. End Sub
  2225. ,T    }p
  2226.     0S0E
  2227. Name:      
  2228. CustName
  2229. Portfolio Value:     
  2230. PortValue
  2231. Street:    
  2232. CustAddress1
  2233. City, State, Zip:    
  2234. CustAddress2
  2235. '++LotusScript Development Environment:2:5:(Options):0:66
  2236. '++LotusScript Development Environment:2:5:(Forward):0:1
  2237. Declare Sub Click(Source As Button)
  2238. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2239. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2240. Private Sub BindEvents(Byval Objectname_ As String)
  2241.      Static Source As BUTTON
  2242.      Set Source = Bind(Objectname_)
  2243.      On Event Click From Source Call Click
  2244. End Sub
  2245. '++LotusScript Development Environment:2:2:Click:1:12
  2246. Sub Click(Source As Button)
  2247.      
  2248.      ' Call the global sub UpdatePrices updates the
  2249.      ' stocks listed in the embedded 1-2-3 document object 
  2250.      ' with the latest prices from the Company documents in
  2251.      ' this Notes database.
  2252.      UpdatePrices
  2253.      
  2254.      ' Call the global sub UpdatePortfolioValue, which updates
  2255.      ' the PortValue field in the current Notes Customer
  2256.      ' document with a value contained in a cell in the
  2257.      ' embedded 1-2-3 worksheet object.
  2258.      UpdatePortfolioValue
  2259.      
  2260. End Sub
  2261. New Button
  2262. Need a newer version of Notes to execute this button.
  2263.     0S0E
  2264. Update 
  2265.             
  2266. '++LotusScript Development Environment:2:5:(Options):0:66
  2267. '++LotusScript Development Environment:2:5:(Forward):0:1
  2268. Declare Sub Click(Source As Button)
  2269. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2270. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2271. Private Sub BindEvents(Byval Objectname_ As String)
  2272.      Static Source As BUTTON
  2273.      Set Source = Bind(Objectname_)
  2274.      On Event Click From Source Call Click
  2275. End Sub
  2276. '++LotusScript Development Environment:2:2:Click:1:12
  2277. Sub Click(Source As Button)
  2278.      
  2279.      Dim Workspace As New NotesUIWorkspace
  2280.      Dim Uidoc As NotesUIDocument
  2281.      Dim Doc As NotesDocument
  2282.      
  2283.      ' Access the current Notes document and put it in Edit
  2284.      ' mode:
  2285.      Set Uidoc = Workspace.CurrentDocument
  2286.      Set Doc = Uidoc.Document
  2287.      
  2288.      Uidoc.EditMode = True
  2289.      
  2290.      ' Display Buy stock dialog. This is a Notes dialog.
  2291.      ' If the user clicks OK, then write to the embedded 1-2-3
  2292.      ' document object. Otherwise, display a messagebox
  2293.      ' indicating that no stock was purchased:
  2294.      If (Workspace.DialogBox ("Buy stock dialog",  True, True, False, False, False,False,"Stock purchase")) Then
  2295.           
  2296.           ' Buy stock dialog contains a list box and a
  2297.           ' text box. The list box is made by reading Company
  2298.           ' documents in the Notes view Companies\By ticker.
  2299.           ' Each item in the list contains a string of data for a 
  2300.           ' given document.
  2301.           ' 
  2302.           ' The text box in the dialog is used to keep track of
  2303.           ' the number of shares to be purchased.
  2304.           ' 
  2305.           ' Set the global variable Quote the selected string
  2306.           ' in the dialog:
  2307.           Quote = Doc.GetFirstItem("NewStockQuote").Text
  2308.           
  2309.           ' The GetTicker function is a global function. It
  2310.           ' extracts the ticker symbol from Quote. For example,
  2311.           ' if Quote were "IBM @ 123.8" it would return "IBM".
  2312.           ' Hence, the following line sets the global variable
  2313.           ' Ticker to the ticker in the Quote:
  2314.           Ticker = GetTicker (Quote) 
  2315.           
  2316.           ' The global function GetCurrentPrice returns the
  2317.           ' current price for a given Ticker.  First, it
  2318.           ' iterates through documents in the database view
  2319.           ' Companies\By Ticker until it finds one with a
  2320.           ' Ticker field whose contents matches the passed
  2321.           ' argument Ticker. Then, it reads the CurrentValue
  2322.           ' field for the document containing the matching
  2323.           ' ticker.
  2324.           Price = GetCurrentPrice (Ticker)
  2325.           
  2326.           ' Set the global variable BlockOfShares to the value
  2327.           ' of the text box in the Position add dialog.
  2328.           BlockOfShares = Doc.GetFirstItem("NumberShares").Text
  2329.           
  2330.           ' Set the global variable ThisDay to the current date
  2331.           ' and time.
  2332.           ThisDay = Date$  + " " + Time$
  2333.           
  2334.           ' Test to make sure that BlockOfShares is an integer.
  2335.           Dim TestForInteger As Integer
  2336.           TestForInteger  = Cint (BlockOfShares)
  2337.           
  2338.           ' If BlockOfShares is an integer, display
  2339.           ' confirmation input box.
  2340.           If TestForInteger > 0 Then
  2341.                If(Messagebox("Purchase " + BlockOfShares + _
  2342.                " shares of " + Ticker + " at $" + Price + _
  2343.                " a share?", MB_YESNO + 4 , "Purchase") = 6) _
  2344.                Then 
  2345.                     
  2346.                     ' If the user clicked OK in the
  2347.                     ' confirmation input box, then call the
  2348.                     ' global sub WriteToSheet to write the
  2349.                     ' transaction to the embedded 1-2-3
  2350.                     ' document object and use call the global
  2351.                     ' sub UpdatePortfolioValue to update the
  2352.                     ' PortValue field in the current Notes
  2353.                     ' Customer document.
  2354.                     WriteToSheet
  2355.                     UpdatePortfolioValue
  2356.                Else
  2357.                     Messagebox "No stocks purchased",,"Notes"
  2358.                End If
  2359.           Else  
  2360.                Messagebox "No stocks purchased",,"Notes"
  2361.           End If
  2362.      Else
  2363.           Messagebox "No stocks purchased",,"Notes"
  2364.      End If
  2365. End Sub
  2366. [h    K4
  2367. New Button
  2368. Need a newer version of Notes to execute this button.
  2369.     0S0E
  2370. Buy Stock
  2371.          
  2372. '++LotusScript Development Environment:2:5:(Options):0:66
  2373. '++LotusScript Development Environment:2:5:(Forward):0:1
  2374. Declare Sub Click(Source As Button)
  2375. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2376. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2377. Private Sub BindEvents(Byval Objectname_ As String)
  2378.      Static Source As BUTTON
  2379.      Set Source = Bind(Objectname_)
  2380.      On Event Click From Source Call Click
  2381. End Sub
  2382. '++LotusScript Development Environment:2:2:Click:1:12
  2383. Sub Click(Source As Button)
  2384.      
  2385.      Dim Workspace As New NotesUIWorkspace
  2386.      Dim Uidoc As NotesUIDocument
  2387.      Dim Doc As NotesDocument
  2388.      Set Uidoc = Workspace.CurrentDocument
  2389.      Uidoc.EditMode = True
  2390.      
  2391.      Set Doc = Uidoc.Document
  2392.      Dim temp As String
  2393.      
  2394.      ' Call the global sub UpdatePrices updates the stocks
  2395.      ' listed in the embedded 1-2-3 document object with the
  2396.      ' latest prices from the Company documents in this Notes
  2397.      ' database.
  2398.    ' UpdatePrices
  2399.      
  2400.      
  2401.      ' Get the contents of the portfolio someplace where our dialog
  2402.      ' will be able to see it
  2403.       ' Make the global variable Handle an object handle to the
  2404.      ' embedded 1-2-3 worksheet object.
  2405.      Set Handle = Uidoc.Getobject("Journal")
  2406.      
  2407.      Dim row As Integer
  2408.      
  2409.      row = 8
  2410.      
  2411.      While(row <> 0)
  2412.           Set MyRange = Handle.Ranges.Item("B:C" + Cstr(row))
  2413.           If (MyRange.contents = "") Then
  2414.                row = 0
  2415.           Else
  2416.                'number shares
  2417.                Set MyRange = Handle.Ranges.Item("B:D"+ Cstr(row))
  2418.                temp = temp + MyRange.contents
  2419.                temp = temp + " shares "
  2420.                
  2421.                'ticker
  2422.                Set MyRange = Handle.Ranges.Item("B:C" + Cstr(row))
  2423.                temp = temp +" " + Mid$(MyRange.contents,2)+ " @"
  2424.                
  2425.                Set MyRange = Handle.Ranges.Item("B:E" + Cstr(row))
  2426.                temp = temp  + MyRange.contents + ";"
  2427.                row = row + 1
  2428.           End If
  2429.      Wend
  2430.      
  2431.      Call Uidoc.FieldSetText( "PorList", temp )
  2432.      
  2433.      
  2434.      If (Workspace.DialogBox ("Sell stock dialog", True, True, False, False, False,False,"Stock sale")) Then
  2435.           
  2436.           temp = Doc.GetFirstItem("StockQuote").Text
  2437.           
  2438.           temp = Mid$(temp, 2)
  2439.           Dim position As Integer
  2440.           position = Instr(temp," ")
  2441.           temp = Mid$(temp, position + 1)
  2442.           
  2443.           position = Instr(temp," ")
  2444.           temp  =  Mid$(temp, position + 1)          
  2445.           
  2446.           position = Instr(temp," ")
  2447.           temp  =  Mid$(temp, position + 1) 
  2448.           
  2449.           position = Instr(temp," ")
  2450.           Ticker =  Trim (Mid$(temp,1, position))
  2451.           
  2452.           position = Instr(temp,"@")
  2453.           temp  =  Mid$(temp, position + 1) 
  2454.           
  2455.           Price =Trim ( temp )
  2456.           
  2457.           ' Set the global variable BlockOfShares to the value
  2458.           ' of the text box in the Position add dialog.
  2459.           BlockOfShares = Doc.GetFirstItem("NumberShares").Text
  2460.           
  2461.           ' Set the global variable ThisDay to the current date
  2462.           ' and time.
  2463.           ThisDay = Date$  + " " + Time$
  2464.           
  2465.           ' Test to make sure that BlockOfShares is an integer.
  2466.           Dim TestForInteger As Integer
  2467.           TestForInteger  = Cint (BlockOfShares)
  2468.           
  2469.           ' If BlockOfShares is an integer, display
  2470.           ' confirmation input box.
  2471.           If TestForInteger > 0 Then
  2472.                If(Messagebox("Sell " + BlockOfShares + _
  2473.                " shares of " + Ticker + " at $" + Price + _
  2474.                " a share?", MB_YESNO + 4 , "Sale") = 6) _
  2475.                Then 
  2476.                     
  2477.                     BlockOfShares = "-" + BlockOfShares 
  2478.                     
  2479.                     ' If the user clicked OK in the
  2480.                     ' confirmation input box, then call the
  2481.                     ' global sub WriteToSheet to write the
  2482.                     ' transaction to the embedded 1-2-3
  2483.                     ' document object and use call the global
  2484.                     ' sub UpdatePortfolioValue to update the
  2485.                     ' PortValue field in the current Notes
  2486.                     ' Customer document.
  2487.                     WriteToSheet
  2488.                     UpdatePortfolioValue
  2489.                Else
  2490.                     Messagebox "No stocks sold",,"Notes"
  2491.                End If
  2492.           Else  
  2493.                Messagebox "No stocks sold",,"Notes"
  2494.           End If
  2495.      Else
  2496.           Messagebox "No stocks sold",,"Notes"
  2497.      End If
  2498.      
  2499.      Call Uidoc.FieldSetText( "PorList", "" )
  2500. End Sub
  2501. New Button
  2502. Need a newer version of Notes to execute this button.
  2503.     0S0E
  2504. Sell Stock
  2505.             
  2506. '++LotusScript Development Environment:2:5:(Options):0:66
  2507. '++LotusScript Development Environment:2:5:(Forward):0:1
  2508. Declare Sub Click(Source As Button)
  2509. Declare Sub DetachTemplateLetter
  2510. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2511. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2512. Private Sub BindEvents(Byval Objectname_ As String)
  2513.      Static Source As BUTTON
  2514.      Set Source = Bind(Objectname_)
  2515.      On Event Click From Source Call Click
  2516. End Sub
  2517. '++LotusScript Development Environment:2:2:Click:1:12
  2518. Sub Click(Source As Button)
  2519.      Dim Session As New NotesSession
  2520.      Dim Workspace As New NotesUIWorkspace
  2521.      Dim Uidoc As NotesUIDocument
  2522.      Dim Doc As NotesDocument
  2523.      Dim Handle As Variant 
  2524.      
  2525.      ' The file, Temp.lwp, is stored in another document in
  2526.      ' the database. The following local sub,
  2527.      ' DetachTemplateLetter, is also defined with the button. 
  2528.      ' It locates the document containing Temp.lwp, and
  2529.      ' detaches Temp.lwp to the current drive.
  2530.      DetachTemplateLetter
  2531.      
  2532.      ' Get the current Notes document:        
  2533.      Set Uidoc = Workspace.CurrentDocument
  2534.      Set Doc = Uidoc.Document
  2535.      
  2536.      ' Get object handle to Word Pro, make it visible, and open
  2537.      ' Temp.lwp: 
  2538.      Set Handle  = CreateObject("WordPro.Application")
  2539.      Handle.Visible = True
  2540.      Handle.OpenDocument Curdrive$() + "\Temp.lwp"
  2541.      
  2542.      ' Get customer's name from field CustName in the current
  2543.      ' document and write it in two places in Temp.lwp:   
  2544.      Dim TheCustomer As String
  2545.      TheCustomer = Doc.GetFirstItem("CustName").Text
  2546.      Call Handle.Foundry.ClickHeres( "Name" _
  2547.      ).InsertText(TheCustomer)   
  2548.      Call Handle.Foundry.ClickHeres( "Greeting" _
  2549.      ).InsertText("Dear " + TheCustomer + ":" )   
  2550.      
  2551.      ' Get street address from field CustAddress1 in the
  2552.      ' current document and write to Temp.lwp:       
  2553.      Dim Address1 As String         
  2554.      Address1 = Doc.GetFirstItem("CustAddress1").Text
  2555.      Call Handle.Foundry.ClickHeres("Address" _
  2556.      ).InsertText(Address1)
  2557.      
  2558.      ' Get city, state, and zip from field CustAddress2 in the
  2559.      ' current document and write to Temp.lwp:         
  2560.      Dim Address2 As String         
  2561.      Address2 = Doc.GetFirstItem("CustAddress2").Text
  2562.      Call Handle.Foundry.ClickHeres("CityStateZip" _
  2563.      ).InsertText(Address2)
  2564.      
  2565.      ' Get the portfolio's value from field PortValue in the
  2566.      ' current document and write to Temp.lwp:
  2567.      Dim PortFolioValue As String         
  2568.      PortFolioValue = doc.GetFirstItem("PortValue").Text
  2569.      Call Handle.Foundry.ClickHeres("Portfolio Info" _
  2570.      ).InsertText("Portfolio value: $" + PortFolioValue)
  2571.      
  2572.      ' Depending on the portfolio's value, write a different
  2573.      ' closing sentence in Temp.lwp:
  2574.      Dim ClosingSentence As String
  2575.      If Clng (PortFolioValue) < 5000 Then
  2576.           ClosingSentence  = "Feel free to contact us with " + _
  2577.           "any questions regarding your account."
  2578.      Else
  2579.           ClosingSentence = "Your account is important to " + _
  2580.           "us! One of our brokers will contact you soon."
  2581.      End If
  2582.      Call Handle.Foundry.ClickHeres("Closing"_
  2583.      ).InsertText(ClosingSentence)   
  2584.      
  2585.      ' Write author's name to letter.
  2586.      Call Handle.Foundry.ClickHeres( "YourName"_
  2587.      ).InsertText(session.CommonUserName )  
  2588.      
  2589.      ' Print file and end Word Pro session without saving
  2590.      ' changes.
  2591.      Handle.Print
  2592.      Handle.Close False
  2593.      Handle.Quit 
  2594.      
  2595.      ' Delete the LWP file from the current drive.        
  2596.      Kill Curdrive$() + "\Temp.lwp"
  2597. End Sub
  2598. '++LotusScript Development Environment:2:2:DetachTemplateLetter:1:8
  2599. Sub DetachTemplateLetter
  2600.     ' The following sub detaches the attached file Temp.lwp
  2601.      ' from a Template document in the Notes database to the
  2602.      ' current drive on the local machine.
  2603.      
  2604.      Dim Session As New NotesSession
  2605.      Dim Db As NotesDatabase
  2606.      Dim View As NotesView
  2607.      Dim TemplateDocument As NotesDocument
  2608.      
  2609.      Set Db = session.CurrentDatabase  
  2610.      Set View = Db.GetView("Templates")
  2611.      
  2612.      ' Set TemplateDocument to the first document in the Notes
  2613.      ' view Templates.
  2614.      Set TemplateDocument = View.GetFirstDocument   
  2615.      
  2616.      ' Loop for each document in Templates.
  2617.      While Not (TemplateDocument Is Nothing)
  2618.           
  2619.           ' If the docment's subject field contains the string
  2620.           ' "Customer Letter", then extract the file attachment
  2621.           ' Temp.lwp. Otherwise, get the next document in 
  2622.           ' the view.
  2623.           If TemplateDocument.GetFirstItem("Subject").text = _
  2624.           "Customer Letter" Then
  2625.                Dim Rtitem As Variant
  2626.                Dim Object As NotesEmbeddedObject
  2627.                Set Object = TemplateDocument.GetAttachment( _
  2628.                "Temp.lwp" )
  2629.                Call Object.ExtractFile (Curdrive$() + _
  2630.                "\Temp.lwp")
  2631.           End If
  2632.           Set TemplateDocument = _ 
  2633.           View.GetNextDocument(TemplateDocument)               
  2634.      Wend
  2635. End Sub
  2636. 0    0              
  2637. ^0    K     -
  2638.     K0    ,
  2639. New Button
  2640. Need a newer version of Notes to execute this button.
  2641.     0S0E
  2642. Print Letter
  2643. Hidden field(s):
  2644. PosList
  2645. PorList
  2646. Notes Product Development
  2647. )I^-.
  2648. PURSAF
  2649. Lotus Development Inc
  2650. 0wmS(
  2651. PURSAF
  2652. O=Lotus
  2653. O=Lotus
  2654. PURSAFO
  2655. O=Lotus
  2656. OU=CAM/O=Lotus
  2657. PURSAFO
  2658. OU=CAM/O=Lotus
  2659. CN=David Folk/OU=CAM/O=Lotus
  2660. PURSAFO
  2661. !Oj,U
  2662. $TITLE
  2663. $Info
  2664. $Script
  2665. $$Script_O
  2666. $$ScriptName
  2667. $$FormScript
  2668. $$$FormScript_O
  2669. $Body
  2670. Subject$Conflict$REF$C1$
  2671. Template
  2672.     L1S2S3S
  2673. New Customer
  2674. Customer Letter
  2675. SmartMaster:MillCorp
  2676. tew Customer
  2677. tmartMaster:MillCorp
  2678. Tustomer Letter
  2679. Portfolio
  2680. templates
  2681. David FolkX
  2682. Subject$Conflict$REF
  2683. Template Form
  2684.     L1S2S3S1
  2685. Subject&
  2686. STG17499
  2687. STG40511
  2688. STG27776
  2689. STG11151
  2690. Categori_ze
  2691. _Edit Document
  2692. Send Docu_ment
  2693. _Forward
  2694. _Move To Folder...
  2695. _Remove From Foldert
  2696. Print form letters for all clients'++LotusScript Development Environment:2:5:(Options):0:66
  2697. '++LotusScript Development Environment:2:5:(Forward):0:1
  2698. Declare Sub Click(Source As Button)
  2699. Declare Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  2700. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2701. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2702. Private Sub BindEvents(Byval Objectname_ As String)
  2703.      Static Source As BUTTON
  2704.      Set Source = Bind(Objectname_)
  2705.      On Event Click From Source Call Click
  2706. End Sub
  2707. '++LotusScript Development Environment:2:2:Click:1:12
  2708. Sub Click(Source As Button)
  2709.      
  2710. End Sub
  2711. '++LotusScript Development Environment:2:2:EnterClickHere:1:8
  2712. Sub EnterClickHere( CHB As String, Value As String, app As Variant )
  2713.      app.foundry.clickheres( CHB ).inserttext( Value )
  2714. End Sub
  2715. &Arial
  2716. '++LotusScript Development Environment:2:5:(Options):0:74
  2717. Option Public
  2718. '++LotusScript Development Environment:2:5:(Forward):0:1
  2719. Declare Sub Terminate
  2720. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2721. '++LotusScript Development Environment:2:2:Terminate:1:10
  2722. Sub Terminate
  2723.      
  2724. End Sub
  2725. Template'++LotusScript Development Environment:2:5:(Options):0:66
  2726. '++LotusScript Development Environment:2:5:(Forward):0:1
  2727. Declare Sub Postmodechange(Source As Notesuidocument)
  2728. Declare Sub Postopen(Source As Notesuidocument)
  2729. Declare Sub Initialize
  2730. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2731. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2732. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2733. Private Sub BindEvents(Byval Objectname_ As String)
  2734.      Static Source As NOTESUIDOCUMENT
  2735.      Set Source = Bind(Objectname_)
  2736.      On Event Postmodechange From Source Call Postmodechange
  2737.      On Event Postopen From Source Call Postopen
  2738.      On Event Queryopen From Source Call Queryopen
  2739. End Sub
  2740. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  2741. Sub Postmodechange(Source As Notesuidocument)
  2742.      
  2743. End Sub
  2744. '++LotusScript Development Environment:2:2:Postopen:1:12
  2745. Sub Postopen(Source As Notesuidocument)
  2746.      
  2747.      Dim DocStatus As Integer    
  2748.      DocStatus = Source.IsNewDoc
  2749.      If DocStatus = True Then
  2750.           Dim session As New NotesSession           
  2751.           Dim db As NotesDatabase           
  2752.           Dim view As NotesView         
  2753.           Dim TemplateDocument As NotesDocument
  2754.           Set db = session.CurrentDatabase  
  2755.           Set view = db.GetView("templates")
  2756.           Set TemplateDocument = view.GetFirstDocument   
  2757.           
  2758.           Dim doc As NotesDocument
  2759.           Dim rtitemA As Variant
  2760.           Dim rtitemB As Variant
  2761.           
  2762.           'Dim object As NotesEmbeddedObject
  2763.           
  2764.     'Loop for each document in the Notes view.    
  2765.           While Not (TemplateDocument Is Nothing)
  2766.                
  2767.                If TemplateDocument.GetFirstItem("Subject").text = "Portfolio" Then
  2768.                     
  2769.                     Set rtitemA = TemplateDocument.GetFirstItem( "Cookie" )
  2770.                    ' Set object = rtitem.GetEmbeddedObject( "Lotus 1-2-3 97 Workbook" )
  2771.                     
  2772.                     Set doc = Source.document
  2773.                     
  2774.                     Call doc.CreateRichTextItem( "Worksheet" )
  2775.                     
  2776.                     Set rtitemB = doc.GetFirstItem( "Worksheet")
  2777.                     
  2778.                     If ( rtitemA.Type = RICHTEXT And _
  2779.                     rtitemB.Type = RICHTEXT ) Then
  2780.                        '  Dim TheWorksheetObject As NotesEmbeddedObject 
  2781.                          
  2782.                          
  2783.                          Set rtitemA.EmbeddedObjects = rtitemA.EmbeddedObjects
  2784.                          
  2785.                          
  2786.                          
  2787.                          Msgbox(doc.HasEmbedded)
  2788.                          
  2789.                          'Call rtitemA.AppendRTItem( rtitemB )
  2790.                     Else 
  2791.                          Msgbox(rtitemB.Type )
  2792.                     End If
  2793.                     
  2794.                     'Call Source.FieldSetText("CustName",  "THis Works")
  2795.                End If
  2796.                
  2797.                Set TemplateDocument = view.GetNextDocument(TemplateDocument)
  2798.           Wend
  2799.      End If
  2800.      
  2801. End Sub
  2802. '++LotusScript Development Environment:2:2:Initialize:1:10
  2803. Sub Initialize
  2804.      
  2805. End Sub
  2806. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2807. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2808.      
  2809. End Sub
  2810. #-l    #}
  2811.     0S0E
  2812. Subject:  
  2813. Subject
  2814. Body:
  2815.     0S0E
  2816. Documents created with this form are meant to store template files. 
  2817. Ordinarily, views containing documents like this are hidden.  However, we exposed this view so you could see how we accessed each template file.  (You hide a view by inclosing its name in parentheses.)
  2818. MillCorp.MWP
  2819. MillCorp.MWP
  2820. Notes Product Development
  2821. )I^-.
  2822. PURSAF
  2823. Lotus Development Inc
  2824. 0wmS(
  2825. PURSAF
  2826. O=Lotus
  2827. O=Lotus
  2828. PURSAFO
  2829. O=Lotus
  2830. OU=CAM/O=Lotus
  2831. PURSAFO
  2832. OU=CAM/O=Lotus
  2833. CN=David Folk/OU=CAM/O=Lotus
  2834. PURSAFO
  2835. !Oj,U
  2836. ,9IZ8
  2837. MillCorp.MWP"
  2838. David
  2839. "Arial
  2840. Total:
  2841. "Arial
  2842. Lotus 1-2-3 97 Workbook
  2843. 123Native97
  2844. Lotus123.Workbook.97
  2845. David Folk
  2846. David Folk/CAM/Lotus
  2847. Lotus Chart
  2848. STG48267
  2849. STG27094
  2850. STG52451
  2851. STG15421
  2852. STG38262
  2853. STG30303
  2854. STG51720
  2855. STG02609
  2856. "MS Sans Serif
  2857. Total:
  2858. "MS Sans Serif
  2859. Lotus 1-2-3 97 Workbook
  2860. 123Native97
  2861. Lotus123.Workbook.97
  2862. David Folk
  2863. David Folk/CAM/Lotus
  2864. Lotus Chart
  2865. Cancel
  2866. PORTVALUE
  2867. Chart 4
  2868. Chart 2
  2869. #,I|j
  2870. I?h&[
  2871. ,Z.Sr
  2872. =J$5"
  2873. I?h&[
  2874. Vr$=    
  2875. 5~yBF
  2876. jm]{m
  2877. LaE8vz
  2878. r$A\3
  2879. Arial
  2880. >".Z+
  2881. ]eYd9
  2882. z2223Y
  2883. OFFFFk
  2884. Arial
  2885. PORTVALUE
  2886. 'Total:
  2887. CellValueChange
  2888. CellContentsChange
  2889. 5Courier New
  2890. Sell stock dialog'++LotusScript Development Environment:2:5:(Options):0:66
  2891. '++LotusScript Development Environment:2:5:(Forward):0:1
  2892. Declare Sub Postopen(Source As Notesuidocument)
  2893. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2894. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2895. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2896. Private Sub BindEvents(Byval Objectname_ As String)
  2897.      Static Source As NOTESUIDOCUMENT
  2898.      Set Source = Bind(Objectname_)
  2899.      On Event Postopen From Source Call Postopen
  2900.      On Event Queryclose From Source Call Queryclose
  2901. End Sub
  2902. '++LotusScript Development Environment:2:2:Postopen:1:12
  2903. Sub Postopen(Source As Notesuidocument)
  2904.      Call Source.FieldSetText( "NumberShares", "" )
  2905. End Sub
  2906. '++LotusScript Development Environment:2:2:Queryclose:1:12
  2907. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2908.      
  2909. End Sub
  2910. Number of shares to sell:
  2911. NumberOfSharesToSell
  2912. NumberShares
  2913. StockQuote
  2914. PorList
  2915. Stock portfolio:
  2916. StockNameAndValue
  2917. Notes Product Development
  2918. )I^-.
  2919. PURSAF
  2920. Lotus Development Inc
  2921. 0wmS(
  2922. PURSAF
  2923. O=Lotus
  2924. O=Lotus
  2925. PURSAFO
  2926. O=Lotus
  2927. OU=CAM/O=Lotus
  2928. PURSAFO
  2929. OU=CAM/O=Lotus
  2930. CN=David Folk/OU=CAM/O=Lotus
  2931. PURSAFO
  2932. !Oj,U
  2933. $TITLE
  2934. $Info
  2935. $$Script_O
  2936. $$ScriptName
  2937. $$FormScript
  2938. $$$FormScript_O
  2939. $Body
  2940. $Modified
  2941.     1S2S3S
  2942. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$Private$C1$
  2943.     0SL1S
  2944. $TITLE
  2945. Summary Data
  2946. Debbie Williams
  2947. Debbie WilliamsDebbie Williams
  2948. 12/06/95 13:21:55 Todd Flolo/CAM/Lotus added OtherDomainServers
  2949. 12/06/95 13:21:55 Todd Flolo/CAM/Lotus added LocalDomainServers
  2950. 12/06/95 13:21:55 Todd Flolo/CAM/Lotus added Todd Flolo/CAM/Lotus
  2951. 12/06/95 13:21:55 Todd Flolo/CAM/Lotus updated -Default-
  2952. -Default-
  2953. CN=Todd Flolo/OU=CAM/O=Lotus
  2954. LocalDomainServers
  2955. OtherDomainServers
  2956. Gqu")
  2957. O=MZ;
  2958. %Dq:(
  2959. D3YU)_x]D
  2960. t_)i=UP
  2961. uv##=V
  2962. R@]tMK
  2963. 0=Nq6
  2964. md]FB2
  2965. ]o5.KF
  2966. I3(.KF
  2967. hK;Il?
  2968. UgRo%
  2969. i"QyY
  2970. cgJ8E
  2971. 7G7Ibob
  2972.  mU u
  2973. P8*uz1&_
  2974. ^^SD*
  2975. `N/F&\
  2976. Uy^cA
  2977. l\svf
  2978. `Hjje
  2979. Uy^c-
  2980. K=g8h
  2981. az^q&
  2982. YOskv6S
  2983. /)u-|
  2984. :a}ab
  2985. bv=H4
  2986. ,|u'Y
  2987. 3.F.?
  2988. iZRRk
  2989. 7G7Ibob
  2990. A3Z2K
  2991. :g]Hj{-q
  2992. 85gD[
  2993. U`S^'8
  2994. n^<l\22
  2995. t[dZ3
  2996. Uy^c/.
  2997. _fa1f
  2998. eaE'Oe;
  2999. _IO7'8!
  3000. f1}%<
  3001. K(Ks    
  3002. ,|u'^
  3003. |:H\b
  3004. ypa3-#
  3005. pd98$,
  3006. U:(8K
  3007. :`N,:
  3008. L:qpM
  3009.     Yk@p
  3010. *Y^RK
  3011. ?%F7p
  3012. N^$|A
  3013. 85gD[
  3014. ?%F7p
  3015. kz`}'
  3016. )-0a'
  3017. \:sV    
  3018. b!{E`V
  3019. e?ED=
  3020. 1g+vf
  3021. *V    Y^([
  3022. <l\22X
  3023. &Ayyyk
  3024. g"r'"OZ
  3025. r'"r$
  3026. r'"r$
  3027. g"r'"M
  3028. E<o(Y
  3029. r'"r$
  3030. r'"r$
  3031. g"r'"O9:J
  3032.     NTcw6
  3033. +VAy{z
  3034. 0vMKX
  3035. Ir D8
  3036. Qz!bK
  3037. $*/D?
  3038. Ir D8
  3039. Qz R%
  3040. LImJh
  3041. r'"r9
  3042. r'"r9
  3043. XMyy2n7
  3044. r'"r9$]a5
  3045. r'"r$
  3046. Ayyyk
  3047. 5    hRv
  3048. Ir D8
  3049. qah.!
  3050. Ir D8
  3051. j/F[9
  3052. Ir D8
  3053. BK6.cDF
  3054. BK6.cDF
  3055.     pk*tT\
  3056. Ir D8
  3057. ?%F7p
  3058. pit.%ES
  3059. "    pj-
  3060. A$*)C(
  3061. 2aQ`N
  3062. 'gNrw
  3063. ,|u'^
  3064. zu^VT?M
  3065. L^|S'
  3066. 0@-G 
  3067. "-C@f
  3068. j-F@!
  3069. N&PX&
  3070. Z&PX&
  3071. <H    HJF
  3072. TWz5J
  3073. <H    LiK
  3074. <H    LD
  3075. H$%#j
  3076. H$%#j
  3077. F(I< ;
  3078. H$%#j
  3079. H$%#j
  3080. Mse)+a%J
  3081. E%Emp
  3082. +`AZZ    
  3083. nVkA;@
  3084. a`?B+
  3085. vtG'z
  3086. Z&<kW
  3087. ZR1?(
  3088. ckL_!p
  3089. %F7sb
  3090. =.,dC
  3091. f1}%<
  3092. !c*`<
  3093. q^pT?M
  3094. .)..~
  3095. ZR8NL
  3096. `\jLW
  3097. 5:>]U
  3098. "R/@T
  3099. zT-E}
  3100. dd|T{
  3101. `\k Q
  3102. 5:>]U
  3103. Kz>z>z$JGo
  3104. 5:>]T
  3105. 5:>]T
  3106. S"P%I"K
  3107. >lIlTcw
  3108. Kz>z>z$JG
  3109. _fa1f
  3110. s{vlL
  3111. Kz>T{
  3112. 5:>]T
  3113. Kz>z>z$JF
  3114. k%F7p
  3115. 0.51R
  3116. rK!{G
  3117. Kz>z>z$JG
  3118. ;Xf70
  3119. lf8;Xnon
  3120. Kz$JF
  3121. Kz>z>z>T{
  3122. Kz>T{
  3123. l\svf
  3124. ;y+!{G
  3125. lslTcw
  3126. `\i,+\x
  3127. 5:>]T
  3128. Kz>z>T{
  3129. 5:>]T
  3130. !-,-1r5M
  3131. bR2Yi
  3132. l!:V#
  3133. X&7I2
  3134. DH)Kz$JG
  3135. DH)Kz$JE
  3136. dg'$h^
  3137. )kDxO
  3138. 'Z5U*
  3139. ,|u'Y
  3140.     NTcw6
  3141. Tcw6!
  3142. GZ&}[
  3143. A?VtD
  3144. ~NpC9
  3145. _IO7'8!
  3146. qq?X*!
  3147. -K-fZ
  3148. ttt]x@
  3149. 41q^YX
  3150. hj[UUUU<
  3151. n1gaY~}UU=
  3152. 2jdso
  3153. n1gaY~}UU?)
  3154. #CE)Z9
  3155.  TuEE
  3156. 2jdso
  3157. n1gaY~}UU?)
  3158. WbpLn
  3159. U2Vk<s^U
  3160. &FErd
  3161. jE-XR
  3162. I?[bO
  3163. ^jY^h
  3164. 9d^\,
  3165. Aiy!;{':
  3166. 0Okv    
  3167. 0OI"o
  3168. _IQ|D
  3169. _%OUJ
  3170. pZk8"
  3171. 8NFNq
  3172. 2FH2@
  3173. o    %a-
  3174. 2Ld2S0
  3175. Ht??c
  3176. q[#m~
  3177. q[#m~
  3178. q[(n?
  3179. St>mB-
  3180. b+j#mBKe
  3181. (7BZl
  3182. q[(n?
  3183. mACj5
  3184.     0S0E
  3185. Documents created with this form are meant to store template files. 
  3186. Ordinarily, views containing documents like this are hidden.  However, we exposed this view so you could see how we accessed each template file.  (You hide a view by inclosing its name in parentheses.)
  3187. Temp.lwp
  3188. Temp.lwp
  3189. Notes Product Development
  3190. )I^-.
  3191. PURSAF
  3192. Lotus Development Inc
  3193. 0wmS(
  3194. PURSAF
  3195. O=Lotus
  3196. O=Lotus
  3197. PURSAFO
  3198. O=Lotus
  3199. OU=CAM/O=Lotus
  3200. PURSAFO
  3201. OU=CAM/O=Lotus
  3202. CN=David Folk/OU=CAM/O=Lotus
  3203. PURSAFO
  3204. !Oj,U
  3205. Temp.lwp"
  3206. eiZ])4
  3207. JM&s6Wj
  3208. oz    Fu
  3209. W4Eo5
  3210. rQo5.K
  3211. &EnL%O
  3212. ?F+tB
  3213. /V+rXS
  3214. n+Rp~
  3215. K].hY
  3216. LL,bdV
  3217. ei!`R
  3218. W8+X!9
  3219. _z_z^
  3220. z6 U=
  3221. Q/TK^
  3222. #G4l@
  3223. 0y,wEyz
  3224. :6 U=
  3225. wLyz+
  3226. Q.}0]&
  3227. 6+azX
  3228. \wK?:$
  3229. /~On3
  3230. zYnK@
  3231. \wK?<)
  3232. Ej@e@\L
  3233. U+&FX
  3234. U+&F_v
  3235. i[clm
  3236. cli3J/
  3237. bIY|_
  3238. =MKbJ3
  3239. OY"tR
  3240. Vhu 2
  3241. \)jhy
  3242. Nf+9$
  3243. gf_$Z
  3244. 6_kJ^E
  3245. =MKn*
  3246. _F3VR
  3247. dV&uS
  3248. _F3VR
  3249. q0fou
  3250. A>M+lm
  3251. 1%.\)J
  3252. c5e+8
  3253. Y"TL]
  3254. _F3VR
  3255. ~w+iy
  3256. w\I'1
  3257. e$g>E
  3258. /Lrvc
  3259. 1u~b5
  3260. _F3VR
  3261. q0fou
  3262. 4|b-z
  3263. u?[)j
  3264. _F3VR
  3265. y&cxQ.
  3266. )q#=!
  3267. `R&%h"
  3268. gtA/Lg
  3269. ?U/TQ,
  3270. wPk)j
  3271. Gg^* r
  3272. )61Dv&Y
  3273. %H8(D
  3274. @@ oF
  3275.  ADv0
  3276. &)zLKI
  3277. /Dv&Y
  3278. kDv0'
  3279. aDv0'
  3280. r!k'1
  3281. kDv0'
  3282. f2u 21
  3283. `R&%Lb
  3284. %H8(D
  3285. `R&%Lb
  3286. rLU}j
  3287. 1E>3\>
  3288. kws)T
  3289. 4N;,%g
  3290. uO%<C
  3291. vPAr$9
  3292. ya+<D
  3293. L)3+Wn
  3294. /~On3
  3295.  eRWM
  3296. G/D#A<|
  3297. #A<x&E
  3298. `>(AP
  3299. `(APl
  3300. `(API
  3301. ~aN>    
  3302. `&A<P
  3303. xD>&Ab.
  3304. m<#    Q
  3305.     B(4!@
  3306. /\<2iP0
  3307. pqSq\
  3308. W%Wi8
  3309. E9'W>^
  3310. rbWXp
  3311. uO%<C
  3312. x%7A2
  3313. tj|E3
  3314. "81*He
  3315. &dlYLu2
  3316. Zg1Er
  3317. L$B*%E&
  3318. 9 UX;
  3319. 9 UX;
  3320. "@5JP
  3321. C$wo$
  3322. x%7A2
  3323. |_!E&
  3324. Na<4^
  3325. /~On3
  3326. KM+H(C
  3327. $n&CP
  3328.  cM2b
  3329. TU    C 
  3330. 7O7Oh@
  3331. p<(b<
  3332. jz;?3
  3333. k'    (@
  3334. $"p C9
  3335. |7rL{
  3336. 3:l/}
  3337. vz;Lw
  3338. x%7A2
  3339. 3=nOJ
  3340. x%7A2
  3341. u.NAw
  3342. I|X5#T
  3343. Gt$qB@2G|hn
  3344. x%7A2
  3345. 5~yBF
  3346. )MbM_
  3347. u.NAw
  3348. CVnU25$
  3349. u.NAw
  3350. U~yBF
  3351. s=N&j
  3352. bTSvL
  3353. F%E7d
  3354. NAw'M$
  3355. bTSvL
  3356. I?h&[
  3357. OHe'K
  3358. I?h&[
  3359. OHe'K
  3360. :ryg    
  3361. O:s`Y
  3362. #,I|j
  3363. I?h&[
  3364. ,Z.Sr
  3365. =J$5"
  3366. I?h&[
  3367. Vr$=    
  3368. 5~yBF
  3369. jm]{m
  3370. LaE8vz
  3371. r$A\3
  3372. i3wem
  3373. ->ei{
  3374. v71E2I
  3375. 3;UL'
  3376. x888&
  3377. _%hb/[
  3378. UUUU:
  3379. ^kr@@
  3380. i\fJ$O"
  3381. ^kr@@
  3382. ,ye+X
  3383. fx9    !
  3384. i\fJ$O"
  3385. zjv    M
  3386. )RU(?
  3387. z7)vh
  3388. -V!dZ
  3389. 3K\KR
  3390. kIHuM
  3391. f[;NeD
  3392. ~:'EI
  3393. _@4?G
  3394. b>bC&+
  3395. Ui:W*>_
  3396. b>k">
  3397. ',yy'gj8
  3398. %_hv?
  3399. rJgmH
  3400. h$rG$qkm
  3401. ! =`;
  3402. cEU)]
  3403. PORTVALUE
  3404. B:C8..B:C100
  3405. B:F8..B:F100
  3406. B:F8..B:F9
  3407. Cancel
  3408. PORTVALUE
  3409. Chart 4
  3410. Chart 2
  3411. David Folk#############
  3412. David Folk#############
  3413. David Folk#############
  3414. David Folk#############
  3415. David Folk#############
  3416. David Folk#############
  3417. David Folk#############
  3418. David Folk#############
  3419. David Folk#############
  3420. David Folk#############
  3421. David Folk#############
  3422. David Folk#############
  3423. ox=G)r
  3424. David Folk#############
  3425. @=fBx
  3426. David Folk#############
  3427. David Folk#############
  3428. [_jwI
  3429. David Folk#############
  3430. David Folk#############
  3431. David Folk#############
  3432. David Folk#############
  3433. "Arial
  3434. Total:
  3435. "Arial
  3436. Lotus 1-2-3 97 Workbook
  3437. 123Native97
  3438. Lotus123.Workbook.97
  3439. David Folk
  3440. David Folk/CAM/Lotus
  3441. Lotus Chart
  3442. "MS Sans Serif
  3443. Total:
  3444. "MS Sans Serif
  3445. EXT56076
  3446. Lotus 1-2-3 97 Workbook
  3447. 123Native97
  3448. Lotus123.Workbook.97
  3449. David Folk
  3450. David Folk/CAM/Lotus
  3451. Lotus Chart
  3452. Arial
  3453. Arial
  3454. PORTVALUE
  3455. 'Total:
  3456. 'BJICA
  3457. '2/3/97 11:23:35 AM
  3458. '2/3/97 11:22:21 AM
  3459. 'BJICA
  3460. '2/3/97 11:22:40 AM
  3461. '2/3/97 11:22:49 AM
  3462. '2/3/97 11:23:06 AM
  3463. '2/3/97 11:23:22 AM
  3464. '2/3/97 11:23:35 AM
  3465. CellValueChange
  3466. CellContentsChange
  3467. PORTVALUE
  3468. B:C8..B:C100
  3469. B:F8..B:F100
  3470. B:F8..B:F9
  3471. Cancel
  3472. PORTVALUE
  3473. Cancel
  3474. PORTVALUE
  3475. Chart 4
  3476. Chart 2
  3477. ol from Quote. For example,
  3478.           ' if Quote were "IBM @ 123.8" it would return "IBM".
  3479.           ' Hence, the following line sets the global variable
  3480.           ' Ticker to the ticker in the Quote:
  3481.           Ticker = GetTicker (Quote) 
  3482.           
  3483.           ' The global function GetCurrentPrice returns the
  3484.           ' current price for a given Ticker.  First, it
  3485.           ' iterates through documents in the database view
  3486.           ' Companies\By Ticker until it finds one with a
  3487.           ' Ticker field whose contents matches the passed
  3488.           ' argument Ticker. Then, it reads the CurrentValue
  3489.           ' field for the document containing the matching
  3490.           ' ticker.
  3491.           Price = GetCurrentPrice (Ticker)
  3492.           
  3493.           ' Set the global variable BlockOfShares to the value
  3494.           ' of the text box in the Position add dialog.
  3495.           BlockOfShares = Doc.GetFirstItem("NumberShares").Text
  3496.           
  3497.           ' Set the global variable ThisDay to the current date
  3498.           ' and time.
  3499.           ThisDay = Date$  + " " + Time$
  3500.           
  3501.           ' Test to make sure that BlockOfShares is an integer.
  3502.           Dim TestForInteger As Integer
  3503.           TestForInteger  = Cint (BlockOfShares)
  3504.           
  3505.           ' If BlockOfShares is an integer, display
  3506.           ' confirmation input box.
  3507.           If TestForInteger > 0 Then
  3508.                If(Messagebox("Purchase " + BlockOfShares + _
  3509.                " shares of " + Ticker + " at $" + Price + _
  3510.                " a share?", MB_YESNO + 4 , "Purchase") = 6) _
  3511.                Then 
  3512.                     
  3513.                     ' If the user clicked OK in the
  3514.                     ' confirmation input box, then call the
  3515.                     ' global sub WriteToSheet to write the
  3516.                     ' transaction to the embedded 1-2-3
  3517.                     ' document object and use call the global
  3518.                     ' sub UpdatePortfolioValue to update the
  3519.                     ' PortValue field in the current Notes
  3520.                     ' Customer document.
  3521.                     WriteToSheet
  3522.                     UpdatePortfolioValue
  3523.                Else
  3524.                     Messagebox "No stocks purchased",,"Notes"
  3525.                End If
  3526.           Else  
  3527.                Messagebox "No stocks purchased",,"Notes"
  3528.           End If
  3529.      Else
  3530.           Messagebox "No stocks purchased",,"Notes"
  3531.      End If
  3532. End Sub
  3533. Cancel
  3534. PORTVALUE
  3535. Chart 4
  3536. Chart 2
  3537. ^aZ97
  3538. \xe\C
  3539. \Be\C
  3540. @4q7L@
  3541. $    2c k
  3542. VLQSgdBr*i
  3543. Chart 4
  3544. Chart 2
  3545. "System
  3546. Arial
  3547. [h    K4
  3548. Arial
  3549. PORTVALUE
  3550. 'Total:
  3551. 'BJICA
  3552. 'INTC
  3553. '2/3/97 11:24:25 AM
  3554. 'INTC
  3555. '2/3/97 11:22:21 AM
  3556. 'BJICA
  3557. '2/3/97 11:22:40 AM
  3558. '2/3/97 11:22:49 AM
  3559. '2/3/97 11:23:06 AM
  3560. '2/3/97 11:23:22 AM
  3561. '2/3/97 11:23:35 AM
  3562. '2/3/97 11:24:25 AM
  3563. 'INTC
  3564. CellValueChange
  3565. CellContentsChange
  3566. PORTVALUE
  3567. B:F8..B:F9
  3568. B:F8..B:F100
  3569. B:C8..B:C100
  3570.  XiOQ
  3571. )Py )
  3572. GwJ;)
  3573. YS9S9=
  3574. *g*g'
  3575. )WG\/
  3576. 7rfY7D'?5WWD
  3577. |EW|~z
  3578. =E|M5l
  3579. D?5YKY{vEuP5
  3580. BridM9
  3581. r*z2zb
  3582. =1EuVD
  3583. tY7D;?5Y
  3584. vWl'?;
  3585. jgecU
  3586. W_+oZ
  3587. S=OF^
  3588. OFyVR
  3589. e;S;+
  3590. #TCTW
  3591. N~L$tY4
  3592. W_+oZ
  3593. dy]dM
  3594. OFFFFP
  3595. z2222
  3596. ]s|E_
  3597. YKY@S;+
  3598. k|M5OFFFFOFFFFOYe
  3599. z2222
  3600. D;?5\
  3601. z2222
  3602. WYe-e
  3603. D;?5\
  3604. OFFF^
  3605. j|D;>"
  3606. OFFFOFFFNV:
  3607. z222+TImn
  3608. A1}/K:
  3609. z222z22b
  3610. N2T!{
  3611. %CbT6!a-
  3612. <!a.JB
  3613. EQHXKw
  3614. H]9.JB
  3615. EQHXKw
  3616. H]9.JB
  3617. ^aZ97
  3618. \xe\C
  3619. \Be\C
  3620. @4q7L@
  3621. $    2c k
  3622. VLQSgdBr*i
  3623. 6vD'"
  3624. )PkR1yAt
  3625. NM*4r
  3626. !&Lz#
  3627. #QR&^
  3628. 8UHH#@oS
  3629. K#e`(
  3630. =B:TU
  3631. l>=|Y
  3632. Z%$$G[T
  3633. )/N2T
  3634. JM$1C
  3635. N2U ^
  3636. H]9.JB
  3637. !a.JK
  3638. tJ&ye]
  3639. y(&~T
  3640. w{M:!
  3641.  eLBb
  3642. Cancel
  3643. PORTVALUE
  3644. Chart 4
  3645. Chart 2
  3646. "MS Sans Serif
  3647. BJICA
  3648. "MS Sans Serif
  3649. $1,600.00
  3650. $1,259.25
  3651. $5,625.00
  3652. $3,637.50
  3653. $8,287.50
  3654. $6,571.88
  3655.  1-2-3 document object with the
  3656.      ' latest prices from the Company documents in this Notes
  3657.      ' database.
  3658.    ' UpdatePrices
  3659.      
  3660.      
  3661.      ' Get the contents of the portfolio some
  3662. INTC2
  3663. $1,590.00
  3664. urnal")
  3665.      
  3666.      Dim row As Integer
  3667.      
  3668.      row = 8
  3669.      
  3670.      While(row <> 0)
  3671.           Set MyRange = Handle.Ranges.Item("B:C" + Cstr(row))
  3672.           If (MyRange.contents = "") Then
  3673.                row = 0
  3674.           Else
  3675.                'number shares
  3676.                Set MyRange = Handle.Ranges.Item("B:D"+ Cstr(ro
  3677. "System
  3678. "MS Sans Serif
  3679. BJICA
  3680. "MS Sans Serif
  3681. $1,600.00
  3682. $1,259.25
  3683. $5,625.00
  3684. $3,637.50
  3685. $8,287.50
  3686. $6,571.88
  3687. "MS Sans Serif
  3688. Total:
  3689. "MS Sans Serif
  3690. EXT56076
  3691. Lotus 1-2-3 97 Workbook
  3692. 123Native97
  3693. Lotus123.Workbook.97
  3694.  field in the current Notes
  3695.                     ' Customer document.
  3696.                     WriteToSheet
  3697.                     UpdatePortfolioValue
  3698.                Else
  3699.                     Messagebox "No stocks purchased",,"Notes"
  3700.                End If
  3701.           Else  
  3702.                Messagebox "No stocks purchased",,"Notes"
  3703.           End If
  3704.      Else
  3705.           Messagebox "No stocks purchased",,"Notes"
  3706.      End If
  3707. End Sub
  3708. Lotus 1-2-3 97 Workbook
  3709. 123Native97
  3710. Lotus123.Workbook.97
  3711. David Folk
  3712. David Folk/CAM/Lotus
  3713. Lotus Chart
  3714.     0S0E
  3715. EXT56076Lotus123.Workbook.97
  3716. "System
  3717. "MS Sans Serif
  3718. BJICA
  3719. "MS Sans Serif
  3720. $1,600.00
  3721. $1,259.25
  3722. $5,625.00
  3723. $3,637.50
  3724. $8,287.50
  3725. $6,571.88
  3726. INTC2
  3727. $1,590.00
  3728. `!b`1
  3729. 7`^///
  3730. ?b___
  3731. `bOOO
  3732. `<b!R
  3733. 28571.125
  3734.