home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / notes / 50lbwis.exe / DATA1.CAB / DominoDataFiles / dspv.ntf (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1999-01-28  |  989.0 KB  |  8,917 lines

  1. Server.Planner: Vendor
  2. #1Server.Planner: Vendor
  3. O=Lotus Notes
  4. O=Lotus Notes
  5. PURSAFO
  6. |.:#U
  7. O=Lotus Notes
  8. CN=Lotus Notes Template Development/O=Lotus Notes
  9. PURSAFO
  10. Fde!f^^
  11. 5jieO
  12. $TITLE
  13. $Index
  14. $Formula
  15. $FormulaClass
  16. $ViewFormat
  17. $Comment
  18. bx$oH
  19. CN=Lotus Notes Template Development/O=Lotus Notes
  20. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Lotus Notes Template Development/O=Lotus Notes
  21. B#######################
  22. $Modified
  23.     1S2S3S
  24. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  25. $Flags
  26.     0SL1S4S5S3724
  27. $TITLE
  28. CN=Carol Zimmet/O=Iris#########################
  29. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  30. CN=Carol Zimmet/O=Irisf:\NOTEFILE\dspv.ntfMachine Identifierl
  31. CN=Carol Zimmet/O=IrisCN=Richard Kanosky/O=IrisServer.Planner: Vendor
  32. #1Server.Planner: Vendor#####################################################
  33. KMachine Identifierb
  34. MachineDiskType1
  35. Includes RAID 5
  36. MachineDiskType2
  37. Includes RAID 5
  38. MachineDiskType3
  39. Includes RAID 5
  40. MachineDiskType4
  41. Includes RAID 5
  42. Any Config
  43. RAID 5
  44.     1S3S4S5S6R7S8S9S2E10S11S12S13S14R15S16S20S
  45. FormSigned
  46.     1S3S4S6S8S
  47. MachineIDMachineDescriptionMachinePlatformMachineCPUTypeMachineNumberofCPUsMachineCPUSpeedMachineAmountofMemoryMachineNotesVersionMachineCost$17$6$Conflict$REF
  48. Machine Identifier
  49.     L1S2S3S1X
  50. MachineIDMachinePlatformMachineNotesVersionMachineCost
  51. MachineCost
  52. MachineCostY
  53. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  54. ((All Documents\List)X
  55. ListTypeList$Conflict$REF
  56. (List)
  57.     L1S2S3S1
  58. ListTypeList&
  59. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
  60. OVendor Data
  61. IsSignedField
  62.     1S3S4S6S8S
  63. estimated
  64.     1S3S4S6S8S
  65. DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUPercentDFastDataUPercentDMediumDataUPercentDSlowDataUOther11DataUOther21$4$5$Conflict$REF
  66. Vendor Data
  67.     L1S2S3S1E
  68. DataUServerIDDataUScript1DataUNumberUsers1
  69. DataUServerID
  70. DataUServerIDY
  71. CN=Richard Kanosky/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
  72. "(All Documents\All)8
  73. Form$Conflict$REF
  74.     L1S1
  75. Form&
  76. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
  77. (List)|ListX
  78. ListTypeList$Conflict$REF
  79. (List)
  80.     L1S2S3S1 
  81. ListTypeList
  82. 0ListTypeList NameListList&
  83. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  84. ?Vendor DataCJ
  85. DataDistributeSheetDataPerformSheetDataUCommentsDataUModificationDateDataUCreationDateDataUAuthorReturnReceiptDeliveryReportDeliveryPrioritySubjectBlindCopyToCopyToSendToDataDistributeChartDataPerformChartDataUPercentMoreDataUPercentDMoreDataUMoreDataUPercentSlowDataUPercentDSlowDataUSlowDataUPercentMediumDataUPercentDMediumDataUMediumDataUPercentFastDataUPercentDFastDataUFastDataUMaximumDataUMinimumDataUAverageAvgHitsMinTotBytesXferredAvgBytesHitTotHitsTotOrdersLotsTotDollarValueTotOrdersCreatedDataUOther21DataUOther11DataUResponseTime1DataUNotesMark1DataUNumberUsers1DataUScript1DurationTestVendorDataUDatePerformedDataUServerIDDataMachineIDFormSignedEstimatedRecordsOutputSaveResultsOutputFilenameOutputServerestimatedFirstTimeDataUResponseTime1_1DataMachineID_1AvgHitsMin_1IsSignedFieldMailFlagDataGenerated_1DataGeneratedDataCalibration_1AvgBytesHit_1DataUOther11_1DataUOther21_1DataUMaximum_1DataUMinimum_1DataUAverage_1CertifyCheckOnFormNewLocationEditFieldFlagSaveOptionsDocLinkFlag
  86. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  87. -Machine Identifier1
  88. MachineCommentsMachineModificationDateMachineCreationDateMachineAuthorMachineCostDateMachineCostClientProfPercent3ClientProf3ClientProfPercent2ClientProf2ClientProfPercent1ClientProf1MachineNetworkAdapterTypeMachineNetworkAdaptersMachineComPortSpeedMachineNumComPortsMachineDiskConfigure4MachineDiskType4MachineDiskSize4MachineDiskSpindles4MachineDiskConfigure3MachineDiskType3MachineDiskSize3MachineDiskSpindles3MachineDiskConfigure2MachineDiskType2MachineDiskSize2MachineDiskSpindles2MachineDiskConfigure1MachineDiskType1MachineDiskSize1MachineDiskSpindles1MachineAmountofMemoryMachineCPUSpeedMachineNumberofCPUsMachineCPUTypeMachinePlatformMachineNotesVersionVendorMachineDatePerfomedMachineDescriptionFormSignedMachineIDIsSignedFieldCertifyCheckOnFormNewLocationSaveOptionsDocumentLinkqueryid
  89. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  90. CN=Carol Zimmet/O=Iris2
  91. 30719
  92. ####################################
  93. CN=Carol Zimmet/O=Iris
  94. CN=Carol Zimmet/O=Iris2
  95. 30719
  96. ###############
  97. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  98. ,Vendor DataG3
  99. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  100. (List)C
  101. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  102. OutputInfoC
  103. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  104. ##########################################################
  105.  (Vendor Data)6
  106. FormSigned
  107.     1S3S4S6S8S
  108. DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUPercentFastDataUPercentMediumDataUPercentSlowDataUOther11DataUOther21$1$Conflict$REF
  109. Vendor Data
  110.     L1S2S3S1E
  111. DataUServerIDDataUScript1DataUNumberUsers1
  112. DataUServerID
  113. DataUServerIDY
  114. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  115. bx$oH
  116.     (Compare:  Probe/NotesBench Response)
  117. DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUResponseTime1_1DataUResponseTime1DataUNotesMark1$Conflict$REF
  118. Vendor Data
  119.     L1S2S3S1E
  120. DataUServerIDDataUScript1DataUNumberUsers1
  121. DataUServerID
  122. DataUServerID
  123. DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg ProbeDataUResponseTime1_1NB ResponseDataUResponseTime1DataUNotesMark1NB NotesMark&
  124. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  125. Remove Estimated Documents
  126. E4f3L
  127. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  128. Create Estimated Documents
  129. E4f3L
  130. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  131. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  132. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  133. ##########################################################
  134. O=Lotus Notes
  135. O=Lotus Notes
  136. PURSAFO
  137. |.:#U
  138. O=Lotus Notes
  139. CN=Lotus Notes Template Development/O=Lotus Notes
  140. PURSAFO
  141. Fde!f^^
  142. $ACLDigest
  143. Times New Roman
  144. bodytext_dd
  145. bll_onl
  146. Task List
  147. &Switch To
  148.   The Domino Server.Planner Analyst Database is a tool for creating
  149.         and managing queries that you make against Vendor Databases.  It
  150.         stores the results in a Decision Maker Database.
  151. body text
  152.         The Analyst Database presents two views:
  153.            
  154. Query on Data
  155. Conversion Guidelines
  156.            
  157.         You use the Query on Data view to create, use, and manage your
  158.         queries.
  159.         You use the Conversion Guidelines view to adjust the search
  160.         parameters to convert laboratory results to real-life requirements,
  161.         for specific workloads. (Optional)
  162.         Each view has an action button bar for ease of use.  You can also
  163.         perform any of these actions from the menu bar.
  164.         Server.Planner queries only certified Vendor Data and Machine
  165.         Identification forms.
  166.                   
  167.         You use the Query on Data view to perform a variety of activities
  168.         with the queries you have created to analyze the vendor data.
  169. Using the Domino Server.Planner Vendor Database
  170.        
  171.         The Server.Planner Vendor Database contains hardware, software, and
  172.         benchmark information created by Lotus NotesBench.  The database
  173.         presents two views:
  174. Machine Identifier
  175. Vendor Data
  176.            
  177.         When you select the Machine Identifier view, the view pane presents
  178.         a list of Machine IDs, including a summary of the configuration of
  179.         that machine.  You can view any complete Machine Identifier form by
  180.         opening it.
  181.         When you select the Vendor Data view, the view pane presents a list
  182.         of Machine IDs followed by a list of the workloads that were
  183.         performed on these systems.  You can view any workload data set by
  184.         opening it.
  185.         Each view has an action button bar for ease of use.  You can also
  186.         perform any of these actions from the menu bar.
  187.         You cannot alter the data in any Machine Identifier form, or Vendor
  188.         Data form, once it has been certified.
  189.                       
  190. Using the Machine Identifier View
  191.           To remove a Machine Identifier form, select Machine ID in the
  192.           navigator pane, select the form in the list in the view pane, and
  193.           press the Delete key, (or use 
  194. Edit  Cut
  195.  from the menu bar).
  196.           To view any Machine Identifier form, select 
  197. Machine Identifier
  198.  in the
  199.           navigator pane, and double-click on its entry in the list, (or
  200.           use 
  201. File  Open
  202.  from the menu bar).
  203.           To create a Machine Identifier form, select 
  204. Create  Machine
  205.           Identifier
  206.  from the menu bar.
  207.           To edit an uncertified Machine Identifier form, select 
  208. Machine Identifier
  209.           in the navigator pane, and double-click on its entry in the list,
  210.           (or use 
  211. File  Open
  212.  from the menu bar). Select 
  213. Edit 
  214. on the action
  215.           bar, and make changes to any open field.  Use 
  216. Save 
  217. on the action
  218.           bar to preserve your changes.
  219.                           
  220. Using the Vendor Data View
  221.         When you select the Vendor Data view, you see a list of Machine IDs
  222.         with associated workloads listed below them.  Select 
  223. View  Expand All
  224.         from the menu bar if you see only Machine IDs.
  225. To view the Vendor Data form for a particular workload run,
  226.  double-click on the workload entry.  The form shows a summary of
  227.  the benchmark results, as created by Probe and Notesnum.
  228.         You cannot alter any of the test data fields in this form.
  229.         You can create charts from the test data for a given workload on a
  230.         system, graphing by performance or distribution.  You can also
  231.         create additional charts for comparative analysis of other
  232.         machines, or other vendors' machines, after creating the initial
  233.         charts.  
  234.         
  235. : The Graphical Test Results area of the Vendor Data form must
  236.         be open when you initiate any graphing option.
  237.         You can add this vendor data and the charts to the Decision Maker
  238.         database, or create a mail item, by using the 
  239. Save Results
  240.  button,
  241.         (or  
  242. Action  Save Results
  243.  on the menu bar).
  244. O=Lotus Notes
  245. O=Lotus Notes
  246. PURSAFO
  247. |.:#U
  248. O=Lotus Notes
  249. CN=Lotus Notes Template Development/O=Lotus Notes
  250. PURSAFO
  251. Fde!f^^
  252. $Info
  253. $Body
  254. MachineIDMachine IDMachineDescriptionMachine DescriptionMachinePlatformOSMachineCPUTypeCPU TypeMachineNumberofCPUs #MachineCPUSpeedMHzMachineAmountofMemoryMemMachineNotesVersionNotesMachineCostCost$17Disk
  255. MachineDiskType1
  256. Includes RAID 5
  257. MachineDiskType2
  258. Includes RAID 5
  259. MachineDiskType3
  260. Includes RAID 5
  261. MachineDiskType4
  262. Includes RAID 5
  263. Any Config
  264. RAID 5
  265.     1S3S4S5S6R7S8S9S2E10S11S12S13S14R15S16S20S
  266. $6SignatureT
  267. FormSigned
  268.     1S3S4S6S8S
  269. O=Lotus Notes
  270. O=Lotus Notes
  271. PURSAFO
  272. |.:#U
  273. O=Lotus Notes
  274. CN=Lotus Notes Template Development/O=Lotus Notes
  275. PURSAFO
  276. <L(! 
  277. &!FT(
  278. $TITLE
  279. $Index
  280. $Formula
  281. $FormulaClass
  282. $ViewFormat
  283. $Comment
  284. O=Lotus Notes
  285. O=Lotus Notes
  286. PURSAFO
  287. |.:#U
  288. O=Lotus Notes
  289. CN=Lotus Notes Template Development/O=Lotus Notes
  290. PURSAFO
  291. Fde!f^^
  292. L:0q 
  293. $TITLE
  294. $Index
  295. $Formula
  296. $FormulaClass
  297. $ViewFormat
  298. $Comment
  299. DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg ProbeDataUPercentDFastFastDataUPercentDMediumMediumDataUPercentDSlowSlowDataUOther11Actions/MinDataUOther21Bytes/Min$4SignatureV
  300. IsSignedField
  301.     1S3S4S6S8S
  302. $5EstimatedT
  303. estimated
  304.     1S3S4S6S8S
  305. O=Lotus Notes
  306. O=Lotus Notes
  307. PURSAFO
  308. |.:#U
  309. O=Lotus Notes
  310. CN=Lotus Notes Template Development/O=Lotus Notes
  311. PURSAFO
  312. FBkZY
  313. $TITLE
  314. $Index
  315. $Formula
  316. $FormulaClass
  317. $ViewFormat
  318. $Comment
  319. O=Lotus Notes
  320. O=Lotus Notes
  321. PURSAFO
  322. |.:#U
  323. O=Lotus Notes
  324. CN=Lotus Notes Template Development/O=Lotus Notes
  325. PURSAFO
  326. Fde!f^^
  327. 1'/\T&
  328. $TITLE
  329. $Index
  330. $Formula
  331. $FormulaClass
  332. $ViewFormat
  333. $Comment
  334. O=Lotus Notes
  335. O=Lotus Notes
  336. PURSAFO
  337. |.:#U
  338. O=Lotus Notes
  339. CN=Lotus Notes Template Development/O=Lotus Notes
  340. PURSAFO
  341. Fde!f^^
  342. 6/B\#
  343. $TITLE
  344. $Index
  345. $Formula
  346. $FormulaClass
  347. $ViewFormat
  348. $Comment
  349. Times New Roman
  350. body text
  351. Task List
  352. &Switch To
  353.                     
  354. About Lotus Domino Server.Planner
  355. Body Text
  356. Domino Server.Planner is a capacity planning tool. It is a Notes
  357. Application used to identify benchmarked server configurations that support
  358. specified workload requirements for Domino servers.
  359. Server.Planner provides information in several formats, but with primarily
  360. two viewpoints:
  361.    Server configuration recommendations that satisfy server workload
  362.    requirements.
  363.    Graphical performance analysis and comparisons.
  364. This application is distributed as three Notes database templates.  Its
  365.  use requires three kinds of Domino Server.Planner databases:
  366.    Vendor Database
  367.    Analyst Database
  368.    Decision Maker Database
  369. DISCLAIMER
  370. :  This template is intended solely to provide you with a means for matching your user requirements with performance results generated by hardware vendors.  LOTUS DEVELOPMENT CORPORATION MAKES NO WARRANTIES, GUARANTEES OR REPRESENTATIONS, WHETHER EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION ANY WARRANTIES OF TITLE, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, WITH RESPECT TO THE TEMPLATE OR THE RECOMMENDATIONS PRODUCED.  LOTUS WILL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER IN CONNECTION WITH YOUR USE OF OR INABILITY TO USE THIS TEMPLATE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  371. This application requires:
  372.    Notes 4.6 or later
  373.    Windows 95 or Windows NT 3.51 or later
  374.    Lotus Components 1.1 or later (for graphical information)
  375.              
  376.  About the Domino Server.Planner Vendor Database
  377.        The Server.Planner Vendor Database contains hardware, software, and
  378.         benchmark information created by Lotus NotesBench.  The database
  379.         presents two views:
  380.  Machine Identifier
  381.  Vendor Data
  382.         When you select the Machine Identifier view, the view pane presents
  383.         a list of Machine IDs, including a summary of the configuration of
  384.         that machine.  You can view any complete Machine Identifier form by
  385.         opening it.
  386.         When you select the Vendor Data view, the view pane presents a list
  387.         of Machine IDs followed by a list of the workloads that were
  388.         performed on these systems.  You can view any workload data set by
  389.         opening it.
  390.         Each view has an action button bar for ease of use.  You can also
  391.         perform any of these actions from the menu bar.
  392.         You cannot alter the data in any Machine Identifier form, or Vendor
  393.         Data form, once it has been certified.
  394. For more detailed information about this application, choose 
  395. - Using
  396. This Database
  397. O=Lotus Notes
  398. O=Lotus Notes
  399. PURSAFO
  400. |.:#U
  401. O=Lotus Notes
  402. CN=Lotus Notes Template Development/O=Lotus Notes
  403. PURSAFO
  404. Fde!f^^
  405. qD:~<
  406. $Info
  407. $Body
  408. '++LotusScript Development Environment:2:5:(Options):0:66
  409. '++LotusScript Development Environment:2:5:(Forward):0:1
  410. Declare Sub Entering(Source As Field)
  411. Declare Sub Exiting(Source As Field)
  412. '++LotusScript Development Environment:2:5:(Declarations):0:2
  413. '++LotusScript Development Environment:2:2:BindEvents:1:129
  414. Private Sub BindEvents(Byval Objectname_ As String)
  415.      Static Source As FIELD
  416.      Set Source = Bind(Objectname_)
  417.      On Event Entering From Source Call Entering
  418.      On Event Exiting From Source Call Exiting
  419. End Sub
  420. '++LotusScript Development Environment:2:2:Entering:1:12
  421. Sub Entering(Source As Field)
  422.      Dim Workspace As New NotesUIWorkspace
  423.      Dim ThisDoc As NotesUIDocument
  424.      
  425.      Set ThisDoc = Workspace.CurrentDocument
  426.      sFieldName = ThisDoc.CurrentField
  427.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  428. End Sub
  429. '++LotusScript Development Environment:2:2:Exiting:1:12
  430. Sub Exiting(Source As Field)
  431.      Dim Workspace As New NotesUIWorkspace
  432.      Dim ThisDoc As NotesUIDocument
  433.      
  434.      Set ThisDoc = Workspace.CurrentDocument
  435.      
  436.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  )  And vEditFieldFlag( 0 ) = 0 ) Then
  437.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  438.           Call ThisDoc.FieldSetText( sFieldName, vFieldEntryValue ) 
  439.      End If
  440. End Sub
  441. '++LotusScript Development Environment:2:5:(Options):0:66
  442. '++LotusScript Development Environment:2:5:(Forward):0:1
  443. Declare Sub Exiting( Source As Field )
  444. Declare Sub Entering(Source As Field)
  445. '++LotusScript Development Environment:2:5:(Declarations):0:2
  446. '++LotusScript Development Environment:2:2:BindEvents:1:129
  447. Private Sub BindEvents(Byval Objectname_ As String)
  448.      Static Source As FIELD
  449.      Set Source = Bind(Objectname_)
  450.      On Event Exiting From Source Call Exiting
  451.      On Event Entering From Source Call Entering
  452. End Sub
  453. '++LotusScript Development Environment:2:2:Exiting:1:12
  454. Sub Exiting( Source As Field )
  455.      Dim Workspace As New NotesUIWorkspace
  456.      Dim ThisDoc As NotesUIDocument
  457.      
  458.      Set ThisDoc = Workspace.CurrentDocument
  459.      
  460.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  )  And vEditFieldFlag( 0 ) = 0 ) Then
  461.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  462.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  463.      End If
  464. End Sub
  465. '++LotusScript Development Environment:2:2:Entering:1:12
  466. Sub Entering(Source As Field)
  467.      Dim Workspace As New NotesUIWorkspace
  468.      Dim ThisDoc As NotesUIDocument
  469.      
  470.      Set ThisDoc = Workspace.CurrentDocument
  471.      sFieldName = ThisDoc.CurrentField
  472.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  473. End Sub
  474. '++LotusScript Development Environment:2:5:(Options):0:66
  475. '++LotusScript Development Environment:2:5:(Forward):0:1
  476. Declare Sub Entering(Source As Field)
  477. Declare Sub Exiting(Source As Field)
  478. '++LotusScript Development Environment:2:5:(Declarations):0:2
  479. '++LotusScript Development Environment:2:2:BindEvents:1:129
  480. Private Sub BindEvents(Byval Objectname_ As String)
  481.      Static Source As FIELD
  482.      Set Source = Bind(Objectname_)
  483.      On Event Entering From Source Call Entering
  484.      On Event Exiting From Source Call Exiting
  485. End Sub
  486. '++LotusScript Development Environment:2:2:Entering:1:12
  487. Sub Entering(Source As Field)
  488.      Dim Workspace As New NotesUIWorkspace
  489.      Dim ThisDoc As NotesUIDocument
  490.      
  491.      Set ThisDoc = Workspace.CurrentDocument
  492.      sFieldName = ThisDoc.CurrentField
  493.      vFieldEntryValue = ThisDoc.Document.DataUDatePerformed
  494. End Sub
  495. '++LotusScript Development Environment:2:2:Exiting:1:12
  496. Sub Exiting(Source As Field)
  497.      Dim Workspace As New NotesUIWorkspace
  498.      Dim ThisDoc As NotesUIDocument
  499.      
  500.      Set ThisDoc = Workspace.CurrentDocument
  501.      Dim vTemp As Variant
  502.      vTemp = ThisDoc.Document.DataUDatePerformed
  503.      If ( Cdat(vFieldEntryValue( 0 ) ) <> Cdat( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  504.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  505.           ThisDoc.Document.DataUDatePerformed = Cdat( vFieldEntryValue( 0 ) )
  506.      End If
  507. End Sub
  508. '++LotusScript Development Environment:2:5:(Options):0:66
  509. '++LotusScript Development Environment:2:5:(Forward):0:1
  510. Declare Sub Exiting( Source As Field )
  511. Declare Sub Entering(Source As Field)
  512. '++LotusScript Development Environment:2:5:(Declarations):0:2
  513. '++LotusScript Development Environment:2:2:BindEvents:1:129
  514. Private Sub BindEvents(Byval Objectname_ As String)
  515.      Static Source As FIELD
  516.      Set Source = Bind(Objectname_)
  517.      On Event Exiting From Source Call Exiting
  518.      On Event Entering From Source Call Entering
  519. End Sub
  520. '++LotusScript Development Environment:2:2:Exiting:1:12
  521. Sub Exiting( Source As Field )
  522.      Dim WorkSpace As New NotesUIWorkspace
  523.      Dim ThisDoc As NotesUIDocument
  524.      
  525.      Set ThisDoc = WorkSpace.CurrentDocument
  526.      If  ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  527.           Messagebox "Enter Script Specification", MB_ICONEXCLAMATION, "Validation"
  528.           ThisDoc.GoToField( "DataUScript1" )
  529.      End If
  530.      
  531.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  ) And vEditFieldFlag( 0 ) = 0 ) Then
  532.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  533.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  534.      End If
  535. End Sub
  536. '++LotusScript Development Environment:2:2:Entering:1:12
  537. Sub Entering(Source As Field)
  538.      Dim Workspace As New NotesUIWorkspace
  539.      Dim ThisDoc As NotesUIDocument
  540.      
  541.      Set ThisDoc = Workspace.CurrentDocument
  542.      sFieldName = ThisDoc.CurrentField
  543.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  544. End Sub
  545. '++LotusScript Development Environment:2:5:(Options):0:66
  546. '++LotusScript Development Environment:2:5:(Forward):0:1
  547. Declare Sub Entering(Source As Field)
  548. Declare Sub Exiting(Source As Field)
  549. '++LotusScript Development Environment:2:5:(Declarations):0:2
  550. '++LotusScript Development Environment:2:2:BindEvents:1:129
  551. Private Sub BindEvents(Byval Objectname_ As String)
  552.      Static Source As FIELD
  553.      Set Source = Bind(Objectname_)
  554.      On Event Entering From Source Call Entering
  555.      On Event Exiting From Source Call Exiting
  556. End Sub
  557. '++LotusScript Development Environment:2:2:Entering:1:12
  558. Sub Entering(Source As Field)
  559.      Dim Workspace As New NotesUIWorkspace
  560.      Dim ThisDoc As NotesUIDocument
  561.      
  562.      Set ThisDoc = Workspace.CurrentDocument
  563.      sFieldName = ThisDoc.CurrentField
  564.      vFieldEntryValue = ThisDoc.Document.DataUNumberUsers1
  565. End Sub
  566. '++LotusScript Development Environment:2:2:Exiting:1:12
  567. Sub Exiting(Source As Field)
  568.      Dim Workspace As New NotesUIWorkspace
  569.      Dim ThisDoc As NotesUIDocument
  570.      
  571.      Set ThisDoc = Workspace.CurrentDocument
  572.      
  573.      Dim vTemp As Variant
  574.      vTemp = ThisDoc.Document.DataUNumberUsers1
  575.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )  And vEditFieldFlag( 0 ) = 0 ) Then
  576.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  577.           ThisDoc.Document.DataUNumberUsers1 = Cdbl( vFieldEntryValue( 0 ) )
  578.      End If
  579. End Sub
  580. '++LotusScript Development Environment:2:5:(Options):0:66
  581. '++LotusScript Development Environment:2:5:(Forward):0:1
  582. Declare Sub Entering(Source As Field)
  583. Declare Sub Exiting(Source As Field)
  584. '++LotusScript Development Environment:2:5:(Declarations):0:2
  585. '++LotusScript Development Environment:2:2:BindEvents:1:129
  586. Private Sub BindEvents(Byval Objectname_ As String)
  587.      Static Source As FIELD
  588.      Set Source = Bind(Objectname_)
  589.      On Event Entering From Source Call Entering
  590.      On Event Exiting From Source Call Exiting
  591. End Sub
  592. '++LotusScript Development Environment:2:2:Entering:1:12
  593. Sub Entering(Source As Field)
  594.      Dim Workspace As New NotesUIWorkspace
  595.      Dim ThisDoc As NotesUIDocument
  596.      
  597.      Set ThisDoc = Workspace.CurrentDocument
  598.      sFieldName = ThisDoc.CurrentField
  599.      vFieldEntryValue = ThisDoc.Document.DataUNotesMark1
  600. End Sub
  601. '++LotusScript Development Environment:2:2:Exiting:1:12
  602. Sub Exiting(Source As Field)
  603.      Dim Workspace As New NotesUIWorkspace
  604.      Dim ThisDoc As NotesUIDocument
  605.      
  606.      Set ThisDoc = Workspace.CurrentDocument
  607.      
  608.      Dim vTemp As Variant
  609.      vTemp = ThisDoc.Document.DataUNotesMark1
  610.      
  611.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  612.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  613.           ThisDoc.Document.DataUNotesMark1 = Cdbl( vFieldEntryValue( 0 ) )
  614.      End If
  615. End Sub
  616. '++LotusScript Development Environment:2:5:(Options):0:66
  617. '++LotusScript Development Environment:2:5:(Forward):0:1
  618. Declare Sub Exiting(Source As Field)
  619. Declare Sub Entering(Source As Field)
  620. '++LotusScript Development Environment:2:5:(Declarations):0:2
  621. '++LotusScript Development Environment:2:2:BindEvents:1:129
  622. Private Sub BindEvents(Byval Objectname_ As String)
  623.      Static Source As FIELD
  624.      Set Source = Bind(Objectname_)
  625.      On Event Exiting From Source Call Exiting
  626.      On Event Entering From Source Call Entering
  627. End Sub
  628. '++LotusScript Development Environment:2:2:Exiting:1:12
  629. Sub Exiting(Source As Field)
  630.      Dim Workspace As New NotesUIWorkspace
  631.      Dim ThisDoc As NotesUIDocument
  632.      
  633.      Set ThisDoc = Workspace.CurrentDocument
  634.      
  635.      If ( Isnumeric(ThisDoc.Document.TotOrdersCreated) = True ) Then
  636.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Vendor Data"
  637.           ThisDoc.GoToField( "TotOrdersCreated" )
  638.      End If
  639.      Dim vTemp As Variant
  640.      vTemp = ThisDoc.Document.TotOrdersCreated
  641.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  642.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  643.           ThisDoc.Document.TotOrdersCreated = Cdbl( vFieldEntryValue( 0 ) )
  644.      End If
  645. End Sub
  646. '++LotusScript Development Environment:2:2:Entering:1:12
  647. Sub Entering(Source As Field)
  648.      Dim Workspace As New NotesUIWorkspace
  649.      Dim ThisDoc As NotesUIDocument
  650.      
  651.      Set ThisDoc = Workspace.CurrentDocument
  652.      sFieldName = ThisDoc.CurrentField
  653.      vFieldEntryValue = ThisDoc.Document.TotOrdersCreated
  654. End Sub
  655. '++LotusScript Development Environment:2:5:(Options):0:66
  656. '++LotusScript Development Environment:2:5:(Forward):0:1
  657. Declare Sub Entering(Source As Field)
  658. Declare Sub Exiting(Source As Field)
  659. '++LotusScript Development Environment:2:5:(Declarations):0:2
  660. '++LotusScript Development Environment:2:2:BindEvents:1:129
  661. Private Sub BindEvents(Byval Objectname_ As String)
  662.      Static Source As FIELD
  663.      Set Source = Bind(Objectname_)
  664.      On Event Entering From Source Call Entering
  665.      On Event Exiting From Source Call Exiting
  666. End Sub
  667. '++LotusScript Development Environment:2:2:Entering:1:12
  668. Sub Entering(Source As Field)
  669.      Dim Workspace As New NotesUIWorkspace
  670.      Dim ThisDoc As NotesUIDocument
  671.      
  672.      Set ThisDoc = Workspace.CurrentDocument
  673.      sFieldName = ThisDoc.CurrentField
  674.      vFieldEntryValue = ThisDoc.Document.TotDollarValue
  675. End Sub
  676. '++LotusScript Development Environment:2:2:Exiting:1:12
  677. Sub Exiting(Source As Field)
  678.      Dim Workspace As New NotesUIWorkspace
  679.      Dim ThisDoc As NotesUIDocument
  680.      
  681.      Set ThisDoc = Workspace.CurrentDocument
  682.      Dim vTemp As Variant
  683.      vTemp = ThisDoc.Document.TotDollarValue
  684.      If ( Ccur(vFieldEntryValue( 0 ) ) <> Ccur( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  685.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  686.           ThisDoc.Document.TotDollarValue = Ccur( vFieldEntryValue( 0 ) )
  687.      End If   
  688. End Sub
  689. '++LotusScript Development Environment:2:5:(Options):0:66
  690. '++LotusScript Development Environment:2:5:(Forward):0:1
  691. Declare Sub Entering(Source As Field)
  692. Declare Sub Exiting(Source As Field)
  693. '++LotusScript Development Environment:2:5:(Declarations):0:2
  694. '++LotusScript Development Environment:2:2:BindEvents:1:129
  695. Private Sub BindEvents(Byval Objectname_ As String)
  696.      Static Source As FIELD
  697.      Set Source = Bind(Objectname_)
  698.      On Event Entering From Source Call Entering
  699.      On Event Exiting From Source Call Exiting
  700. End Sub
  701. '++LotusScript Development Environment:2:2:Entering:1:12
  702. Sub Entering(Source As Field)
  703.      Dim Workspace As New NotesUIWorkspace
  704.      Dim ThisDoc As NotesUIDocument
  705.      
  706.      Set ThisDoc = Workspace.CurrentDocument
  707.      sFieldName = ThisDoc.CurrentField
  708.      vFieldEntryValue = ThisDoc.Document.TotOrdersLots
  709. End Sub
  710. '++LotusScript Development Environment:2:2:Exiting:1:12
  711. Sub Exiting(Source As Field)
  712.      Dim Workspace As New NotesUIWorkspace
  713.      Dim ThisDoc As NotesUIDocument
  714.      
  715.      Set ThisDoc = Workspace.CurrentDocument
  716.      Dim vTemp As Variant
  717.      vTemp = ThisDoc.Document.TotOrdersLots
  718.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  719.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  720.           ThisDoc.Document.TotOrdersLots = Cdbl( vFieldEntryValue( 0 ) )
  721.      End If
  722. End Sub
  723. '++LotusScript Development Environment:2:5:(Options):0:66
  724. '++LotusScript Development Environment:2:5:(Forward):0:1
  725. Declare Sub Entering(Source As Field)
  726. Declare Sub Exiting(Source As Field)
  727. '++LotusScript Development Environment:2:5:(Declarations):0:2
  728. '++LotusScript Development Environment:2:2:BindEvents:1:129
  729. Private Sub BindEvents(Byval Objectname_ As String)
  730.      Static Source As FIELD
  731.      Set Source = Bind(Objectname_)
  732.      On Event Entering From Source Call Entering
  733.      On Event Exiting From Source Call Exiting
  734. End Sub
  735. '++LotusScript Development Environment:2:2:Entering:1:12
  736. Sub Entering(Source As Field)
  737.      Dim Workspace As New NotesUIWorkspace
  738.      Dim ThisDoc As NotesUIDocument
  739.      
  740.      Set ThisDoc = Workspace.CurrentDocument
  741.      sFieldName = ThisDoc.CurrentField
  742.      vFieldEntryValue = ThisDoc.Document.TotHits
  743. End Sub
  744. '++LotusScript Development Environment:2:2:Exiting:1:12
  745. Sub Exiting(Source As Field)
  746.      Dim Workspace As New NotesUIWorkspace
  747.      Dim ThisDoc As NotesUIDocument
  748.      
  749.      Set ThisDoc = Workspace.CurrentDocument
  750.      Dim vTemp As Variant
  751.      vTemp = ThisDoc.Document.TotHits
  752.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  753.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  754.           ThisDoc.Document.TotHits = Cdbl( vFieldEntryValue( 0 ) )
  755.      End If
  756. End Sub
  757. '++LotusScript Development Environment:2:5:(Options):0:66
  758. '++LotusScript Development Environment:2:5:(Forward):0:1
  759. Declare Sub Entering(Source As Field)
  760. Declare Sub Exiting(Source As Field)
  761. '++LotusScript Development Environment:2:5:(Declarations):0:2
  762. '++LotusScript Development Environment:2:2:BindEvents:1:129
  763. Private Sub BindEvents(Byval Objectname_ As String)
  764.      Static Source As FIELD
  765.      Set Source = Bind(Objectname_)
  766.      On Event Entering From Source Call Entering
  767.      On Event Exiting From Source Call Exiting
  768. End Sub
  769. '++LotusScript Development Environment:2:2:Entering:1:12
  770. Sub Entering(Source As Field)
  771.      Dim Workspace As New NotesUIWorkspace
  772.      Dim ThisDoc As NotesUIDocument
  773.      
  774.      Set ThisDoc = Workspace.CurrentDocument
  775.      sFieldName = ThisDoc.CurrentField
  776.      vFieldEntryValue = ThisDoc.Document.TotBytesXferred
  777. End Sub
  778. '++LotusScript Development Environment:2:2:Exiting:1:12
  779. Sub Exiting(Source As Field)
  780.      Dim Workspace As New NotesUIWorkspace
  781.      Dim ThisDoc As NotesUIDocument
  782.      
  783.      Set ThisDoc = Workspace.CurrentDocument
  784.      Dim vTemp As Variant
  785.      vTemp = ThisDoc.Document.TotBytesXferred
  786.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  787.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  788.           ThisDoc.Document.TotBytesXferred = Cdbl( vFieldEntryValue( 0 ) )
  789.      End If
  790. End Sub
  791. '++LotusScript Development Environment:2:5:(Options):0:66
  792. '++LotusScript Development Environment:2:5:(Forward):0:1
  793. Declare Sub Entering(Source As Field)
  794. Declare Sub Exiting(Source As Field)
  795. '++LotusScript Development Environment:2:5:(Declarations):0:2
  796. '++LotusScript Development Environment:2:2:BindEvents:1:129
  797. Private Sub BindEvents(Byval Objectname_ As String)
  798.      Static Source As FIELD
  799.      Set Source = Bind(Objectname_)
  800.      On Event Entering From Source Call Entering
  801.      On Event Exiting From Source Call Exiting
  802. End Sub
  803. '++LotusScript Development Environment:2:2:Entering:1:12
  804. Sub Entering(Source As Field)
  805.      Dim Workspace As New NotesUIWorkspace
  806.      Dim ThisDoc As NotesUIDocument
  807.      
  808.      Set ThisDoc = Workspace.CurrentDocument
  809.      sFieldName = ThisDoc.CurrentField
  810.      vFieldEntryValue = ThisDoc.Document.DataUFast
  811. End Sub
  812. '++LotusScript Development Environment:2:2:Exiting:1:12
  813. Sub Exiting(Source As Field)
  814.      Dim Workspace As New NotesUIWorkspace
  815.      Dim ThisDoc As NotesUIDocument
  816.      
  817.      Set ThisDoc = Workspace.CurrentDocument
  818.      Dim vTemp As Variant
  819.      vTemp = ThisDoc.Document.DataUFast
  820.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  821.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  822.           ThisDoc.Document.DataUFast = Cdbl( vFieldEntryValue( 0 ) )
  823.      End If
  824. End Sub
  825. '++LotusScript Development Environment:2:5:(Options):0:66
  826. '++LotusScript Development Environment:2:5:(Forward):0:1
  827. Declare Sub Entering(Source As Field)
  828. Declare Sub Exiting(Source As Field)
  829. '++LotusScript Development Environment:2:5:(Declarations):0:2
  830. '++LotusScript Development Environment:2:2:BindEvents:1:129
  831. Private Sub BindEvents(Byval Objectname_ As String)
  832.      Static Source As FIELD
  833.      Set Source = Bind(Objectname_)
  834.      On Event Entering From Source Call Entering
  835.      On Event Exiting From Source Call Exiting
  836. End Sub
  837. '++LotusScript Development Environment:2:2:Entering:1:12
  838. Sub Entering(Source As Field)
  839.      Dim Workspace As New NotesUIWorkspace
  840.      Dim ThisDoc As NotesUIDocument
  841.      
  842.      Set ThisDoc = Workspace.CurrentDocument
  843.      sFieldName = ThisDoc.CurrentField
  844.      vFieldEntryValue = ThisDoc.Document.DataUMedium
  845. End Sub
  846. '++LotusScript Development Environment:2:2:Exiting:1:12
  847. Sub Exiting(Source As Field)
  848.      Dim Workspace As New NotesUIWorkspace
  849.      Dim ThisDoc As NotesUIDocument
  850.      
  851.      Set ThisDoc = Workspace.CurrentDocument
  852.      Dim vTemp As Variant
  853.      vTemp = ThisDoc.Document.DataUMedium
  854.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  855.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  856.           ThisDoc.Document.DataUMedium = Cdbl( vFieldEntryValue( 0 ) )
  857.      End If
  858. End Sub
  859. '++LotusScript Development Environment:2:5:(Options):0:66
  860. '++LotusScript Development Environment:2:5:(Forward):0:1
  861. Declare Sub Entering(Source As Field)
  862. Declare Sub Exiting(Source As Field)
  863. '++LotusScript Development Environment:2:5:(Declarations):0:2
  864. '++LotusScript Development Environment:2:2:BindEvents:1:129
  865. Private Sub BindEvents(Byval Objectname_ As String)
  866.      Static Source As FIELD
  867.      Set Source = Bind(Objectname_)
  868.      On Event Entering From Source Call Entering
  869.      On Event Exiting From Source Call Exiting
  870. End Sub
  871. '++LotusScript Development Environment:2:2:Entering:1:12
  872. Sub Entering(Source As Field)
  873.      Dim Workspace As New NotesUIWorkspace
  874.      Dim ThisDoc As NotesUIDocument
  875.      
  876.      Set ThisDoc = Workspace.CurrentDocument
  877.      sFieldName = ThisDoc.CurrentField
  878.      vFieldEntryValue = ThisDoc.Document.DataUSlow
  879. End Sub
  880. '++LotusScript Development Environment:2:2:Exiting:1:12
  881. Sub Exiting(Source As Field)
  882.      Dim Workspace As New NotesUIWorkspace
  883.      Dim ThisDoc As NotesUIDocument
  884.      
  885.      Set ThisDoc = Workspace.CurrentDocument
  886.      Dim vTemp As Variant
  887.      vTemp = ThisDoc.Document.DataUSlow
  888.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  889.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  890.           ThisDoc.Document.DataUSlow = Cdbl( vFieldEntryValue( 0 ) )
  891.      End If
  892. End Sub
  893. '++LotusScript Development Environment:2:5:(Options):0:66
  894. '++LotusScript Development Environment:2:5:(Forward):0:1
  895. Declare Sub Entering(Source As Field)
  896. Declare Sub Exiting(Source As Field)
  897. '++LotusScript Development Environment:2:5:(Declarations):0:2
  898. '++LotusScript Development Environment:2:2:BindEvents:1:129
  899. Private Sub BindEvents(Byval Objectname_ As String)
  900.      Static Source As FIELD
  901.      Set Source = Bind(Objectname_)
  902.      On Event Entering From Source Call Entering
  903.      On Event Exiting From Source Call Exiting
  904. End Sub
  905. '++LotusScript Development Environment:2:2:Entering:1:12
  906. Sub Entering(Source As Field)
  907.      Dim Workspace As New NotesUIWorkspace
  908.      Dim ThisDoc As NotesUIDocument
  909.      
  910.      Set ThisDoc = Workspace.CurrentDocument
  911.      sFieldName = ThisDoc.CurrentField
  912.      vFieldEntryValue = ThisDoc.Document.DataUMore
  913. End Sub
  914. '++LotusScript Development Environment:2:2:Exiting:1:12
  915. Sub Exiting(Source As Field)
  916.      Dim Workspace As New NotesUIWorkspace
  917.      Dim ThisDoc As NotesUIDocument
  918.      
  919.      Set ThisDoc = Workspace.CurrentDocument
  920.      Dim vTemp As Variant
  921.      vTemp = ThisDoc.Document.DataUMore
  922.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  923.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  924.           ThisDoc.Document.DataUMore = Cdbl( vFieldEntryValue( 0 ) )
  925.      End If
  926. End Sub
  927. Vendor Data
  928. Footlight MT Light
  929. '++LotusScript Development Environment:2:5:(Options):0:74
  930. Option Public
  931. 'Use "vendordata"
  932. Const numoutputlines = 10
  933. '%INCLUDE "chconsts2.txt"
  934. %INCLUDE "chconsts.txt"
  935. '++LotusScript Development Environment:2:5:(Forward):0:1
  936. Declare Sub DistributeChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument)
  937. Declare Sub PerformChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument)
  938. Declare Sub AMSV()
  939. Declare Public Function ValidateAMDistribution( ThisDoc As NotesUIDocument ) As Integer
  940. Declare Public Function ValidateGraphDistribution( ) As Integer
  941. Declare Public Function ValidateGraphPerformance( ) As Integer
  942. Declare Public Sub CreateSpreadChartAddlLink( iRCnt, iCCnt )
  943. Declare Public Function CreateOutputDB( ThisDoc As NotesUIDocument ) As NotesDatabase
  944. Declare Public Function ValidateAMPerformance( ThisDoc As NotesUIDocument ) As Integer
  945. Declare Public Function ProcessPerformChart( PerformChart As Variant ) As Variant
  946. Declare Public Function CreateList( ) As NotesDocument
  947. Declare Public Sub PerformChartAssn2( iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument )
  948. Declare Public Sub GraphPerformance( iRowCountPerform As Integer, iColCountPerform As Integer )
  949. Declare Public Function PerformComponentsSetup2( ) As Integer
  950. Declare Function ExtractVendorName( sSearchDB As String ) As String
  951. Declare Sub GraphForSave (ThisDoc As NotesUIDocument, ThisDocBE As NotesDocument )
  952. '++LotusScript Development Environment:2:5:(Declarations):0:10
  953. Dim iRowCountPerform As Integer
  954. Dim iColCountPerform As Integer
  955. Dim iRowCountDistribute As Integer
  956. Dim iColCountDistribute As Integer
  957. Dim PerformChart As Variant
  958. Dim PerformSheet As Variant
  959. Dim DistributeChart As Variant
  960. Dim DistributeSheet As Variant
  961. Dim vFieldEntryValue As Variant
  962. Dim vFieldEntryValueL As Variant
  963. Dim vEditFieldFlag As Variant
  964. Dim sFieldName As String
  965. Dim bAlreadyDisplayedPerform As Integer
  966. Dim bAlreadyDisplayedDistribute As Integer
  967. Dim sFirstTime As String   '  flag for saving machine id field
  968. Dim sPerformanceEstimatedRecords As String
  969. Dim sDistributionEstimatedRecords As String
  970. Dim bGraphMessageDisplayed As Integer
  971. '++LotusScript Development Environment:2:2:DistributeChartAssn:1:8
  972. Sub DistributeChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument)
  973.      DistributeChart.Repaint = False
  974.      DistributeChart.rowcount = iRC - 1
  975.      DistributeChart.columncount = iCC
  976.      DistributeSheet.tablename = "DistributeSheet"
  977.      DistributeChart.sslinkbook = "DistributeSheet"
  978.      test = iRC 
  979.      DistributeChart.sslinkrange = "a1:m" + test
  980.      DistributeChart.sslinkmode = 1
  981.      DistributeChart.Repaint = True
  982.      Call ThisDoc.GoToField("DataDistributeChart")
  983. End Sub
  984. '++LotusScript Development Environment:2:2:PerformChartAssn:1:8
  985. Sub PerformChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument)
  986.      PerformChart.Repaint = False
  987.      PerformChart.rowcount = iRC
  988.      PerformChart.columncount = iCC
  989.      PerformSheet.tablename = "PerformSheet"
  990.      PerformChart.sslinkbook = "PerformSheet"
  991.      test = iRC + 1
  992.      PerformChart.sslinkrange = "a1:m" + test
  993.      PerformChart.sslinkmode = 1
  994.      PerformChart.Repaint = True
  995.      Call ThisDoc.GoToField("DataPerformChart")
  996. End Sub
  997. '++LotusScript Development Environment:2:2:AMSV:1:8
  998. Sub AMSV()
  999.          '  Graph Performance
  1000.      Dim Workspace As New NotesUIWorkspace
  1001.      Dim ThisDoc As NotesUIDocument
  1002.      Dim Session As New NotesSession
  1003.      Dim ThisDB As NotesDatabase
  1004.      Dim DateTime As New NotesDateTime ("1/1/96")
  1005.      Dim SearchEntryCollection As NotesDocumentCollection
  1006.      Dim SearchMachineCollection As NotesDocumentCollection
  1007.      Dim SearchEntryDoc As NotesDocument
  1008.      Dim SearchMachineDoc As NotesDocument
  1009.      Dim sSavedMachines(numoutputlines, 2) As String     ' col1 = machine name, col2 = vendor
  1010.      Dim bAlreadyFound As Integer
  1011.      Dim sVendorName As String
  1012.      Dim iMinUsers As Integer
  1013.      Dim iMaxUsers As Integer
  1014.      
  1015.      Dim vIsSignedField As Variant
  1016.      Dim vEstimated As Variant
  1017.      
  1018.      Set ThisDoc = Workspace.CurrentDocument
  1019.      Set ThisDB = Session.CurrentDatabase
  1020.      ThisDoc.EditMode = True
  1021.      
  1022.      sVendorName = ExtractVendorName( ThisDB.Filename )       '  extract current vendor name
  1023.     ' sVendorName = Left(sSearchDB, (Len(sSearchDB) - 4) )   '  extract .NSF
  1024.      'sVendorName = Right(sVendorName, (Len(sVendorName) - 2 ) )  '  extract CP prefix
  1025.      
  1026.      If ValidateAMPerformance(ThisDoc) = False Then
  1027.           Exit Sub
  1028.      End If
  1029.      
  1030.      'Set SearchMachineCollection = ThisDB.Search(FormulateQuery(ThisDoc), DateTime, 0 )
  1031.      '  first make sure there is some data to process 
  1032.      '  search on range of number of users
  1033.      iMinUsers = Cint(.95 * Cint(ThisDoc.FieldGetText("DataUNumberUsers1")  ) )
  1034.      iMaxUsers = Cint( 1.05 * Cint(ThisDoc.FieldGetText("DataUNumberUsers1") ) )
  1035.      
  1036.      '  see if there are more machines (same vendor).... 
  1037.      FormulateQuery$ = " Form = ""Vendor Data""  & DataUServerID <> " & {"} & ThisDoc.FieldGetText("DataUServerID") & {"} & _
  1038.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText("DataUScript1")  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  1039.      Set SearchMachineCollection = ThisDB.Search(FormulateQuery$, DateTime, 0 )
  1040.      If SearchMachineCollection.Count = 0 Then
  1041.           Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Performance Information"
  1042.           Exit Sub
  1043.      End If
  1044.      
  1045.      PerformChart.Repaint = False
  1046.      On Error Goto 0
  1047.      
  1048.         '  zero out extra columns
  1049.      For i = 3 To iColCountPerform
  1050.           PerformSheet.col = i
  1051.           For j = 2 To iRowCountPerform
  1052.                PerformSheet.row = j
  1053.                PerformSheet.text=NA
  1054.           Next j
  1055.      Next i
  1056.      
  1057.      iColCountPerform = 2
  1058.      sSavedMachines(1, 1) = ThisDoc.FieldGetText("DataUServerID")
  1059.      sSavedMachines( 1, 2 ) = sVendorName
  1060.      
  1061.      For j = 1 To SearchMachineCollection.Count 
  1062.           Set SearchMachineDoc = SearchMachineCollection.GetNthDocument ( j )
  1063.           '  first make sure this is a unique entry
  1064.           bAlreadyFound = False
  1065.           For k = 1 To (iColCountPerform - 1)
  1066.                temp = SearchMachineDoc.GetItemValue("DataUServerID") 
  1067.                If temp(0) = sSavedMachines(k, 1) Then
  1068.                     If sVendorName = sSavedMachines( k, 2) Then    '  check machine name
  1069.                     '  verify that machine name and vendor name are the same
  1070.                          bAlreadyFound = True
  1071.                     End If
  1072.                End If
  1073.           Next k
  1074.           
  1075.           '  make sure the data has a signature attached or if an estimated record
  1076.           vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  1077.           
  1078.           vIsSignedField = ThisDoc.Document.IsSignedField
  1079.           vEstimated = ThisDoc.Document.Estimated
  1080.           If vCertifyCheck( 0 ) = "1"  Then
  1081.                If ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) <> "Yes" ) Or ( vIsSignedField( 0 ) = "1" And vEstimated( 0 ) ="Yes"  And sPerformanceEstimatedRecords = "No" )  Then     ' user selects no, don't include estimated records
  1082.                     bAlreadyFound = True
  1083.                End If
  1084.           End If
  1085.           
  1086.           If bAlreadyFound = False Then     '  new entry
  1087.                iColCountPerform = iColCountPerform + 1
  1088.                PerformSheet.row = 1
  1089.                PerformSheet.col = iColCountPerform
  1090.                '  save off the machines already processed
  1091.                temp = SearchMachineDoc.GetItemValue("DataUServerID") 
  1092.                sSavedMachines ((iColCountPerform - 1), 1) = temp(0)    'subtract off original columns
  1093.                sSavedMachines ((iColCountPerform - 1),  2) = sVendorName
  1094.                PerformSheet.text = temp(0)
  1095.                PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  1096.                
  1097.                 ' load up the spreadsheet with data
  1098.                ' do a lookup based on this machine id and this script id
  1099.                temp = SearchMachineDoc.GetItemValue("DataUServerID")
  1100.                SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID = " & {"} & temp(0)  & {"} & _
  1101.                " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText("DataUScript1")  & {"}  
  1102.                
  1103.                Set SearchEntryCollection = ThisDB.Search(SearchFormula$, DateTime, 0 )
  1104.                If SearchEntryCollection.Count > 0 Then
  1105.                     For i = 1 To SearchEntryCollection.Count
  1106.                          Set SearchEntryDoc = SearchEntryCollection.GetNthDocument ( i )
  1107.                          
  1108.                          '  need to see if an entry exists in the current spreadsheet
  1109.                          bAlreadyFound = False
  1110.                          PerformSheet.col = 1   
  1111.                          temp =  SearchEntryDoc.GetItemValue("DataUNumberUsers1") 
  1112.                          
  1113.                          For k = 2 To iRowCountPerform 
  1114.                               PerformSheet.row = k
  1115.                               
  1116.                               If PerformSheet.number = Cint(temp(0)) Then
  1117.                                    bAlreadyFound = True
  1118.                                    PerformSheet.col = iColCountPerform
  1119.                                    temp1= SearchEntryDoc.GetItemValue("DataUAverage") 
  1120.                                    PerformSheet.number= Csng(temp1(0)) 
  1121.                               End If
  1122.                          Next k
  1123.                          
  1124.                          If bAlreadyFound = False  Then    '  now check for certification and estimation record selection
  1125.                                '  make sure the data has a signature attached or if an estimated record
  1126.                               vCertifyCheck = SearchEntryDoc.GetItemValue("CertifyCheckOn")
  1127.                               
  1128.                               vIsSignedField = SearchEntryDoc.GetItemValue("IsSignedField")
  1129.                               vEstimated = SearchEntryDoc.GetItemValue("Estimated")
  1130.                               If vCertifyCheck( 0 ) = "1"  Then
  1131.                                    If ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) <> "Yes" ) Or ( vIsSignedField( 0 ) = "1" And vEstimated( 0 ) ="Yes") Then
  1132.                                         bAlreadyFound = True
  1133.                                    Elseif (sPerformanceEstimatedRecords = "No"  And vEstimated( 0) = "Yes")  Then     ' user selects no, don't include estimated records
  1134.                                         bAlreadyFound = True
  1135.                                         
  1136.                                    End If
  1137.                               End If
  1138.                               
  1139.                          End If
  1140.                          
  1141.                          If bAlreadyFound = False  Then '  insert in table (entry and data)
  1142.                               iRowCountPerform = iRowCountPerform + 1
  1143.                               PerformSheet.row = iRowCountPerform
  1144.                               '  insert new data
  1145.                               PerformSheet.col = 1
  1146.                               PerformSheet.number =  Cint(temp(0)) 
  1147.                               PerformSheet.col = iColCountPerform
  1148.                               temp1= SearchEntryDoc.GetItemValue("DataUAverage") 
  1149.                               PerformSheet.number= Csng(temp1(0))  
  1150.                          End If
  1151.                     Next i 
  1152.                End If     
  1153.           End If
  1154.      Next j
  1155.      
  1156.      '   set columns to automatically resize
  1157.      PerformSheet.SetColWidthAuto 1, 1, (iRowCountPerform + 1), 2 , True
  1158.      
  1159.      PerformSheet.col = 1
  1160.      PerformSheet.row = 1
  1161.      PerformSheet.showselections = 0
  1162.      
  1163.      PerformSheet.Sort 2, 1, iRowCountPerform, iColCountPerform + 1, True, 1     
  1164.      
  1165.     '  insert zeros where there are gaps, up to the final entry
  1166.      For i = 2 To iColCountPerform
  1167.           bAlreadyFound = False
  1168.           PerformSheet.col = i
  1169.           For j = iRowCountPerform To 2 Step -1   '  count backwards
  1170.                PerformSheet.row = j
  1171.                If PerformSheet.number > 0  Then
  1172.                     bAlreadyFound = True
  1173.                Elseif bAlreadyFound = True Then     '  already found the top number
  1174.                     PerformSheet.number = 0
  1175.                End If
  1176.           Next j
  1177.      Next i
  1178.      
  1179.      ' ****************************
  1180.      '  Perform Chart Setup
  1181.       '****************************
  1182.      Set PerformChart = ProcessPerformChart(PerformChart)
  1183.      
  1184.      'set Perform chart type to 2d line
  1185.      'PerformChart.chartType = CHChartType2dLine
  1186.      PerformChart.chartType = CHChartType2dBar
  1187.      
  1188.      PerformChart.TitleText = ThisDoc.FieldGetText ("DataUScript1") + ": Comparative Analysis, Same Vendor"
  1189.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  1190.      
  1191.         '  set up the link between spreadsheet and chart
  1192.      Call PerformChartAssn ((iRowCountPerform-1), (iColCountPerform- 1), ThisDoc)
  1193.      
  1194.      Dim ThisDocBE As NotesDocument
  1195.      Set ThisDocBE = ThisDoc.Document
  1196.      Call GraphForSave( ThisDoc, ThisDocBE )
  1197.      
  1198.      Exit Sub
  1199.      
  1200.      
  1201. ExitNow:
  1202.      Messagebox "Need to Generate Original Performance Graph", MB_ICONEXCLAMATION, "Graph Performance Information"
  1203.      Exit Sub
  1204.      
  1205. End Sub
  1206. '++LotusScript Development Environment:2:1:ValidateAMDistribution:1:8
  1207. Public Function ValidateAMDistribution( ThisDoc As NotesUIDocument ) As Integer
  1208.      
  1209.      ValidateAMDistribution = True
  1210.      If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then
  1211.           ValidateAMDistribution = False
  1212.           Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION,_
  1213.           "Graph Distribution Information"
  1214.           ThisDoc.GoToField( "DataUServerID" )
  1215.           Exit Function
  1216.      End If
  1217.      
  1218.      If ThisDoc.FieldGetText( "DataUNumberUsers1" ) = "" Then
  1219.           ValidateAMDistribution = False
  1220.           Messagebox "Specify Number Users/Spoke", MB_ICONEXCLAMATION,_
  1221.           "Graph Distribution Information"
  1222.           ThisDoc.GoToField( "DataUServerID" )
  1223.           Exit Function
  1224.      End If
  1225.      
  1226.      If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  1227.           Messagebox "Specify Script Performed", MB_ICONEXCLAMATION,_
  1228.           "Graph Distribution Information"
  1229.           ValidateAMDistribution = False
  1230.           ThisDoc.GoToField( "DataUScript1" )
  1231.           Exit Function
  1232.      End If
  1233.      
  1234. End Function
  1235. '++LotusScript Development Environment:2:1:ValidateGraphDistribution:1:8
  1236. Public Function ValidateGraphDistribution( ) As Integer
  1237.      Dim Workspace As New NotesUIWorkspace
  1238.      Dim ThisDoc As NotesUIDocument
  1239.      
  1240.      Dim Session As New NotesSession
  1241.      Dim ThisDB As NotesDatabase
  1242.      
  1243.      Set ThisDoc = Workspace.CurrentDocument
  1244.      Set ThisDB = Session.CurrentDatabase
  1245.      
  1246.      If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then
  1247.           Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION, "Graph Distribution Information"
  1248.           ThisDoc.GoToField( "DataUServerID" )
  1249.           ValidateGraphDistribution = False
  1250.           Exit Function
  1251.      End If
  1252.      
  1253.      If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  1254.           Messagebox "Specify Script Performed", MB_ICONEXCLAMATION, "Graph Distribution Information"
  1255.           ThisDoc.GoToField( "DataUScript1" )
  1256.           ValidateGraphDistribution = False
  1257.           Exit Function
  1258.      End If
  1259.      
  1260.        '  assuming if this field is filled in, all of the other frequency fields will also be filled in
  1261.      If ThisDoc.FieldGetText( "DataUAverage" ) = "" Then
  1262.           Messagebox "Specify Results from Data Run", MB_ICONEXCLAMATION, "Graph Distribution Information"
  1263.           ThisDoc.GoToField( "DataUAverage" )
  1264.           ValidateGraphDistribution = False
  1265.           Exit Function
  1266.      End If
  1267.      
  1268.      
  1269.      ValidateGraphDistribution = True
  1270. End Function
  1271. '++LotusScript Development Environment:2:1:ValidateGraphPerformance:1:8
  1272. Public Function ValidateGraphPerformance( ) As Integer
  1273.      Dim Workspace As New NotesUIWorkspace
  1274.      Dim ThisDoc As NotesUIDocument
  1275.      
  1276.      Dim Session As New NotesSession
  1277.      Dim ThisDB As NotesDatabase
  1278.      
  1279.      Set ThisDoc = Workspace.CurrentDocument
  1280.      Set ThisDB = Session.CurrentDatabase
  1281.      
  1282.      If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then
  1283.           Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION, "Graph Performance Information"
  1284.           ThisDoc.GoToField( "DataUServerID" )
  1285.           ValidateGraphPerformance = False
  1286.           Exit Function
  1287.      End If
  1288.      
  1289.      If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  1290.           Messagebox "Specify Script Performed", MB_ICONEXCLAMATION, "Graph Performance Information"
  1291.           ThisDoc.GoToField( "DataUScript1" )
  1292.           ValidateGraphPerformance = False
  1293.           Exit Function
  1294.      End If
  1295.      
  1296.      ValidateGraphPerformance = True
  1297.      
  1298. End Function
  1299. '++LotusScript Development Environment:2:2:CreateSpreadChartAddlLink:1:8
  1300. Public Sub CreateSpreadChartAddlLink( iRCnt, iCCnt )
  1301.      Dim Workspace As New NotesUIWorkspace
  1302.      Dim ThisDoc As NotesUIDocument
  1303.      
  1304.      Set ThisDoc = Workspace.CurrentDocument
  1305.      
  1306.      ThisDoc.GotoField( "DataPerformSheet" )
  1307.      Set PerformSheet = ThisDoc.GetObject( "PerformSheet" )
  1308.      
  1309.      ThisDoc.GoToField( "DataPerformChart" )
  1310.      Set PerformChart = ThisDoc.GetObject( "PerformChart" )
  1311.      PerformChart.Repaint = False
  1312.      
  1313.      PerformChart.rowcount = iRCnt
  1314.      
  1315.      j = iCCnt -1   '  for the moment, max of 12 columns
  1316.      If j > 12 Then
  1317.           j = 12
  1318.      End If
  1319.      PerformChart.columncount = j
  1320.      
  1321.      PerformSheet.tablename = "PerformSheet"
  1322.      PerformChart.sslinkbook = "PerformSheet"
  1323.      test = iRCnt 
  1324.      PerformChart.sslinkrange = "a1:m" + test
  1325.      PerformChart.sslinkmode = 1
  1326. End Sub
  1327. '++LotusScript Development Environment:2:1:CreateOutputDB:1:8
  1328. Public Function CreateOutputDB( ThisDoc As NotesUIDocument ) As NotesDatabase
  1329.      Dim Workspace As New NotesUIWorkspace
  1330.      Dim OutputDB As New NotesDatabase( "", "" )
  1331.      Dim OutputDBTemplate As New NotesDatabase( "", "DSPD.NTF" )
  1332.      Dim QueryOutputFilename As String
  1333.      Dim QueryOutputServer As String
  1334.      Dim Session As New NotesSession
  1335.      Dim ThisDB As NotesDatabase
  1336.      
  1337.      Set ThisDoc = Workspace.CurrentDocument
  1338.      Set ThisDB = Session.CurrentDatabase
  1339.      
  1340.      ThisDoc.document.OutputServer = "local"
  1341.      ThisDoc.document.OutputFilename = "OUTPUT.NSF"
  1342.      
  1343.      If( Workspace.DialogBox( "OutputInfo", True, True ) = False ) Then
  1344.           'Messagebox "Cannot Create Output Database", MB_ICONEXCLAMATION, "Save Results"
  1345.           Exit Function
  1346.      End If
  1347.      QueryOutputFilename = ThisDoc.FieldGetText( "OutputFilename" )
  1348.      QueryOutputServer = ThisDoc.FieldGetText( "OutputServer" )
  1349.      If QueryOutputServer = "local" Then
  1350.           QueryOutputServer = ""
  1351.      End If
  1352.      
  1353.      If QueryOutputFilename = "" Then
  1354.           'Messagebox "Output Database Filename Must be Specified", MB_ICONEXCLAMATION, "Save Results"
  1355.           Exit Function
  1356.      End If
  1357.      
  1358.  '    if database doesn't exist, create it   
  1359.      If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then
  1360.           
  1361.           If( Not( OutputDB.Open( QueryOutputServer, Ucase( QueryOutputFilename ) ) ) ) Then
  1362.           'Set OutputDB = ThisDB.CreateCopy( QueryOutputServer, Ucase( QueryOutputFilename ) )
  1363.                Set OutputDB = OutputDBTemplate.CreateCopy( QueryOutputServer, Ucase( QueryOutputFilename ) )
  1364.                
  1365.                OutputDB.Title = "Server.Planner Output Rev 1.0"
  1366.           End If
  1367.      End If
  1368.      Set CreateOutputDB = OutputDB
  1369.      
  1370. End Function
  1371. '++LotusScript Development Environment:2:1:ValidateAMPerformance:1:8
  1372. Public Function ValidateAMPerformance( ThisDoc As NotesUIDocument ) As Integer
  1373.      
  1374.      ValidateAMPerformance = True
  1375.      If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then
  1376.           ValidateAMPerformance = False
  1377.           Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION,_
  1378.           "Graph Performance Information"
  1379.           ThisDoc.GoToField( "DataUServerID" )
  1380.           Exit Function
  1381.      End If
  1382.      
  1383.      If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  1384.           ValidateAMPerformance = False
  1385.           Messagebox "Specify Script Performed", MB_ICONEXCLAMATION,_
  1386.           "Graph Performance Information"
  1387.           ThisDoc.GoToField( "DataUScript1" )
  1388.           Exit Function
  1389.      End If
  1390.      
  1391. End Function
  1392. '++LotusScript Development Environment:2:1:ProcessPerformChart:1:8
  1393. Public Function ProcessPerformChart( PerformChart As Variant ) As Variant
  1394.      Dim Workspace As New NotesUIWorkspace
  1395.      Dim ThisDoc As NotesUIDocument
  1396.      
  1397.      Set ThisDoc = Workspace.CurrentDocument
  1398.      
  1399.        'set Perform chart type to 2d line
  1400.      'PerformChart.chartType = CHChartType2dLine
  1401.      PerformChart.chartType = CHChartType2dBar
  1402.      
  1403.      PerformChart.TitleText = "System Performance: " + ThisDoc.FieldGetText _
  1404.      ( "DataUScript1" )
  1405.      
  1406.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  1407.      
  1408.      Set ProcessPerformChart = PerformChart
  1409.      
  1410. End Function
  1411. '++LotusScript Development Environment:2:1:CreateList:1:8
  1412. Public Function CreateList( ) As NotesDocument
  1413.      Dim session As New NotesSession
  1414.      Dim db As NotesDatabase
  1415.      Dim view As NotesView
  1416.      Dim doc As NotesDocument
  1417.      Dim db2 As NotesDatabase
  1418.      Dim view2 As NotesView
  1419.      Dim doc2 As NotesDocument
  1420.      Dim outputstring As String
  1421.      Dim fileName As String
  1422.      Dim AllDatabaseCount As Integer
  1423.      Dim pathName As String
  1424.      Dim sPlatform( 12 ) As String 
  1425.      Dim bExitLoop As Integer
  1426.      
  1427.      Set db = session.CurrentDatabase
  1428.      Set view = db.GetView( "(List)" )
  1429.      
  1430.      If view Is Nothing Then           '  bypass if mailed item
  1431.           Exit Function
  1432.      End If
  1433.      
  1434.      Set doc = view.GetFirstDocument
  1435.           '  make sure a List document is present with platform information
  1436.      bExitLoop = False
  1437.      While  bExitLoop = False
  1438.           If doc Is Nothing Then
  1439.                bExitLoop = True
  1440.           Elseif doc.ListType( 0 ) = "Platform" Then
  1441.                bExitLoop = True
  1442.           Else
  1443.                Set doc = view.GetNextDocument( doc )
  1444.           End If
  1445.      Wend
  1446.      
  1447.     ' *** Find the document for the Database if one is not there create one so it can be filled in..
  1448.      If doc Is Nothing Then
  1449.           Set Listdoc = db.createdocument
  1450.           Listdoc.ListType = "Platform"
  1451.           Listdoc.Form = "(List)"
  1452.           Call Listdoc.save( False,False )
  1453.      Else
  1454.           If Not( doc Is Nothing ) Then
  1455.                If doc.ListType( 0 ) = "Platform" Then
  1456.                     Set Listdoc = doc
  1457.                     Listdoc.list=""
  1458.                     Call Listdoc.Save( False, False )
  1459.                End If
  1460.                Set doc = view.GetNextDocument( doc )
  1461.           End If
  1462.      End If
  1463.      
  1464.       '     initialize default fields
  1465.      sPlatform( 0 ) = "AIX/RS6000"
  1466.      sPlatform( 1 ) = "AIX/SP2"
  1467.      sPlatform( 2 ) =  "HP-UX"
  1468.      sPlatform( 3 ) = "NetWare 3.12"
  1469.      sPlatform( 4 ) = "Netware 4.1"
  1470.      sPlatform( 5 ) = " NT 3.51"
  1471.      sPlatform( 6 ) = " NT 4.0"
  1472.      sPlatform( 7 ) = " OS/2 2.11 SMP"
  1473.      sPlatform( 8 ) = " OS/2 Warp Connect"
  1474.      sPlatform( 9 ) = " OS/2 Warp Server 4.0"
  1475.      sPlatform( 10 ) = " Solaris 2.5"
  1476.      sPlatform( 11 ) = " Win95 1.0"
  1477.      
  1478.      Listdoc.list = sPlatform
  1479.      
  1480.      Call Listdoc.save( False, False )
  1481.      
  1482.      Set doc = view.GetFirstDocument
  1483.      '  make sure a List document is present with vendor database information
  1484.      bExitLoop = False
  1485.      While  bExitLoop = False
  1486.           If doc Is Nothing Then
  1487.                bExitLoop = True
  1488.           Elseif doc.ListType( 0 ) = "Database" Then
  1489.                bExitLoop = True
  1490.           Else
  1491.                Set doc = view.GetNextDocument( doc )
  1492.           End If
  1493.      Wend
  1494.      
  1495.     ' *** Find the document for the Database if one is not there create one so it can be filled in..
  1496.      If doc Is Nothing Then
  1497.           Set Listdoc = db.createdocument
  1498.           Listdoc.ListType = "Database"
  1499.           Listdoc.Form = "(List)"
  1500.           Call Listdoc.save( False,False )
  1501.      Else
  1502.           If Not( doc Is Nothing ) Then
  1503.                If doc.ListType( 0 ) = "Database" Then
  1504.                     Set Listdoc = doc
  1505.                     Listdoc.List = ""
  1506.                     Call Listdoc.Save( False, False )
  1507.                End If
  1508.           End If
  1509.      End If
  1510.      pathName = session.GetEnvironmentString( "Directory",True )
  1511.      
  1512.      Chdir pathName
  1513.      
  1514.      ' **** document that vendor databases need to be in upper case
  1515.      pathName = pathname & "\CP*.NSF"
  1516.      
  1517.      fileName = Dir$( pathName )
  1518.      
  1519.      If fileName = "" Then
  1520.           Messagebox "Cannot find Vendor Database(s)", MB_ICONEXCLAMATION, "Vendor Data"
  1521.           Set CreateList = Listdoc   
  1522.           Exit Function
  1523.      End If
  1524.      
  1525.      AllDatabaseCount = 0
  1526.      Do While fileName <> ""
  1527.           '  first need to validate that this is a proper vendor database
  1528.           
  1529.           Set db2 = New NotesDatabase( "", fileName )
  1530.           
  1531.           Set view2 = db2.GetView( "(Vendor Data)" )
  1532.           
  1533.           On Error Resume Next
  1534.           Set doc2 = view2.GetFirstDocument
  1535.           On Error Goto 0
  1536.           
  1537.           If Not( doc2 Is Nothing ) Then       '  include if entry found 
  1538.                Redim Preserve AllDatabase( AllDatabaseCount )
  1539.  '             parse out system name from filename 
  1540.                outputstring = Left ( filename, ( Len( filename ) - 4 ) )
  1541.                filename = outputstring
  1542.                outputstring = Right ( filename, ( Len( filename ) - 2 ) )
  1543.                AllDatabase ( AllDatabaseCount ) = Ucase( outputstring )
  1544.   '             Messagebox AllDatabase( AllDatabaseCount )
  1545.                AllDatabaseCount = AllDatabaseCount +1          
  1546.           End If
  1547.           
  1548.           If db2.IsOpen = True Then
  1549.                ' don't close if current vendor database
  1550.                Dim sTempFileName As String
  1551.                Dim i As Integer
  1552.                sTempFileName = db.FileName
  1553.                i = Instr(1, db.FileName, ".nsf")
  1554.                If i > 0 Then          '  handle case where testing from .ntf
  1555.                     sTempFileName = Left$( db.FileName, ( i - 1) )
  1556.                End If
  1557.                'Messagebox (sTempFileName) & filename
  1558.                'If ( ( sTempFileName ) <> fileName ) Then
  1559.                If Instr( 1, fileName, sTempFile ) = 0 Then
  1560.                     'Messagebox "DEBUG:  sTempFileName " & sTempFileName & " fileName " & fileName
  1561.                     Call db2.Close
  1562.                End If
  1563.           End If
  1564.           
  1565.           fileName = Dir$( )
  1566.      Loop
  1567.      
  1568.      If AllDatabaseCount = 0 Then          '  no matches found
  1569.           'Messagebox "Warning:  Cannot find Vendor Databases", MB_ICONEXCLAMATION, "Vendor Database Search"
  1570.      End If
  1571.      
  1572.      '  save the information off (zero out if nothing found)
  1573.      Listdoc.list = AllDatabase
  1574.      'Call Listdoc.save( False, False )
  1575.      Call Listdoc.save( True, True )
  1576.      
  1577.      
  1578.      Set CreateList = Listdoc   
  1579.      
  1580. End Function
  1581. '++LotusScript Development Environment:2:2:PerformChartAssn2:1:8
  1582. Public Sub PerformChartAssn2( iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument )
  1583.      PerformChart.Repaint = False
  1584.      PerformChart.rowcount = iRC
  1585.      PerformChart.columncount = iCC
  1586.      PerformSheet.tablename = "PerformSheet"
  1587.      PerformChart.sslinkbook = "PerformSheet"
  1588.      test = iRC + 1
  1589.      PerformChart.sslinkrange = "a1:m" + test
  1590.      PerformChart.sslinkmode = 1
  1591.      PerformChart.Repaint = True
  1592.      Call ThisDoc.GoToField( "DataPerformChart" )
  1593. End Sub
  1594. '++LotusScript Development Environment:2:2:GraphPerformance:1:8
  1595. Public Sub GraphPerformance( iRowCountPerform As Integer, iColCountPerform As Integer )
  1596.      Dim Workspace As New NotesUIWorkspace
  1597.      Dim ThisDoc As NotesUIDocument
  1598.      Dim Session As New NotesSession
  1599.      Dim ThisDB As NotesDatabase
  1600.      Dim DateTime As New NotesDateTime( "1/1/96" )
  1601.      Dim SearchCollection As NotesDocumentCollection
  1602.      Dim SearchDoc As NotesDocument
  1603.      Dim iEntryCount As Integer
  1604.      Dim bMatchFound As Integer
  1605.      Dim itemp As Integer
  1606.      
  1607.      Set ThisDoc = Workspace.CurrentDocument
  1608.      Set ThisDB = Session.CurrentDatabase
  1609.      ThisDoc.EditMode = True
  1610.      
  1611.      If ValidateGraphPerformance( ) = False Then
  1612.           Exit Sub
  1613.      End If
  1614.      
  1615.      If PerformComponentsSetup2( ) = False Then
  1616.           Exit Sub
  1617.      End If
  1618.           '********************************************************
  1619.      ' load up the spreadsheet with data
  1620.      ' do a lookup based on this machine id and this script id
  1621.      iEntryCount=0
  1622.      SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  1623.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"} 
  1624.      Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 )
  1625.      
  1626.      '  first insert data from current database
  1627.      If SearchCollection.Count > 0 Then
  1628.           For i = 1 To SearchCollection.Count
  1629.                Set SearchDoc = SearchCollection.GetNthDocument( i )
  1630.                
  1631.               '  make sure the data has a signature attached
  1632.                vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  1633.                Dim vIsSignedField As Variant
  1634.                Dim vEstimated As Variant
  1635.                vIsSignedField = SearchDoc.IsSignedField
  1636.                vEstimated = SearchDoc.IsSignedField
  1637.                'If vCertifyCheck( 0 ) = "1" And SearchDoc.IsSigned  Then
  1638.                If vCertifyCheck( 0 ) = "1" Then 
  1639.                     If  ( vIsSignedField( 0 ) = "1"  And vEstimated( 0 ) <> "Yes" )  Or ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) ="Yes"  And sPerformanceEstimatedRecords = "Yes")   Then    '  option not to include estimated records
  1640.                          PerformSheet.row = 1 +  i
  1641.                          PerformSheet.col = 1    
  1642.                          temp =  SearchDoc.GetItemValue( "DataUNumberUsers1" ) 
  1643.                          PerformSheet.number =  Cint( temp( 0 ) ) 
  1644.                          PerformSheet.col = 2       '    response time
  1645.                          temp= SearchDoc.GetItemValue( "DataUAverage" ) 
  1646.                          PerformSheet.number= Csng( temp( 0 ) ) 
  1647.                          iEntryCount=iEntryCount + 1
  1648.                     End If
  1649.                End If
  1650.           Next i     
  1651.      End If
  1652.      
  1653.      '  make sure the current form is filled out and then insert
  1654.      If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then
  1655.           '  see if the entry exists
  1656.           bMatchFound = False
  1657.           For i = 1 To iEntryCount
  1658.                PerformSheet.row = i + 1
  1659.                PerformSheet.col = 1
  1660.                itemp = PerformSheet.number
  1661.                If Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) = iTemp Then
  1662.                     bMatchFound = True
  1663.                     PerformSheet.col= 2       '    response time
  1664.                     PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) )
  1665.                End If
  1666.           Next i
  1667.           If bMatchFound = False Then
  1668.                PerformSheet.row = 1 +  iEntryCount + 1
  1669.                PerformSheet.col = 1     '   user count
  1670.                PerformSheet.number =  Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) )
  1671.                PerformSheet.col= 2       '    response time
  1672.                PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) )
  1673.                iEntryCount=iEntryCount + 1
  1674.           End If
  1675.      End If
  1676.      
  1677.      iRowCountPerform = iEntryCount + iRowCountPerform
  1678.      
  1679.      '  set columns to automatically resize
  1680.      PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True
  1681.      
  1682.      EndRow =( iOutputCount + 2 ) - 1
  1683.      PerformSheet.Sort 2, 1, iRowCountPerform + 1, 2, True, 1     
  1684.      
  1685.         '  set up the link between spreadsheet and chart
  1686.      iColCountPerform = 1
  1687.      Call PerformChartAssn2( iRowCountPerform, iColCountPerform, ThisDoc )
  1688.      iRowCountPerform = iRowCountPerform + 1
  1689.      Exit Sub
  1690.      
  1691. PressEdit:
  1692.      Messagebox "Need to be in Edit Mode, then Request Graphical Information", MB_ICONEXCLAMATION, "Graph Performance Information"
  1693.      Exit Sub
  1694.      
  1695.      
  1696. End Sub
  1697. '++LotusScript Development Environment:2:1:PerformComponentsSetup2:1:8
  1698. Public Function PerformComponentsSetup2( ) As Integer
  1699.      Dim Workspace As New NotesUIWorkspace
  1700.      Dim ThisDoc As NotesUIDocument
  1701.      
  1702.      Dim Session As New NotesSession
  1703.      Dim ThisDB As NotesDatabase
  1704.      Dim DateTime As New NotesDateTime( "1/1/96" )
  1705.      Dim SearchCollection As NotesDocumentCollection
  1706.      Dim SearchDoc As NotesDocument
  1707.      
  1708.      Dim iEntryCount As Integer
  1709.      Dim bMatchFound As Integer
  1710.      Dim itemp As Integer
  1711.      
  1712.      PerformComponentsSetup = True
  1713.      Set ThisDoc = Workspace.CurrentDocument
  1714.      Set ThisDB = Session.CurrentDatabase
  1715.      
  1716.      If ValidateGraphPerformance( ) = False Then
  1717.           Exit Function
  1718.      End If
  1719.      
  1720.      '  set up spreadsheet and chart
  1721.      On Error Goto PressEdit              '   need to be in edit mode to continue processing
  1722.      ThisDoc.GoToField( "DataPerformSheet" )
  1723.      ThisDoc.FieldClear( "DataPerformSheet" )
  1724.      Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" )
  1725.      ThisDoc.GoToField( "DataPerformChart" )
  1726.      ThisDoc.FieldClear( "DataPerformChart" ) 
  1727.      Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" )
  1728.      'ThisDoc.Document.AppendText( "foo" )
  1729.      'ThisDoc.Document.ComputeWithForm True, True 
  1730.      On Error Goto 0
  1731.      
  1732.      PerformChart.Repaint = False
  1733.      
  1734.      PerformChart.rowcount = 10
  1735.      PerformChart.columncount = 1
  1736.      PerformSheet.tablename = "PerformSheet"
  1737.      PerformChart.sslinkbook = "PerformSheet"
  1738.      test = 12
  1739.      PerformChart.sslinkrange = "a1:m" + test
  1740.      PerformChart.sslinkmode = 1
  1741.      
  1742.       '****************************
  1743.      'set up Perform sheet
  1744.       '****************************
  1745.      iRowCountPerform = 0
  1746.      iColCountPerform = 1
  1747.      
  1748.      PerformSheet.displaycols =  2
  1749.      PerformSheet.displayrows = 10
  1750.      PerformSheet.showrowheading = False
  1751.      PerformSheet.showcolheading = False
  1752.      
  1753.      '  set up headings
  1754.      PerformSheet.row = 1
  1755.      PerformSheet.col = 1
  1756.      
  1757.      PerformSheet.text = "# Users"
  1758.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  1759.      
  1760.      PerformSheet.col = 2
  1761.      PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" )
  1762.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  1763.      
  1764.      ' ****************************
  1765.      '  Perform Chart Setup
  1766.       '****************************
  1767.      PerformChart.chartType = CHChartType2dLine
  1768.      PerformChart.TitleText = "System Performance: " + ThisDoc.FieldGetText( "DataUScript1" )
  1769.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  1770.      
  1771.     'show major grid line in red and minor grid line in blue
  1772.      With PerformChart.plot.axis( CHAxisIdY ).AxisGrid
  1773.           .majorPen.width = 1
  1774.           .minorPen.VtColor.Set 0, 0, 255
  1775.           .minorPen.width = 1
  1776.      End With
  1777.      
  1778.      If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then
  1779.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  1780.                .visible = True
  1781.                .text = "Spoke Count"
  1782.                .VtFont.name = "Arial"
  1783.                .VtFont.size = 10
  1784.                .VtFont.VtColor.set  0, 0, 255
  1785.           End With
  1786.      Else
  1787.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  1788.                .visible = True
  1789.                .text = "User Count"
  1790.                .VtFont.name = "Arial"
  1791.                .VtFont.size = 10
  1792.                .VtFont.VtColor.set  0, 0, 255
  1793.           End With
  1794.      End If
  1795.      With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle
  1796.           .visible = True
  1797.           .text = "Perform Time( sec )"
  1798.           .VtFont.name = "Arial"
  1799.           .VtFont.size = 10
  1800.           .VtFont.VtColor.set  0, 0, 255
  1801.      End With
  1802.      
  1803.      With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle
  1804.           .visible = True
  1805.           .text = "Machine"
  1806.           .VtFont.name = "Arial"
  1807.           .VtFont.size = 10
  1808.           .VtFont.VtColor.set  0, 0, 255
  1809.      End With
  1810.      
  1811.      With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 )
  1812.         ' Set X Axis label properties
  1813.           .auto = True
  1814.           .VtFont.name = "Arial"
  1815.           .VtFont.size = 10
  1816.           .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter
  1817.           .TextLayout.VertAlignment = CHVerticalAlignmentCenter
  1818.      End With
  1819.      
  1820.      With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 )
  1821.         ' Set X Axis label properties
  1822.           .auto = True
  1823.           .VtFont.name = "Arial"
  1824.           .VtFont.size = 10
  1825.      End With
  1826.      
  1827.      With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 )
  1828.         ' Set X Axis label properties
  1829.           .auto = True
  1830.           .VtFont.name = "Arial"
  1831.           .VtFont.size = 10
  1832.      End With
  1833.      
  1834.        ' adjust size of title
  1835.      With PerformChart.title.VtFont
  1836.           .name = "Arial"
  1837.           .size = 10
  1838.           .style = CHFontStyleBold
  1839.           .effect = 512
  1840.           .VtColor.Set 0, 0, 255
  1841.      End With
  1842.      
  1843.     'use  manual scale to display y axis( value axis )
  1844.      With PerformChart.plot.axis( CHAxisIdY ).ValueScale
  1845.           .auto = True
  1846.      End With
  1847.      
  1848.      With PerformChart.Legend
  1849.         ' Make Legend Visible
  1850.           .location.visible = True
  1851.           .location.locationType = CHLocationTypeBottom
  1852.           
  1853.         ' Set Legend properties
  1854.           .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft    ' Left justify
  1855.           .VtFont.VtColor.Set 0, 0, 255                        
  1856.           .backdrop.fill.style = CHFillStyleBrush
  1857.           .backdrop.fill.Brush.style = CHBrushStyleSolid
  1858.           
  1859.      End With
  1860.      
  1861.      With PerformChart.backdrop.fill
  1862.           '.style=CHFillStyleNull
  1863.           .style=CHFillStyleBrush
  1864.           .Brush.style=CHBrushStyleSolid
  1865.      End With
  1866.      
  1867.      '  need to enhance Machine IDs Names for legend
  1868.      PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" )
  1869.      
  1870.      Exit Function
  1871.      
  1872. PressEdit:
  1873.      Messagebox "Need to be in Edit Mode, then Request Graphical Information", MB_ICONEXCLAMATION, "Graph Performance Information"
  1874.      PerformComponentsSetup=False
  1875.      Exit Function
  1876.      
  1877. End Function
  1878. '++LotusScript Development Environment:2:1:ExtractVendorName:1:8
  1879. Function ExtractVendorName( sSearchDB As String ) As String
  1880.      Dim i As Integer
  1881.      Dim j As Integer
  1882.      Dim k As Integer
  1883.      Dim sFirstChar As String
  1884.      Dim bSlashFound As Integer
  1885.      
  1886.      j = 1
  1887.      bSlashFound = False
  1888.      If Instr( 1, sSearchDB, "\" )  > 0 Then
  1889.           While j <> 0
  1890.                k = j
  1891.                j = Instr( ( j + 1 ), sSearchDB, "\CP" )
  1892.           Wend
  1893.           bSlashFound = True
  1894.      Else
  1895.           While j <> 0
  1896.                k = j
  1897.                j = Instr( ( j + 1 ), sSearchDB, "CP" )
  1898.           Wend
  1899.      End If
  1900.      If bSlashFound = True Then
  1901.           ExtractVendorName = Right$( sSearchDB, ( ( Len ( sSearchDB ) - k ) - 2 ) )   '  extract  mfg name following .CP
  1902.      Else
  1903.           ExtractVendorName = Right$( sSearchDB, ( Len ( sSearchDB ) - 2 ) )   '  extract  mfg name following .CP
  1904.      End If
  1905.      
  1906.      i = Instr( 1, ExtractVendorName, ".NSF" )
  1907.      ExtractVendorName = Left$( ExtractVendorName, ( Len (ExtractVendorName) -  4 )  )
  1908.      
  1909. End Function
  1910. '++LotusScript Development Environment:2:2:GraphForSave:1:8
  1911. Sub GraphForSave (ThisDoc As NotesUIDocument, ThisDocBE As NotesDocument )
  1912.      
  1913.      Call ThisDoc.FieldSetText("SaveOptions", "1" )
  1914.      Call ThisDoc.Save
  1915.      Call ThisDoc.FieldSetText("SaveOptions", "0" )
  1916.      
  1917. End Sub
  1918. H h%X1
  1919.  H! 2
  1920. h"H$\4
  1921. h$H%x7
  1922. $('H8
  1923. (&H(x:
  1924. &H'X;
  1925. H'h*<<
  1926. h'h'h<
  1927. (h)@=
  1928. ((*,>
  1929. (H)\>
  1930. )h4d?
  1931. M,:,:
  1932. MPJPJ
  1933. :l,l,
  1934. $-\:4-4-
  1935. ?h@x@,;
  1936. <HAHA
  1937. lBlBLBLB
  1938. D4D4F
  1939. GX?X?
  1940. CLCLC
  1941. 289pC
  1942. GlElE
  1943. 5x9(D
  1944. HPIPI I I0H`H
  1945. ,M,M<M\M
  1946. ,MLM$E
  1947. 8H9xD
  1948. H9h9\F
  1949. LPH{j
  1950. =(>`J    
  1951. ffffff
  1952. B|M$P    
  1953. XK`P'
  1954. LL<V4
  1955. 4D4DHW
  1956. L@YA8
  1957. LKP_b6
  1958.  L4a_
  1959. LM\MxO
  1960. K|,,,:}
  1961. KD-,,:}dI#
  1962. ^,;+l:$
  1963. <+L;$
  1964. <+,<}LJ$
  1965. ^<;K,;-X>#
  1966. <-|>#
  1967. >)87K
  1968. )42^<;#
  1969. ~ ?K<;,
  1970. ~8?K<;,
  1971. ^H?}8N
  1972. >}\M#
  1973. <,X?JH?J
  1974. ^(@4L
  1975. =K<;,
  1976. >}\M#
  1977. =,8@J
  1978. @}\M#
  1979. @K<;-
  1980. ^8>K<;-
  1981. ^H>K<;-
  1982. @}\M#
  1983. 8T A}
  1984. @}\M#
  1985. <,X?J,AJ
  1986. =,8@J
  1987. ^XA4e
  1988. AK<;,
  1989. AK<;-
  1990. 7^<;^
  1991. >}\M#}
  1992. .,,:}\M#
  1993. .,,:}\M#
  1994. .,,:}
  1995. ^,B+l:$
  1996. ^LB+L;$
  1997. ^<BK,B-X>#
  1998. ^\BKLB-|>#
  1999. >}\M#}
  2000. K<B,,:}\M#
  2001. K<B,,:}
  2002. K<B,,:}
  2003. ^|B+l:$
  2004. B+L;$
  2005. BK|B-X>#
  2006. B-|>#
  2007. >}\M#}
  2008. B,,:}\M#
  2009. B,,:}
  2010. B+l:$
  2011. B-X>#
  2012. B,,:}
  2013. B}DI#
  2014. B,,:}dI#
  2015. B}@U#
  2016. ^<C+l:$
  2017. C+L;$
  2018. ]$2K<C-X>#
  2019. C-|>#
  2020. ^lCK$2,
  2021. ^|CK$2,
  2022. J|C},V
  2023. DJ|CJlC
  2024. ^LCK\C,4DJ|CJlC
  2025. KLC.hD}
  2026. >}\M#}
  2027. 2,,:}\M#
  2028. 2,,:}
  2029. D+l:$
  2030. D-X>#
  2031. D+L;$
  2032. D-|>#
  2033. D,4F}
  2034. ^|EKlE,dF#
  2035. ^|EKlE,
  2036. FJ|E#
  2037. FQ,G}
  2038. ^|EKlE,
  2039. FJ|E#
  2040. FQ,GJ
  2041. ^|EKlE,dF#
  2042. ^|EKlE,
  2043. FJ|E#
  2044. FQ,G}
  2045. D,8G}
  2046. E,4F}8\#
  2047. E,dF#
  2048. ^xGrxG
  2049. FQ,GJxG
  2050. 5,,:}dI#
  2051. ^0H+l:$
  2052. ^PH+L;$
  2053. ^pH+,<}LJ$
  2054. ^@HK0H-X>#
  2055. ^`HKPH-|>#
  2056. >}\M#
  2057. HK`H,X?J
  2058. H,8@J
  2059. HK@H-
  2060. L#}h]
  2061. Q#}h]
  2062. ^@I4u
  2063. 8Q<AK@H,
  2064. 8Q<AK@H,
  2065. 8Q<AK@H,
  2066. ^PIJ`I
  2067. I+l:$
  2068. I+L;$
  2069. I+,<}LJ$
  2070. I-X>#
  2071. I-|>#
  2072. I,,:}
  2073. I,PJ}
  2074. J}DI}
  2075. I,,:}dI#
  2076. I,PJ}dI#
  2077. J}@U}
  2078. 8T A}
  2079. >}\M#
  2080. 8T A}
  2081. KO4KO@KTLK
  2082. KO4KQ(K
  2083. M#}4`
  2084. NdKQtK
  2085. KO@KTLK
  2086. KO@KTLK
  2087. KO@KTLK
  2088. KO@KTLK
  2089. LQ L~X
  2090. 8OLLP
  2091. NXLQhL~
  2092. NXLQtL
  2093. NXLO@KTLK
  2094. KO@KTLK
  2095. LQhL~
  2096. LQhL~8
  2097. LQhL~
  2098. LQhL~8
  2099. >}\M#
  2100. 8,|M}Tc}
  2101. 8,|M}Tc}
  2102. Vendor Data'++LotusScript Development Environment:2:5:(Options):0:66
  2103. '++LotusScript Development Environment:2:5:(Forward):0:1
  2104. Declare Sub Postopen( Source As Notesuidocument )
  2105. Declare Sub Terminate
  2106. Declare Sub Querysave( Source As Notesuidocument, Continue As Variant )
  2107. Declare Sub Initialize
  2108. Declare Sub Postrecalc( Source As Notesuidocument )
  2109. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2110. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2111. Const MB_ICONSTOP = 16
  2112. Const MB_ICONQUESTION = 32
  2113. Const MB_ICONEXCLAMATION = 48
  2114. Const MB_ICONINFORMATION = 64
  2115. Const CHFontEffectUnderline=512
  2116. Const MB_YESNO = 4
  2117. Const IDYes = 6
  2118. Const IDNo = 7
  2119. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2120. Private Sub BindEvents(Byval Objectname_ As String)
  2121.      Static Source As NOTESUIDOCUMENT
  2122.      Set Source = Bind(Objectname_)
  2123.      On Event Postopen From Source Call Postopen
  2124.      On Event Querysave From Source Call Querysave
  2125.      On Event Postrecalc From Source Call Postrecalc
  2126.      On Event Queryopen From Source Call Queryopen
  2127. End Sub
  2128. '++LotusScript Development Environment:2:2:Postopen:1:12
  2129. Sub Postopen( Source As Notesuidocument )
  2130.      ' TO DO
  2131.      '  avoid vendor screen repaints
  2132.      '
  2133.      Dim Workspace As New NotesUIWorkspace
  2134.      Dim ThisDoc As NotesUIDocument
  2135.      Dim Session As New NotesSession
  2136.      Dim ThisDB As NotesDatabase
  2137.      Dim ThisDocBE As NotesDocument
  2138.      Dim sFileName As String
  2139.      
  2140.      Set ThisDoc = Workspace.CurrentDocument
  2141.      Set ThisDB = Session.CurrentDatabase
  2142.      Set ThisDocBE = ThisDoc.Document
  2143.      
  2144.      ThisDoc.EditMode = True
  2145.      sFirstTime = "0"
  2146.      bGraphMessageDisplay = False
  2147.      
  2148.        '  process for new document, fill in vendor field
  2149.      sFileName = ThisDB.FileName
  2150.      sFileName = Mid$( sFilename, 3, ( ( Len( sFileName ) - 2 ) - 4) )  '  remove cp prefix and .nsf extension
  2151.      'Call ThisDoc.FieldSetText( "Vendor", Ucase( sFileName ) )
  2152.      vEditFieldFlag = ThisDoc.Document.EditFieldFlag
  2153.      
  2154.      '  initialize output results checkbox
  2155.      ThisDoc.Document.OutputSaveResults = "Output to Database"
  2156.      
  2157.      Dim vIsSignedField As Variant
  2158.      vIsSignedField = ThisDoc.Document.IsSignedField
  2159.      
  2160.      If ThisDoc.IsNewDoc = False Then
  2161.           '  first verify the SaveOptions field value (if 0, don't save )
  2162.           vTemp = ThisDocBE.SaveOptions
  2163.           If vTemp(0) = "1" Then
  2164.                '  as calculations take place, need to save off current document
  2165.                Call ThisDoc.Save
  2166.           End If
  2167.      End If
  2168.      
  2169.      vTemp = ThisDocBE.DocLinkFlag 
  2170.      If vTemp( 0 ) <> 1 Then
  2171.           ThisDocBE.DocLinkFlag = 0  'make sure it's initialized
  2172.      End If
  2173.      
  2174.      vTemp = ThisDocBE.MailFlag
  2175.      vTemp1 = ThisDocBE.SaveOptions
  2176.      If vTemp( 0 ) = "0" And vTemp1( 0 ) = "1" Then    '  only update if not mailed
  2177.           Call ThisDoc.FieldSetText( "Vendor", Ucase( sFileName ) )
  2178.      End If
  2179.      
  2180.      vTemp = ThisDocBE.SaveOptions
  2181.      If vTemp(0) = "1" Then
  2182.           If  vIsSignedField( 0 ) = "0" Then
  2183.                ThisDoc.Document.FormSigned = "No"
  2184.           Else
  2185.                ThisDoc.Document.FormSigned = "Yes"  
  2186.           End If
  2187.           'Call ThisDoc.Save
  2188.      End If
  2189. %END REM
  2190.      
  2191.      If ThisDoc.IsNewDoc = False Then
  2192.      '  note there is a tenuous relationship between saving ThisDoc and ThisDocBE
  2193.      '  ThisDocBE save at the end for the doc link
  2194.           
  2195.       '  as calculations take place, need to save off current document
  2196.              '  first verify the SaveOptions field value (if 0, don't save )
  2197.           vTemp = ThisDocBE.SaveOptions
  2198.           If vTemp(0) = "1" Then
  2199.                Call ThisDoc.Save
  2200.                Set ThisDocBE = ThisDoc.Document
  2201.                Dim MachineDoc As NotesDocument
  2202.                Dim DateTime As New NotesDateTime( "1/1/96" )
  2203.                Dim SearchCollection As NotesDocumentCollection
  2204.                
  2205.                '  only create doclink if the fields are filled in, only go down this path once
  2206.                Dim vDocLinkFlag As Variant
  2207.                vDocLinkFlag = ThisDocBE.DocLinkFlag
  2208.                If vDocLinkFlag( 0 ) = 0 Then
  2209.                     If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then
  2210.                          Messagebox "Server Machine ID information needs to be filled in to create the DocLink", MB_ICONEXCLAMATION, "Vendor Data"
  2211.                     Else
  2212.                          SearchFormula$ = " Form = ""Machine Identifier""  & MachineID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" )  & {"} 
  2213.                          Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 )
  2214.                          If SearchCollection.Count = 0 Then
  2215.                               Messagebox "Machine ID form could not be found", MB_ICONSTOP, "Vendor Data"
  2216.                          Elseif SearchCollection.Count > 1 Then
  2217.                               Messagebox "Multiple Machine ID entries were found", MB_ICONSTOP, "Vendor Data"
  2218.                          Else
  2219.                               Set MachineDoc = SearchCollection.GetNthDocument( 1 )
  2220.                               
  2221.                               Dim notesitem As Variant
  2222.                               Set notesitem = ThisDocBE.GetFirstItem( "DataMachineID" )
  2223.                               
  2224.                               Call notesitem.AppendDocLink( MachineDoc, "Server Machine ID" )
  2225.                               ThisDocBE.DocLinkFlag = 1            '  only create doclink once
  2226.                               ThisDocBE.FirstTime = "1"
  2227.                               sFirstTime = "1"
  2228.                               Call ThisDoc.FieldSetText("SaveOptions", "1" )
  2229.                               Call ThisDocBE.Save( False, False )
  2230.                          End If
  2231.                     End If
  2232.                End If
  2233.           End If
  2234.      End If  '  new document check
  2235.      
  2236.      vTemp = ThisDocBE.SaveOptions
  2237.      If vTemp(0) = "1" Then
  2238.           If  vIsSignedField( 0 ) = "0" Then
  2239.                ThisDoc.Document.FormSigned = "No"
  2240.           Else
  2241.                ThisDoc.Document.FormSigned = "Yes"  
  2242.           End If
  2243.           'Call ThisDoc.Save
  2244.      End If
  2245.      
  2246.      vTemp = ThisDocBE.SaveOptions
  2247.      If ThisDoc.IsNewDoc = False And vTemp(0) = "1" Then
  2248.       '  now need to prevent future savings of this document
  2249.           Call ThisDoc.FieldSetText("SaveOptions", "0" )
  2250.           'Call ThisDoc.Save
  2251.      End If
  2252.      
  2253.      'ThisDoc.EditMode = False
  2254. End Sub
  2255. '++LotusScript Development Environment:2:2:Terminate:1:10
  2256. Sub Terminate
  2257.      
  2258. End Sub
  2259. '++LotusScript Development Environment:2:2:Querysave:1:12
  2260. Sub Querysave( Source As Notesuidocument, Continue As Variant )
  2261.      
  2262. End Sub
  2263. '++LotusScript Development Environment:2:2:Initialize:1:10
  2264. Sub Initialize
  2265.      
  2266. End Sub
  2267. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  2268. Sub Postrecalc( Source As Notesuidocument )
  2269.      
  2270. End Sub
  2271. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2272. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2273.      Dim session As New NotesSession
  2274.      Dim db As NotesDatabase
  2275.      Dim view As NotesView
  2276.      Dim doc As NotesDocument
  2277.      Dim outputstring As String
  2278.      Dim fileName As String
  2279.      Dim AllDatabaseCount As Integer
  2280.      Dim pathName As String
  2281.      Dim ListDoc As NotesDocument
  2282.      
  2283.      Set Listdoc = CreateList( )
  2284.      pathName = session.GetEnvironmentString( "Directory",True )
  2285.      
  2286.      Chdir pathName
  2287.      
  2288.      pathName = pathname & "\CP*.NSF"
  2289.      
  2290.      fileName = Dir$( pathName )
  2291.      
  2292.      If fileName = "" Then
  2293.           Messagebox "Cannot find Vendor Databases", MB_ICONEXCLAMATION, "Vendor Database Search"
  2294.      End If
  2295.      
  2296.      AllDatabaseCount = 0
  2297.      Do While fileName <> ""
  2298.           Redim Preserve AllDatabase( AllDatabaseCount + 1 )
  2299.  '        parse out system name from filename 
  2300.           outputstring = Left( filename,( Len( filename ) - 4 ) )
  2301.           filename = outputstring
  2302.           outputstring = Right( filename,( Len( filename ) - 2 ) )
  2303.           AllDatabase( AllDatabaseCount ) = Ucase( outputstring )
  2304.   '        Messagebox AllDatabase( AllDatabaseCount )
  2305.           fileName = Dir$( )
  2306.           AllDatabaseCount = AllDatabaseCount +1          
  2307.      Loop
  2308.      
  2309.      If Not listdoc Is Nothing Then   '  bypass if mailed item
  2310.           Listdoc.list = AllDatabase
  2311.           Call Listdoc.save( False, False )
  2312.      End If
  2313. %END REM
  2314.      
  2315.      vFieldEntryValue = 0
  2316.      
  2317.      'flags for noting whether the graph has already been stored in output
  2318.      bAlreadyDisplayedDistribute = False
  2319.      bAlreadyDisplayedPerform = False
  2320.      
  2321. End Sub
  2322. '++LotusScript Development Environment:2:5:(Options):0:66
  2323. '++LotusScript Development Environment:2:5:(Forward):0:1
  2324. Declare Sub Entering(Source As Field)
  2325. Declare Sub Exiting(Source As Field)
  2326. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2327. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2328. Private Sub BindEvents(Byval Objectname_ As String)
  2329.      Static Source As FIELD
  2330.      Set Source = Bind(Objectname_)
  2331.      On Event Entering From Source Call Entering
  2332.      On Event Exiting From Source Call Exiting
  2333. End Sub
  2334. '++LotusScript Development Environment:2:2:Entering:1:12
  2335. Sub Entering(Source As Field)
  2336.      Dim Workspace As New NotesUIWorkspace
  2337.      Dim ThisDoc As NotesUIDocument
  2338.      
  2339.      Set ThisDoc = Workspace.CurrentDocument
  2340.      sFieldName = ThisDoc.CurrentField
  2341.      vFieldEntryValue = ThisDoc.Document.DataUAverage
  2342.      'vFieldEntryValue = ThisDoc.Document.DataUFast
  2343. End Sub
  2344. '++LotusScript Development Environment:2:2:Exiting:1:12
  2345. Sub Exiting(Source As Field)
  2346.      Dim Workspace As New NotesUIWorkspace
  2347.      Dim ThisDoc As NotesUIDocument
  2348.      
  2349.      Set ThisDoc = Workspace.CurrentDocument
  2350.      Dim vTemp As Variant
  2351.      vTemp = ThisDoc.Document.DataUAverage
  2352.      
  2353.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2354.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2355.           ThisDoc.Document.DataUAverage = Cdbl( vFieldEntryValue( 0 ) )
  2356.      End If
  2357. End Sub
  2358. '++LotusScript Development Environment:2:5:(Options):0:66
  2359. '++LotusScript Development Environment:2:5:(Forward):0:1
  2360. Declare Sub Entering(Source As Field)
  2361. Declare Sub Exiting(Source As Field)
  2362. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2363. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2364. Private Sub BindEvents(Byval Objectname_ As String)
  2365.      Static Source As FIELD
  2366.      Set Source = Bind(Objectname_)
  2367.      On Event Entering From Source Call Entering
  2368.      On Event Exiting From Source Call Exiting
  2369. End Sub
  2370. '++LotusScript Development Environment:2:2:Entering:1:12
  2371. Sub Entering(Source As Field)
  2372.      Dim Workspace As New NotesUIWorkspace
  2373.      Dim ThisDoc As NotesUIDocument
  2374.      
  2375.      Set ThisDoc = Workspace.CurrentDocument
  2376.      sFieldName = ThisDoc.CurrentField
  2377.      vFieldEntryValue = ThisDoc.Document.DataUMinimum
  2378. End Sub
  2379. '++LotusScript Development Environment:2:2:Exiting:1:12
  2380. Sub Exiting(Source As Field)
  2381.      Dim Workspace As New NotesUIWorkspace
  2382.      Dim ThisDoc As NotesUIDocument
  2383.      
  2384.      Set ThisDoc = Workspace.CurrentDocument
  2385.      Dim vTemp As Variant
  2386.      vTemp = ThisDoc.Document.DataUMinimum
  2387.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2388.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2389.           ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) )
  2390.      End If
  2391. End Sub
  2392. '++LotusScript Development Environment:2:5:(Options):0:66
  2393. '++LotusScript Development Environment:2:5:(Forward):0:1
  2394. Declare Sub Entering(Source As Field)
  2395. Declare Sub Exiting(Source As Field)
  2396. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2397. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2398. Private Sub BindEvents(Byval Objectname_ As String)
  2399.      Static Source As FIELD
  2400.      Set Source = Bind(Objectname_)
  2401.      On Event Entering From Source Call Entering
  2402.      On Event Exiting From Source Call Exiting
  2403. End Sub
  2404. '++LotusScript Development Environment:2:2:Entering:1:12
  2405. Sub Entering(Source As Field)
  2406.      Dim Workspace As New NotesUIWorkspace
  2407.      Dim ThisDoc As NotesUIDocument
  2408.      
  2409.      Set ThisDoc = Workspace.CurrentDocument
  2410.      sFieldName = ThisDoc.CurrentField
  2411.      vFieldEntryValue = ThisDoc.Document.DataUMaximum
  2412. End Sub
  2413. '++LotusScript Development Environment:2:2:Exiting:1:12
  2414. Sub Exiting(Source As Field)
  2415.      Dim Workspace As New NotesUIWorkspace
  2416.      Dim ThisDoc As NotesUIDocument
  2417.      
  2418.      Set ThisDoc = Workspace.CurrentDocument
  2419.      Dim vTemp As Variant
  2420.      vTemp = ThisDoc.Document.DataUMaximum
  2421.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2422.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2423.           ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) )
  2424.      End If
  2425. End Sub
  2426. '++LotusScript Development Environment:2:5:(Options):0:66
  2427. '++LotusScript Development Environment:2:5:(Forward):0:1
  2428. Declare Sub Entering(Source As Field)
  2429. Declare Sub Exiting(Source As Field)
  2430. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2431. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2432. Private Sub BindEvents(Byval Objectname_ As String)
  2433.      Static Source As FIELD
  2434.      Set Source = Bind(Objectname_)
  2435.      On Event Entering From Source Call Entering
  2436.      On Event Exiting From Source Call Exiting
  2437. End Sub
  2438. '++LotusScript Development Environment:2:2:Entering:1:12
  2439. Sub Entering(Source As Field)
  2440.      Dim Workspace As New NotesUIWorkspace
  2441.      Dim ThisDoc As NotesUIDocument
  2442.      
  2443.      Set ThisDoc = Workspace.CurrentDocument
  2444.      sFieldName = ThisDoc.CurrentField
  2445.      vFieldEntryValue = ThisDoc.Document.DataUMinimum
  2446. End Sub
  2447. '++LotusScript Development Environment:2:2:Exiting:1:12
  2448. Sub Exiting(Source As Field)
  2449.      Dim Workspace As New NotesUIWorkspace
  2450.      Dim ThisDoc As NotesUIDocument
  2451.      
  2452.      Set ThisDoc = Workspace.CurrentDocument
  2453.      Dim vTemp As Variant
  2454.      vTemp = ThisDoc.Document.DataUMinimum
  2455.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2456.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2457.           ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) )
  2458.      End If
  2459. End Sub
  2460. '++LotusScript Development Environment:2:5:(Options):0:66
  2461. '++LotusScript Development Environment:2:5:(Forward):0:1
  2462. Declare Sub Entering(Source As Field)
  2463. Declare Sub Exiting(Source As Field)
  2464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2466. Private Sub BindEvents(Byval Objectname_ As String)
  2467.      Static Source As FIELD
  2468.      Set Source = Bind(Objectname_)
  2469.      On Event Entering From Source Call Entering
  2470.      On Event Exiting From Source Call Exiting
  2471. End Sub
  2472. '++LotusScript Development Environment:2:2:Entering:1:12
  2473. Sub Entering(Source As Field)
  2474.      Dim Workspace As New NotesUIWorkspace
  2475.      Dim ThisDoc As NotesUIDocument
  2476.      
  2477.      Set ThisDoc = Workspace.CurrentDocument
  2478.      sFieldName = ThisDoc.CurrentField
  2479.      vFieldEntryValue = ThisDoc.Document.DataUMaximum
  2480. End Sub
  2481. '++LotusScript Development Environment:2:2:Exiting:1:12
  2482. Sub Exiting(Source As Field)
  2483.      Dim Workspace As New NotesUIWorkspace
  2484.      Dim ThisDoc As NotesUIDocument
  2485.      
  2486.      Set ThisDoc = Workspace.CurrentDocument
  2487.      Dim vTemp As Variant
  2488.      vTemp = ThisDoc.Document.DataUMaximum
  2489.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2490.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2491.           ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) )
  2492.      End If
  2493. End Sub
  2494. '++LotusScript Development Environment:2:5:(Options):0:66
  2495. '++LotusScript Development Environment:2:5:(Forward):0:1
  2496. Declare Sub Entering(Source As Field)
  2497. Declare Sub Exiting(Source As Field)
  2498. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2499. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2500. Private Sub BindEvents(Byval Objectname_ As String)
  2501.      Static Source As FIELD
  2502.      Set Source = Bind(Objectname_)
  2503.      On Event Entering From Source Call Entering
  2504.      On Event Exiting From Source Call Exiting
  2505. End Sub
  2506. '++LotusScript Development Environment:2:2:Entering:1:12
  2507. Sub Entering(Source As Field)
  2508.      Dim Workspace As New NotesUIWorkspace
  2509.      Dim ThisDoc As NotesUIDocument
  2510.      
  2511.      Set ThisDoc = Workspace.CurrentDocument
  2512.      sFieldName = ThisDoc.CurrentField
  2513.      vFieldEntryValue = ThisDoc.Document.DataUMinimum
  2514. End Sub
  2515. '++LotusScript Development Environment:2:2:Exiting:1:12
  2516. Sub Exiting(Source As Field)
  2517.      Dim Workspace As New NotesUIWorkspace
  2518.      Dim ThisDoc As NotesUIDocument
  2519.      
  2520.      Set ThisDoc = Workspace.CurrentDocument
  2521.      Dim vTemp As Variant
  2522.      vTemp = ThisDoc.Document.DataUMinimum
  2523.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2524.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2525.           ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) )
  2526.      End If
  2527. End Sub
  2528. '++LotusScript Development Environment:2:5:(Options):0:66
  2529. '++LotusScript Development Environment:2:5:(Forward):0:1
  2530. Declare Sub Entering(Source As Field)
  2531. Declare Sub Exiting(Source As Field)
  2532. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2533. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2534. Private Sub BindEvents(Byval Objectname_ As String)
  2535.      Static Source As FIELD
  2536.      Set Source = Bind(Objectname_)
  2537.      On Event Entering From Source Call Entering
  2538.      On Event Exiting From Source Call Exiting
  2539. End Sub
  2540. '++LotusScript Development Environment:2:2:Entering:1:12
  2541. Sub Entering(Source As Field)
  2542.      Dim Workspace As New NotesUIWorkspace
  2543.      Dim ThisDoc As NotesUIDocument
  2544.      
  2545.      Set ThisDoc = Workspace.CurrentDocument
  2546.      sFieldName = ThisDoc.CurrentField
  2547.      vFieldEntryValue = ThisDoc.Document.DataCalibration_1
  2548. End Sub
  2549. '++LotusScript Development Environment:2:2:Exiting:1:12
  2550. Sub Exiting(Source As Field)
  2551.      Dim Workspace As New NotesUIWorkspace
  2552.      Dim ThisDoc As NotesUIDocument
  2553.      
  2554.      Set ThisDoc = Workspace.CurrentDocument
  2555.      
  2556.      If ( vFieldEntryValue <> Csng( ThisDoc.FieldGetText( sFieldName )  ) And vFieldEntryValue <> "" And vEditFieldFlag( 0 ) = 0 ) Then
  2557.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2558.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValue( 0 ) ) )
  2559.      End If
  2560. End Sub
  2561. '++LotusScript Development Environment:2:5:(Options):0:66
  2562. '++LotusScript Development Environment:2:5:(Forward):0:1
  2563. Declare Sub Entering(Source As Field)
  2564. Declare Sub Exiting(Source As Field)
  2565. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2566. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2567. Private Sub BindEvents(Byval Objectname_ As String)
  2568.      Static Source As FIELD
  2569.      Set Source = Bind(Objectname_)
  2570.      On Event Entering From Source Call Entering
  2571.      On Event Exiting From Source Call Exiting
  2572. End Sub
  2573. '++LotusScript Development Environment:2:2:Entering:1:12
  2574. Sub Entering(Source As Field)
  2575.      Dim Workspace As New NotesUIWorkspace
  2576.      Dim ThisDoc As NotesUIDocument
  2577.      
  2578.      Set ThisDoc = Workspace.CurrentDocument
  2579.      sFieldName = ThisDoc.CurrentField
  2580.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  2581. End Sub
  2582. '++LotusScript Development Environment:2:2:Exiting:1:12
  2583. Sub Exiting(Source As Field)
  2584.      Dim Workspace As New NotesUIWorkspace
  2585.      Dim ThisDoc As NotesUIDocument
  2586.      
  2587.      Set ThisDoc = Workspace.CurrentDocument
  2588.      
  2589.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  ) And vFieldEntryValueL <> "" And vEditFieldFlag( 0 ) = 0 ) Then
  2590.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2591.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  2592.      End If
  2593. End Sub
  2594. '++LotusScript Development Environment:2:5:(Options):0:66
  2595. '++LotusScript Development Environment:2:5:(Forward):0:1
  2596. Declare Sub Entering(Source As Field)
  2597. Declare Sub Exiting(Source As Field)
  2598. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2599. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2600. Private Sub BindEvents(Byval Objectname_ As String)
  2601.      Static Source As FIELD
  2602.      Set Source = Bind(Objectname_)
  2603.      On Event Entering From Source Call Entering
  2604.      On Event Exiting From Source Call Exiting
  2605. End Sub
  2606. '++LotusScript Development Environment:2:2:Entering:1:12
  2607. Sub Entering(Source As Field)
  2608.      Dim Workspace As New NotesUIWorkspace
  2609.      Dim ThisDoc As NotesUIDocument
  2610.      
  2611.      Set ThisDoc = Workspace.CurrentDocument
  2612.      sFieldName = ThisDoc.CurrentField
  2613.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  2614. End Sub
  2615. '++LotusScript Development Environment:2:2:Exiting:1:12
  2616. Sub Exiting(Source As Field)
  2617.      Dim Workspace As New NotesUIWorkspace
  2618.      Dim ThisDoc As NotesUIDocument
  2619.      
  2620.      Set ThisDoc = Workspace.CurrentDocument
  2621.      
  2622.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  ) And vFieldEntryValueL <> "" And vEditFieldFlag( 0 ) = 0 ) Then
  2623.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2624.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  2625.      End If
  2626. End Sub
  2627. '++LotusScript Development Environment:2:5:(Options):0:66
  2628. '++LotusScript Development Environment:2:5:(Forward):0:1
  2629. Declare Sub Initialize
  2630. Declare Sub Entering( Source As Field )
  2631. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2632. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2633. Private Sub BindEvents(Byval Objectname_ As String)
  2634.      Static Source As FIELD
  2635.      Set Source = Bind(Objectname_)
  2636.      On Event Entering From Source Call Entering
  2637. End Sub
  2638. '++LotusScript Development Environment:2:2:Initialize:1:10
  2639. Sub Initialize
  2640.      
  2641. End Sub
  2642. '++LotusScript Development Environment:2:2:Entering:1:12
  2643. Sub Entering( Source As Field )
  2644.      
  2645. End Sub
  2646. '++LotusScript Development Environment:2:5:(Options):0:66
  2647. '++LotusScript Development Environment:2:5:(Forward):0:1
  2648. Declare Sub Exiting(Source As Field)
  2649. Declare Sub Terminate
  2650. Declare Sub Entering(Source As Field)
  2651. Declare Sub Initialize
  2652. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2653. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2654. Private Sub BindEvents(Byval Objectname_ As String)
  2655.      Static Source As FIELD
  2656.      Set Source = Bind(Objectname_)
  2657.      On Event Exiting From Source Call Exiting
  2658.      On Event Entering From Source Call Entering
  2659. End Sub
  2660. '++LotusScript Development Environment:2:2:Exiting:1:12
  2661. Sub Exiting(Source As Field)
  2662.      
  2663. End Sub
  2664. '++LotusScript Development Environment:2:2:Terminate:1:10
  2665. Sub Terminate
  2666.      Dim workspace As New notesuiworkspace
  2667.      Dim ThisDoc As notesuidocument
  2668.      
  2669.      Set ThisDoc = workspace.CurrentDocument
  2670.      'TempString$ = ThisDoc.FieldGetText("VendorList")
  2671.      
  2672.      
  2673. End Sub
  2674. '++LotusScript Development Environment:2:2:Entering:1:12
  2675. Sub Entering(Source As Field)
  2676.      
  2677. End Sub
  2678. '++LotusScript Development Environment:2:2:Initialize:1:10
  2679. Sub Initialize
  2680.      
  2681. End Sub
  2682. '++LotusScript Development Environment:2:5:(Options):0:66
  2683. '++LotusScript Development Environment:2:5:(Forward):0:1
  2684. Declare Sub Entering(Source As Field)
  2685. Declare Sub Exiting(Source As Field)
  2686. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2687. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2688. Private Sub BindEvents(Byval Objectname_ As String)
  2689.      Static Source As FIELD
  2690.      Set Source = Bind(Objectname_)
  2691.      On Event Entering From Source Call Entering
  2692.      On Event Exiting From Source Call Exiting
  2693. End Sub
  2694. '++LotusScript Development Environment:2:2:Entering:1:12
  2695. Sub Entering(Source As Field)
  2696.      Dim Workspace As New NotesUIWorkspace
  2697.      Dim ThisDoc As NotesUIDocument
  2698.      
  2699.      Set ThisDoc = Workspace.CurrentDocument
  2700.      sFieldName = ThisDoc.CurrentField
  2701.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  2702. End Sub
  2703. '++LotusScript Development Environment:2:2:Exiting:1:12
  2704. Sub Exiting(Source As Field)
  2705.      Dim Workspace As New NotesUIWorkspace
  2706.      Dim ThisDoc As NotesUIDocument
  2707.      
  2708.      Set ThisDoc = Workspace.CurrentDocument
  2709.      
  2710.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  )  And vEditFieldFlag( 0 ) = 0 ) Then
  2711.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2712.           Call ThisDoc.FieldSetText( sFieldName, vFieldEntryValue ) 
  2713.      End If
  2714. End Sub
  2715. '++LotusScript Development Environment:2:5:(Options):0:66
  2716. '++LotusScript Development Environment:2:5:(Forward):0:1
  2717. Declare Sub Initialize
  2718. Declare Sub Entering( Source As Field )
  2719. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2720. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2721. Private Sub BindEvents(Byval Objectname_ As String)
  2722.      Static Source As FIELD
  2723.      Set Source = Bind(Objectname_)
  2724.      On Event Entering From Source Call Entering
  2725. End Sub
  2726. '++LotusScript Development Environment:2:2:Initialize:1:10
  2727. Sub Initialize
  2728.      
  2729. End Sub
  2730. '++LotusScript Development Environment:2:2:Entering:1:12
  2731. Sub Entering( Source As Field )
  2732.      
  2733. End Sub
  2734. '++LotusScript Development Environment:2:5:(Options):0:66
  2735. '++LotusScript Development Environment:2:5:(Forward):0:1
  2736. Declare Sub Exiting( Source As Field )
  2737. Declare Sub Entering(Source As Field)
  2738. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2739. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2740. Private Sub BindEvents(Byval Objectname_ As String)
  2741.      Static Source As FIELD
  2742.      Set Source = Bind(Objectname_)
  2743.      On Event Exiting From Source Call Exiting
  2744.      On Event Entering From Source Call Entering
  2745. End Sub
  2746. '++LotusScript Development Environment:2:2:Exiting:1:12
  2747. Sub Exiting( Source As Field )
  2748.      Dim Workspace As New NotesUIWorkspace
  2749.      Dim ThisDoc As NotesUIDocument
  2750.      
  2751.      Set ThisDoc = Workspace.CurrentDocument
  2752.      
  2753.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  )  And vEditFieldFlag( 0 ) = 0 ) Then
  2754.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2755.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  2756.      End If
  2757. End Sub
  2758. '++LotusScript Development Environment:2:2:Entering:1:12
  2759. Sub Entering(Source As Field)
  2760.      Dim Workspace As New NotesUIWorkspace
  2761.      Dim ThisDoc As NotesUIDocument
  2762.      
  2763.      Set ThisDoc = Workspace.CurrentDocument
  2764.      sFieldName = ThisDoc.CurrentField
  2765.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  2766. End Sub
  2767. '++LotusScript Development Environment:2:5:(Options):0:66
  2768. '++LotusScript Development Environment:2:5:(Forward):0:1
  2769. Declare Sub Entering(Source As Field)
  2770. Declare Sub Exiting(Source As Field)
  2771. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2772. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2773. Private Sub BindEvents(Byval Objectname_ As String)
  2774.      Static Source As FIELD
  2775.      Set Source = Bind(Objectname_)
  2776.      On Event Entering From Source Call Entering
  2777.      On Event Exiting From Source Call Exiting
  2778. End Sub
  2779. '++LotusScript Development Environment:2:2:Entering:1:12
  2780. Sub Entering(Source As Field)
  2781.      Dim Workspace As New NotesUIWorkspace
  2782.      Dim ThisDoc As NotesUIDocument
  2783.      
  2784.      Set ThisDoc = Workspace.CurrentDocument
  2785.      sFieldName = ThisDoc.CurrentField
  2786.      vFieldEntryValue = ThisDoc.Document.DataUDatePerformed
  2787. End Sub
  2788. '++LotusScript Development Environment:2:2:Exiting:1:12
  2789. Sub Exiting(Source As Field)
  2790.      Dim Workspace As New NotesUIWorkspace
  2791.      Dim ThisDoc As NotesUIDocument
  2792.      
  2793.      Set ThisDoc = Workspace.CurrentDocument
  2794.      Dim vTemp As Variant
  2795.      vTemp = ThisDoc.Document.DataUDatePerformed
  2796.      If ( Cdat(vFieldEntryValue( 0 ) ) <> Cdat( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2797.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2798.           ThisDoc.Document.DataUDatePerformed = Cdat( vFieldEntryValue( 0 ) )
  2799.      End If
  2800. End Sub
  2801. '++LotusScript Development Environment:2:5:(Options):0:66
  2802. '++LotusScript Development Environment:2:5:(Forward):0:1
  2803. Declare Sub Exiting( Source As Field )
  2804. Declare Sub Entering(Source As Field)
  2805. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2806. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2807. Private Sub BindEvents(Byval Objectname_ As String)
  2808.      Static Source As FIELD
  2809.      Set Source = Bind(Objectname_)
  2810.      On Event Exiting From Source Call Exiting
  2811.      On Event Entering From Source Call Entering
  2812. End Sub
  2813. '++LotusScript Development Environment:2:2:Exiting:1:12
  2814. Sub Exiting( Source As Field )
  2815.      Dim WorkSpace As New NotesUIWorkspace
  2816.      Dim ThisDoc As NotesUIDocument
  2817.      
  2818.      Set ThisDoc = WorkSpace.CurrentDocument
  2819.      If  ThisDoc.FieldGetText( "DataUScript1" ) = "" Then
  2820.           Messagebox "Enter Script Specification", MB_ICONEXCLAMATION, "Validation"
  2821.           ThisDoc.GoToField( "DataUScript1" )
  2822.      End If
  2823.      
  2824.      If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName  ) And vEditFieldFlag( 0 ) = 0 ) Then
  2825.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2826.           Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) )
  2827.      End If
  2828. End Sub
  2829. '++LotusScript Development Environment:2:2:Entering:1:12
  2830. Sub Entering(Source As Field)
  2831.      Dim Workspace As New NotesUIWorkspace
  2832.      Dim ThisDoc As NotesUIDocument
  2833.      
  2834.      Set ThisDoc = Workspace.CurrentDocument
  2835.      sFieldName = ThisDoc.CurrentField
  2836.      vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName )
  2837. End Sub
  2838. '++LotusScript Development Environment:2:5:(Options):0:66
  2839. '++LotusScript Development Environment:2:5:(Forward):0:1
  2840. Declare Sub Entering(Source As Field)
  2841. Declare Sub Exiting(Source As Field)
  2842. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2843. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2844. Private Sub BindEvents(Byval Objectname_ As String)
  2845.      Static Source As FIELD
  2846.      Set Source = Bind(Objectname_)
  2847.      On Event Entering From Source Call Entering
  2848.      On Event Exiting From Source Call Exiting
  2849. End Sub
  2850. '++LotusScript Development Environment:2:2:Entering:1:12
  2851. Sub Entering(Source As Field)
  2852.      Dim Workspace As New NotesUIWorkspace
  2853.      Dim ThisDoc As NotesUIDocument
  2854.      
  2855.      Set ThisDoc = Workspace.CurrentDocument
  2856.      sFieldName = ThisDoc.CurrentField
  2857.      vFieldEntryValue = ThisDoc.Document.DataUNumberUsers1
  2858. End Sub
  2859. '++LotusScript Development Environment:2:2:Exiting:1:12
  2860. Sub Exiting(Source As Field)
  2861.      Dim Workspace As New NotesUIWorkspace
  2862.      Dim ThisDoc As NotesUIDocument
  2863.      
  2864.      Set ThisDoc = Workspace.CurrentDocument
  2865.      
  2866.      Dim vTemp As Variant
  2867.      vTemp = ThisDoc.Document.DataUNumberUsers1
  2868.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )  And vEditFieldFlag( 0 ) = 0 ) Then
  2869.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2870.           ThisDoc.Document.DataUNumberUsers1 = Cdbl( vFieldEntryValue( 0 ) )
  2871.      End If
  2872. End Sub
  2873. '++LotusScript Development Environment:2:5:(Options):0:66
  2874. '++LotusScript Development Environment:2:5:(Forward):0:1
  2875. Declare Sub Entering(Source As Field)
  2876. Declare Sub Exiting(Source As Field)
  2877. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2878. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2879. Private Sub BindEvents(Byval Objectname_ As String)
  2880.      Static Source As FIELD
  2881.      Set Source = Bind(Objectname_)
  2882.      On Event Entering From Source Call Entering
  2883.      On Event Exiting From Source Call Exiting
  2884. End Sub
  2885. '++LotusScript Development Environment:2:2:Entering:1:12
  2886. Sub Entering(Source As Field)
  2887.      Dim Workspace As New NotesUIWorkspace
  2888.      Dim ThisDoc As NotesUIDocument
  2889.      
  2890.      Set ThisDoc = Workspace.CurrentDocument
  2891.      sFieldName = ThisDoc.CurrentField
  2892.      vFieldEntryValue = ThisDoc.Document.DataUNotesMark1
  2893. End Sub
  2894. '++LotusScript Development Environment:2:2:Exiting:1:12
  2895. Sub Exiting(Source As Field)
  2896.      Dim Workspace As New NotesUIWorkspace
  2897.      Dim ThisDoc As NotesUIDocument
  2898.      
  2899.      Set ThisDoc = Workspace.CurrentDocument
  2900.      
  2901.      Dim vTemp As Variant
  2902.      vTemp = ThisDoc.Document.DataUNotesMark1
  2903.      
  2904.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2905.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2906.           ThisDoc.Document.DataUNotesMark1 = Cdbl( vFieldEntryValue( 0 ) )
  2907.      End If
  2908. End Sub
  2909. '++LotusScript Development Environment:2:5:(Options):0:66
  2910. '++LotusScript Development Environment:2:5:(Forward):0:1
  2911. Declare Sub Entering(Source As Field)
  2912. Declare Sub Exiting(Source As Field)
  2913. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2914. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2915. Private Sub BindEvents(Byval Objectname_ As String)
  2916.      Static Source As FIELD
  2917.      Set Source = Bind(Objectname_)
  2918.      On Event Entering From Source Call Entering
  2919.      On Event Exiting From Source Call Exiting
  2920. End Sub
  2921. '++LotusScript Development Environment:2:2:Entering:1:12
  2922. Sub Entering(Source As Field)
  2923.      Dim Workspace As New NotesUIWorkspace
  2924.      Dim ThisDoc As NotesUIDocument
  2925.      
  2926.      Set ThisDoc = Workspace.CurrentDocument
  2927.      sFieldName = ThisDoc.CurrentField
  2928.      vFieldEntryValue = ThisDoc.Document.DataUResponseTime1
  2929. End Sub
  2930. '++LotusScript Development Environment:2:2:Exiting:1:12
  2931. Sub Exiting(Source As Field)
  2932.      Dim Workspace As New NotesUIWorkspace
  2933.      Dim ThisDoc As NotesUIDocument
  2934.      
  2935.      Set ThisDoc = Workspace.CurrentDocument
  2936.      Dim vTemp As Variant
  2937.      vTemp = ThisDoc.Document.DataUResponseTime1
  2938.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2939.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2940.           ThisDoc.Document.DataUResponseTime1 = Cdbl( vFieldEntryValue( 0 ) )
  2941.      End If
  2942. End Sub
  2943. '++LotusScript Development Environment:2:5:(Options):0:66
  2944. '++LotusScript Development Environment:2:5:(Forward):0:1
  2945. Declare Sub Exiting(Source As Field)
  2946. Declare Sub Entering(Source As Field)
  2947. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2948. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2949. Private Sub BindEvents(Byval Objectname_ As String)
  2950.      Static Source As FIELD
  2951.      Set Source = Bind(Objectname_)
  2952.      On Event Exiting From Source Call Exiting
  2953.      On Event Entering From Source Call Entering
  2954. End Sub
  2955. '++LotusScript Development Environment:2:2:Exiting:1:12
  2956. Sub Exiting(Source As Field)
  2957.      Dim Workspace As New NotesUIWorkspace
  2958.      Dim ThisDoc As NotesUIDocument
  2959.      
  2960.      Set ThisDoc = Workspace.CurrentDocument
  2961.      
  2962.      If ( Isnumeric(ThisDoc.Document.TotOrdersCreated) = True ) Then
  2963.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Vendor Data"
  2964.           ThisDoc.GoToField( "TotOrdersCreated" )
  2965.      End If
  2966.      
  2967.      Dim vTemp As Variant
  2968.      vTemp = ThisDoc.Document.CertifyCheckOn
  2969.      If vTemp( 0 ) = "1" Then
  2970.           
  2971.           vTemp = ThisDoc.Document.TotOrdersCreated
  2972.           If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  2973.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  2974.                ThisDoc.Document.TotOrdersCreated = Cdbl( vFieldEntryValue( 0 ) )
  2975.           End If
  2976.      End If
  2977. End Sub
  2978. '++LotusScript Development Environment:2:2:Entering:1:12
  2979. Sub Entering(Source As Field)
  2980.      Dim Workspace As New NotesUIWorkspace
  2981.      Dim ThisDoc As NotesUIDocument
  2982.      
  2983.      Set ThisDoc = Workspace.CurrentDocument
  2984.      sFieldName = ThisDoc.CurrentField
  2985.      vFieldEntryValue = ThisDoc.Document.TotOrdersCreated
  2986. End Sub
  2987. '++LotusScript Development Environment:2:5:(Options):0:66
  2988. '++LotusScript Development Environment:2:5:(Forward):0:1
  2989. Declare Sub Entering(Source As Field)
  2990. Declare Sub Exiting(Source As Field)
  2991. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2992. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2993. Private Sub BindEvents(Byval Objectname_ As String)
  2994.      Static Source As FIELD
  2995.      Set Source = Bind(Objectname_)
  2996.      On Event Entering From Source Call Entering
  2997.      On Event Exiting From Source Call Exiting
  2998. End Sub
  2999. '++LotusScript Development Environment:2:2:Entering:1:12
  3000. Sub Entering(Source As Field)
  3001.      Dim Workspace As New NotesUIWorkspace
  3002.      Dim ThisDoc As NotesUIDocument
  3003.      
  3004.      Set ThisDoc = Workspace.CurrentDocument
  3005.      sFieldName = ThisDoc.CurrentField
  3006.      vFieldEntryValue = ThisDoc.Document.TotDollarValue
  3007. End Sub
  3008. '++LotusScript Development Environment:2:2:Exiting:1:12
  3009. Sub Exiting(Source As Field)
  3010.      Dim Workspace As New NotesUIWorkspace
  3011.      Dim ThisDoc As NotesUIDocument
  3012.      
  3013.      Set ThisDoc = Workspace.CurrentDocument
  3014.      Dim vTemp As Variant
  3015.      vTemp = ThisDoc.Document.CertifyCheckOn
  3016.      If vTemp( 0 ) = "1" Then
  3017.           vTemp = ThisDoc.Document.TotDollarValue
  3018.           If ( Ccur(vFieldEntryValue( 0 ) ) <> Ccur( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3019.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3020.                ThisDoc.Document.TotDollarValue = Ccur( vFieldEntryValue( 0 ) )
  3021.           End If   
  3022.      End If
  3023. End Sub
  3024. '++LotusScript Development Environment:2:5:(Options):0:66
  3025. '++LotusScript Development Environment:2:5:(Forward):0:1
  3026. Declare Sub Entering(Source As Field)
  3027. Declare Sub Exiting(Source As Field)
  3028. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3029. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3030. Private Sub BindEvents(Byval Objectname_ As String)
  3031.      Static Source As FIELD
  3032.      Set Source = Bind(Objectname_)
  3033.      On Event Entering From Source Call Entering
  3034.      On Event Exiting From Source Call Exiting
  3035. End Sub
  3036. '++LotusScript Development Environment:2:2:Entering:1:12
  3037. Sub Entering(Source As Field)
  3038.      Dim Workspace As New NotesUIWorkspace
  3039.      Dim ThisDoc As NotesUIDocument
  3040.      
  3041.      Set ThisDoc = Workspace.CurrentDocument
  3042.      sFieldName = ThisDoc.CurrentField
  3043.      vFieldEntryValue = ThisDoc.Document.TotOrdersLots
  3044. End Sub
  3045. '++LotusScript Development Environment:2:2:Exiting:1:12
  3046. Sub Exiting(Source As Field)
  3047.      Dim Workspace As New NotesUIWorkspace
  3048.      Dim ThisDoc As NotesUIDocument
  3049.      
  3050.      Set ThisDoc = Workspace.CurrentDocument
  3051.      Dim vTemp As Variant
  3052.      vTemp = ThisDoc.Document.CertifyCheckOn
  3053.      If vTemp( 0 ) = "1" Then
  3054.           vTemp = ThisDoc.Document.TotOrdersLots
  3055.           If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3056.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3057.                ThisDoc.Document.TotOrdersLots = Cdbl( vFieldEntryValue( 0 ) )
  3058.           End If
  3059.      End If
  3060. End Sub
  3061. '++LotusScript Development Environment:2:5:(Options):0:66
  3062. '++LotusScript Development Environment:2:5:(Forward):0:1
  3063. Declare Sub Entering(Source As Field)
  3064. Declare Sub Exiting(Source As Field)
  3065. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3066. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3067. Private Sub BindEvents(Byval Objectname_ As String)
  3068.      Static Source As FIELD
  3069.      Set Source = Bind(Objectname_)
  3070.      On Event Entering From Source Call Entering
  3071.      On Event Exiting From Source Call Exiting
  3072. End Sub
  3073. '++LotusScript Development Environment:2:2:Entering:1:12
  3074. Sub Entering(Source As Field)
  3075.      Dim Workspace As New NotesUIWorkspace
  3076.      Dim ThisDoc As NotesUIDocument
  3077.      
  3078.      Set ThisDoc = Workspace.CurrentDocument
  3079.      sFieldName = ThisDoc.CurrentField
  3080.      vFieldEntryValue = ThisDoc.Document.TotHits
  3081. End Sub
  3082. '++LotusScript Development Environment:2:2:Exiting:1:12
  3083. Sub Exiting(Source As Field)
  3084.      Dim Workspace As New NotesUIWorkspace
  3085.      Dim ThisDoc As NotesUIDocument
  3086.      
  3087.      Set ThisDoc = Workspace.CurrentDocument
  3088.      Dim vTemp As Variant
  3089.      vTemp = ThisDoc.Document.CertifyCheckOn
  3090.      If vTemp( 0 ) = "1" Then
  3091.           vTemp = ThisDoc.Document.TotHits
  3092.           If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3093.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3094.                ThisDoc.Document.TotHits = Cdbl( vFieldEntryValue( 0 ) )
  3095.           End If
  3096.      End If
  3097. End Sub
  3098. '++LotusScript Development Environment:2:5:(Options):0:66
  3099. '++LotusScript Development Environment:2:5:(Forward):0:1
  3100. Declare Sub Entering(Source As Field)
  3101. Declare Sub Exiting(Source As Field)
  3102. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3103. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3104. Private Sub BindEvents(Byval Objectname_ As String)
  3105.      Static Source As FIELD
  3106.      Set Source = Bind(Objectname_)
  3107.      On Event Entering From Source Call Entering
  3108.      On Event Exiting From Source Call Exiting
  3109. End Sub
  3110. '++LotusScript Development Environment:2:2:Entering:1:12
  3111. Sub Entering(Source As Field)
  3112.      Dim Workspace As New NotesUIWorkspace
  3113.      Dim ThisDoc As NotesUIDocument
  3114.      
  3115.      Set ThisDoc = Workspace.CurrentDocument
  3116.      sFieldName = ThisDoc.CurrentField
  3117.      vFieldEntryValue = ThisDoc.Document.AvgBytesHit
  3118. End Sub
  3119. '++LotusScript Development Environment:2:2:Exiting:1:12
  3120. Sub Exiting(Source As Field)
  3121.      Dim Workspace As New NotesUIWorkspace
  3122.      Dim ThisDoc As NotesUIDocument
  3123.      
  3124.      Set ThisDoc = Workspace.CurrentDocument
  3125.      Dim vTemp As Variant
  3126.      vTemp = ThisDoc.Document.CertifyCheckOn
  3127.      If vTemp( 0 ) = "1" Then
  3128.           vTemp = ThisDoc.Document.AvgBytesHit
  3129.           If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3130.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3131.                ThisDoc.Document.AvgBytesHit = Cdbl( vFieldEntryValue( 0 ) )
  3132.           End If
  3133.      End If
  3134. End Sub
  3135. '++LotusScript Development Environment:2:5:(Options):0:66
  3136. '++LotusScript Development Environment:2:5:(Forward):0:1
  3137. Declare Sub Entering(Source As Field)
  3138. Declare Sub Exiting(Source As Field)
  3139. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3140. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3141. Private Sub BindEvents(Byval Objectname_ As String)
  3142.      Static Source As FIELD
  3143.      Set Source = Bind(Objectname_)
  3144.      On Event Entering From Source Call Entering
  3145.      On Event Exiting From Source Call Exiting
  3146. End Sub
  3147. '++LotusScript Development Environment:2:2:Entering:1:12
  3148. Sub Entering(Source As Field)
  3149.      Dim Workspace As New NotesUIWorkspace
  3150.      Dim ThisDoc As NotesUIDocument
  3151.      
  3152.      Set ThisDoc = Workspace.CurrentDocument
  3153.      sFieldName = ThisDoc.CurrentField
  3154.      vFieldEntryValue = ThisDoc.Document.TotBytesXferred
  3155. End Sub
  3156. '++LotusScript Development Environment:2:2:Exiting:1:12
  3157. Sub Exiting(Source As Field)
  3158.      Dim Workspace As New NotesUIWorkspace
  3159.      Dim ThisDoc As NotesUIDocument
  3160.      
  3161.      Set ThisDoc = Workspace.CurrentDocument
  3162.      Dim vTemp As Variant
  3163.      vTemp = ThisDoc.Document.CertifyCheckOn
  3164.      If vTemp( 0 ) = "1" Then
  3165.           vTemp = ThisDoc.Document.TotBytesXferred
  3166.           If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3167.                Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3168.                ThisDoc.Document.TotBytesXferred = Cdbl( vFieldEntryValue( 0 ) )
  3169.           End If
  3170.      End If
  3171. End Sub
  3172. '++LotusScript Development Environment:2:5:(Options):0:66
  3173. '++LotusScript Development Environment:2:5:(Forward):0:1
  3174. Declare Sub Entering(Source As Field)
  3175. Declare Sub Exiting(Source As Field)
  3176. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3177. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3178. Private Sub BindEvents(Byval Objectname_ As String)
  3179.      Static Source As FIELD
  3180.      Set Source = Bind(Objectname_)
  3181.      On Event Entering From Source Call Entering
  3182.      On Event Exiting From Source Call Exiting
  3183. End Sub
  3184. '++LotusScript Development Environment:2:2:Entering:1:12
  3185. Sub Entering(Source As Field)
  3186.      Dim Workspace As New NotesUIWorkspace
  3187.      Dim ThisDoc As NotesUIDocument
  3188.      
  3189.      Set ThisDoc = Workspace.CurrentDocument
  3190.      sFieldName = ThisDoc.CurrentField
  3191.      vFieldEntryValue = ThisDoc.Document.DataUAverage
  3192.      'vFieldEntryValue = ThisDoc.Document.DataUFast
  3193. End Sub
  3194. '++LotusScript Development Environment:2:2:Exiting:1:12
  3195. Sub Exiting(Source As Field)
  3196.      Dim Workspace As New NotesUIWorkspace
  3197.      Dim ThisDoc As NotesUIDocument
  3198.      
  3199.      Set ThisDoc = Workspace.CurrentDocument
  3200.      Dim vTemp As Variant
  3201.      vTemp = ThisDoc.Document.DataUAverage
  3202.      
  3203.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3204.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3205.           ThisDoc.Document.DataUAverage = Cdbl( vFieldEntryValue( 0 ) )
  3206.      End If
  3207. End Sub
  3208. '++LotusScript Development Environment:2:5:(Options):0:66
  3209. '++LotusScript Development Environment:2:5:(Forward):0:1
  3210. Declare Sub Entering(Source As Field)
  3211. Declare Sub Exiting(Source As Field)
  3212. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3213. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3214. Private Sub BindEvents(Byval Objectname_ As String)
  3215.      Static Source As FIELD
  3216.      Set Source = Bind(Objectname_)
  3217.      On Event Entering From Source Call Entering
  3218.      On Event Exiting From Source Call Exiting
  3219. End Sub
  3220. '++LotusScript Development Environment:2:2:Entering:1:12
  3221. Sub Entering(Source As Field)
  3222.      Dim Workspace As New NotesUIWorkspace
  3223.      Dim ThisDoc As NotesUIDocument
  3224.      
  3225.      Set ThisDoc = Workspace.CurrentDocument
  3226.      sFieldName = ThisDoc.CurrentField
  3227.      vFieldEntryValue = ThisDoc.Document.DataUMinimum
  3228. End Sub
  3229. '++LotusScript Development Environment:2:2:Exiting:1:12
  3230. Sub Exiting(Source As Field)
  3231.      Dim Workspace As New NotesUIWorkspace
  3232.      Dim ThisDoc As NotesUIDocument
  3233.      
  3234.      Set ThisDoc = Workspace.CurrentDocument
  3235.      Dim vTemp As Variant
  3236.      vTemp = ThisDoc.Document.DataUMinimum
  3237.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3238.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3239.           ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) )
  3240.      End If
  3241. End Sub
  3242. '++LotusScript Development Environment:2:5:(Options):0:66
  3243. '++LotusScript Development Environment:2:5:(Forward):0:1
  3244. Declare Sub Entering(Source As Field)
  3245. Declare Sub Exiting(Source As Field)
  3246. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3247. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3248. Private Sub BindEvents(Byval Objectname_ As String)
  3249.      Static Source As FIELD
  3250.      Set Source = Bind(Objectname_)
  3251.      On Event Entering From Source Call Entering
  3252.      On Event Exiting From Source Call Exiting
  3253. End Sub
  3254. '++LotusScript Development Environment:2:2:Entering:1:12
  3255. Sub Entering(Source As Field)
  3256.      Dim Workspace As New NotesUIWorkspace
  3257.      Dim ThisDoc As NotesUIDocument
  3258.      
  3259.      Set ThisDoc = Workspace.CurrentDocument
  3260.      sFieldName = ThisDoc.CurrentField
  3261.      vFieldEntryValue = ThisDoc.Document.DataUMaximum
  3262. End Sub
  3263. '++LotusScript Development Environment:2:2:Exiting:1:12
  3264. Sub Exiting(Source As Field)
  3265.      Dim Workspace As New NotesUIWorkspace
  3266.      Dim ThisDoc As NotesUIDocument
  3267.      
  3268.      Set ThisDoc = Workspace.CurrentDocument
  3269.      Dim vTemp As Variant
  3270.      vTemp = ThisDoc.Document.DataUMaximum
  3271.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3272.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3273.           ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) )
  3274.      End If
  3275. End Sub
  3276. '++LotusScript Development Environment:2:5:(Options):0:66
  3277. '++LotusScript Development Environment:2:5:(Forward):0:1
  3278. Declare Sub Entering(Source As Field)
  3279. Declare Sub Exiting(Source As Field)
  3280. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3281. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3282. Private Sub BindEvents(Byval Objectname_ As String)
  3283.      Static Source As FIELD
  3284.      Set Source = Bind(Objectname_)
  3285.      On Event Entering From Source Call Entering
  3286.      On Event Exiting From Source Call Exiting
  3287. End Sub
  3288. '++LotusScript Development Environment:2:2:Entering:1:12
  3289. Sub Entering(Source As Field)
  3290.      Dim Workspace As New NotesUIWorkspace
  3291.      Dim ThisDoc As NotesUIDocument
  3292.      
  3293.      Set ThisDoc = Workspace.CurrentDocument
  3294.      sFieldName = ThisDoc.CurrentField
  3295.      vFieldEntryValue = ThisDoc.Document.DataUFast
  3296. End Sub
  3297. '++LotusScript Development Environment:2:2:Exiting:1:12
  3298. Sub Exiting(Source As Field)
  3299.      Dim Workspace As New NotesUIWorkspace
  3300.      Dim ThisDoc As NotesUIDocument
  3301.      
  3302.      Set ThisDoc = Workspace.CurrentDocument
  3303.      Dim vTemp As Variant
  3304.      vTemp = ThisDoc.Document.DataUFast
  3305.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3306.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3307.           ThisDoc.Document.DataUFast = Cdbl( vFieldEntryValue( 0 ) )
  3308.      End If
  3309. End Sub
  3310. '++LotusScript Development Environment:2:5:(Options):0:66
  3311. '++LotusScript Development Environment:2:5:(Forward):0:1
  3312. Declare Sub Entering(Source As Field)
  3313. Declare Sub Exiting(Source As Field)
  3314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3316. Private Sub BindEvents(Byval Objectname_ As String)
  3317.      Static Source As FIELD
  3318.      Set Source = Bind(Objectname_)
  3319.      On Event Entering From Source Call Entering
  3320.      On Event Exiting From Source Call Exiting
  3321. End Sub
  3322. '++LotusScript Development Environment:2:2:Entering:1:12
  3323. Sub Entering(Source As Field)
  3324.      Dim Workspace As New NotesUIWorkspace
  3325.      Dim ThisDoc As NotesUIDocument
  3326.      
  3327.      Set ThisDoc = Workspace.CurrentDocument
  3328.      sFieldName = ThisDoc.CurrentField
  3329.      vFieldEntryValue = ThisDoc.Document.DataUMedium
  3330. End Sub
  3331. '++LotusScript Development Environment:2:2:Exiting:1:12
  3332. Sub Exiting(Source As Field)
  3333.      Dim Workspace As New NotesUIWorkspace
  3334.      Dim ThisDoc As NotesUIDocument
  3335.      
  3336.      Set ThisDoc = Workspace.CurrentDocument
  3337.      Dim vTemp As Variant
  3338.      vTemp = ThisDoc.Document.DataUMedium
  3339.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3340.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3341.           ThisDoc.Document.DataUMedium = Cdbl( vFieldEntryValue( 0 ) )
  3342.      End If
  3343. End Sub
  3344. '++LotusScript Development Environment:2:5:(Options):0:66
  3345. '++LotusScript Development Environment:2:5:(Forward):0:1
  3346. Declare Sub Entering(Source As Field)
  3347. Declare Sub Exiting(Source As Field)
  3348. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3349. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3350. Private Sub BindEvents(Byval Objectname_ As String)
  3351.      Static Source As FIELD
  3352.      Set Source = Bind(Objectname_)
  3353.      On Event Entering From Source Call Entering
  3354.      On Event Exiting From Source Call Exiting
  3355. End Sub
  3356. '++LotusScript Development Environment:2:2:Entering:1:12
  3357. Sub Entering(Source As Field)
  3358.      Dim Workspace As New NotesUIWorkspace
  3359.      Dim ThisDoc As NotesUIDocument
  3360.      
  3361.      Set ThisDoc = Workspace.CurrentDocument
  3362.      sFieldName = ThisDoc.CurrentField
  3363.      vFieldEntryValue = ThisDoc.Document.DataUSlow
  3364. End Sub
  3365. '++LotusScript Development Environment:2:2:Exiting:1:12
  3366. Sub Exiting(Source As Field)
  3367.      Dim Workspace As New NotesUIWorkspace
  3368.      Dim ThisDoc As NotesUIDocument
  3369.      
  3370.      Set ThisDoc = Workspace.CurrentDocument
  3371.      Dim vTemp As Variant
  3372.      vTemp = ThisDoc.Document.DataUSlow
  3373.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3374.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3375.           ThisDoc.Document.DataUSlow = Cdbl( vFieldEntryValue( 0 ) )
  3376.      End If
  3377. End Sub
  3378. '++LotusScript Development Environment:2:5:(Options):0:66
  3379. '++LotusScript Development Environment:2:5:(Forward):0:1
  3380. Declare Sub Entering(Source As Field)
  3381. Declare Sub Exiting(Source As Field)
  3382. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3383. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3384. Private Sub BindEvents(Byval Objectname_ As String)
  3385.      Static Source As FIELD
  3386.      Set Source = Bind(Objectname_)
  3387.      On Event Entering From Source Call Entering
  3388.      On Event Exiting From Source Call Exiting
  3389. End Sub
  3390. '++LotusScript Development Environment:2:2:Entering:1:12
  3391. Sub Entering(Source As Field)
  3392.      Dim Workspace As New NotesUIWorkspace
  3393.      Dim ThisDoc As NotesUIDocument
  3394.      
  3395.      Set ThisDoc = Workspace.CurrentDocument
  3396.      sFieldName = ThisDoc.CurrentField
  3397.      vFieldEntryValue = ThisDoc.Document.DataUMore
  3398. End Sub
  3399. '++LotusScript Development Environment:2:2:Exiting:1:12
  3400. Sub Exiting(Source As Field)
  3401.      Dim Workspace As New NotesUIWorkspace
  3402.      Dim ThisDoc As NotesUIDocument
  3403.      
  3404.      Set ThisDoc = Workspace.CurrentDocument
  3405.      Dim vTemp As Variant
  3406.      vTemp = ThisDoc.Document.DataUMore
  3407.      If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) )   And vEditFieldFlag( 0 ) = 0 ) Then
  3408.           Messagebox "This field cannot be modified",  MB_ICONEXCLAMATION, "Vendor Data"
  3409.           ThisDoc.Document.DataUMore = Cdbl( vFieldEntryValue( 0 ) )
  3410.      End If
  3411. End Sub
  3412. DocLinkFlag
  3413. SaveOptions
  3414. EditFieldFlag
  3415. FormNewLocation
  3416. CertifyCheckOn
  3417. DataUAverage_1
  3418. DataUMinimum_1
  3419. DataUMaximum_1
  3420. DataUOther21_1
  3421. DataUOther11_1
  3422. AvgBytesHit_1
  3423. DataCalibration_1
  3424. DataGenerated
  3425. DataGenerated
  3426. DataGenerated_1
  3427. MailFlag
  3428. IsSignedField
  3429. AvgHitsMin_1
  3430. DataMachineID_1Click on this icon to see the related Machine Identifier form.
  3431. DataUResponseTime1_1
  3432. FirstTime
  3433. estimated
  3434. OutputServerTarget Output Server
  3435. OutputFilenameTarget Output Filename for results of query
  3436. OutputSaveResults
  3437. Create Mail ItemOutput to Database
  3438. EstimatedRecords
  3439. YesNo
  3440. Include Estimation Records in Graph?
  3441. Vendor Data
  3442. Certified Test Results
  3443.     Signed: 
  3444. FormSignedContains "Yes" when certified by NotesBench auditor.
  3445. MailFlag
  3446.     Machine Identifier Link:
  3447. DataMachineIDClick on this icon to see the related Machine Identifier form.
  3448.     Server Machine ID:
  3449. DataUServerIDUnique Machine ID for the system configuration that produced this data.
  3450.     Date Performed: 
  3451. DataUDatePerformedDate benchmark was performed.
  3452. Vendor Database:  
  3453. Vendor
  3454. Test Duration: 
  3455. DurationTestRun time used for this workload
  3456. minutes
  3457.         NotesBench Results:
  3458.     Script
  3459.     NotesBench
  3460.     Number Users/Spokes
  3461.     NotesBench
  3462.     NotesMark
  3463.     NotesBench
  3464.     ResponseTime
  3465. DataUScript1Workload exercised on given machine configuration.    
  3466. Calendar & SchedulingDatabaseGroupware #1MailMail Routing HubMail & DatabaseReplication HubWeb BuyerWeb Walker
  3467. DataUNumberUsers1Number of spokes if script is Replication Hub or Mail Routing Hub.  Number of Users for all other workloads.
  3468. DataUNotesMark1Results of NotesBench workload.
  3469. DataUResponseTime1_1
  3470.     0S0E
  3471. DataUResponseTime1Results of NotesBench workload.
  3472. DataUScript1
  3473. Replication Hub
  3474. DataUScript1
  3475. Mail Routing Hubu
  3476.     4S6S7S11S
  3477. Additional Information for Server Tasks
  3478. Actions/Minute:
  3479. Bytes/Minute:
  3480. DataUOther11_1
  3481.     0S0E
  3482. DataUOther11If script is Replication Hub, amount of Replications performed per hour.  If script is Mail Routing Hub, amount of mail routed per hour.
  3483. DataUOther21_1
  3484.     0S0E
  3485. DataUOther21If script is Mail Routing Hub, amount of data, expressed in megabytes, moved per hour.
  3486. DataUScript1
  3487. Web Buyer
  3488. Additional Information form Web Buyer
  3489. Total Orders Created:  
  3490. TotOrdersCreatedFor the Web Buyer script, the total number of orders created for the duration of the test's execution.
  3491. Total Dollar Value:
  3492. TotDollarValueFor the Web Buyer script, the total dollar value generated for the duration of the script's execution.
  3493. TotOrdersLotsFor the Web Buyer script, the total orders lots generated for the duration of the script's execution.
  3494. Total Orders Lost: 
  3495. DataUScript1
  3496. Web Walkeru
  3497. Additional Information for Web Walker
  3498. Total Hits:
  3499. TotHitsFor the Web Walker, the total hits experienced for the duration of the script's execution.
  3500. Average KBytes/Hit:
  3501. AvgBytesHit_1
  3502.     0S0E
  3503. AvgBytesHitFor the Web Walker, the average number of bytes per hit, for the duration of the script's execution.
  3504. TotBytesXferredFor the Web Walker, the total number of bytes transferred, for the duration of the script's execution.
  3505. Total Bytes Transferred:
  3506. AvgHitsMin_1
  3507.     0S0E
  3508. AvgHitsMinFor the Web Walker, the average number of hits per minute, for the duration of the script's execution.
  3509. Average Hits/Minute:  
  3510.     Probe Results:
  3511.     Response Time  (seconds):
  3512.     Average
  3513.     Minimum
  3514.     Maximum
  3515. DataUAverage_1
  3516. DataUAverage_1
  3517. DataUAverage_1
  3518.     1S5S6S11S12S13S14S17S18S24SDataUAverageAverage time required to open & close a database during test run.
  3519. DataUMinimum_1
  3520. DataUMinimum_1
  3521. DataUMinimum_1
  3522.     1S5S6S11S12S13S14S17S18S24SDataUMinimumMinimum time required to open & close a database during test run.
  3523. DataUMaximum_1
  3524. DataUMaximum_1
  3525. DataUMaximum_1
  3526.     1S5S6S11S12S13S14S17S18S24SDataUMaximumMaximum time required to open & close a database during test run.
  3527.     Distribution (seconds):
  3528.     Time 
  3529.     #/Responses
  3530.     %/Total (Discrete)
  3531.     %/Total (Cumulative)
  3532.     Fast  ( < 1):
  3533. DataUFastThe number of Probe responses that were less than 1 second.
  3534. total
  3535. DataUFast
  3536. DataUMedium
  3537. DataUSlow
  3538. DataUMore
  3539.     1S2S
  3540. DataUFast
  3541. DataUFast
  3542. DataUFast
  3543. total
  3544.     0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDFastFrom the total number of Probe responses, the percentage of responses which fall within the range of less than 1 second.
  3545. total
  3546. DataUFast
  3547. DataUMedium
  3548. DataUSlow
  3549. DataUMore
  3550.     1S2S
  3551. DataUFast
  3552. DataUFast
  3553. DataUFast
  3554. total
  3555.     0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentFastThe percentage of Probe responses that fall within the Fast range.
  3556.     Medium  (1 - 3):
  3557. DataUMediumThe number of Probe responses that were within the range of 1 - 3 seconds.
  3558. total
  3559. DataUFast
  3560. DataUMedium
  3561. DataUSlow
  3562. DataUMore
  3563.     1S2S
  3564. DataUMedium
  3565. DataUMedium
  3566. DataUMedium
  3567. total
  3568.     0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDMediumFrom the total number of Probe responses, the percentage of responses which fall within the range of greater than 1 and up to 3 seconds.
  3569. total
  3570. DataUFast
  3571. DataUMedium
  3572. DataUSlow
  3573. DataUMore
  3574.     1S2S
  3575. DataUMedium
  3576. DataUMedium
  3577. DataUFast
  3578. DataUPercentFast
  3579. DataUMedium
  3580. total
  3581. DataUPercentFast
  3582.     0R1S3S4S5S2E6S7S8S10RS5E11S13S14S15S16S2E18S21RS8E26S2E27S30SDataUPercentMediumThe percentage of Probe responses that fall within the Fast and Medium range.
  3583.     Slow  (3.1 - 5):
  3584. DataUSlowThe number of Probe responses between 3 and 5 seconds.
  3585. total
  3586. DataUFast
  3587. DataUMedium
  3588. DataUSlow
  3589. DataUMore
  3590.     1S2S
  3591. DataUSlow
  3592. DataUSlow
  3593. DataUSlow
  3594. total
  3595.     0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDSlowFrom the total number of Probe responses, the percentage of responses which fall within the range of greater than 3 and less than 5 seconds.
  3596. total
  3597. DataUFast
  3598. DataUMedium
  3599. DataUSlow
  3600. DataUMore
  3601.     1S2S
  3602. previous
  3603. DataUFast
  3604. DataUMedium
  3605. total
  3606.     0R1S6S8S9S
  3607. DataUSlow
  3608. DataUSlow
  3609. DataUPercentMedium
  3610. DataUSlow
  3611. total
  3612. previous
  3613.     0R1S3S4S5S6S7S8S10S12S17S2E18S19S21S
  3614. DataUPercentSlowThe percentage of responses that fall with the Fast, Medium and Slow ranges.
  3615.     Outside Range  ( > 5):
  3616. DataUMoreThe number of Probe responses greater than 5 seconds.
  3617. total
  3618. DataUFast
  3619. DataUMedium
  3620. DataUSlow
  3621. DataUMore
  3622.     1S2S
  3623. DataUMore
  3624. DataUMore
  3625. DataUMore
  3626. total
  3627.     0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDMoreFrom the total number of Probe responses, the percentage of responses which fall within the range of greater than 5 seconds.
  3628. total
  3629. DataUFast
  3630. DataUMedium
  3631. DataUSlow
  3632. DataUMore
  3633.     1S2S
  3634. previous
  3635. DataUFast
  3636. DataUMedium
  3637. DataUSlow
  3638. total
  3639.     0R1S2S6S8S10S11S
  3640. DataUMore
  3641. DataUMore
  3642. DataUMore
  3643. total
  3644. previous
  3645.     0R1S3S4S5S6S7S8S10S16S2E17S18S
  3646. DataUPercentMoreThe percentage of responses that fall with the Fast, Medium, Slow and Very Slow ranges.
  3647.                                                                                      
  3648. Server Comparison Graphs
  3649. DataPerformChartArea used to display Performance Graph.
  3650. FormNewLocation
  3651. '++LotusScript Development Environment:2:5:(Options):0:74
  3652. 'Use "vendordata"
  3653. '++LotusScript Development Environment:2:5:(Forward):0:1
  3654. Declare Sub Click( Source As Button )
  3655. Declare Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String
  3656. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3657. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3658. Private Sub BindEvents(Byval Objectname_ As String)
  3659.      Static Source As BUTTON
  3660.      Set Source = Bind(Objectname_)
  3661.      On Event Click From Source Call Click
  3662. End Sub
  3663. '++LotusScript Development Environment:2:2:Click:3:12
  3664. '%INCLUDE "chconsts2.txt"
  3665. %INCLUDE "chconsts.txt"
  3666. Sub Click( Source As Button )
  3667.      
  3668.      Call AMSV( )
  3669.      
  3670. End Sub
  3671. '++LotusScript Development Environment:2:1:FormulateQuery2:1:8
  3672. Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String
  3673.      Dim iMinUsers As Integer
  3674.      Dim iMaxUsers As Integer
  3675.      
  3676.      '  first make sure there is some data to process 
  3677.      '  search on range of number of users
  3678.      iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" )  ) )
  3679.      iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  3680.      '  see if there are more machines( same vendor ).... 
  3681.      FormulateQuery = " Form = ""Vendor Data""  & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  3682.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  3683.      
  3684. End Function
  3685.  8"P.
  3686. x!x%</
  3687. "X"$0
  3688. 8"8'L0
  3689. "8#41
  3690. "x#x1
  3691. X$8%x3
  3692. 8&8)86
  3693. X&8(d6
  3694. &x' 7
  3695. 'X(h8
  3696. (x(D9
  3697. 8(x*x9
  3698. (x+8:
  3699. X)8*p;
  3700. x*8+H=
  3701. 8+x,@>
  3702. ,x-\?
  3703. ,8.p@
  3704. -X.|A
  3705. ffffff
  3706. New Button
  3707. Need a newer version of Notes to execute this button.
  3708.     0S0E
  3709.     Additional Machines (Same Vendor)o
  3710. 5'++LotusScript Development Environment:2:5:(Options):0:66
  3711. '++LotusScript Development Environment:2:5:(Forward):0:1
  3712. Declare Function FormulateQuery( ) As String
  3713. Declare Sub Click( Source As Button )
  3714. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3715. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3716. Private Sub BindEvents(Byval Objectname_ As String)
  3717.      Static Source As BUTTON
  3718.      Set Source = Bind(Objectname_)
  3719.      On Event Click From Source Call Click
  3720. End Sub
  3721. '++LotusScript Development Environment:2:1:FormulateQuery:1:8
  3722. Function FormulateQuery( ) As String
  3723.      Dim Workspace As New NotesUIWorkspace
  3724.      Dim ThisDoc As NotesUIDocument
  3725.      Dim iMinUsers As Integer
  3726.      Dim iMaxUsers As Integer
  3727.      
  3728.      Set ThisDoc = Workspace.CurrentDocument
  3729.      
  3730.      '  first make sure there is some data to process 
  3731.      '  search on range of number of users
  3732.      iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" )  ) )
  3733.      iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  3734.      '  see if there are more machines( same vendor ).... 
  3735.      'FormulateQuery = " Form = ""Vendor Data""  & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  3736.     '" &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  3737.      ' in case there are machines for the different vendors with the same id
  3738.      FormulateQuery = " Form = ""Vendor Data""  "&  _
  3739.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  3740.      
  3741. End Function
  3742. '++LotusScript Development Environment:2:2:Click:4:12
  3743. %INCLUDE "chconsts.txt"
  3744. '%INCLUDE "chconsts2.txt"
  3745. Sub Click( Source As Button )
  3746.      
  3747.     '  Graph Performance
  3748.      Dim Workspace As New NotesUIWorkspace
  3749.      Dim ThisDoc As NotesUIDocument
  3750.      Dim Session As New NotesSession
  3751.      Dim ThisDB As NotesDatabase
  3752.      Dim DateTime As New NotesDateTime( "1/1/96" )
  3753.      Dim SearchEntryCollection As NotesDocumentCollection
  3754.      Dim SearchMachineCollection As NotesDocumentCollection
  3755.      Dim SearchEntryDoc As NotesDocument
  3756.      Dim SearchMachineDoc As NotesDocument
  3757.      Dim CurrentView As NotesView
  3758.      Dim doc As NotesDocument
  3759.      Dim Listdoc As NotesDocument
  3760.      Dim sSavedMachines( numoutputlines, 2 ) As String
  3761.      Dim bAlreadyFound As Integer
  3762.      Dim sVendorName As String
  3763.      
  3764.      Set ThisDoc = Workspace.CurrentDocument
  3765.      Set ThisDB = Session.CurrentDatabase
  3766.      ThisDoc.EditMode = True
  3767.      
  3768.      sVendorName = ExtractVendorName( ThisDB.Filename )       '  extract current vendor name
  3769.      
  3770.      If ValidateAMPerformance( ThisDoc ) = False Then
  3771.           Exit Sub
  3772.      End If
  3773.      
  3774.      PerformChart.Repaint = False
  3775.      On Error Goto 0
  3776.      
  3777.   '  zero out extra columns
  3778.      For i = 3 To iColCountPerform
  3779.           PerformSheet.col = i
  3780.           For j = 2 To iRowCountPerform
  3781.                PerformSheet.row = j
  3782.                PerformSheet.text=NA
  3783.           Next j
  3784.      Next i
  3785.      iColCountPerform = 2
  3786.      
  3787.      '  search on the different vendors
  3788.      Set CurrentView = ThisDB.GetView( "(List)" )
  3789.      Set doc = CurrentView.GetFirstDocument
  3790.      
  3791.      '  Find the list document which contains the dynamic list
  3792.      If doc Is Nothing Then
  3793.           Messagebox "List of Machines Information Missing", MB_ICONSTOP, "Graph Performance Information"
  3794.           Exit Sub
  3795.      Else
  3796.           While Not( doc Is Nothing )
  3797.                If doc.ListType( 0 ) = "Database" Then
  3798.                     Set Listdoc = doc
  3799.                     If Listdoc.list( 0 ) = "" Then
  3800.                          Messagebox "No Vendor Databases to Search", MB_ICONEXCLAMATION, "Graph Performance Information"
  3801.                     End If
  3802.                     Forall vendorname In Listdoc.list 
  3803.                          'Messagebox vendorname & " " & sVendorName
  3804.                          '  make sure you're not going after same vendor twice
  3805.                          If vendorname <> "" And Ucase( vendorname ) <> Ucase( sVendorName ) Then
  3806.                               sSearchDatabase = "CP" & vendorname & ".NSF"
  3807.                               Set SearchDB = New NotesDatabase( "", sSearchDatabase )
  3808.                               Set SearchMachineCollection = SearchDB.Search( FormulateQuery( ), DateTime, 0 )
  3809.                               
  3810.                               If SearchMachineCollection.Count = 0 Then
  3811.                               'Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Performance Information"
  3812.                               Else
  3813.                                    sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" )
  3814.                                    sSavedMachines( 1, 2 ) = sVendorName
  3815.                                    For j = 1 To SearchMachineCollection.Count 
  3816.                                         Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j )
  3817.                                     '  first make sure this is a unique entry
  3818.                                         bAlreadyFound = False
  3819.                                         For k = 1 To( iColCountPerform - 1 )
  3820.                                              temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  3821.                                              If temp( 0 ) = sSavedMachines( k, 1 )  & sVendorName = sSavedMachines( k, 2 ) Then
  3822.                                                   bAlreadyFound = True
  3823.                                              End If
  3824.                                         Next k
  3825.                                         
  3826.                                     '  make sure the data has a signature attached
  3827.                                         If bAlreadyFound = False Then
  3828.                                              vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  3829.                                              Dim vIsSignedField As Variant
  3830.                                              Dim vEstimated As Variant
  3831.                                              vIsSignedField = ThisDoc.Document.IsSignedField
  3832.                                              vEstimated = ThisDoc.Document.Estimated
  3833.                                              If vCertifyCheck( 0 ) = "1"  Then 
  3834.                                                   If ( vIsSignedField( 0 ) = "0" And vEstimated( 0 )  <> "Yes" )  Or ( vIsSignedField( 0 ) = "1" And vEstimated( 0 ) ="Yes" ) Then
  3835.                                                        bAlreadyFound = True
  3836.                                                   Elseif ( vEstimated( 0 ) = "Yes" And sPerformanceEstimatedRecords = "No" ) Then
  3837.                                                        bAlreadyFound = True
  3838.                                                   End If
  3839.                                              End If
  3840.                                         End If
  3841.                                         
  3842.                                     ' also , only process entries for entries not in vendor's db, except for current entry
  3843.                                         temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  3844.                                         If Ucase$( sSearchDatabase ) = Ucase$( ThisDB.FileName ) And temp( 0 ) <> ThisDoc.FieldGetText( "DataUserverID" ) Then
  3845.                                              bAlreadyFound = True  ' skip over this entry
  3846.                                         End If
  3847.                                         
  3848.                                         If bAlreadyFound = False Then     '  new entry
  3849.                                              iColCountPerform = iColCountPerform + 1
  3850.                                              PerformSheet.row = 1
  3851.                                              PerformSheet.col = iColCountPerform
  3852.                                          '  save off the machines already processed
  3853.                                              temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  3854.                                              sSavedMachines( iColCountPerform - 1, 1 ) = temp( 0 )    'subtract off original columns
  3855.                                              sSavedMachines( iColCountPerform - 1, 2 ) = sVendorName
  3856.                                              PerformSheet.text = temp( 0 )
  3857.                                              PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  3858.                                              
  3859.                                         ' load up the spreadsheet with data
  3860.                                        ' do a lookup based on this machine id and this script id
  3861.                                              temp = SearchMachineDoc.GetItemValue( "DataUServerID" )
  3862.                                              SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID = " & {"} & temp( 0 )  & {"} & _
  3863.                                              " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  
  3864.                                              Set SearchEntryCollection = SearchDB.Search( SearchFormula$, DateTime, 0 )
  3865.                                              If SearchEntryCollection.Count > 0 Then
  3866.                                                   For i = 1 To SearchEntryCollection.Count
  3867.                                                        Set SearchEntryDoc = SearchEntryCollection.GetNthDocument( i )
  3868.                                                    '  need to see if an entry exists in the current spreadsheet
  3869.                                                        bAlreadyFound = False
  3870.                                                        PerformSheet.col = 1   
  3871.                                                        temp =  SearchEntryDoc.GetItemValue( "DataUNumberUsers1" ) 
  3872.                                                        
  3873.                                                        For k = 2 To iRowCountPerform 
  3874.                                                             PerformSheet.row = k
  3875.                                                             If PerformSheet.number = Cint( temp( 0 ) ) Then
  3876.                                                                  bAlreadyFound = True
  3877.                                                                  PerformSheet.col = iColCountPerform
  3878.                                                                  temp1= SearchEntryDoc.GetItemValue( "DataUAverage" ) 
  3879.                                                                  PerformSheet.number= Csng( temp1( 0 ) ) 
  3880.                                                             End If
  3881.                                                        Next k
  3882.                                                        
  3883.                                                        If bAlreadyFound = False  Then '  insert in table( entry and data )
  3884.                                                             iRowCountPerform = iRowCountPerform + 1
  3885.                                                             PerformSheet.row = iRowCountPerform
  3886.                                                        '  insert new data
  3887.                                                             PerformSheet.col = 1
  3888.                                                             PerformSheet.number =  Cint( temp( 0 ) ) 
  3889.                                                             PerformSheet.col = iColCountPerform
  3890.                                                             temp1= SearchEntryDoc.GetItemValue( "DataUAverage" ) 
  3891.                                                             PerformSheet.number= Csng( temp1( 0 ) )  
  3892.                                                        End If
  3893.                                                   Next i 
  3894.                                              End If     
  3895.                                         End If
  3896.                                    Next j
  3897.                               End If
  3898.                          End If
  3899.                     End Forall
  3900.                End If
  3901.                Set doc = CurrentView.GetNextDocument( doc )
  3902.           Wend
  3903.      End If
  3904.      
  3905.      '   set columns to automatically resize
  3906.      PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True
  3907.      
  3908.      PerformSheet.col = 1
  3909.      PerformSheet.row = 1
  3910.      PerformSheet.showselections = 0
  3911.      
  3912.      PerformSheet.Sort 2, 1, iRowCountPerform, iColCountPerform + 1, True, 1     
  3913.      
  3914.     '  insert zeros where there are gaps, up to the final entry
  3915.      For i = 2 To iColCountPerform
  3916.           bAlreadyFound = False
  3917.           PerformSheet.col = i
  3918.           For j = iRowCountPerform To 2 Step -1   '  count backwards
  3919.                PerformSheet.row = j
  3920.                If PerformSheet.number > 0  Then
  3921.                     bAlreadyFound = True
  3922.                Elseif bAlreadyFound = True Then     '  already found the top number
  3923.                     PerformSheet.number = 0
  3924.                End If
  3925.           Next j
  3926.      Next i
  3927.      
  3928.      '  Perform Chart Setup
  3929.      'PerformChart.chartType = 3   '  line
  3930.      PerformChart.chartType = 1   '  bar
  3931.      PerformChart.TitleText =  ThisDoc.FieldGetText( "DataUScript1" ) + ": Performance - Comparative Analysis, Other Vendor(s)"
  3932.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  3933.      '  set up the link between spreadsheet and chart
  3934.      Call PerformChartAssn(( iRowCountPerform - 1 ),( iColCountPerform - 1 ), ThisDoc )
  3935.      
  3936.      If iColCountPerform = 2 Then
  3937.           Messagebox "No new information to display", MB_ICONINFORMATION, "Graph Performance Information"
  3938.      End If
  3939.      
  3940.      Dim ThisDocBE As NotesDocument
  3941.      Set ThisDocBE = ThisDoc.Document
  3942.      Call GraphForSave( ThisDoc, ThisDocBE )
  3943.      
  3944.      
  3945. End Sub
  3946. 50606
  3947. : 3(7
  3948. 4D5x9
  3949. :0309
  3950. ffffff
  3951. p p  .
  3952.  0!P.
  3953. 0!p"D/
  3954. !0%00
  3955. 0#p$(2
  3956. 0%p%<5
  3957. %P&,6
  3958. &0&T6
  3959. (P(L9
  3960. (0)D:
  3961. P)p)h;
  3962. 0,0,$@
  3963. P,P,P@
  3964. ,P-$A
  3965. -p-LA
  3966. -p/HB
  3967. -p.pB
  3968. 0$4$E
  3969. 409<F    
  3970. 445pF    
  3971. :DJA8
  3972. 0-T5#
  3973. ^H74K
  3974. ^874#
  3975. 1,X7}\I#
  3976. 8}0KF
  3977. 8S 8)
  3978. K03-,8#
  3979. K03-,8#
  3980. 4K03,P8J
  3981. 8#P@9
  3982. 8#PL9
  3983. G`9}4M
  3984. 6Tl9}tM
  3985. ^x9}dN
  3986. 8S 8^x9^
  3987. K 3-,8#
  3988. K 3-,8#
  3989. 4K 3,P8J
  3990. 8} N#
  3991. 8} N#
  3992. ^<:4~
  3993. ^,:4L
  3994. 6QX:K
  3995. 6Od:Qp:
  3996. New Button
  3997. Need a newer version of Notes to execute this button.
  3998.     0S0E
  3999.     Additional Machines (Other Vendor(s))
  4000. DataDistributeChartArea used to display Distribution Graph.
  4001. '++LotusScript Development Environment:2:5:(Options):0:66
  4002. '++LotusScript Development Environment:2:5:(Forward):0:1
  4003. Declare Sub Click( Source As Button )
  4004. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4005. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4006. Private Sub BindEvents(Byval Objectname_ As String)
  4007.      Static Source As BUTTON
  4008.      Set Source = Bind(Objectname_)
  4009.      On Event Click From Source Call Click
  4010. End Sub
  4011. '++LotusScript Development Environment:2:2:Click:3:12
  4012. %INCLUDE "chconsts.txt"
  4013. Sub Click( Source As Button )
  4014.          '  Graph Distribution of other machines, same vendor, same script and user count
  4015.      Dim Workspace As New NotesUIWorkspace
  4016.      Dim ThisDoc As NotesUIDocument
  4017.      
  4018.      Dim Session As New NotesSession
  4019.      Dim ThisDB As NotesDatabase
  4020.      Dim DateTime As New NotesDateTime( "1/1/96" )
  4021.      Dim SearchEntryCollection As NotesDocumentCollection
  4022.      Dim SearchMachineCollection As NotesDocumentCollection
  4023.      Dim SearchEntryDoc As NotesDocument
  4024.      Dim SearchMachineDoc As NotesDocument
  4025.      
  4026.      Dim sSavedMachines( numoutputlines, 2 ) As String
  4027.      Dim bAlreadyFound As Integer
  4028.      Dim iEntryCount As Integer
  4029.      Dim iMinUsers As Integer
  4030.      Dim iMaxUsers As Integer
  4031.      Dim sVendorName As String
  4032.      
  4033.      Set ThisDoc = Workspace.CurrentDocument
  4034.      Set ThisDB = Session.CurrentDatabase
  4035.      ThisDoc.EditMode = True
  4036.      
  4037.      sVendorName = ExtractVendorName( ThisDB.Filename )       '  extract current vendor name
  4038.      
  4039.      If ValidateAMDistribution( ThisDoc ) = False Then
  4040.           Exit Sub
  4041.      End If
  4042.      
  4043.      '  first make sure there is some data to graph
  4044.      '  search on range of number of users
  4045.      iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  4046.      iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  4047.      
  4048.     '  see if there are more machines.... 
  4049.      SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  4050.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  4051.      'Messagebox( SearchFormula$ )
  4052.      Set SearchMachineCollection = ThisDB.Search( SearchFormula$, DateTime, 0 )
  4053.      
  4054.      If SearchMachineCollection.Count = 0 Then
  4055.           Messagebox " No new information to display", MB_ICONINFORMATION, "Graph Distribution Information"
  4056.           Exit Sub
  4057.      End If
  4058.      
  4059.          'Add onto Distribute sheet
  4060.      DistributeChart.Repaint = False
  4061.      On Error Goto 0
  4062.      
  4063.      DistributeSheet.displaycols =  SearchMachineCollection.Count + 2 
  4064.      DistributeSheet.displayrows = 5  ' assume a fixed distribution response
  4065.      DistributeSheet.showrowheading = False
  4066.      DistributeSheet.showcolheading = False
  4067.      
  4068.      ' initialize saved machine list
  4069.      iColCountDistribute = 2
  4070.      sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" )
  4071.      sSavedMachines( 1, 2 ) = sVendorName
  4072.      
  4073.      For j = 1 To SearchMachineCollection.Count 
  4074.           Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j )
  4075.               '  first make sure this is a unique entry
  4076.           bAlreadyFound = False
  4077.           For k = 1 To iColCountDistribute
  4078.                temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  4079.                If temp( 0 ) = sSavedMachines( k, 1 ) & sVendorName = sSavedMachines( k, 2 ) Then
  4080.                     bAlreadyFound = True
  4081.                End If
  4082.           Next k
  4083.               '  make sure the data has a signature attached
  4084.           If bAlreadyFound = False Then
  4085.                vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  4086.                Dim vIsSignedField As Variant
  4087.                Dim vEstimated As Variant
  4088.                vIsSignedField = ThisDoc.Document.IsSignedField
  4089.                vEstimated = ThisDoc.Document.Estimated
  4090.                If vCertifyCheck( 0 ) = "1"  Then
  4091.                     If ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) <> "Yes" )  Or ( vIsSignedField( 0 ) = "1" And vEstimated( 0 ) ="Yes" )  Then
  4092.                          bAlreadyFound = True
  4093.                     End If
  4094.                End If
  4095.           End If
  4096.           
  4097.           If bAlreadyFound = False Then     '  new entry
  4098.                iColCountDistribute = iColCountDistribute + 1
  4099.                '  set up headings
  4100.                DistributeSheet.row = 1
  4101.                DistributeSheet.col = iColCountDistribute
  4102.                '  save off the machines already processed
  4103.                temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  4104.                sSavedMachines( iColCountDistribute, 1 ) = temp( 0 )
  4105.                sSavedMachines( iColCountDistribute, 2 ) = sVendorName
  4106.                DistributeSheet.text = temp( 0 )
  4107.                DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  4108.                
  4109.                '********************************************************
  4110.                ' load up the spreadsheet with data
  4111.                DistributeSheet.row = 2
  4112.                temp = SearchMachineDoc.GetItemValue( "DataUFast" )
  4113.                DistributeSheet.number = temp( 0 )
  4114.                DistributeSheet.row = 3
  4115.                temp = SearchMachineDoc.GetItemValue( "DataUMedium" )
  4116.                DistributeSheet.number = temp( 0 )
  4117.                DistributeSheet.row = 4
  4118.                temp = SearchMachineDoc.GetItemValue( "DataUSlow" )
  4119.                DistributeSheet.number = temp( 0 )
  4120.                DistributeSheet.row = 5
  4121.                temp = SearchMachineDoc.GetItemValue( "DataUMore" )
  4122.                DistributeSheet.number = temp( 0 )
  4123.           End If
  4124.      Next j
  4125.      
  4126.      '   set columns to automatically resize
  4127.      ' *** number of rows should be set to the max, need to resize the spreadsheet
  4128.      DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True
  4129.      
  4130.      DistributeSheet.col = 1
  4131.      DistributeSheet.row = 1
  4132.      DistributeSheet.showselections = 0
  4133.      
  4134.      StartRow = 2
  4135.      StartCol = 1
  4136.      EndRow =( iOutputCount + StartRow ) - 1
  4137.      EndCol = 2
  4138.      
  4139.      '  Distribute Chart Setup
  4140.      
  4141.       'set Distribute chart type to 2d line
  4142.      'DistributeChart.chartType = CHChartType2dLine
  4143.      'DistributeChart.chartType = CHChartType2dArea
  4144.      DistributeChart.chartType = 5
  4145.      DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ": Distribution - Comparative Analysis, Same Vendor"
  4146.      DistributeChart.Plot.DataSeriesInRow = False   'reads from a column
  4147.        '  set up the link between spreadsheet and chart
  4148.      iRowCountDistribute = 5
  4149.      If iColCountDistribute > 12 Then
  4150.           iColCountDistribute = 12
  4151.      End If
  4152.      Call DistributeChartAssn( iRowCountDistribute,( iColCountDistribute -1 ), ThisDoc )
  4153.      Dim ThisDocBE As NotesDocument
  4154.      Set ThisDocBE = ThisDoc.Document
  4155.      Call GraphForSave( ThisDoc, ThisDocBE )
  4156.      Exit Sub
  4157. ExitNow:
  4158.      Messagebox "Need to Generate Original Distribution Graph", MB_ICONEXCLAMATION, "Graph Distribution Information"
  4159. End Sub
  4160. New Button
  4161. Need a newer version of Notes to execute this button.
  4162.     0S0E
  4163.     Additional Machines (Same Vendor)
  4164. ^,'++LotusScript Development Environment:2:5:(Options):0:66
  4165. '++LotusScript Development Environment:2:5:(Forward):0:1
  4166. Declare Sub Click( Source As Button )
  4167. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4168. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4169. Private Sub BindEvents(Byval Objectname_ As String)
  4170.      Static Source As BUTTON
  4171.      Set Source = Bind(Objectname_)
  4172.      On Event Click From Source Call Click
  4173. End Sub
  4174. '++LotusScript Development Environment:2:2:Click:2:12
  4175. %INCLUDE "chconsts.txt"
  4176. Sub Click( Source As Button )
  4177.           '  Graph Distribution of other machines, same vendor, same script and user count
  4178.      Dim Workspace As New NotesUIWorkspace
  4179.      Dim ThisDoc As NotesUIDocument
  4180.      Dim Session As New NotesSession
  4181.      Dim ThisDB As NotesDatabase
  4182.      Dim  SearchDB As NotesDatabase
  4183.      Dim DateTime As New NotesDateTime( "1/1/96" )
  4184.      Dim SearchEntryCollection As NotesDocumentCollection
  4185.      Dim SearchMachineCollection As NotesDocumentCollection
  4186.      Dim SearchEntryDoc As NotesDocument
  4187.      Dim SearchMachineDoc As NotesDocument
  4188.      Dim CurrentView As NotesView
  4189.      Dim doc As NotesDocument
  4190.      Dim Listdoc As NotesDocument
  4191.      Dim ThisDocBE As NotesDocument
  4192.      
  4193.      Dim sSavedMachines( numoutputlines, 2 ) As String
  4194.      Dim sVendorName As String
  4195.      Dim bAlreadyFound As Integer
  4196.      Dim iEntryCount As Integer
  4197.      Dim iMinUsers As Integer
  4198.      Dim iMaxUsers As Integer
  4199.      
  4200.      Set ThisDoc = Workspace.CurrentDocument
  4201.      Set ThisDB = Session.CurrentDatabase
  4202.      ThisDoc.EditMode = True
  4203.      Set ThisDocBE = ThisDoc.Document
  4204.      
  4205.      sVendorName = ExtractVendorName( ThisDB.Filename )       '  extract current vendor name
  4206.      If ValidateAMDistribution( ThisDoc ) = False Then
  4207.           Exit Sub
  4208.      End If
  4209.      DistributeChart.Repaint = False
  4210.      On Error Goto 0
  4211.           '  search on range of number of users, formulate query
  4212.      iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  4213.      iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) )
  4214.           ' in case other vendors have the same machine id
  4215.      'SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  4216.      '" &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  4217.      SearchFormula$ = " Form = ""Vendor Data""  " &  _
  4218.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"}  & " &  DataUNumberUsers1 > " & iMinUsers &  " &  DataUNumberUsers1 < "  & iMaxUsers
  4219.      
  4220.         'Add onto Distribute sheet
  4221.      DistributeSheet.displaycols =  numoutputlines 
  4222.      DistributeSheet.displayrows = 5  ' assume a fixed distribution response
  4223.      DistributeSheet.showrowheading = False
  4224.      DistributeSheet.showcolheading = False
  4225.      
  4226.      ' initialize saved machine list
  4227.      iColCountDistribute = 2
  4228.      sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" )
  4229.      sSavedMachines( 1, 2 ) = sVendorName
  4230.      
  4231.      '  search on the different vendors
  4232.      Set CurrentView = ThisDB.GetView( "(List)" )
  4233.      Set doc = CurrentView.GetFirstDocument
  4234.      
  4235.      '  Find the list document which contains the dynamic list
  4236.      If doc Is Nothing Then
  4237.           Messagebox "Cannot find Vendor List information", MB_ICONSTOP, "Graph Distribution Information"
  4238.           Exit Sub
  4239.      Else
  4240.           While Not( doc Is Nothing )
  4241.                If doc.ListType( 0 ) = "Database" Then
  4242.                     Set Listdoc = doc
  4243.                     If Listdoc.list( 0 ) = "" Then
  4244.                          Messagebox "No Vendor Databases to Search", MB_ICONEXCLAMATION, "Graph Distribution Information"
  4245.                     End If
  4246.                     
  4247.                     Forall vendorname In Listdoc.list 
  4248. '                             format the string into a filename
  4249.                          If vendorname <> "" And Ucase( vendorname ) <> Ucase( svendorname ) Then
  4250.                               sSearchDatabase = "CP" & vendorname & ".NSF"
  4251.                               Set SearchDB = New NotesDatabase( "", sSearchDatabase )
  4252.                               Set SearchMachineCollection = SearchDB.Search( SearchFormula$, DateTime, 0 )
  4253.                               
  4254.                               For j = 1 To SearchMachineCollection.Count 
  4255.                                    Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j )
  4256.                                     '  first make sure this is a unique entry
  4257.                                    bAlreadyFound = False
  4258.                                    For k = 1 To iColCountDistribute
  4259.                                         temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  4260.                                         If temp( 0 ) = sSavedMachines( k, 1 )  & sVendorName = sSavedMachines( k, 2 ) Then
  4261.                                              bAlreadyFound = True
  4262.                                         End If
  4263.                                    Next k
  4264.                                    
  4265.                                    '  make sure the data has a signature attached
  4266.                                    If bAlreadyFound = False Then
  4267.                                         vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  4268.                                         Dim vIsSignedField As Variant
  4269.                                         Dim vEstimated As Variant
  4270.                                         vIsSignedField = ThisDoc.Document.IsSignedField
  4271.                                         vEstimated = ThisDoc.Document.Estimated
  4272.                                         If vCertifyCheck( 0 ) = "1" Then
  4273.                                              If ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) <> "Yes" )  Or ( vIsSignedField( 0 ) = "1" And vEstimated( 0 ) ="Yes" )  Then
  4274.                                                   bAlreadyFound = True
  4275.                                              Elseif (vEstimated( 0 ) = "Yes"  And sPerformanceEstimatedRecord = "No" ) Then 
  4276.                                                   bAlreadyFound = True
  4277.                                              End If
  4278.                                         End If
  4279.                                    End If
  4280.                                    
  4281.                                    ' also , only process entries for entries not in vendor's db, except for current entry
  4282.                                    temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  4283.                                    
  4284.                                    If Ucase$( sSearchDatabase ) = Ucase$( ThisDB.FileName ) And temp( 0 ) <> ThisDoc.FieldGetText( "DataUserverID" ) Then
  4285.                                         bAlreadyFound = True  ' skip over this entry
  4286.                                    End If
  4287.                                    
  4288.                                    If bAlreadyFound = False Then     '  new entry
  4289.                                         iColCountDistribute = iColCountDistribute + 1
  4290.                                         DistributeSheet.row = 1
  4291.                                         DistributeSheet.col = iColCountDistribute
  4292.                                          '  save off the machines already processed
  4293.                                         temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) 
  4294.                                         sSavedMachines( iColCountDistribute, 1 ) = temp( 0 )
  4295.                                         sSavedMachines( iColCountDistribute, 2 ) = sVendorName
  4296.                                         DistributeSheet.text = temp( 0 )
  4297.                                         DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  4298.                                         
  4299.                                    '********************************************************
  4300.                                    ' load up the spreadsheet with data
  4301.                                         DistributeSheet.row = 2
  4302.                                         temp = SearchMachineDoc.GetItemValue( "DataUFast" )
  4303.                                         DistributeSheet.number = temp( 0 )
  4304.                                         DistributeSheet.row = 3
  4305.                                         temp = SearchMachineDoc.GetItemValue( "DataUMedium" )
  4306.                                         DistributeSheet.number = temp( 0 )
  4307.                                         DistributeSheet.row = 4
  4308.                                         temp = SearchMachineDoc.GetItemValue( "DataUSlow" )
  4309.                                         DistributeSheet.number = temp( 0 )
  4310.                                         DistributeSheet.row = 5
  4311.                                         temp = SearchMachineDoc.GetItemValue( "DataUMore" )
  4312.                                         DistributeSheet.number = temp( 0 )
  4313.                                    End If
  4314.                               Next j
  4315.                               
  4316.                          '   set columns to automatically resize
  4317.                               DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True
  4318.                               
  4319.                               DistributeSheet.col = 1
  4320.                               DistributeSheet.row = 1
  4321.                               DistributeSheet.showselections = 0
  4322.                               
  4323.                               StartRow = 2
  4324.                               StartCol = 1
  4325.                               EndRow =( iOutputCount + StartRow ) - 1
  4326.                               EndCol = 2
  4327.                               
  4328.                          ' ****************************
  4329.                          '  Distribute Chart Setup
  4330.                               ' DistributeChart.chartType = CHChartType2dLine
  4331.                               'DistributeChart.chartType = CHChartType2dArea
  4332.                               DistributeChart.chartType = 5
  4333.                               DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ":  Comparative Analysis, Other Vendor(s)"
  4334.                               DistributeChart.Plot.DataSeriesInRow = False   'reads from a column
  4335.                               
  4336.                          End If
  4337.                     End Forall
  4338.                End If
  4339.                Set doc = CurrentView.GetNextDocument( doc )
  4340.           Wend
  4341.      End If
  4342.      '  set up the link between spreadsheet and chart
  4343.      DistributeChart.Repaint = False
  4344.      DistributeChart.rowcount = 4
  4345.      j = iColCountDistribute '  for the moment, max of 12 columns
  4346.      If j > 12 Then
  4347.           j = 12
  4348.      End If
  4349.      DistributeChart.columncount = j - 1
  4350.      DistributeSheet.tablename = "DistributeSheet"
  4351.      DistributeChart.sslinkbook = "DistributeSheet"
  4352.      test = 5   'row count
  4353.      DistributeChart.sslinkrange = "a1:m" + test
  4354.      DistributeChart.sslinkmode = 1
  4355.      DistributeChart.Repaint = True
  4356.      ThisDoc.GoToField( "DataDistributeChart" )
  4357.      If iColCountDistribute = 2 Then
  4358.           Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Distribution Information"
  4359.      End If
  4360.      Call GraphForSave( ThisDoc, ThisDocBE )
  4361.      Exit Sub
  4362. ExitNow:
  4363.      Messagebox "Need to Generate Original Distribution Graph", MB_ICONEXCLAMATION, "Graph Distribution Information"
  4364. End Sub
  4365. 389T0L8
  4366. : 7X9p/
  4367. (    (    ,
  4368. H    h    T
  4369. (!H"80
  4370. H#h#X3
  4371. #H$x4
  4372. $H%H5
  4373. $(%t5
  4374. %h&H7
  4375. h&H'88
  4376. ((H*8;
  4377. h)h)(=
  4378. .41,B
  4379. |44:4:4:
  4380. p/D0hB    
  4381. 6P7P7
  4382. 3068E
  4383. X5H68F
  4384. ffffff
  4385. 689,G
  4386. `6 I^
  4387. 07X9hK
  4388. -+4-$
  4389. ^$1+d0}lC$
  4390. --44#
  4391. ^D0Kp/-X4#
  4392. 4KD0-,5##
  4393. NH6QT6~
  4394. NH6Q`6
  4395. NH6Ql6
  4396. NH6Qx6
  4397. ^X3KD0,
  4398. ^h3KX3,
  4399. ^x3Jh3
  4400. 1KT0,P7J06J$1
  4401. ^<84I
  4402. 4#P\8
  4403. KD0-,5#
  4404. 8}0N#
  4405. 8}LN#
  4406. 8}dN#
  4407. ^H9JX9J(9
  4408. ^h3KX3,
  4409. 9Jh3#
  4410. .,4:}DQ#
  4411. New Button
  4412. Need a newer version of Notes to execute this button.
  4413.     0S0E
  4414.     Additional Machines (Other Vendor(s))
  4415. Mailing Information
  4416. SendTo}
  4417.     0S0E
  4418. SendToList of primary people to send memo.
  4419. CopyTo}
  4420. CopyToList of people to send a copy of the memo.
  4421. BlindCopyTo
  4422. BlindCopyToList of undisclosed people to send copies of memo.
  4423. Subject:
  4424. PhoneCaller
  4425. Phone Call: 
  4426. PhoneCaller
  4427. Subject
  4428. SubjectSubject of memo.
  4429. Delivery Priority:
  4430. Normal
  4431. DeliveryPriorityPriority: Normal, High (immediate delivery), Low (overnight delivery).
  4432. High|HLow|LNormal|N
  4433. Delivery Report:
  4434. DeliveryReportConditions upon which failure report will be sent back to you.
  4435. Basic|BConfirmed|CNo Report|N
  4436. Return Receipt:
  4437. ReturnReceipt
  4438. ReturnReceipt
  4439. ReturnReceiptReturn receipt requested.
  4440. No|0Yes|1
  4441. Document History/Test Results
  4442.     Submitted By:
  4443. DataUAuthorOptional.  Author of this document.  Defaults to current user.
  4444.     Creation Date: 
  4445. DataUCreationDateOptional.  Date this form initially created.  Defaults to current date.
  4446.     Modification Date: 
  4447. DataUModificationDateOptional.  Date this form last changed.  Defaults to current date.
  4448.     Comments: 
  4449. DataUCommentsOptional.  Any additional comments about this form.
  4450. Miscellaneous
  4451.     Performance Information:
  4452. DataPerformSheetReserved for use by Server.Planner.
  4453.     Distribution Information:
  4454. DataDistributeSheetReserved for use by Server.Planner.
  4455. Categori_ze
  4456. _Edit Document
  4457. Send Docu_ment
  4458. _Forward
  4459. _Move To Folder...
  4460. _Remove From Folder
  4461. Exit'++LotusScript Development Environment:2:5:(Options):0:66
  4462. '++LotusScript Development Environment:2:5:(Forward):0:1
  4463. Declare Sub Click(Source As Button)
  4464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4466. Private Sub BindEvents(Byval Objectname_ As String)
  4467.      Static Source As BUTTON
  4468.      Set Source = Bind(Objectname_)
  4469.      On Event Click From Source Call Click
  4470. End Sub
  4471. '++LotusScript Development Environment:2:2:Click:1:12
  4472. Sub Click(Source As Button)
  4473.      
  4474.     ' formerly @PostedCommand([FileCloseWindow])
  4475.      
  4476.      Dim Session As New NotesSession
  4477.      Dim ThisDB As NotesDatabase 
  4478.      Dim Workspace As New NotesUIWorkspace
  4479.      Dim ThisDoc As NotesUIDocument
  4480.      Dim ThisDocBE As NotesDocument 
  4481.      Dim sFileNameExtract As String
  4482.      
  4483.      Set ThisDoc = Workspace.CurrentDocument
  4484.      Set ThisDB = Session.CurrentDatabase
  4485.      Set ThisDocBE = ThisDoc.Document
  4486.      
  4487.      '  bypass if machine id field updated
  4488.      If sFirstTime = "0" Then
  4489.           
  4490.           '  need to detect if current path is a mail item
  4491.           sFileNameExtract = Left$( ThisDB.FileName, 2 )
  4492.           '  also check the mail flag, if "1", then we're in mail
  4493.           '  If sFileNameExtract = "CP" And ThisDocBE.MailFlag = "0" Then
  4494.           If Ucase( sFileNameExtract ) = "CP"  Then
  4495.                On Error Goto 0
  4496.                ThisDoc.EditMode = True
  4497.                Call ThisDoc.FieldSetText( "SaveOptions", "1" )
  4498.                 '  clear out the graphs
  4499.                ThisDoc.GoToField( "DataPerformChart" )
  4500.                ThisDoc.FieldClear( "DataPerformChart" )
  4501.                
  4502.                ThisDoc.GoToField( "DataPerformSheet" )
  4503.                ThisDoc.FieldClear( "DataPerformSheet" )
  4504.                
  4505.                ThisDoc.GoToField( "DataDistributeChart" )
  4506.                ThisDoc.FieldClear( "DataDistributeChart" )
  4507.                
  4508.                ThisDoc.GoToField( "DataDistributeSheet" )
  4509.                ThisDoc.FieldClear( "DataDistributeSheet" )
  4510.                
  4511.                Call ThisDoc.Save   '  to clear out graphs/restored with Dollie
  4512.           'Call ThisDocBE.Save( False, False )
  4513.            '  prevent the prompt from coming up 
  4514.                Call ThisDoc.FieldSetText( "SaveOptions", "0" )
  4515.           End If
  4516.      End If
  4517.      Call ThisDoc.Close
  4518.      
  4519. End Sub
  4520. Save Results'++LotusScript Development Environment:2:5:(Options):0:66
  4521. '++LotusScript Development Environment:2:5:(Forward):0:1
  4522. Declare Sub Click( Source As Button )
  4523. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4524. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4525. Private Sub BindEvents(Byval Objectname_ As String)
  4526.      Static Source As BUTTON
  4527.      Set Source = Bind(Objectname_)
  4528.      On Event Click From Source Call Click
  4529. End Sub
  4530. '++LotusScript Development Environment:2:2:Click:1:12
  4531. Sub Click( Source As Button )
  4532.      
  4533.      Dim Session As New NotesSession
  4534.      Dim OutputDB As New NotesDatabase( "", "" )
  4535.      Dim ThisDB As NotesDatabase 
  4536.      Dim Workspace As New NotesUIWorkspace
  4537.      Dim ThisDoc As NotesUIDocument
  4538.      Dim OutputDoc As NotesDocument 
  4539.      Dim ThisDocBE As NotesDocument 
  4540.      Dim TempItem As NotesRichTextItem
  4541.      Dim RTItem As NotesRichTextItem
  4542.      
  4543.      Dim OutputVendorData As NotesDocument     
  4544.      Dim MailThisDoc As NotesDocument
  4545.      Dim ListDoc As NotesDocument
  4546.      
  4547.      Set ThisDoc = Workspace.CurrentDocument
  4548.      Set ThisDB = Session.CurrentDatabase
  4549.      Set ThisDocBE = ThisDoc.Document
  4550.      
  4551.      '  make sure the information is signed
  4552.      Dim vIsSignedField As Variant
  4553.      vIsSignedField = ThisDocBE.IsSignedField
  4554.     ' If ThisDocBE.IsSigned = False Then
  4555.      If vIsSignedField( 0 ) = "0" Then
  4556.           'Messagebox "Needs a Digital Signature to be Saved",  MB_ICONEXCLAMATION, "Save Query Results"
  4557.           'Exit Sub   
  4558.      End If
  4559.      
  4560.      Set OutputDB = CreateOutputDB( ThisDoc )
  4561.      If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then
  4562.                     '   save list document in output database 
  4563.           Set View = ThisDB.GetView( "(List)" ) 
  4564.           
  4565.           ' capture case of user pressed Cancel
  4566.           On Error Goto ExitDBError
  4567.           Set Outputview = OutputDB.GetView( "(All Documents\List)" )
  4568.           On Error Goto ExitSub
  4569.           
  4570.           Set Listdoc = View.GetFirstDocument
  4571.           Set OutputDoc = Outputview.GetFirstDocument
  4572.           If OutputDoc Is Nothing Then
  4573.                Set OutputDoc = OutputDB.createdocument
  4574.                OutputDoc.Form = "(List)"
  4575.                OutputDoc.ListType = "Database"
  4576.                OutputDoc.List=""
  4577.                Call OutputDoc.save( False,False )
  4578.           End If
  4579.           
  4580.  '    **** will need to query on this data later    
  4581.           OutputDoc.queryid = RandomValue
  4582.           OutputDoc.List = Listdoc.List
  4583.           SearchList = ListDoc.List
  4584.           
  4585. '    save off List document with list of systems    
  4586.           Call OutputDoc.Save( False, False )
  4587.           
  4588.      '     Save Query within current database
  4589.           If ThisDoc.FieldGetText( "SaveOptions" ) = "1" Then          '  only if possible
  4590.           'ThisDoc.Save 
  4591.           Else
  4592.           'Messagebox "Cannot Save After Document is Signed", MB_ICONEXCLAMATION, "Vendor Data"
  4593.           'Exit Sub
  4594.           End If
  4595.      End If
  4596.      
  4597.      If ThisDoc.FieldGetText( "OutputSaveResults" ) = "" Then  '  no options selected
  4598.           Messagebox "No Options Selected",  MB_ICONEXCLAMATION, "Save Query Results"
  4599.           Exit Sub
  4600.      End If
  4601.      
  4602.      If ( Instr( 1,ThisDoc.FieldGetText( "OutputSaveResults" ), "Create Mail Item" ) ) Then
  4603.            ' verify info is specified in the sendto field
  4604.           If ThisDoc.FieldGetText( "SendTo" ) = "" Then
  4605.                Messagebox "Specify Recipient List in Mailing Section",  MB_ICONEXCLAMATION, "Save Query Results"
  4606.                ThisDoc.GoToField( "SendTo" )
  4607.                Exit Sub
  4608.           End If
  4609.           
  4610.           '   create mailable document
  4611.           Set MailThisDoc = New NotesDocument( ThisDB )
  4612.           
  4613.           Call ThisDocBE.CopyAllItems( MailThisDoc )
  4614.           MailThisDoc.Form = "Vendor Data"
  4615.           
  4616.           '  need to remove doc link - won't work in ouptut database
  4617.           Set TempItem = MailThisDoc.GetFirstItem("DataMachineID")
  4618.           Call TempItem.Remove
  4619.           
  4620.           '  setup the switch settings
  4621.           MailThisDoc.FormNewLocation = "1"  'flag to say that this is going elsewhere (disable action bar)
  4622.           MailThisDoc.MailFlag = "1"  ' way to identify the form has been mailed
  4623.           MailThisDoc.Send( True )
  4624.           
  4625.      End If
  4626.      
  4627.      If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then
  4628.           
  4629.      '  processing onward for database only
  4630.           QueryOutputFilename = ThisDoc.FieldGetText( "OutputFilename" )
  4631.           QueryOutputServer = ThisDoc.FieldGetText( "OutputServer" )
  4632.           If QueryOutputServer = "local" Then
  4633.                QueryOutputServer = ""
  4634.           End If
  4635.           
  4636.           '   create output document with text details( for view )
  4637.           Set OutputVendorData = New NotesDocument( OutputDB )
  4638.           
  4639.           Call ThisDocBE.Save(False, False)
  4640.           Call ThisDocBE.CopyAllItems( OutputVendorData )
  4641.           OutputVendorData.Form = "Output VendorData"
  4642.           
  4643.           'If ThisDocBE.HasItem( "DataMachineID" ) Then
  4644.           '  need to remove doc link - won't work in ouptut database
  4645.           Set Item = OutputVendorData.GetFirstItem("DataMachineID")
  4646.           Call Item.Remove
  4647.          ' End If
  4648.           
  4649.           '  now see if a doclink can be created in the new database
  4650.           Dim MachineDoc As NotesDocument
  4651.           Dim DateTime As New NotesDateTime( "1/1/96" )
  4652.           Dim SearchCollection As NotesDocumentCollection
  4653.           Dim SearchFormula As String
  4654.           
  4655.           SearchFormula$ = " Form = ""Machine Identifier""  & MachineID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" )  & {"} 
  4656.           Set SearchCollection = OutputDB.Search( SearchFormula$, DateTime, 0 )
  4657.           If SearchCollection.Count = 0 Then
  4658.                          'Messagebox "Machine ID could not be found", MB_ICONSTOP, "Vendor Data"
  4659.                     'Elseif SearchCollection.Count > 1 Then
  4660.                          'Messagebox "Multiple Machine ID entries were found", MB_ICONSTOP, "Vendor Data"
  4661.           Else
  4662.                 '  can have it point to any document
  4663.                Set MachineDoc = SearchCollection.GetNthDocument( 1 )
  4664.                
  4665.                'Dim notesitem As Variant
  4666.                'Set notesitem = ThisDocBE.GetFirstItem( "DataMachineID" )
  4667.                Set RTItem = New NotesRichTextItem ( OutputVendorData, "DataMachineID" )
  4668.                Call RTItem.AppendDocLink( MachineDoc, "Server Machine ID" )
  4669.                
  4670.           End If
  4671.           
  4672.           OutputVendorData.FormNewLocation = "1"    'flag to note that action bar items may be disabled
  4673.           Call OutputVendorData.Save( False, False )
  4674.           OutputDB.Close
  4675.      End If
  4676.      Exit Sub
  4677. ExitDBError:
  4678.      Exit Sub
  4679. ExitSub:
  4680.      Messagebox "Cannot Process User Request", MB_ICONEXCLAMATION, "Save Results"
  4681.      Exit Sub
  4682.            '  need to remove doc link - won't work in mailed item
  4683.           Set Item = ThisDocBE.GetFirstItem("DataMachineID")
  4684. '%REM
  4685.           '  need to save off, to restore afterwards
  4686.          ' If ThisDocBE.HasItem( "DataMachineID" ) Then
  4687.           
  4688.           Set Item = ThisDocBE.GetFirstItem("DataMachineID")
  4689.           Set TempItem = ThisDocBE.GetFirstItem("DataMachineID")
  4690.           Call Item.Remove
  4691.           'End If
  4692.           '  restore blank RTItem field
  4693.           'Set RTItem = New NotesRichTextItem ( ThisDocBE, "DataMachineID" )
  4694. '%END REM
  4695.           
  4696.           ThisDocBE.FormNewLocation = "1"  'flag to say that this is going elsewhere (disable action bar)
  4697.           ThisDocBE.MailFlag = "1"  ' way to identify the form has been mailed
  4698.           ThisDocBE.Send( True )
  4699.          ' If ThisDocBE.HasItem( "DataMachineID" ) Then
  4700.           Call ThisDocBE.CopyItem( TempItem, "DataMachineID" )          '  restore doclink
  4701.           'End If
  4702.           ThisDocBE.FormNewLocation = "0"  'flag to say that this is going elsewhere (enable action bar)
  4703.           ThisDocBE.MailFlag = "0"   ' reset flag to say not mailed
  4704. %END REM
  4705. End Sub
  4706. FormNewLocation
  4707. Graph Performance
  4708. '++LotusScript Development Environment:2:5:(Options):0:66
  4709. '++LotusScript Development Environment:2:5:(Forward):0:1
  4710. Declare Sub Click( Source As Button )
  4711. Declare Function PerformComponentsSetup( ) As Integer
  4712. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4713. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4714. Private Sub BindEvents(Byval Objectname_ As String)
  4715.      Static Source As BUTTON
  4716.      Set Source = Bind(Objectname_)
  4717.      On Event Click From Source Call Click
  4718. End Sub
  4719. '++LotusScript Development Environment:2:2:Click:3:12
  4720. '%INCLUDE "chconsts2.txt"
  4721. %INCLUDE "chconsts.txt"
  4722. Sub Click( Source As Button )
  4723.      Dim Workspace As New NotesUIWorkspace
  4724.      Dim ThisDoc As NotesUIDocument
  4725.      Dim Session As New NotesSession
  4726.      Dim ThisDB As NotesDatabase
  4727.      Dim DateTime As New NotesDateTime( "1/1/96" )
  4728.      Dim SearchCollection As NotesDocumentCollection
  4729.      Dim SearchDoc As NotesDocument
  4730.      Dim iEntryCount As Integer
  4731.      Dim bMatchFound As Integer
  4732.      Dim itemp As Integer
  4733.      Dim ThisDocBE As NotesDocument
  4734.      
  4735.      Set ThisDoc = Workspace.CurrentDocument
  4736.      Set ThisDB = Session.CurrentDatabase
  4737.      Set ThisDocBE = ThisDoc.Document
  4738.      ThisDoc.EditMode = True
  4739.      
  4740.      Call ThisDoc.ExpandAllSections         '  make sure user doesn't prevent graph from displaying
  4741.      
  4742.      If bAlreadyDisplayedPerform = True Then
  4743.           ThisDoc.GoToField( "DataPerformChart" )
  4744.           ThisDoc.FieldClear( "DataPerformChart" )
  4745.           
  4746.           ThisDoc.GoToField( "DataPerformSheet" )
  4747.           ThisDoc.FieldClear( "DataPerformSheet" )
  4748.           
  4749.           bAlreadyDisplayedPerform = False
  4750.      End If
  4751.      
  4752.      If ValidateGraphPerformance( ) = False Then
  4753.           Exit Sub
  4754.      End If
  4755.      
  4756.      If PerformComponentsSetup( ) = False Then
  4757.           Exit Sub
  4758.      End If
  4759.      
  4760.      
  4761.           '********************************************************
  4762.      ' load up the spreadsheet with data
  4763.      ' do a lookup based on this machine id and this script id
  4764.      iEntryCount=0
  4765.      SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  4766.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"} 
  4767. '     " &  DataUNumberUsers1 = " & {"} & ThisDoc.FieldGetText( "DataUNumberUsers1" )  & {"}
  4768.      Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 )
  4769.      
  4770.      '  include estimated records?
  4771.      Call thisdoc.FieldSetText("EstimatedRecords", "Yes")
  4772.      Call workspace.DialogBox( "EstimatedRecords", True, True, True)
  4773.      
  4774.      ' can specify either option or both
  4775.      sPerformanceEstimatedRecords = ThisDoc.FieldGetText("EstimatedRecords")
  4776.      
  4777.      '  first insert data from current database
  4778.      If SearchCollection.Count > 0 Then
  4779.           For i = 1 To SearchCollection.Count
  4780.                Set SearchDoc = SearchCollection.GetNthDocument( i )
  4781.                 '  make sure the data has a signature attached
  4782.                vCertifyCheck = ThisDoc.Document.CertifyCheckOn
  4783.                Dim vIsSignedField As Variant
  4784.                Dim vEstimated As Variant
  4785.                vIsSignedField = SearchDoc.IsSignedField
  4786.                vEstimated = SearchDoc.Estimated
  4787.                '  If vCertifyCheck( 0 ) = "1" And  SearchDoc.IsSigned  Or vCertifyCheck( 0 ) = "0" Then   '  should checking be enabled?
  4788.                If (  vCertifyCheck( 0 ) = "1" And _
  4789.                ( vIsSignedField( 0 ) = "1"  And vEstimated( 0 ) <> "Yes"  )  Or _
  4790.                ( vIsSignedField( 0 ) = "0" And vEstimated( 0 ) = "Yes"  And sPerformanceEstimatedRecords = "Yes" )   ) Then
  4791.                '  should checking be enabled?
  4792.                     PerformSheet.row = 1 +  i
  4793.                     PerformSheet.col = 1    
  4794.                     temp =  SearchDoc.GetItemValue( "DataUNumberUsers1" ) 
  4795.                     PerformSheet.number =  Cint( temp( 0 ) ) 
  4796.                     PerformSheet.col = 2       '    response time
  4797.                     temp= SearchDoc.GetItemValue( "DataUAverage" ) 
  4798.                     PerformSheet.number= Csng( temp( 0 ) ) 
  4799.                     iEntryCount=iEntryCount + 1
  4800.                End If
  4801.           Next i     
  4802.      End If
  4803.      
  4804.      '  make sure the current form is filled out and then insert
  4805.      If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then
  4806.           '  see if the entry exists
  4807.           bMatchFound = False
  4808.           For i = 1 To iEntryCount
  4809.                PerformSheet.row = i + 1
  4810.                PerformSheet.col = 1
  4811.                itemp = PerformSheet.number
  4812.                If Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) = iTemp Then
  4813.                     bMatchFound = True
  4814.                     PerformSheet.col= 2       '    response time
  4815.                     PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) )
  4816.                End If
  4817.           Next i
  4818.           If bMatchFound = False Then
  4819.                PerformSheet.row = 1 +  iEntryCount + 1
  4820.                PerformSheet.col = 1     '   user count
  4821.                PerformSheet.number =  Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) )
  4822.                PerformSheet.col= 2       '    response time
  4823.                PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) )
  4824.                iEntryCount=iEntryCount + 1
  4825.           End If
  4826.      End If
  4827.      
  4828.      iRowCountPerform = iEntryCount + iRowCountPerform
  4829.      
  4830.      '  set columns to automatically resize
  4831.      PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True
  4832.      
  4833.      EndRow =( iOutputCount + 2 ) - 1
  4834.      PerformSheet.Sort 2, 1, iRowCountPerform + 1, 2, True, 1     
  4835.      
  4836.         '  set up the link between spreadsheet and chart
  4837.      iColCountPerform = 1
  4838.      Call PerformChartAssn( iRowCountPerform, iColCountPerform, ThisDoc )
  4839.      iRowCountPerform = iRowCountPerform + 1
  4840.      bAlreadyDisplayedPerform = True
  4841.      
  4842.      If bGraphMessageDisplayed = False Then
  4843.           crlf$ = Chr( 13 ) &  Chr( 10 )
  4844.           message$ = "To interact with the Graph(s): " & crlf$ & "1.  To Resize:  Select the graph, grab a handle and drag " & crlf$ +  _
  4845.           "2.  To Change Graph Features:  Select the graph, rightmouse click on the graph, select Chart Properties "
  4846.           Messagebox message$, MB_OK + MB_ICONINFORMATION
  4847.           bGraphMessageDisplayed = True
  4848.      End If
  4849.      
  4850.      
  4851.      Exit Sub
  4852.      
  4853.      '  don't reach this******
  4854.      Call GraphForSave( ThisDoc, ThisDocBE )
  4855.      
  4856.      
  4857.      
  4858. End Sub
  4859. '++LotusScript Development Environment:2:1:PerformComponentsSetup:2:8
  4860. '%INCLUDE "chconsts2.txt"
  4861. Function PerformComponentsSetup( ) As Integer
  4862.      Dim Workspace As New NotesUIWorkspace
  4863.      Dim ThisDoc As NotesUIDocument
  4864.      
  4865.      Dim Session As New NotesSession
  4866.      Dim ThisDB As NotesDatabase
  4867.      Dim DateTime As New NotesDateTime( "1/1/96" )
  4868.      Dim SearchCollection As NotesDocumentCollection
  4869.      Dim SearchDoc As NotesDocument
  4870.      
  4871.      Dim iEntryCount As Integer
  4872.      Dim bMatchFound As Integer
  4873.      Dim itemp As Integer
  4874.      
  4875.      PerformComponentsSetup = True
  4876.      Set ThisDoc = Workspace.CurrentDocument
  4877.      Set ThisDB = Session.CurrentDatabase
  4878.      ThisDoc.EditMode = True
  4879.      
  4880.      If ValidateGraphPerformance( ) = False Then
  4881.           Exit Function
  4882.      End If
  4883.      
  4884.      '  set up spreadsheet and chart
  4885.      'Messagebox "Error" & Str( Err ) & ":" &Error$
  4886.      ThisDoc.GoToField( "DataPerformSheet" )
  4887.      ThisDoc.FieldClear( "DataPerformSheet" )
  4888.      Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" )
  4889.      ThisDoc.GoToField( "DataPerformChart" )
  4890.      ThisDoc.FieldClear( "DataPerformChart" ) 
  4891.      Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" )
  4892.      
  4893. %REM 
  4894.  Dim ChartItem As NotesRichTextItem
  4895.      Set ChartItem = ThisDoc.Document.GetFirstItem( "DataPerformChart" )
  4896.      ThisDoc.Document.ChartItem.AppendText( "foo" )
  4897.      ThisDoc.Document.ComputeWithForm True, True 
  4898. %END REM
  4899.      
  4900.      On Error Goto 0
  4901.      
  4902.      PerformChart.Repaint = False
  4903.      
  4904.      PerformChart.rowcount = numoutputlines
  4905.      PerformChart.columncount = 1
  4906.      PerformSheet.tablename = "PerformSheet"
  4907.      PerformChart.sslinkbook = "PerformSheet"
  4908.      test = 12
  4909.      PerformChart.sslinkrange = "a1:m" + test
  4910.      PerformChart.sslinkmode = 1
  4911.      
  4912.       '****************************
  4913.      'set up Perform sheet
  4914.       '****************************
  4915.      iRowCountPerform = 0
  4916.      iColCountPerform = 1
  4917.      
  4918.      PerformSheet.displaycols =  2
  4919.      PerformSheet.displayrows = numoutputlines
  4920.      PerformSheet.showrowheading = False
  4921.      PerformSheet.showcolheading = False
  4922.      
  4923.      '  set up headings
  4924.      PerformSheet.row = 1
  4925.      PerformSheet.col = 1
  4926.      
  4927.      PerformSheet.text = "# Users"
  4928.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  4929.      
  4930.      PerformSheet.col = 2
  4931.      PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" )
  4932.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  4933.      
  4934.      ' ****************************
  4935.      '  Perform Chart Setup
  4936.       '****************************
  4937.      'PerformChart.chartType = CHChartType2dLine
  4938.      PerformChart.chartType = CHChartType2dBar
  4939.      PerformChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Performance"
  4940.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  4941.      
  4942.     'show major grid line in red and minor grid line in blue
  4943.      With PerformChart.plot.axis( CHAxisIdY ).AxisGrid
  4944.           .majorPen.width = 1
  4945.           .minorPen.VtColor.Set 0, 0, 255
  4946.           .minorPen.width = 1
  4947.      End With
  4948.      
  4949.      If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then
  4950.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  4951.                .visible = True
  4952.                .text = "Spoke Count"
  4953.                .VtFont.name = "Arial"
  4954.                .VtFont.size = 10
  4955.                .VtFont.VtColor.set  0, 0, 255
  4956.           End With
  4957.      Else
  4958.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  4959.                .visible = True
  4960.                .text = "User Count"
  4961.                .VtFont.name = "Arial"
  4962.                .VtFont.size = 10
  4963.                .VtFont.VtColor.set  0, 0, 255
  4964.           End With
  4965.      End If
  4966.      With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle
  4967.           .visible = True
  4968.           .text = "Perform Time( sec )"
  4969.           .VtFont.name = "Arial"
  4970.           .VtFont.size = 10
  4971.           .VtFont.VtColor.set  0, 0, 255
  4972.      End With
  4973.      
  4974.      With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle
  4975.           .visible = True
  4976.           .text = "Machine"
  4977.           .VtFont.name = "Arial"
  4978.           .VtFont.size = 10
  4979.           .VtFont.VtColor.set  0, 0, 255
  4980.      End With
  4981.      
  4982.      With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 )
  4983.         ' Set X Axis label properties
  4984.           .auto = True
  4985.           .VtFont.name = "Arial"
  4986.           .VtFont.size = 10
  4987.           .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter
  4988.           .TextLayout.VertAlignment = CHVerticalAlignmentCenter
  4989.      End With
  4990.      
  4991.      With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 )
  4992.         ' Set X Axis label properties
  4993.           .auto = True
  4994.           .VtFont.name = "Arial"
  4995.           .VtFont.size = 10
  4996.      End With
  4997.      
  4998.      With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 )
  4999.         ' Set X Axis label properties
  5000.           .auto = True
  5001.           .VtFont.name = "Arial"
  5002.           .VtFont.size = 10
  5003.      End With
  5004.      
  5005.        ' adjust size of title
  5006.      With PerformChart.title.VtFont
  5007.           .name = "Arial"
  5008.           .size = 10
  5009.           .style = CHFontStyleBold
  5010.           .effect = 512
  5011.           .VtColor.Set 0, 0, 255
  5012.      End With
  5013.      
  5014.     'use  manual scale to display y axis( value axis )
  5015.      With PerformChart.plot.axis( CHAxisIdY ).ValueScale
  5016.           .auto = True
  5017.      End With
  5018.      
  5019.      With PerformChart.Legend
  5020.         ' Make Legend Visible
  5021.           .location.visible = True
  5022.           .location.locationType = CHLocationTypeBottom
  5023.           
  5024.         ' Set Legend properties
  5025.           .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft    ' Left justify
  5026.           .VtFont.VtColor.Set 0, 0, 255                        
  5027.           .backdrop.fill.style = CHFillStyleBrush
  5028.           .backdrop.fill.Brush.style = CHBrushStyleSolid
  5029.           
  5030.      End With
  5031.      
  5032.      With PerformChart.backdrop.fill
  5033.           '.style=CHFillStyleNull
  5034.           .style=CHFillStyleBrush
  5035.           .Brush.style=CHBrushStyleSolid
  5036.      End With
  5037.      
  5038.      '  need to enhance Machine IDs Names for legend
  5039.      PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" )
  5040.      
  5041.      Exit Function
  5042.      
  5043. PressEdit:
  5044.      If Err = 0 Or Err = 8501 Then
  5045.           Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONSTOP, "Graph Performance Information"
  5046.      Elseif Err = 4412 Then
  5047.           Messagebox "The Graphical Test Results and Miscellaneous Sections must be expanded to insert the graphical information.  Currently, one or both of the sections are collapsed.", MB_ICONSTOP, "Graph Performance Information"
  5048.      End If
  5049.      PerformComponentsSetup=False
  5050.      Exit Function
  5051.      
  5052.      
  5053. End Function
  5054. FormNewLocation
  5055. Graph Distribution'++LotusScript Development Environment:2:5:(Options):0:66
  5056. '++LotusScript Development Environment:2:5:(Forward):0:1
  5057. Declare Sub Click( Source As Button )
  5058. Declare Function DistributionComponentsSetup( ) As Integer
  5059. Declare Function PerformComponentsSetup( ) As Integer
  5060. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5061. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5062. Private Sub BindEvents(Byval Objectname_ As String)
  5063.      Static Source As BUTTON
  5064.      Set Source = Bind(Objectname_)
  5065.      On Event Click From Source Call Click
  5066. End Sub
  5067. '++LotusScript Development Environment:2:2:Click:3:12
  5068. '%INCLUDE "chconsts2.txt"
  5069. %INCLUDE "chconsts.txt"
  5070. Sub Click( Source As Button )
  5071.      Dim Workspace As New NotesUIWorkspace
  5072.      Dim ThisDoc As NotesUIDocument
  5073.      Dim Session As New NotesSession
  5074.      Dim ThisDB As NotesDatabase
  5075.      Dim DateTime As New NotesDateTime( "1/1/96" )
  5076.      Dim SearchCollection As NotesDocumentCollection
  5077.      Dim SearchDoc As NotesDocument
  5078.      Dim iEntryCount As Integer
  5079.      
  5080.      Set ThisDoc = Workspace.CurrentDocument
  5081.      Set ThisDB = Session.CurrentDatabase
  5082.      ThisDoc.EditMode = True
  5083.      
  5084.      Call ThisDoc.ExpandAllSections         '  make sure user doesn't prevent graph from displaying
  5085.      
  5086.      If bAlreadyDisplayedDistribute = True Then
  5087.           ThisDoc.GoToField( "DataDistributeChart" )
  5088.           ThisDoc.FieldClear( "DataDistributeChart" )
  5089.           
  5090.           ThisDoc.GoToField( "DataDistributeSheet" )
  5091.           ThisDoc.FieldClear( "DataDistributeSheet" )
  5092.           
  5093.           bAlreadyDisplayedDistribute = False
  5094.      End If
  5095.      
  5096.      If ValidateGraphDistribution ( ) = False Then
  5097.           Exit Sub
  5098.      End If
  5099.      
  5100.      If DistributionComponentsSetup( ) = False Then
  5101.           Exit Sub
  5102.      End If
  5103.           '********************************************************
  5104.      ' load up the spreadsheet with data
  5105.      ' do a lookup based on this machine id and this script id
  5106.      iEntryCount=0
  5107.      SearchFormula$ = " Form = ""Vendor Data""  & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _
  5108.      " &  DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" )  & {"} 
  5109.      Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 )
  5110.      '  there should only be one returned
  5111.      
  5112.        '  include estimated records?
  5113.      Call ThisDoc.FieldSetText("EstimatedRecords", "Yes")
  5114.      Call workspace.DialogBox( "EstimatedRecords", True, True, True)
  5115.      
  5116.      ' can specify either option or both
  5117.      sDistributionEstimatedRecords = ThisDoc.FieldGetText("EstimatedRecords")
  5118.      
  5119.      '  make sure the current form is filled out and then insert
  5120.      If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then
  5121.           DistributeSheet.col = 1     '   response range          
  5122.           DistributeSheet.row = 2
  5123.           DistributeSheet.text = "< 1"
  5124.           DistributeSheet.row = 3
  5125.           DistributeSheet.text = "1 - 3"
  5126.           DistributeSheet.row = 4
  5127.           DistributeSheet.text = "3.1 - 5"
  5128.           DistributeSheet.row = 5
  5129.           DistributeSheet.text = "> 5"
  5130.           
  5131.           DistributeSheet.col = 2       '    count
  5132.           DistributeSheet.row = 2
  5133.           DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUFast" ) )
  5134.           DistributeSheet.row = 3
  5135.           DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUMedium" ) )
  5136.           DistributeSheet.row = 4
  5137.           DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUSlow" ) )
  5138.           DistributeSheet.row = 5
  5139.           DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUMore" ) )
  5140.           
  5141.           iEntryCount=iEntryCount + 1
  5142.      End If
  5143.      
  5144.      iRowCountDistribute = 5
  5145.      iColCountDistribute = 1    
  5146.      
  5147.           'set columns to automatically resize
  5148.      ' *** number of rows should be set to the max, need to resize the spreadsheet
  5149.      DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True
  5150.      
  5151.      '  set up the link between spreadsheet and chart
  5152.      Call DistributeChartAssn( iRowCountDistribute, iColCountDistribute, ThisDoc )
  5153.      
  5154.      Dim ThisDocBE As NotesDocument
  5155.      Set ThisDocBE = ThisDoc.Document
  5156.      Call GraphForSave( ThisDoc, ThisDocBE )
  5157.      
  5158.      
  5159.      bAlreadyDisplayedDistribute = True
  5160.      
  5161.      If bGraphMessageDisplayed = False Then
  5162.           crlf$ = Chr( 13 ) &  Chr( 10 )
  5163.           message$ = "To interact with the Graph(s): " & crlf$ & "1.  To Resize:  Select the graph, grab a handle and drag " & crlf$ +  _
  5164.           "2.  To Change Graph Features:  Select the graph, rightmouse click on the graph, select Chart Properties "
  5165.           Messagebox message$, MB_OK + MB_ICONINFORMATION
  5166.           bGraphMessageDisplayed = True
  5167.      End If
  5168. End Sub
  5169. '++LotusScript Development Environment:2:1:DistributionComponentsSetup:2:8
  5170. '%INCLUDE "chconsts2.txt"
  5171. Function DistributionComponentsSetup( ) As Integer
  5172.      Dim Workspace As New NotesUIWorkspace
  5173.      Dim ThisDoc As NotesUIDocument
  5174.      Dim Session As New NotesSession
  5175.      Dim ThisDB As NotesDatabase
  5176.      Dim DateTime As New NotesDateTime( "1/1/96" )
  5177.      Dim SearchCollection As NotesDocumentCollection
  5178.      Dim SearchDoc As NotesDocument
  5179.      Dim iEntryCount As Integer
  5180.      
  5181.      Set ThisDoc = Workspace.CurrentDocument
  5182.      Set ThisDB = Session.CurrentDatabase
  5183.      ThisDoc.EditMode = True
  5184.      DistributionComponentsSetup=True
  5185.      
  5186.      If ValidateGraphDistribution  = False Then
  5187.           Exit Function
  5188.      End If
  5189.      
  5190.      '  set up spreadsheet and chart
  5191.      ThisDoc.GotoField( "DataDistributeSheet" )
  5192.      ThisDoc.FieldClear( "DataDistributeSheet" )
  5193.      Set DistributeSheet = ThisDoc.CreateObject( "DistributeSheet", "Lotus.Spreadsheet.1" )
  5194.      ThisDoc.GoToField( "DataDistributeChart" )
  5195.      ThisDoc.FieldClear( "DataDistributeChart" ) 
  5196.      Set DistributeChart = ThisDoc.CreateObject( "DistributeChart", "Lotus.Chart.1" )
  5197.      On Error Goto 0
  5198.      
  5199.      DistributeChart.Repaint = False   
  5200.      
  5201.      DistributeChart.rowcount = numoutputlines
  5202.      DistributeChart.columncount = 1
  5203.      DistributeSheet.tablename = "DistributeSheet"
  5204.      DistributeChart.sslinkbook = "DistributeSheet"
  5205.      test = 12
  5206.      DistributeChart.sslinkrange = "a1:m" + test
  5207.      DistributeChart.sslinkmode = 1
  5208.      
  5209.      '****************************
  5210.      'set up Distribute sheet
  5211.       '****************************
  5212.      iRowCountDistribute = 0
  5213.      iColCountDistributeDistribute = 1
  5214.      
  5215.      DistributeSheet.displaycols =  2
  5216.      DistributeSheet.displayrows = 5
  5217.      DistributeSheet.showrowheading = False
  5218.      DistributeSheet.showcolheading = False
  5219.      
  5220.      '  set up headings
  5221.      DistributeSheet.row = 1
  5222.      DistributeSheet.col = 1
  5223.      
  5224.      DistributeSheet.text = "Response Distribution"
  5225.      DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  5226.      
  5227.      DistributeSheet.col = 2
  5228.      DistributeSheet.text = ThisDoc.FieldGetText( "DataUServerID" )
  5229.      DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  5230.      
  5231.       ' ****************************
  5232.      '  Distribute Chart Setup
  5233.       '****************************
  5234.      
  5235.      'set Distribute chart type to 2d line
  5236.      'DistributeChart.chartType = CHChartType2dLine
  5237.      'DistributeChart.chartType = CHChartType2dArea
  5238.      DistributeChart.chartType = 5
  5239.      DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Distribution"
  5240.      
  5241.      DistributeChart.Plot.DataSeriesInRow = False   'reads from a column
  5242.      
  5243.     'show major grid line in red and minor grid line in blue
  5244.      With DistributeChart.plot.axis( CHAxisIdY ).AxisGrid
  5245.           .majorPen.width = 1
  5246.           .minorPen.VtColor.Set 0, 0, 255
  5247.           .minorPen.width = 1
  5248.      End With
  5249.      
  5250.      If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then
  5251.           With DistributeChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  5252.                .visible = True
  5253.                .text = "Response Time( sec )"
  5254.                .VtFont.name = "Arial"
  5255.                .VtFont.size = 10
  5256.                .VtFont.VtColor.set  0, 0, 255
  5257.           End With
  5258.      Else
  5259.           With DistributeChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  5260.                .visible = True
  5261.                .text = "Response Time Distribution"
  5262.                .VtFont.name = "Arial"
  5263.                .VtFont.size = 10
  5264.                .VtFont.VtColor.set  0, 0, 255
  5265.           End With
  5266.      End If
  5267.      With DistributeChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle
  5268.           .visible = True
  5269.           .text = "Probe Frequency"
  5270.           .VtFont.name = "Arial"
  5271.           .VtFont.size = 10
  5272.           .VtFont.VtColor.set  0, 0, 255
  5273.      End With
  5274.      
  5275.      With DistributeChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle
  5276.           .visible = True
  5277.           .text = "Machine"
  5278.           .VtFont.name = "Arial"
  5279.           .VtFont.size = 10
  5280.           .VtFont.VtColor.set  0, 0, 255
  5281.      End With
  5282.      
  5283.      With DistributeChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 )
  5284.         ' Set X Axis label properties
  5285.           .auto = True
  5286.           .VtFont.name = "Arial"
  5287.           .VtFont.size = 10
  5288.           .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter
  5289.           .TextLayout.VertAlignment = CHVerticalAlignmentCenter
  5290.      End With
  5291.      
  5292.      With DistributeChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 )
  5293.         ' Set X Axis label properties
  5294.           .auto = True
  5295.           .VtFont.name = "Arial"
  5296.           .VtFont.size = 10
  5297.      End With
  5298.      
  5299.      With DistributeChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 )
  5300.         ' Set X Axis label properties
  5301.           .auto = True
  5302.           .VtFont.name = "Arial"
  5303.           .VtFont.size = 10
  5304.      End With
  5305.      
  5306.       ' adjust size of title
  5307.      With DistributeChart.title.VtFont
  5308.           .name = "Arial"
  5309.           .size = 10
  5310.           .style = CHFontStyleBold
  5311.           .effect = 512
  5312.           .VtColor.Set 0, 0, 255
  5313.      End With
  5314.      
  5315.     'use  manual scale to display y axis( value axis )
  5316.      With DistributeChart.plot.axis( CHAxisIdY ).ValueScale
  5317.           .auto = True
  5318.      End With
  5319.      
  5320.      With DistributeChart.Legend
  5321.         ' Make Legend Visible
  5322.           .location.visible = True
  5323.           .location.locationType = CHLocationTypeBottom
  5324.           
  5325.         ' Set Legend properties
  5326.           .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft    ' Left justify
  5327.           .VtFont.VtColor.Set 0, 0, 255                        
  5328.      End With
  5329.      
  5330.      With DistributeChart.backdrop.fill
  5331.           '.style=CHFillStyleNull
  5332.           .style=CHFillStyleBrush
  5333.           .Brush.style=CHBrushStyleSolid
  5334.      End With
  5335.      
  5336.      '  need to enhance Machine IDs Names for legend
  5337.      DistributeChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" )
  5338.      
  5339.      Exit Function
  5340.      
  5341. End Function
  5342. '++LotusScript Development Environment:2:1:PerformComponentsSetup:1:8
  5343. Function PerformComponentsSetup( ) As Integer
  5344.      Dim Workspace As New NotesUIWorkspace
  5345.      Dim ThisDoc As NotesUIDocument
  5346.      
  5347.      Dim Session As New NotesSession
  5348.      Dim ThisDB As NotesDatabase
  5349.      Dim DateTime As New NotesDateTime( "1/1/96" )
  5350.      Dim SearchCollection As NotesDocumentCollection
  5351.      Dim SearchDoc As NotesDocument
  5352.      
  5353.      Dim iEntryCount As Integer
  5354.      Dim bMatchFound As Integer
  5355.      Dim itemp As Integer
  5356.      
  5357.      PerformComponentsSetup = True
  5358.      Set ThisDoc = Workspace.CurrentDocument
  5359.      Set ThisDB = Session.CurrentDatabase
  5360.      ThisDoc.EditMode = True
  5361.      
  5362.      If ValidateGraphPerformance( ) = False Then
  5363.           Exit Function
  5364.      End If
  5365.      
  5366.      '  set up spreadsheet and chart
  5367.      On Error Goto PressEdit              '   need to be in edit mode to continue processing
  5368.      ThisDoc.GoToField( "DataPerformSheet" )
  5369.      ThisDoc.FieldClear( "DataPerformSheet" )
  5370.      Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" )
  5371.      ThisDoc.GoToField( "DataPerformChart" )
  5372.      ThisDoc.FieldClear( "DataPerformChart" ) 
  5373.      Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" )
  5374.      On Error Goto 0
  5375.      
  5376.      PerformChart.Repaint = False
  5377.      
  5378.      PerformChart.rowcount = numoutputlines
  5379.      PerformChart.columncount = 1
  5380.      PerformSheet.tablename = "PerformSheet"
  5381.      PerformChart.sslinkbook = "PerformSheet"
  5382.      test = 12
  5383.      PerformChart.sslinkrange = "a1:m" + test
  5384.      PerformChart.sslinkmode = 1
  5385.      
  5386.       '****************************
  5387.      'set up Perform sheet
  5388.       '****************************
  5389.      iRowCountPerform = 0
  5390.      iColCountPerform = 1
  5391.      
  5392.      PerformSheet.displaycols =  2
  5393.      PerformSheet.displayrows = numoutputlines
  5394.      PerformSheet.showrowheading = False
  5395.      PerformSheet.showcolheading = False
  5396.      
  5397.      '  set up headings
  5398.      PerformSheet.row = 1
  5399.      PerformSheet.col = 1
  5400.      
  5401.      PerformSheet.text = "# Users"
  5402.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  5403.      
  5404.      PerformSheet.col = 2
  5405.      PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" )
  5406.      PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False
  5407.      
  5408.      ' ****************************
  5409.      '  Perform Chart Setup
  5410.       '****************************
  5411.      'PerformChart.chartType = CHChartType2dLine
  5412.      PerformChart.chartType = CHChartType2dBar
  5413.      PerformChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Performance"
  5414.      PerformChart.Plot.DataSeriesInRow = False   'reads from a column
  5415.      
  5416.     'show major grid line in red and minor grid line in blue
  5417.      With PerformChart.plot.axis( CHAxisIdY ).AxisGrid
  5418.           .majorPen.width = 1
  5419.           .minorPen.VtColor.Set 0, 0, 255
  5420.           .minorPen.width = 1
  5421.      End With
  5422.      
  5423.      If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then
  5424.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  5425.                .visible = True
  5426.                .text = "Spoke Count"
  5427.                .VtFont.name = "Arial"
  5428.                .VtFont.size = 10
  5429.                .VtFont.VtColor.set  0, 0, 255
  5430.           End With
  5431.      Else
  5432.           With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle
  5433.                .visible = True
  5434.                .text = "User Count"
  5435.                .VtFont.name = "Arial"
  5436.                .VtFont.size = 10
  5437.                .VtFont.VtColor.set  0, 0, 255
  5438.           End With
  5439.      End If
  5440.      With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle
  5441.           .visible = True
  5442.           .text = "Perform Time( sec )"
  5443.           .VtFont.name = "Arial"
  5444.           .VtFont.size = 10
  5445.           .VtFont.VtColor.set  0, 0, 255
  5446.      End With
  5447.      
  5448.      With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle
  5449.           .visible = True
  5450.           .text = "Machine"
  5451.           .VtFont.name = "Arial"
  5452.           .VtFont.size = 10
  5453.           .VtFont.VtColor.set  0, 0, 255
  5454.      End With
  5455.      
  5456.      With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 )
  5457.         ' Set X Axis label properties
  5458.           .auto = True
  5459.           .VtFont.name = "Arial"
  5460.           .VtFont.size = 10
  5461.           .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter
  5462.           .TextLayout.VertAlignment = CHVerticalAlignmentCenter
  5463.      End With
  5464.      
  5465.      With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 )
  5466.         ' Set X Axis label properties
  5467.           .auto = True
  5468.           .VtFont.name = "Arial"
  5469.           .VtFont.size = 10
  5470.      End With
  5471.      
  5472.      With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 )
  5473.         ' Set X Axis label properties
  5474.           .auto = True
  5475.           .VtFont.name = "Arial"
  5476.           .VtFont.size = 10
  5477.      End With
  5478.      
  5479.        ' adjust size of title
  5480.      With PerformChart.title.VtFont
  5481.           .name = "Arial"
  5482.           .size = 10
  5483.           .style = CHFontStyleBold
  5484.           .effect = 512
  5485.           .VtColor.Set 0, 0, 255
  5486.      End With
  5487.      
  5488.     'use  manual scale to display y axis( value axis )
  5489.      With PerformChart.plot.axis( CHAxisIdY ).ValueScale
  5490.           .auto = True
  5491.      End With
  5492.      
  5493.      With PerformChart.Legend
  5494.         ' Make Legend Visible
  5495.           .location.visible = True
  5496.           .location.locationType = CHLocationTypeBottom
  5497.           
  5498.         ' Set Legend properties
  5499.           .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft    ' Left justify
  5500.           .VtFont.VtColor.Set 0, 0, 255                        
  5501.           .backdrop.fill.style = CHFillStyleBrush
  5502.           .backdrop.fill.Brush.style = CHBrushStyleSolid
  5503.           
  5504.      End With
  5505.      
  5506.      With PerformChart.backdrop.fill
  5507.           '.style=CHFillStyleNull
  5508.           .style=CHFillStyleBrush
  5509.           .Brush.style=CHBrushStyleSolid
  5510.      End With
  5511.      
  5512.      '  need to enhance Machine IDs Names for legend
  5513.      PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" )
  5514.      
  5515.      Exit Function
  5516.      
  5517. PressEdit:
  5518.      If Err = 0 Or Err = 8501 Then
  5519.           Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONSTOP, "Graph Distribution Information"
  5520.      Elseif Err = 4412 Then
  5521.           Messagebox "The Graphical Test Results and Miscellaneous Sections must be expanded to insert the graphical information.  Currently, one or both of the sections are collapsed.", MB_ICONSTOP, "Graph Distribution Information"
  5522.      End If
  5523.      PerformComponentsSetup=False
  5524.      Exit Function
  5525.      
  5526. End Function
  5527. FormNewLocation
  5528. Help^
  5529. DSPUG.NSF
  5530. Table of Contents
  5531.     4S10S12S13S
  5532. D4D44848
  5533. (0(0$
  5534. p8@8@8
  5535. 6@3@303P8
  5536. 0`8`8
  5537. p9p9 909
  5538. P9P9@9$:
  5539. p p |.
  5540.  0!4/
  5541. !P"`/
  5542. !p#80
  5543. "0#$2
  5544. #P#t2
  5545. #0$d3
  5546. P$P$84
  5547. $P&,5
  5548. %0'T6
  5549. p&P*D7
  5550. 'p(h9
  5551. 0(P(0:
  5552. *0+\>
  5553. p,p-x@
  5554. </</HB    
  5555. 9P4P4
  5556. \2\2PC    
  5557. 5|6xD    
  5558. 0909PC    
  5559. p9$:LD
  5560. ;hOb6
  5561. <hP69
  5562. D<tQD
  5563. 0+X/$
  5564. ^p3K</-
  5565. K</,P4}
  5566. K</,P4}
  5567. K</,,5}
  5568. K</,,5}
  5569. 0,\5J
  5570. 6K</,,5}
  5571. ^03K\2,L6J<6
  5572. ^|6K</-
  5573. 6K03P
  5574. 6K03P
  5575. 6K03,
  5576. 6K03,
  5577. K</,,5}
  5578. K</,,5}
  5579. ^X74u
  5580. K</,,5}
  5581. 6Q<7K</,,5}
  5582. 6Q<7K</,,5}
  5583. 6Q<7K</,,5}
  5584. 7[p7[
  5585. 7^</#
  5586. [p7Gp7
  5587. ^P8}XKJ@8
  5588. J`8Jp8
  5589. 8^</^p3#
  5590. 9+X/$
  5591. 8,P4}
  5592. 9}hM}
  5593. 8,P4}
  5594. 9Q4:}
  5595. 6QX:~
  5596. 6Q|:}
  5597. 6Q|:K
  5598. 8,,5}
  5599. 8,,5}
  5600. 8,,5}
  5601. 8,,5}
  5602. N4;QD;
  5603. N4;Q|:}XQ
  5604. N4;OP;Q\;}
  5605. N4;OP;Qh;
  5606. N4;OP;O
  5607. Nt;QD;
  5608. Nt;Q|:}
  5609. Nt;OP;Q\;}
  5610. Nt;OP;Qh;
  5611. Nt;OP;O
  5612. ;Q|:}
  5613. ;OP;Q\;}
  5614. ;OP;Qh;
  5615. ;OP;O
  5616. ;Q|:}
  5617. ;OP;Q\;}
  5618. ;OP;Qh;
  5619. ;OP;O
  5620. ;OP;Q\;}
  5621. ;OP;Qh;
  5622. ;OP;Q\;}
  5623. ;OP;Qh;
  5624. <OP;Q\;}
  5625. <OP;Qh;
  5626. N(<Q\;}
  5627. N(<Qh;
  5628. N(<Q8<~
  5629. N(<QD<
  5630. Nx<OP;O
  5631. <Q8<~
  5632. <Q8<~
  5633. <Q8<~
  5634. <Q8<~
  5635. 8,,5}
  5636. 7|=t6t6
  5637. p5p5d2 8
  5638. ;|9|9
  5639. <`<p<
  5640. P<\>\>
  5641.  < <t
  5642.  8"P.
  5643. x!x%</
  5644. "X"$0
  5645. 8"8'L0
  5646. "8#41
  5647. "x#x1
  5648. X$8%x3
  5649. 8&8)86
  5650. X&8(d6
  5651. &x' 7
  5652. 'X(h8
  5653. (x(D9
  5654. 8(x*x9
  5655. (x+8:
  5656. X)8*p;
  5657. x*8+H=
  5658. 8+x,@>
  5659. ,x-\?
  5660. ,8.p@
  5661. -X.|A
  5662. 7 80J    
  5663. 8T94D    
  5664. ;$P69
  5665. D:<Pd8
  5666. x;DQD
  5667. /KD/-
  5668. /,d4#
  5669. 4}dE#
  5670. 4}dE#
  5671. 5Jp5Jd2
  5672. 5}8H#}`H
  5673. 5}hH#}`H
  5674. 5}$I#
  5675. 5}<I#
  5676. 5}XI#
  5677. 5}pI#
  5678. /-X7#
  5679. /^H7#
  5680. ^@8K08-
  5681. ^`8KP8-
  5682. K@8.@4
  5683. [t6K@8,
  5684. 4}dE#
  5685. 4}dE#
  5686. 8K@8,
  5687. 8}<M}`M
  5688. Nt6Q<9}
  5689. 8QH9}
  5690. 8Qd9}LNJT9
  5691. 6K@8,
  5692. 9K@8,
  5693. :O :Q,:
  5694. :O8:OD:TP:
  5695. :O8:Q,:
  5696. Nh:Qx:
  5697. :OD:TP:
  5698. :OD:TP:
  5699. :OD:TP:
  5700. :OD:TP:
  5701. ;Q$;~
  5702. 8OP;P
  5703. N\;Ql;~(
  5704. N\;Qx;
  5705. N\;OD:TP:
  5706. :OD:TP:
  5707. ;Ql;~h
  5708. ;Ql;~
  5709. <K@8,
  5710. ^0<K <-
  5711. ^P<K@<-
  5712. K0<.@4
  5713. [D=K0<,
  5714. 8}XT}
  5715. 4}xT#
  5716. 4}xT#
  5717. [X=K0<,
  5718. NX=Q09
  5719. ND=Q<9}XT
  5720. NX=QH9}XT
  5721. NX=Qd9}LNJd=
  5722. NX=Qp9
  5723. 6K0<,
  5724. 9K0<,
  5725. F#}DU
  5726. =NX=O
  5727. =O :Q,:
  5728. =O8:OD:TP:
  5729. =O8:Q,:
  5730. =NX=O
  5731. :OD:TP:
  5732. =NX=O
  5733. :OD:TP:
  5734. =NX=O
  5735. :OD:TP:
  5736. =NX=O
  5737. :OD:TP:
  5738. =NX=O
  5739. ;Q$;~
  5740. =NX=O
  5741. >NX=O
  5742. >NX=OP;P
  5743. >Ql;~(
  5744. >OD:TP:
  5745. ^,>NX=O
  5746. ^<>NX=P
  5747. :OD:TP:
  5748. ;Ql;~h
  5749. ;Ql;~
  5750. ^L>NX=O
  5751. NL>Ql;~h
  5752. ;Ql;~
  5753. <K0<,
  5754. O=Lotus Notes
  5755. O=Lotus Notes
  5756. PURSAFO
  5757. |.:#U
  5758. O=Lotus Notes
  5759. CN=Lotus Notes Template Development/O=Lotus Notes
  5760. PURSAFO
  5761. /boT#
  5762. DataPercentLessThan1
  5763. DataPercentOnetoTwo
  5764. DataPercentThreetoFive
  5765. DataUDistribution1
  5766. DataUDistribution2
  5767. DataUDistribution4
  5768. DataUDistribution5
  5769. DataDatePerformed
  5770. DataNumberUsers1
  5771. DataNumberUsers2
  5772. DataNumberUsers3
  5773. DataNumberUsers4
  5774. DataNumberUsers5
  5775. DataLessThan1
  5776. DataOnetoTwo
  5777. DataThreetoFive
  5778. DataUNumberUsers2
  5779. DataUNotesMark2
  5780. DataUResponseTime2
  5781. DataUOther12
  5782. DataUOther22
  5783. DataUNumberUsers3
  5784. DataUDistribution3
  5785. DataUNotesMark3
  5786. DataUResponseTime3
  5787. DataUOther13
  5788. DataUOther23
  5789. DataUNumberUsers4
  5790. DataUNotesMark4
  5791. DataUResponseTime4
  5792. DataUOther14
  5793. DataUOther24
  5794. DataUNumberUsers5
  5795. DataUNotesMark5
  5796. DataUResponseTime5
  5797. DataUOther15
  5798. DataUOther25
  5799. DataULessThan1
  5800. DataUOnetoTwo
  5801. DataUThreetoFive
  5802. DataUSlow1
  5803. DataUPercentSlow1
  5804. DataUSlow2
  5805. DataUPercentSlow2
  5806. DataUSlow3
  5807. DataUPercentSlow3
  5808. DataUSlow4
  5809. DataUPercentSlow4
  5810. DataUModificationDate_1
  5811. $SCRIPTOBJ_12
  5812. $$FormSigned_1
  5813. $FormSigned_1_O
  5814. $$DataUServerID_1
  5815. $DataUServerID_1_O
  5816. $$DataUDatePerformed_1
  5817. $DataUDatePerformed_1_O
  5818. $$DataUScript1_1
  5819. $DataUScript1_1_O
  5820. $$DataUNumberUsers1_1
  5821. $DataUNumberUsers1_1_O
  5822. $$DataUNotesMark1_1
  5823. $DataUNotesMark1_1_O
  5824. $$TotOrdersCreated_1
  5825. $TotOrdersCreated_1_O
  5826. $$TotDollarValue_1
  5827. $TotDollarValue_1_O
  5828. $$TotOrdersLots_1
  5829. $TotOrdersLots_1_O
  5830. $$TotHits_1
  5831. $TotHits_1_O
  5832. $$TotBytesXferred_1
  5833. $TotBytesXferred_1_O
  5834. $$DataUFast_1
  5835. $DataUFast_1_O
  5836. $$DataUMedium_1
  5837. $DataUMedium_1_O
  5838. $$DataUSlow_1
  5839. $DataUSlow_1_O
  5840. $$DataUMore_1
  5841. $DataUMore_1_O
  5842. DataUDatePerformed_1
  5843. DataUNumberUsers1_1
  5844. DataUNotesMark1_1
  5845. TotOrdersCreated_1
  5846. TotDollarValue_1
  5847. TotOrdersLots_1
  5848. TotHits_1
  5849. TotBytesXferred_1
  5850. DataUFast_1
  5851. DataUPercentDFast_1
  5852. DataUPercentFast_1
  5853. DataUMedium_1
  5854. DataUPercentDMedium_1
  5855. DataUPercentMedium_1
  5856. DataUSlow_1
  5857. DataUPercentDSlow_1
  5858. DataUPercentSlow_1
  5859. DataUMore_1
  5860. DataUPercentDMore_1
  5861. DataUPercentMore_1
  5862. $TITLE
  5863. $Info
  5864. $WindowTitle
  5865. $Script
  5866. $$Script_O
  5867. $$ScriptName
  5868. $$FormScript
  5869. $$$FormScript_O
  5870. $$DataUAverage_1
  5871. $DataUAverage_1_O
  5872. $$DataUMinimum_1
  5873. $DataUMinimum_1_O
  5874. $$DataUMaximum_1
  5875. $DataUMaximum_1_O
  5876. $$DataUOther21_1
  5877. $DataUOther21_1_O
  5878. $$DataUOther11_1
  5879. $DataUOther11_1_O
  5880. $$AvgBytesHit_1
  5881. $AvgBytesHit_1_O
  5882. $$DataCalibration_1
  5883. $DataCalibration_1_O
  5884. $$DataGenerated
  5885. $DataGenerated_O
  5886. $$DataGenerated_1
  5887. $DataGenerated_1_O
  5888. $$DataMachineID_1
  5889. $DataMachineID_1_O
  5890. $$EstimatedRecords
  5891. $EstimatedRecords_O
  5892. $$FormSigned
  5893. $FormSigned_O
  5894. $$DataMachineID
  5895. $DataMachineID_O
  5896. $$DataUServerID
  5897. $DataUServerID_O
  5898. $$DataUDatePerformed
  5899. $DataUDatePerformed_O
  5900. $$DataUScript1
  5901. $DataUScript1_O
  5902. $$DataUNumberUsers1
  5903. $DataUNumberUsers1_O
  5904. $$DataUNotesMark1
  5905. $DataUNotesMark1_O
  5906. $$DataUResponseTime1
  5907. $DataUResponseTime1_O
  5908. $$TotOrdersCreated
  5909. $TotOrdersCreated_O
  5910. $$TotDollarValue
  5911. $TotDollarValue_O
  5912. $$TotOrdersLots
  5913. $TotOrdersLots_O
  5914. $$TotHits
  5915. $TotHits_O
  5916. $$AvgBytesHit
  5917. $AvgBytesHit_O
  5918. $$TotBytesXferred
  5919. $TotBytesXferred_O
  5920. $$DataUAverage
  5921. $DataUAverage_O
  5922. $$DataUMinimum
  5923. $DataUMinimum_O
  5924. $$DataUMaximum
  5925. $DataUMaximum_O
  5926. $$DataUFast
  5927. $DataUFast_O
  5928. $$DataUMedium
  5929. $DataUMedium_O
  5930. $$DataUSlow
  5931. $DataUSlow_O
  5932. $$DataUMore
  5933. $DataUMore_O
  5934. DocLinkFlag
  5935. EditFieldFlag
  5936. DataUAverage_1
  5937. DataUMinimum_1
  5938. DataUMaximum_1
  5939. DataUOther21_1
  5940. DataUOther11_1
  5941. AvgBytesHit_1
  5942. AvgHitsMin_1
  5943. DataUResponseTime1_1
  5944. DataUDatePerformed
  5945. DurationTest
  5946. DataUNumberUsers1
  5947. DataUNotesMark1
  5948. DataUResponseTime1
  5949. DataUOther11
  5950. DataUOther21
  5951. TotOrdersCreated
  5952. TotDollarValue
  5953. TotOrdersLots
  5954. TotHits
  5955. AvgBytesHit
  5956. TotBytesXferred
  5957. AvgHitsMin
  5958. DataUAverage
  5959. DataUMinimum
  5960. DataUMaximum
  5961. DataUFast
  5962. DataUPercentDFast
  5963. DataUPercentFast
  5964. DataUMedium
  5965. DataUPercentDMedium
  5966. DataUPercentMedium
  5967. DataUSlow
  5968. DataUPercentDSlow
  5969. DataUPercentSlow
  5970. DataUMore
  5971. DataUPercentDMore
  5972. DataUPercentMore
  5973. DataUCreationDate
  5974. DataUModificationDate
  5975. $Body
  5976. $ACTIONS
  5977. $SCRIPTOBJ_6
  5978. $SCRIPTOBJ_7
  5979. $SCRIPTOBJ_8
  5980. $SCRIPTOBJ_9
  5981. '++LotusScript Development Environment:2:5:(Options):0:66
  5982. Option Public
  5983. '++LotusScript Development Environment:2:5:(Forward):0:1
  5984. Declare Sub Initialize
  5985. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5986. '++LotusScript Development Environment:2:2:Initialize:1:10
  5987. Sub Initialize
  5988.      Dim session As New NotesSession
  5989.      Dim db As NotesDatabase
  5990.      Dim view As NotesView
  5991.      Dim dc As NotesDocumentCollection
  5992.      Dim doc As NotesDocument
  5993.      
  5994.      Set db = session.CurrentDatabase
  5995.      Set view = db.GetView("Estimated")
  5996.      Set doc = view.GetFirstDocument
  5997.      While Not(doc Is Nothing)   ' will remove all documents found under this view
  5998.           Call doc.Remove(True)
  5999.           Set view = db.GetView("Estimated")
  6000.           Set doc = view.GetFirstDocument  '  as a deletion is in progress, always haves to change first document
  6001.          ' Set doc = view.GetNextDocument(doc)
  6002.      Wend
  6003.      
  6004. End Sub
  6005. O=Lotus Notes
  6006. O=Lotus Notes
  6007. PURSAFO
  6008. |.:#U
  6009. O=Lotus Notes
  6010. CN=Lotus Notes Template Development/O=Lotus Notes
  6011. PURSAFO
  6012. $TITLE
  6013. $AssistType
  6014. $AssistLastRun
  6015. $AssistDocCount
  6016. $AssistFlags
  6017. $AssistTrigger
  6018. $AssistInfo
  6019. $AssistQuery
  6020. $AssistAction
  6021. $AssistAction_Ex
  6022. Started running agent 'Create Estimated Documents' on 11/25/98 06:04:30 PM
  6023. Ran LotusScript code
  6024. Done running agent 'Create Estimated Documents' on 11/25/98 06:04:43 PM
  6025. DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg ProbeDataUPercentDFastFastDataUPercentDMediumMediumDataUPercentDSlowSlowDataUOther11Actions/MinDataUOther21Bytes/Min$4SignatureV
  6026. IsSignedField
  6027.     1S3S4S6S8S
  6028. O=Lotus Notes
  6029. O=Lotus Notes
  6030. PURSAFO
  6031. |.:#U
  6032. O=Lotus Notes
  6033. CN=Lotus Notes Template Development/O=Lotus Notes
  6034. PURSAFO
  6035. $TITLE
  6036. $Index
  6037. $Formula
  6038. $FormulaClass
  6039. $ViewFormat
  6040. $Comment
  6041. O=Lotus Notes
  6042. O=Lotus Notes
  6043. PURSAFO
  6044. |.:#U
  6045. O=Lotus Notes
  6046. CN=Lotus Notes Template Development/O=Lotus Notes
  6047. PURSAFO
  6048. sZ%!ZM}
  6049. DJi,'
  6050. $Flags
  6051. O=Lotus Notes
  6052. O=Lotus Notes
  6053. PURSAFO
  6054. |.:#U
  6055. O=Lotus Notes
  6056. CN=Lotus Notes Template Development/O=Lotus Notes
  6057. PURSAFO
  6058. sZ%!ZM}
  6059. 'u'GB
  6060. gU(fB
  6061. $Flags
  6062. Machine Identifier
  6063. Footlight MT Light
  6064. '++LotusScript Development Environment:2:5:(Options):0:66
  6065. Option Public
  6066. '++LotusScript Development Environment:2:5:(Forward):0:1
  6067. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6068. Const MB_ICONSTOP = 16
  6069. Const MB_ICONQUESTION = 32
  6070. Const MB_ICONEXCLAMATION = 48
  6071. Const MB_ICONINFORMATION = 64
  6072. Const MB_YESNO = 4
  6073. Const IDYes = 6
  6074. Const IDNo = 7
  6075. Machine Identifier'++LotusScript Development Environment:2:5:(Options):0:66
  6076. '++LotusScript Development Environment:2:5:(Forward):0:1
  6077. Declare Sub Postopen( Source As Notesuidocument )
  6078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6080. Private Sub BindEvents(Byval Objectname_ As String)
  6081.      Static Source As NOTESUIDOCUMENT
  6082.      Set Source = Bind(Objectname_)
  6083.      On Event Postopen From Source Call Postopen
  6084. End Sub
  6085. '++LotusScript Development Environment:2:2:Postopen:1:12
  6086. Sub Postopen( Source As Notesuidocument )
  6087.      
  6088.       '  TO DO
  6089.      '  put in validation for negative numbers
  6090.      '
  6091.      Dim Workspace As New NotesUIWorkspace
  6092.      Dim ThisDoc As NotesUIDocument
  6093.      Dim Session As New NotesSession
  6094.      Dim ThisDB As NotesDatabase
  6095.      Dim ThisDocBE As NotesDocument
  6096.      Dim sFileName As String
  6097.      
  6098.      Set ThisDoc = Workspace.CurrentDocument
  6099.      Set ThisDB = Session.CurrentDatabase
  6100.      Set ThisDocBE = ThisDoc.Document
  6101.      
  6102.      If ThisDoc.IsNewDoc = True Then
  6103.           ThisDoc.EditMode = True
  6104.           'Call ThisDoc.FieldSetText( "FormSigned", "No" )
  6105.           'ThisDoc.EditMode = False
  6106.      End If
  6107.      
  6108.      If ThisDoc.EditMode = True Then
  6109.           sFileName = ThisDB.FileName
  6110.           sFileName = Mid$( sFilename, 3, ( ( Len( sFileName ) - 2 ) - 4) )  '  remove cp prefix and .nsf extension
  6111.           Call ThisDoc.FieldSetText( "Vendor", Ucase( sFileName ) )
  6112.      End If
  6113.      
  6114.      '  if document is copied, make sure signed status is updated
  6115.      If ThisDocBE.IsSigned = False Then
  6116.           If ThisDoc.FieldGetText( "FormSigned" ) <> "No" Then
  6117.                ThisDoc.EditMode = True
  6118.                'Call ThisDoc.FieldSetText( "FormSigned", "No" )
  6119.                'ThisDoc.EditMode = False
  6120.           End If
  6121.      Else
  6122.           If ThisDoc.FieldGetText( "FormSigned" ) = "No" Then
  6123.                ThisDoc.EditMode = True
  6124.                'Call ThisDoc.FieldSetText( "FormSigned", "Yes" )
  6125.                'ThisDoc.EditMode = False
  6126.           End If
  6127.      End If
  6128.      
  6129.      '  alert about document signature
  6130.      If ThisDocBE.IsSigned Then
  6131.          ' Messagebox "This Document was signed by:  " & ThisDocBE.Signer, MB_ICONINFORMATION, "Machine Identifier"
  6132.      Else
  6133.           If ThisDoc.IsNewDoc = False Then
  6134.               ' Messagebox "Warning:  Document Not Signed", MB_ICONEXCLAMATION, "Machine Identifier"
  6135.           End If
  6136.      End If
  6137.      
  6138. End Sub
  6139. '++LotusScript Development Environment:2:5:(Options):0:66
  6140. '++LotusScript Development Environment:2:5:(Forward):0:1
  6141. Declare Sub Exiting(Source As Field)
  6142. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6143. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6144. Private Sub BindEvents(Byval Objectname_ As String)
  6145.      Static Source As FIELD
  6146.      Set Source = Bind(Objectname_)
  6147.      On Event Exiting From Source Call Exiting
  6148. End Sub
  6149. '++LotusScript Development Environment:2:2:Exiting:1:12
  6150. Sub Exiting(Source As Field)
  6151.      Dim Workspace As New NotesUIWorkspace
  6152.      Dim ThisDoc As NotesUIDocument
  6153.      
  6154.      Set ThisDoc = Workspace.CurrentDocument
  6155.      
  6156.      If ( Isnumeric(ThisDoc.Document.MachineNumberofCPUs) = True ) Then
  6157.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6158.           ThisDoc.GoToField( "MachineNumberofCPUs" )
  6159.      End If
  6160.      
  6161. End Sub
  6162. '++LotusScript Development Environment:2:5:(Options):0:66
  6163. '++LotusScript Development Environment:2:5:(Forward):0:1
  6164. Declare Sub Exiting(Source As Field)
  6165. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6166. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6167. Private Sub BindEvents(Byval Objectname_ As String)
  6168.      Static Source As FIELD
  6169.      Set Source = Bind(Objectname_)
  6170.      On Event Exiting From Source Call Exiting
  6171. End Sub
  6172. '++LotusScript Development Environment:2:2:Exiting:1:12
  6173. Sub Exiting(Source As Field)
  6174.      Dim Workspace As New NotesUIWorkspace
  6175.      Dim ThisDoc As NotesUIDocument
  6176.      
  6177.      Set ThisDoc = Workspace.CurrentDocument
  6178.      
  6179.      If ( Isnumeric(ThisDoc.Document.MachineCPUSpeed) = True ) Then
  6180.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6181.           ThisDoc.GoToField( "MachineCPUSpeed" )
  6182.      End If
  6183.      
  6184. End Sub
  6185. '++LotusScript Development Environment:2:5:(Options):0:66
  6186. '++LotusScript Development Environment:2:5:(Forward):0:1
  6187. Declare Sub Exiting(Source As Field)
  6188. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6189. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6190. Private Sub BindEvents(Byval Objectname_ As String)
  6191.      Static Source As FIELD
  6192.      Set Source = Bind(Objectname_)
  6193.      On Event Exiting From Source Call Exiting
  6194. End Sub
  6195. '++LotusScript Development Environment:2:2:Exiting:1:12
  6196. Sub Exiting(Source As Field)
  6197.      Dim Workspace As New NotesUIWorkspace
  6198.      Dim ThisDoc As NotesUIDocument
  6199.      
  6200.      Set ThisDoc = Workspace.CurrentDocument
  6201.      
  6202.      If ( Isnumeric(ThisDoc.Document.MachineAmountofMemory) = True ) Then
  6203.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6204.           ThisDoc.GoToField( "MachineAmountofMemory" )
  6205.      End If
  6206.      
  6207. End Sub
  6208. '++LotusScript Development Environment:2:5:(Options):0:66
  6209. '++LotusScript Development Environment:2:5:(Forward):0:1
  6210. Declare Sub Exiting(Source As Field)
  6211. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6212. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6213. Private Sub BindEvents(Byval Objectname_ As String)
  6214.      Static Source As FIELD
  6215.      Set Source = Bind(Objectname_)
  6216.      On Event Exiting From Source Call Exiting
  6217. End Sub
  6218. '++LotusScript Development Environment:2:2:Exiting:1:12
  6219. Sub Exiting(Source As Field)
  6220.      Dim Workspace As New NotesUIWorkspace
  6221.      Dim ThisDoc As NotesUIDocument
  6222.      
  6223.      Set ThisDoc = Workspace.CurrentDocument
  6224.      
  6225.      If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles1) = True ) Then
  6226.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6227.           ThisDoc.GoToField( "MachineDiskSpindles1" )
  6228.      End If
  6229. End Sub
  6230. '++LotusScript Development Environment:2:5:(Options):0:66
  6231. '++LotusScript Development Environment:2:5:(Forward):0:1
  6232. Declare Sub Exiting(Source As Field)
  6233. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6234. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6235. Private Sub BindEvents(Byval Objectname_ As String)
  6236.      Static Source As FIELD
  6237.      Set Source = Bind(Objectname_)
  6238.      On Event Exiting From Source Call Exiting
  6239. End Sub
  6240. '++LotusScript Development Environment:2:2:Exiting:1:12
  6241. Sub Exiting(Source As Field)
  6242.      Dim Workspace As New NotesUIWorkspace
  6243.      Dim ThisDoc As NotesUIDocument
  6244.      
  6245.      Set ThisDoc = Workspace.CurrentDocument
  6246.      
  6247.      If ( Isnumeric(ThisDoc.Document.MachineDiskSize1) = True ) Then
  6248.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6249.           ThisDoc.GoToField( "MachineDiskSize1" )
  6250.      End If
  6251.      
  6252. End Sub
  6253. '++LotusScript Development Environment:2:5:(Options):0:66
  6254. '++LotusScript Development Environment:2:5:(Forward):0:1
  6255. Declare Sub Exiting(Source As Field)
  6256. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6257. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6258. Private Sub BindEvents(Byval Objectname_ As String)
  6259.      Static Source As FIELD
  6260.      Set Source = Bind(Objectname_)
  6261.      On Event Exiting From Source Call Exiting
  6262. End Sub
  6263. '++LotusScript Development Environment:2:2:Exiting:1:12
  6264. Sub Exiting(Source As Field)
  6265.      Dim Workspace As New NotesUIWorkspace
  6266.      Dim ThisDoc As NotesUIDocument
  6267.      
  6268.      Set ThisDoc = Workspace.CurrentDocument
  6269.      
  6270.      If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles2) = True ) Then
  6271.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6272.           ThisDoc.GoToField( "MachineDiskSpindles2" )
  6273.      End If
  6274.      
  6275. End Sub
  6276. '++LotusScript Development Environment:2:5:(Options):0:66
  6277. '++LotusScript Development Environment:2:5:(Forward):0:1
  6278. Declare Sub Exiting(Source As Field)
  6279. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6280. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6281. Private Sub BindEvents(Byval Objectname_ As String)
  6282.      Static Source As FIELD
  6283.      Set Source = Bind(Objectname_)
  6284.      On Event Exiting From Source Call Exiting
  6285. End Sub
  6286. '++LotusScript Development Environment:2:2:Exiting:1:12
  6287. Sub Exiting(Source As Field)
  6288.      Dim Workspace As New NotesUIWorkspace
  6289.      Dim ThisDoc As NotesUIDocument
  6290.      
  6291.      Set ThisDoc = Workspace.CurrentDocument
  6292.      
  6293.      If ( Isnumeric(ThisDoc.Document.MachineDiskSize2) = True ) Then
  6294.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6295.           ThisDoc.GoToField( "MachineDiskSize2" )
  6296.      End If
  6297.      
  6298. End Sub
  6299. '++LotusScript Development Environment:2:5:(Options):0:66
  6300. '++LotusScript Development Environment:2:5:(Forward):0:1
  6301. Declare Sub Exiting(Source As Field)
  6302. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6303. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6304. Private Sub BindEvents(Byval Objectname_ As String)
  6305.      Static Source As FIELD
  6306.      Set Source = Bind(Objectname_)
  6307.      On Event Exiting From Source Call Exiting
  6308. End Sub
  6309. '++LotusScript Development Environment:2:2:Exiting:1:12
  6310. Sub Exiting(Source As Field)
  6311.      Dim Workspace As New NotesUIWorkspace
  6312.      Dim ThisDoc As NotesUIDocument
  6313.      
  6314.      Set ThisDoc = Workspace.CurrentDocument
  6315.      
  6316.      If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles3) = True ) Then
  6317.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6318.           ThisDoc.GoToField( "MachineDiskSpindles3" )
  6319.      End If
  6320.      
  6321. End Sub
  6322. '++LotusScript Development Environment:2:5:(Options):0:66
  6323. '++LotusScript Development Environment:2:5:(Forward):0:1
  6324. Declare Sub Exiting(Source As Field)
  6325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6327. Private Sub BindEvents(Byval Objectname_ As String)
  6328.      Static Source As FIELD
  6329.      Set Source = Bind(Objectname_)
  6330.      On Event Exiting From Source Call Exiting
  6331. End Sub
  6332. '++LotusScript Development Environment:2:2:Exiting:1:12
  6333. Sub Exiting(Source As Field)
  6334.      Dim Workspace As New NotesUIWorkspace
  6335.      Dim ThisDoc As NotesUIDocument
  6336.      
  6337.      Set ThisDoc = Workspace.CurrentDocument
  6338.      
  6339.      If ( Isnumeric(ThisDoc.Document.MachineDiskSize3) = True ) Then
  6340.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6341.           ThisDoc.GoToField( "MachineDiskSize3" )
  6342.      End If
  6343.      
  6344. End Sub
  6345. '++LotusScript Development Environment:2:5:(Options):0:66
  6346. '++LotusScript Development Environment:2:5:(Forward):0:1
  6347. Declare Sub Exiting(Source As Field)
  6348. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6349. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6350. Private Sub BindEvents(Byval Objectname_ As String)
  6351.      Static Source As FIELD
  6352.      Set Source = Bind(Objectname_)
  6353.      On Event Exiting From Source Call Exiting
  6354. End Sub
  6355. '++LotusScript Development Environment:2:2:Exiting:1:12
  6356. Sub Exiting(Source As Field)
  6357.      Dim Workspace As New NotesUIWorkspace
  6358.      Dim ThisDoc As NotesUIDocument
  6359.      
  6360.      Set ThisDoc = Workspace.CurrentDocument
  6361.      
  6362.      If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles4) = True ) Then
  6363.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6364.           ThisDoc.GoToField( "MachineDiskSpindles4" )
  6365.      End If
  6366.      
  6367. End Sub
  6368. '++LotusScript Development Environment:2:5:(Options):0:66
  6369. '++LotusScript Development Environment:2:5:(Forward):0:1
  6370. Declare Sub Exiting(Source As Field)
  6371. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6372. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6373. Private Sub BindEvents(Byval Objectname_ As String)
  6374.      Static Source As FIELD
  6375.      Set Source = Bind(Objectname_)
  6376.      On Event Exiting From Source Call Exiting
  6377. End Sub
  6378. '++LotusScript Development Environment:2:2:Exiting:1:12
  6379. Sub Exiting(Source As Field)
  6380.      Dim Workspace As New NotesUIWorkspace
  6381.      Dim ThisDoc As NotesUIDocument
  6382.      
  6383.      Set ThisDoc = Workspace.CurrentDocument
  6384.      
  6385.      If ( Isnumeric(ThisDoc.Document.MachineDiskSize4) = True ) Then
  6386.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6387.           ThisDoc.GoToField( "MachineDiskSize4" )
  6388.      End If
  6389.      
  6390. End Sub
  6391. '++LotusScript Development Environment:2:5:(Options):0:66
  6392. '++LotusScript Development Environment:2:5:(Forward):0:1
  6393. Declare Sub Exiting(Source As Field)
  6394. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6395. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6396. Private Sub BindEvents(Byval Objectname_ As String)
  6397.      Static Source As FIELD
  6398.      Set Source = Bind(Objectname_)
  6399.      On Event Exiting From Source Call Exiting
  6400. End Sub
  6401. '++LotusScript Development Environment:2:2:Exiting:1:12
  6402. Sub Exiting(Source As Field)
  6403.      Dim Workspace As New NotesUIWorkspace
  6404.      Dim ThisDoc As NotesUIDocument
  6405.      
  6406.      Set ThisDoc = Workspace.CurrentDocument
  6407.      
  6408.      If ( Isnumeric(ThisDoc.Document.MachineNumComPorts) = True ) Then
  6409.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6410.           ThisDoc.GoToField( "MachineNumComPorts" )
  6411.      End If
  6412.      
  6413. End Sub
  6414. '++LotusScript Development Environment:2:5:(Options):0:66
  6415. '++LotusScript Development Environment:2:5:(Forward):0:1
  6416. Declare Sub Exiting(Source As Field)
  6417. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6418. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6419. Private Sub BindEvents(Byval Objectname_ As String)
  6420.      Static Source As FIELD
  6421.      Set Source = Bind(Objectname_)
  6422.      On Event Exiting From Source Call Exiting
  6423. End Sub
  6424. '++LotusScript Development Environment:2:2:Exiting:1:12
  6425. Sub Exiting(Source As Field)
  6426.      Dim Workspace As New NotesUIWorkspace
  6427.      Dim ThisDoc As NotesUIDocument
  6428.      
  6429.      Set ThisDoc = Workspace.CurrentDocument
  6430.      
  6431.      If ( Isnumeric(ThisDoc.Document.MachineComPortSpeed) = True ) Then
  6432.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6433.           ThisDoc.GoToField( "MachineComPortSpeed" )
  6434.      End If
  6435.      
  6436. End Sub
  6437. '++LotusScript Development Environment:2:5:(Options):0:66
  6438. '++LotusScript Development Environment:2:5:(Forward):0:1
  6439. Declare Sub Exiting(Source As Field)
  6440. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6441. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6442. Private Sub BindEvents(Byval Objectname_ As String)
  6443.      Static Source As FIELD
  6444.      Set Source = Bind(Objectname_)
  6445.      On Event Exiting From Source Call Exiting
  6446. End Sub
  6447. '++LotusScript Development Environment:2:2:Exiting:1:12
  6448. Sub Exiting(Source As Field)
  6449.      Dim Workspace As New NotesUIWorkspace
  6450.      Dim ThisDoc As NotesUIDocument
  6451.      
  6452.      Set ThisDoc = Workspace.CurrentDocument
  6453.      
  6454.      If ( Isnumeric(ThisDoc.Document.MachineNetworkAdapters) = True ) Then
  6455.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6456.           ThisDoc.GoToField( "MachineNetworkAdapters" )
  6457.      End If
  6458. End Sub
  6459. '++LotusScript Development Environment:2:5:(Options):0:66
  6460. '++LotusScript Development Environment:2:5:(Forward):0:1
  6461. Declare Sub Exiting(Source As Field)
  6462. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6463. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6464. Private Sub BindEvents(Byval Objectname_ As String)
  6465.      Static Source As FIELD
  6466.      Set Source = Bind(Objectname_)
  6467.      On Event Exiting From Source Call Exiting
  6468. End Sub
  6469. '++LotusScript Development Environment:2:2:Exiting:1:12
  6470. Sub Exiting(Source As Field)
  6471.      Dim Workspace As New NotesUIWorkspace
  6472.      Dim ThisDoc As NotesUIDocument
  6473.      
  6474.      Set ThisDoc = Workspace.CurrentDocument
  6475.      
  6476.      If ( Isnumeric(ThisDoc.Document.MachineNetworkAdapterType) = True ) Then
  6477.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6478.           ThisDoc.GoToField( "MachineNetworkAdapterType" )
  6479.      End If
  6480.      
  6481. End Sub
  6482. '++LotusScript Development Environment:2:5:(Options):0:66
  6483. '++LotusScript Development Environment:2:5:(Forward):0:1
  6484. Declare Sub Exiting(Source As Field)
  6485. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6486. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6487. Private Sub BindEvents(Byval Objectname_ As String)
  6488.      Static Source As FIELD
  6489.      Set Source = Bind(Objectname_)
  6490.      On Event Exiting From Source Call Exiting
  6491. End Sub
  6492. '++LotusScript Development Environment:2:2:Exiting:1:12
  6493. Sub Exiting(Source As Field)
  6494.      Dim Workspace As New NotesUIWorkspace
  6495.      Dim ThisDoc As NotesUIDocument
  6496.      
  6497.      Set ThisDoc = Workspace.CurrentDocument
  6498.      
  6499.      If ( Isnumeric(ThisDoc.Document.ClientProfPercent1) = True ) Then
  6500.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6501.           ThisDoc.GoToField( "ClientProfPercent1" )
  6502.      End If
  6503.      
  6504. End Sub
  6505. '++LotusScript Development Environment:2:5:(Options):0:66
  6506. '++LotusScript Development Environment:2:5:(Forward):0:1
  6507. Declare Sub Exiting(Source As Field)
  6508. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6509. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6510. Private Sub BindEvents(Byval Objectname_ As String)
  6511.      Static Source As FIELD
  6512.      Set Source = Bind(Objectname_)
  6513.      On Event Exiting From Source Call Exiting
  6514. End Sub
  6515. '++LotusScript Development Environment:2:2:Exiting:1:12
  6516. Sub Exiting(Source As Field)
  6517.      Dim Workspace As New NotesUIWorkspace
  6518.      Dim ThisDoc As NotesUIDocument
  6519.      
  6520.      Set ThisDoc = Workspace.CurrentDocument
  6521.      
  6522.      If ( Isnumeric(ThisDoc.Document.ClientProfPercent2) = True ) Then
  6523.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6524.           ThisDoc.GoToField( "ClientProfPercent2" )
  6525.      End If
  6526.      
  6527.      
  6528. End Sub
  6529. '++LotusScript Development Environment:2:5:(Options):0:66
  6530. '++LotusScript Development Environment:2:5:(Forward):0:1
  6531. Declare Sub Exiting(Source As Field)
  6532. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6533. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6534. Private Sub BindEvents(Byval Objectname_ As String)
  6535.      Static Source As FIELD
  6536.      Set Source = Bind(Objectname_)
  6537.      On Event Exiting From Source Call Exiting
  6538. End Sub
  6539. '++LotusScript Development Environment:2:2:Exiting:1:12
  6540. Sub Exiting(Source As Field)
  6541.      Dim Workspace As New NotesUIWorkspace
  6542.      Dim ThisDoc As NotesUIDocument
  6543.      
  6544.      Set ThisDoc = Workspace.CurrentDocument
  6545.      
  6546.      If ( Isnumeric(ThisDoc.Document.ClientProfPercent3) = True ) Then
  6547.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6548.           ThisDoc.GoToField( "ClientProfPercent3" )
  6549.      End If
  6550.      
  6551.      
  6552. End Sub
  6553. '++LotusScript Development Environment:2:5:(Options):0:66
  6554. '++LotusScript Development Environment:2:5:(Forward):0:1
  6555. Declare Sub Exiting(Source As Field)
  6556. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6557. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6558. Private Sub BindEvents(Byval Objectname_ As String)
  6559.      Static Source As FIELD
  6560.      Set Source = Bind(Objectname_)
  6561.      On Event Exiting From Source Call Exiting
  6562. End Sub
  6563. '++LotusScript Development Environment:2:2:Exiting:1:12
  6564. Sub Exiting(Source As Field)
  6565.      Dim Workspace As New NotesUIWorkspace
  6566.      Dim ThisDoc As NotesUIDocument
  6567.      
  6568.      Set ThisDoc = Workspace.CurrentDocument
  6569.      
  6570.      If ( Isnumeric(ThisDoc.Document.MachineCost) = True ) Then
  6571.           Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier"
  6572.           ThisDoc.GoToField( "MachineCost" )
  6573.      End If
  6574.      
  6575.      
  6576. End Sub
  6577.     0S0E
  6578. queryid
  6579. DocumentLink
  6580. SaveOptions
  6581. FormNewLocation
  6582. CertifyCheckOn
  6583. IsSignedField
  6584. Machine Identifier
  6585.     Machine ID:
  6586. MachineIDRequired.  Enter a unique Machine ID.  Must match notes.ini  parameter.
  6587.     Signed:
  6588. FormSignedContains "Yes" when certified by NotesBench auditor.
  6589.     Machine Description:
  6590. MachineDescriptionEnter brief description meaningful to analysts and decision makers.
  6591.     Date Created:
  6592. MachineDatePerfomedDate benchmark to be performed.  Initially today's date.
  6593.     Vendor Database:
  6594. Vendor
  6595.     Software Configuration:
  6596.     Notes Version:
  6597. MachineNotesVersionRequired.  Select tested version from pull-down list.
  6598. 4.134.144.514.524.534.544.554.64.614.624.635.0
  6599.     Platform:
  6600. MachinePlatformRequired.  Select the server platform type from pull-down list.
  6601. AIX/RS6000AIX/SP2AS/400HP-UXNetWare 3.12NetWare 4.1NT 3.51NT 4.0OS/2 2.11 SMPOS/2 Warp ConnectOS/2 Warp Server 4.0Solaris 2.5System/390Win95 1.0
  6602.     Hardware Configuration:
  6603.     CPU Type: 
  6604. MachineCPUTypeRequired.  Select server CPU type from pull-down list.
  6605. Alpha 300Alpha 400Alpha 500CryrixPA-RISC 7100PA-RISC 8100Pentium Pro (P6)Pentium (P5)PowerPC 604PowerPC 610SparcUltraSparc
  6606.     Number of CPUs: 
  6607. MachineNumberofCPUsRequired.  Enter integer if more than one CPU configured.   Default is 1.  Maximum is 99.
  6608.     CPU Speed: 
  6609. MachineCPUSpeedRequired.  Select server CPU speed from pull-down list.
  6610. 336690100120133150166180200220233300330
  6611.     Memory:
  6612. MachineAmountofMemoryRequired.  Enter number of megabytes configured.  Maximum field size is 5 digits.
  6613.     Disk I/O (Data Directory):
  6614.     Number/Spindles
  6615.     Disk Size (GB)
  6616.     Disk Type
  6617.     Raid Configured By:
  6618. MachineDiskSpindles1Required.  Enter disk information as tested.  Enter number of spindles.  Default is 1.
  6619. MachineDiskSize1Required.  Enter disk information as tested.  Disk Size is in gigabytes.
  6620. MachineDiskType1Required.  Any Configuration or RAID 5 only (or Select from pull-down list).  Enter disk information as tested.
  6621. Any ConfigurationIncludes RAID 5
  6622. MachineDiskConfigure1Required.  Configured by hardware or software if present.  Enter information as tested.
  6623. HardwareSoftwareNot Used
  6624. MachineDiskSpindles2Enter disk information as tested.  Enter number of spindles. 
  6625. MachineDiskSize2Enter disk information as tested.  Disk Size is in gigabytes.
  6626. MachineDiskType2Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list).  Enter disk information as tested.
  6627. Any ConfigurationIncludes RAID 5
  6628. MachineDiskConfigure2Configured by hardware or software if present (or Select from pull-down list).  Enter information as tested.
  6629. HardwareSoftwareNot Used
  6630. MachineDiskSpindles3Enter disk information as tested.  Enter number of spindles. 
  6631. MachineDiskSize3Enter disk information as tested.  Disk Size is in gigabytes.
  6632. MachineDiskType3Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list).  Enter disk information as tested.
  6633. Any ConfigurationIncludes RAID 5
  6634. MachineDiskConfigure3Configured by hardware or software if present (or Select from pull-down list).  Enter information as tested.
  6635. HardwareSoftwareNot Used
  6636. MachineDiskSpindles4Enter disk information as tested.  Enter number of spindles. 
  6637. MachineDiskSize4Enter disk information as tested.  Disk Size is in gigabytes.
  6638. MachineDiskType4Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list).  Enter disk information as tested.
  6639. Any ConfigurationIncludes RAID 5
  6640. MachineDiskConfigure4Configured by hardware or software if present (or Select from pull-down list).  Enter information as tested.
  6641. HardwareSoftwareNot Used
  6642.     Communication Configuration:
  6643.     Communication Ports:  
  6644.     Number:
  6645. MachineNumComPortsOptional.  Enter number of Communication Port(s).  
  6646.     Speed:
  6647. MachineComPortSpeedOptional.  Enter Speed of Communication Port(s) in MegaBits.
  6648. Mbits
  6649.              
  6650.     Network Adapters:  
  6651.         
  6652.     Number:
  6653. MachineNetworkAdaptersOptional.  Enter Number of Network Adapter(s).
  6654.     Speed: 
  6655. MachineNetworkAdapterTypeOptional.  Enter Speed of Network Adapter(s) in MegaBits.
  6656.  Mbits
  6657.     Client Profile:
  6658.     Connection Type
  6659.     Client Type Distribution
  6660. ClientProf1Required.  Select client connect protocol type from pull-down list.
  6661. NETBeuiSPXTCPIPX.PC
  6662. ClientProfPercent1Required.  Percentage of clients assigned to protocol.
  6663. ClientProf2Select client connect protocol type from pull-down list.
  6664. NETBeuiSPXTCPIPX.PC
  6665. ClientProfPercent2Percentage of clients assigned to protocol.
  6666. ClientProf3Select client connect protocol type from pull-down list.
  6667. NETBeuiSPXTCPIPX.PC
  6668. ClientProfPercent3Percentage of clients assigned to protocol.
  6669.     Miscellaneous:
  6670.     Cost (List):
  6671. MachineCostRequired.  Enter list price on date available for analysis.  Includes Hardware and Software costs.
  6672. MachineCostDateRequired.  Enter list price on date it was available for cost/performance analysis.
  6673. Document History
  6674.     Author:
  6675. MachineAuthorOptional.  Author of this document.  Defaults to current user.
  6676.     Creation Date: 
  6677. MachineCreationDateOptional.  Date this form initially created.  Defaults to current date.
  6678.     Modification Date:
  6679. MachineModificationDateOptional.  Date this form last changed.  Defaults to current date.
  6680.     Comments:
  6681. MachineCommentsOptional.  Any additional comments about this form.
  6682. Categori_ze
  6683. _Edit Document
  6684. Send Docu_ment
  6685. _Forward
  6686. _Move To Folder...
  6687. _Remove From Folder 
  6688. Exit 
  6689.     0S0E
  6690. Save'++LotusScript Development Environment:2:5:(Options):0:66
  6691. '++LotusScript Development Environment:2:5:(Forward):0:1
  6692. Declare Sub Click( Source As Button )
  6693. Declare Function ValidateDiskIO( ThisDoc As NotesUIDocument, iDiskCount As Integer ) As Integer
  6694. Declare Function EntryPresent( ThisDoc As NotesUIDocument, iRowNum As Integer ) As Integer
  6695. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6696. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6697. Private Sub BindEvents(Byval Objectname_ As String)
  6698.      Static Source As BUTTON
  6699.      Set Source = Bind(Objectname_)
  6700.      On Event Click From Source Call Click
  6701. End Sub
  6702. '++LotusScript Development Environment:2:2:Click:1:12
  6703. Sub Click( Source As Button )
  6704.      ' TO DO
  6705.      '  validate machineid name is unique in db
  6706.      
  6707.      Dim WorkSpace As New NotesUIWorkspace
  6708.      Dim ThisDoc As NotesUIDocument
  6709.      Dim ThisDocBE As NotesDocument
  6710.      Dim vTemp As Variant
  6711.      
  6712.      Set ThisDoc = WorkSpace.CurrentDocument
  6713.      Set ThisDocBE=ThisDoc.Document
  6714.      
  6715.      '  first verify the SaveOptions field value (if 0, don't save )
  6716.      vTemp = ThisDocBE.SaveOptions
  6717.      If vTemp(0) = "0" Then
  6718.           Messagebox "Cannot save after document is signed", MB_ICONEXCLAMATION, "Machine Identifier"
  6719.           Exit Sub
  6720.      End If
  6721.      
  6722.      If ThisDocBE.IsSigned = True Then
  6723.           '  prompt to insure saving knowingly will invalidate signature
  6724.           Dim lBoxType As Long, iAnswer As Integer
  6725.           Dim sTwoLiner As String
  6726.           lboxType& = MB_YESNO + MB_ICONQUESTION
  6727.           '  should be two lines
  6728.           sTwoLiner = |Are You Sure?  
  6729. ( Saving this information will invalidate the digital signature. )|
  6730.           iAnswer = Messagebox( sTwoLiner, lBoxType, "Save Vendor Data" )
  6731.           If iAnswer = IDNO Then
  6732.                Exit Sub
  6733.           End If
  6734.      End If
  6735.      
  6736.      '  need to verify that all required fields are filled in
  6737.          '  Required:  Machine ID
  6738.      vTemp = ThisDoc.Document.MachineID
  6739.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6740.           Messagebox "Required:  Machine Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6741.           ThisDoc.GoToField( "MachineID" )
  6742.           Exit Sub
  6743.      End If
  6744.      
  6745.      '  Required:  Notes Version
  6746.      vTemp = ThisDoc.Document.MachineNotesVersion
  6747.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6748.           Messagebox "Required:  Notes Version Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6749.           ThisDoc.GoToField( "MachineNotesVersion" )
  6750.           Exit Sub
  6751.      End If
  6752.      
  6753.      '  Required:  Platform
  6754.      vTemp = ThisDoc.Document.MachinePlatform
  6755.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6756.           Messagebox "Required:  Machine Platform Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6757.           ThisDoc.GoToField( "MachinePlatform" )
  6758.           Exit Sub
  6759.      End If
  6760.      
  6761.      '  Required:  CPUType
  6762.      vTemp = ThisDoc.Document.MachineCPUType
  6763.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6764.           Messagebox "Required:  Machine CPU Type Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6765.           ThisDoc.GoToField( "MachineCPUType" )
  6766.           Exit Sub
  6767.      End If
  6768.      
  6769.      '  Required:  Number of CPUs
  6770.      vTemp = ThisDoc.Document.MachineNumberofCPUs
  6771.      If Len( vTemp( 0 ) ) = 0 Or Len( vTemp( 0 ) )= 0 Then
  6772.           Messagebox "Required:  Number of CPUs", MB_ICONEXCLAMATION, "Machine Identifier"
  6773.           ThisDoc.GoToField( "MachineNumberofCPUs" )
  6774.           Exit Sub
  6775.      End If
  6776.      
  6777.      '  Required:  Machine CPU Speed
  6778.      vTemp = ThisDoc.Document.MachineCPUSpeed
  6779.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = "" Then
  6780.           Messagebox "Required:  Machine CPU Speed Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6781.           ThisDoc.GoToField( "MachineCPUSpeed" )
  6782.           Exit Sub
  6783.      End If
  6784.      
  6785.      '  Required:  Amount of Memory
  6786.      vTemp = ThisDoc.Document.MachineAmountofMemory
  6787.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6788.           Messagebox "Required:  Amount of Memory Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6789.           ThisDoc.GoToField( "MachineAmountofMemory" )
  6790.           Exit Sub
  6791.      End If
  6792.      
  6793.      ' Required:  At least one entry in first slot
  6794.      If ValidateDiskIO( ThisDoc, 1 ) = False Then
  6795.           Exit Sub
  6796.      End If
  6797.      
  6798.      '  Optional:  if entry present in the Disk configuration row, validate the whole row
  6799.      If EntryPresent( ThisDoc, 2 ) Then
  6800.           If ValidateDiskIO( ThisDoc, 2 ) = False Then
  6801.                Exit Sub
  6802.           End If
  6803.      End If
  6804.      If EntryPresent( ThisDoc, 3 ) Then
  6805.           If ValidateDiskIO( ThisDoc, 3 ) = False Then
  6806.                Exit Sub
  6807.           End If
  6808.      End If
  6809.      If EntryPresent( ThisDoc, 4 ) Then
  6810.           If ValidateDiskIO( ThisDoc, 4 ) = False Then
  6811.                Exit Sub
  6812.           End If
  6813.      End If
  6814.      
  6815.      '  Required:  Client Profile - should have at least one, verify other entries if present
  6816.      vTemp = ThisDoc.Document.MachineID
  6817.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6818.           Messagebox "Required:  Machine Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6819.           ThisDoc.GoToField( "MachineID" )
  6820.           Exit Sub
  6821.      End If
  6822.      
  6823.      '  verify client profile distribution adds up to 100
  6824.      'If ( Cint( ThisDoc.FieldGetText( "ClientProfPercent1" ) ) +Cint( ThisDoc.FieldGetText( "ClientProfPercent2" ) ) _
  6825.      '+ Cint( ThisDoc.FieldGetText( "ClientProfPercent3" ) ) ) <> 100 Then
  6826.      Dim vTemp1 As Variant
  6827.      Dim vTemp2 As Variant
  6828.      Dim vTemp3 As Variant
  6829.      
  6830.      vTemp1 = ThisDoc.Document.ClientProfPercent1
  6831.      vTemp2 = ThisDoc.Document.ClientProfPercent2
  6832.      vTemp3 = ThisDoc.Document.ClientProfPercent3
  6833.      
  6834.      If (  vTemp1( 0 ) + vTemp2( 0 ) + vTemp3( 0 ) ) <> 100 Then
  6835.           Messagebox "Required: Client Profile Percentage Distribution must add up to 100", MB_ICONEXCLAMATION, "Machine Identifier"
  6836.           ThisDoc.GoToField( "ClientProfPercent1" )
  6837.           Exit Sub
  6838.      End If
  6839.      
  6840.      vTemp = ThisDoc.Document.ClientProf1
  6841.      If Isnumeric( vTemp1( 0 ) ) = False Then
  6842.           Messagebox "Required:  Client Profile Type #1", MB_ICONEXCLAMATION, "Machine Identifier"
  6843.           ThisDoc.GoToField( "ClientProf1" )
  6844.           Exit Sub
  6845.      Elseif vTemp1( 0 ) = 0 Or vTemp( 0 ) = "" Then
  6846.           Messagebox "Required:  Client Profile Type #1", MB_ICONEXCLAMATION, "Machine Identifier"
  6847.           ThisDoc.GoToField( "ClientProf1" )
  6848.           Exit Sub
  6849.      End If
  6850.      
  6851.      
  6852.      vTemp = ThisDoc.Document.ClientProf2
  6853.      If Len( vTemp2( 0 ) ) = 0 Then
  6854.           If  vTemp2( 0 ) = "" And vTemp( 0 ) <> "" Then
  6855.                Messagebox "Required:  Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier"
  6856.                ThisDoc.GoToField( "ClientProf2" )
  6857.                Exit Sub
  6858.           End If
  6859.      Else
  6860.           If vTemp2( 0 ) > 0  And vTemp( 0 ) = "" Then
  6861.                Messagebox "Required:  Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier"
  6862.                ThisDoc.GoToField( "ClientProf2" )
  6863.                Exit Sub
  6864.           Elseif vTemp2( 0 ) = 0  And vTemp( 0 ) <> "" Then
  6865.                Messagebox "Required:  Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier"
  6866.                ThisDoc.GoToField( "ClientProf2" )
  6867.                Exit Sub
  6868.           End If
  6869.      End If
  6870.      
  6871.      vTemp = ThisDoc.Document.ClientProf3
  6872.      If Len( vTemp3( 0 ) ) = 0 Then
  6873.           If  vTemp3( 0 ) = "" And vTemp( 0 ) <> "" Then
  6874.                Messagebox "Required:  Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier"
  6875.                ThisDoc.GoToField( "ClientProf3" )
  6876.                Exit Sub
  6877.           End If
  6878.      Else
  6879.           If vTemp3( 0 ) > 0 And vTemp( 0 )  = "" Then
  6880.                Messagebox "Required:  Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier"
  6881.                ThisDoc.GoToField( "ClientProf3" )
  6882.                Exit Sub
  6883.           Elseif vTemp3( 0 ) = 0 And vTemp( 0 )  <> "" Then
  6884.                Messagebox "Required:  Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier"
  6885.                ThisDoc.GoToField( "ClientProf3" )
  6886.                Exit Sub
  6887.           End If
  6888.      End If
  6889.      
  6890.              '  Required: Machine Cost
  6891.      vTemp = ThisDoc.Document.MachineCost
  6892.      If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then
  6893.           Messagebox "Required:  Machine Cost (List)  Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6894.           ThisDoc.GoToField( "MachineCost" )
  6895.           Exit Sub
  6896.      End If     
  6897.      
  6898.      '   wants you to be in edit mode
  6899.      On Error Goto Done
  6900.         '  first verify the SaveOptions field value (if 0, don't save )
  6901.      vTemp = ThisDocBE.SaveOptions
  6902.      If vTemp(0) = "1" Then
  6903.           ThisDoc.Save
  6904.      End If
  6905.      Exit Sub
  6906.      
  6907. Done:
  6908.      Messagebox "Need to be in Edit Mode, then Save Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6909.      Exit Sub
  6910. End Sub
  6911. '++LotusScript Development Environment:2:1:ValidateDiskIO:1:8
  6912. Function ValidateDiskIO( ThisDoc As NotesUIDocument, iDiskCount As Integer ) As Integer
  6913.      '  input:  index into table, output is whether it is correctly filled out
  6914.      
  6915.      ValidateDiskIO = True   ' return success code
  6916.      
  6917.      If iDiskCount = 1 Then
  6918.      '  Required:  One entry for disk, verify other entries if present
  6919.      '  Disk Spindle info
  6920.           vTemp = ThisDoc.Document.MachineDiskSpindles1
  6921.           If vTemp( 0 ) = 0  Then
  6922.                Messagebox "Required:  Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6923.                ThisDoc.GoToField( "MachineDiskSpindles1" )
  6924.                ValidateDiskIO = False
  6925.                Exit Function
  6926.           End If
  6927.           
  6928.       '  Disk Size info
  6929.           vTemp = ThisDoc.Document.MachineDiskSize1
  6930.           If  vTemp( 0 ) = 0   Then
  6931.                Messagebox "Required:  Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6932.                ThisDoc.GoToField( "MachineDiskSize1" )
  6933.                ValidateDiskIO = False
  6934.                Exit Function
  6935.           End If
  6936.           
  6937.       '  Disk Type (RAID)  info
  6938.           vTemp = ThisDoc.Document.MachineDiskType1
  6939.           If  vTemp( 0 ) = ""   Then
  6940.                Messagebox "Required:  Disk Type (RAID)  Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6941.                ThisDoc.GoToField( "MachineDiskType1" )
  6942.                ValidateDiskIO = False
  6943.                Exit Function
  6944.           End If
  6945.           
  6946.       '  Disk Configure (HW/SW) info
  6947.           vTemp = ThisDoc.Document.MachineDiskConfigure1
  6948.           If vTemp( 0 ) = ""   Then
  6949.                Messagebox "Required:  Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6950.                ThisDoc.GoToField( "MachineDiskConfigure1" )
  6951.                ValidateDiskIO = False
  6952.                Exit Function
  6953.           End If
  6954.      Elseif iDiskCount = 2 Then
  6955.           vTemp = ThisDoc.Document.MachineDiskSpindles2
  6956.           If vTemp( 0 ) = 0 Then
  6957.                Messagebox "Required:  Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6958.                ThisDoc.GoToField( "MachineDiskSpindles2" )
  6959.                ValidateDiskIO = False
  6960.                Exit Function
  6961.           End If
  6962.           vTemp = ThisDoc.Document.MachineDiskSize2
  6963.           If vTemp( 0 ) = 0 Then
  6964.                Messagebox "Required:  Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6965.                ThisDoc.GoToField( "MachineDiskSize2" )
  6966.                ValidateDiskIO = False
  6967.                Exit Function
  6968.           End If
  6969.           vTemp = ThisDoc.Document.MachineDiskType2
  6970.           If vTemp( 0 ) = "" Then
  6971.                Messagebox "Required:  Disk Type (RAID)  Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6972.                ThisDoc.GoToField( "MachineDiskType2" )
  6973.                ValidateDiskIO = False
  6974.                Exit Function
  6975.           End If
  6976.           vTemp = ThisDoc.Document.MachineDiskConfigure2
  6977.           If vTemp( 0 ) = "" Then
  6978.                Messagebox "Required:  Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6979.                ThisDoc.GoToField( "MachineDiskConfigure2" )
  6980.                ValidateDiskIO = False
  6981.                Exit Function
  6982.           End If
  6983.      Elseif iDiskCount = 3 Then
  6984.           vTemp = ThisDoc.Document.MachineDiskSpindles3
  6985.           If vTemp( 0 ) = 0 Then
  6986.                Messagebox "Required:  Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6987.                ThisDoc.GoToField( "MachineDiskSpindles3" )
  6988.                ValidateDiskIO = False
  6989.                Exit Function
  6990.           End If
  6991.           vTemp = ThisDoc.Document.MachineDiskSize3
  6992.           If vTemp( 0 ) = 0 Then
  6993.                Messagebox "Required:  Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier"
  6994.                ThisDoc.GoToField( "MachineDiskSize3" )
  6995.                ValidateDiskIO = False
  6996.                Exit Function
  6997.           End If
  6998.           vTemp = ThisDoc.Document.MachineDiskType3
  6999.           If vTemp( 0 ) = ""  Then
  7000.                Messagebox "Required:  Disk Type (RAID)  Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7001.                ThisDoc.GoToField( "MachineDiskType3" )
  7002.                ValidateDiskIO = False
  7003.                Exit Function
  7004.           End If
  7005.           vTemp = ThisDoc.Document.MachineDiskConfigure3
  7006.           If vTemp( 0 ) = ""   Then
  7007.                Messagebox "Required:  Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7008.                ThisDoc.GoToField( "MachineDiskConfigure3" )
  7009.                ValidateDiskIO = False
  7010.                Exit Function
  7011.           End If
  7012.      Elseif iDiskCount = 4 Then
  7013.           vTemp = ThisDoc.Document.MachineDiskSpindles4
  7014.           If vTemp( 0 ) = 0   Then
  7015.                Messagebox "Required:  Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7016.                ThisDoc.GoToField( "MachineDiskSpindles4" )
  7017.                ValidateDiskIO = False
  7018.                Exit Function
  7019.           End If
  7020.           vTemp = ThisDoc.Document.MachineDiskSize4
  7021.           If vTemp( 0 ) = 0 Then
  7022.                Messagebox "Required:  Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7023.                ThisDoc.GoToField( "MachineDiskSize4" )
  7024.                ValidateDiskIO = False
  7025.                Exit Function
  7026.           End If
  7027.           vTemp = ThisDoc.Document.MachineDiskType4
  7028.           If vTemp( 0 ) = "" Then
  7029.                Messagebox "Required:  Disk Type (RAID)  Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7030.                ThisDoc.GoToField( "MachineDiskType4" )
  7031.                ValidateDiskIO = False
  7032.                Exit Function
  7033.           End If
  7034.           vTemp = ThisDoc.Document.MachineDiskConfigure4
  7035.           If vTemp( 0 ) = "" Then
  7036.                Messagebox "Required:  Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier"
  7037.                ThisDoc.GoToField( "MachineDiskConfigure4" )
  7038.                ValidateDiskIO = False
  7039.                Exit Function
  7040.           End If
  7041.      End If
  7042. End Function
  7043. '++LotusScript Development Environment:2:1:EntryPresent:1:8
  7044. Function EntryPresent( ThisDoc As NotesUIDocument, iRowNum As Integer ) As Integer
  7045.      Dim vTemp As Variant
  7046.      
  7047.      EntryPresent = False   ' return success code only if at least one column is filled in (data entry only)
  7048.      
  7049.      If iRowNum = 2 Then
  7050.          '  Disk Spindle info
  7051.           vTemp = ThisDoc.Document.MachineDiskSpindles2
  7052.           If Isnumeric( vTemp( 0 ) ) = True Then
  7053.                If  vTemp( 0 ) > 0 Then
  7054.                     EntryPresent = True
  7055.                     Exit Function
  7056.                End If
  7057.           End If
  7058.           
  7059.           
  7060.       '  Disk Size info
  7061.           vTemp = ThisDoc.Document.MachineDiskSize2
  7062.           If Isnumeric( vTemp( 0 ) ) = True Then
  7063.                If vTemp( 0 ) > 0  Then
  7064.                     EntryPresent = True
  7065.                     Exit Function
  7066.                End If
  7067.           End If
  7068.           
  7069.      Elseif iRowNum = 3 Then
  7070.        '  Disk Spindle info
  7071.           vTemp = ThisDoc.Document.MachineDiskSpindles3
  7072.           If Isnumeric( vTemp( 0 ) ) = True Then
  7073.                If vTemp( 0 ) > 0 Then
  7074.                     EntryPresent = True
  7075.                     Exit Function
  7076.                End If
  7077.           End If
  7078.           
  7079.       '  Disk Size info
  7080.           vTemp = ThisDoc.Document.MachineDiskSize3
  7081.           If Isnumeric( vTemp( 0 ) ) = True Then
  7082.                If vTemp( 0 ) > 0  Then
  7083.                     EntryPresent = True
  7084.                     Exit Function
  7085.                End If
  7086.           End If
  7087.           
  7088.      Elseif iRowNum = 4 Then
  7089.        '  Disk Spindle info
  7090.           vTemp = ThisDoc.Document.MachineDiskSpindles4
  7091.           If Isnumeric( vTemp( 0 ) ) = True Then
  7092.                If vTemp( 0 ) > 0 Then
  7093.                     EntryPresent = True
  7094.                     Exit Function
  7095.                End If
  7096.           End If
  7097.           
  7098.       '  Disk Size info
  7099.           vTemp = ThisDoc.Document.MachineDiskSize4
  7100.           If Isnumeric( vTemp( 0 ) ) = True Then
  7101.                If vTemp( 0 ) > 0  Then
  7102.                     EntryPresent = True
  7103.                     Exit Function
  7104.                End If
  7105.           End If
  7106.      End If
  7107.      
  7108. End Function
  7109. FormNewLocation
  7110. Edit'++LotusScript Development Environment:2:5:(Options):0:66
  7111. '++LotusScript Development Environment:2:5:(Forward):0:1
  7112. Declare Sub Click(Source As Button)
  7113. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7114. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7115. Private Sub BindEvents(Byval Objectname_ As String)
  7116.      Static Source As BUTTON
  7117.      Set Source = Bind(Objectname_)
  7118.      On Event Click From Source Call Click
  7119. End Sub
  7120. '++LotusScript Development Environment:2:2:Click:1:12
  7121. Sub Click(Source As Button)
  7122.      '  changed from @PostedCommand([EditDocument])
  7123.      Dim WorkSpace As New NotesUIWorkspace
  7124.      Dim ThisDoc As NotesUIDocument
  7125.      Dim ThisDocBE As NotesDocument
  7126.      Dim vTemp As Variant
  7127.      
  7128.      Set ThisDoc = WorkSpace.CurrentDocument
  7129.      Set ThisDocBE=ThisDoc.Document
  7130.      
  7131.      ThisDoc.EditMode = True
  7132.      ThisDoc.GoToField( "MachineID" )   '  for some reason, not positioning at specified field
  7133. End Sub
  7134. FormNewLocation
  7135. Help^
  7136. DSPUG.NSF
  7137. Table of Contents
  7138.     4S10S12S13S.
  7139. FormNewLocation
  7140.     @    mk
  7141. O=Lotus Notes
  7142. O=Lotus Notes
  7143. PURSAFO
  7144. |.:#U
  7145. O=Lotus Notes
  7146. CN=Lotus Notes Template Development/O=Lotus Notes
  7147. PURSAFO
  7148. tE>c6
  7149. m0y7s
  7150. DataThreetoFive
  7151. DataDatePerformed
  7152. DataActivityHour
  7153. DataRoutedHour
  7154. DataNumComPorts
  7155. DataNetworkAdapters
  7156. DataNumberofCPUs
  7157. DataAmountofMemory
  7158. MachineDatePerformed
  7159. MachineDatePerfomed0
  7160. MachineDiskSpindles10
  7161. MachineDiskSpindles20
  7162. MachineDiskSpindles30
  7163. MachineDiskSpindles40
  7164. MachineDiskSize10
  7165. MachineDiskSize20
  7166. MachineDiskSize30
  7167. MachineDiskSize40
  7168. MachineCost0
  7169. MachineCostDate0
  7170. $TITLE
  7171. $Info
  7172. $WindowTitle
  7173. $Script
  7174. $$Script_O
  7175. $$ScriptName
  7176. $$FormScript
  7177. $$$FormScript_O
  7178. $$MachineNumberofCPUs
  7179. $MachineNumberofCPUs_O
  7180. $$MachineCPUSpeed
  7181. $MachineCPUSpeed_O
  7182. $$MachineAmountofMemory
  7183. $MachineAmountofMemory_O
  7184. $$MachineDiskSpindles1
  7185. $MachineDiskSpindles1_O
  7186. $$MachineDiskSize1
  7187. $MachineDiskSize1_O
  7188. $$MachineDiskSpindles2
  7189. $MachineDiskSpindles2_O
  7190. $$MachineDiskSize2
  7191. $MachineDiskSize2_O
  7192. $$MachineDiskSpindles3
  7193. $MachineDiskSpindles3_O
  7194. $$MachineDiskSize3
  7195. $MachineDiskSize3_O
  7196. $$MachineDiskSpindles4
  7197. $MachineDiskSpindles4_O
  7198. $$MachineDiskSize4
  7199. $MachineDiskSize4_O
  7200. $$MachineNumComPorts
  7201. $MachineNumComPorts_O
  7202. $$MachineComPortSpeed
  7203. $MachineComPortSpeed_O
  7204. $$MachineNetworkAdapters
  7205. $MachineNetworkAdapters_O
  7206. $$MachineNetworkAdapterType
  7207. $MachineNetworkAdapterType_O
  7208. $$ClientProfPercent1
  7209. $ClientProfPercent1_O
  7210. $$ClientProfPercent2
  7211. $ClientProfPercent2_O
  7212. $$ClientProfPercent3
  7213. $ClientProfPercent3_O
  7214. $$MachineCost
  7215. $MachineCost_O
  7216. MachineDatePerfomed
  7217. MachineNumberofCPUs
  7218. MachineAmountofMemory
  7219. MachineDiskSpindles1
  7220. MachineDiskSize1
  7221. MachineDiskSpindles2
  7222. MachineDiskSize2
  7223. MachineDiskSpindles3
  7224. MachineDiskSize3
  7225. MachineDiskSpindles4
  7226. MachineDiskSize4
  7227. MachineNumComPorts
  7228. MachineComPortSpeed
  7229. MachineNetworkAdapters
  7230. MachineNetworkAdapterType
  7231. ClientProfPercent1
  7232. ClientProfPercent2
  7233. ClientProfPercent3
  7234. MachineCost
  7235. MachineCostDate
  7236. MachineCreationDate
  7237. MachineModificationDate
  7238. $Body
  7239. $ACTIONS
  7240. $SCRIPTOBJ_7
  7241. $SCRIPTOBJ_8
  7242. GraphicButton1
  7243. Im?nI
  7244. @I[R    
  7245.  @  @@ @` @
  7246. @@ @@@@@`@@
  7247. `@ `@@`@``@
  7248. HHHHHHHH
  7249. RRRRRRRR
  7250. HotspotRectangle1
  7251. Machine Identifier
  7252.     0S0E
  7253. Machine Identifier
  7254. HotspotRectangle2
  7255. Vendor Data
  7256.     0S0E
  7257. Vendor Data
  7258. O=Lotus Notes
  7259. O=Lotus Notes
  7260. PURSAFO
  7261. |.:#U
  7262. O=Lotus Notes
  7263. CN=Lotus Notes Template Development/O=Lotus Notes
  7264. PURSAFO
  7265. $ViewMapDataset
  7266. $ViewMapLayout
  7267. Footlight MT Light
  7268. (List)
  7269. queryid
  7270. ListType
  7271.  List
  7272. O=Lotus Notes
  7273. O=Lotus Notes
  7274. PURSAFO
  7275. |.:#U
  7276. O=Lotus Notes
  7277. CN=Lotus Notes Template Development/O=Lotus Notes
  7278. PURSAFO
  7279. Fde!f^^
  7280. $TITLE
  7281. $Info
  7282. $$ScriptName
  7283. $Body
  7284. OutputInfo
  7285. Output Database Information:
  7286. Server:
  7287. OutputServer
  7288. OutputFilename
  7289. Filename:
  7290. Save Results:
  7291. OutputSaveResults
  7292. Create Mail ItemOutput to Database
  7293. O=Lotus Notes
  7294. O=Lotus Notes
  7295. PURSAFO
  7296. |.:#U
  7297. O=Lotus Notes
  7298. CN=Lotus Notes Template Development/O=Lotus Notes
  7299. PURSAFO
  7300. Fde!f^^
  7301. $TITLE
  7302. $Info
  7303. $$Script_O
  7304. $$ScriptName
  7305. $Body
  7306. DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg Probe Resp TimeDataUPercentFastFastDataUPercentMediumMediumDataUPercentSlowSlowDataUOther11Activity/HourDataUOther21MB/Hour$1SignatureT
  7307. FormSigned
  7308.     1S3S4S6S8S
  7309. O=Lotus Notes
  7310. O=Lotus Notes
  7311. PURSAFO
  7312. |.:#U
  7313. O=Lotus Notes
  7314. CN=Lotus Notes Template Development/O=Lotus Notes
  7315. PURSAFO
  7316. Fde!f^^
  7317. $TITLE
  7318. $Index
  7319. $Formula
  7320. $FormulaClass
  7321. $ViewFormat
  7322. $Comment
  7323. Started running agent 'Remove Estimated Documents' on 11/23/98 10:46:44 AM
  7324. Ran LotusScript code
  7325. Done running agent 'Remove Estimated Documents' on 11/23/98 10:46:58 AM
  7326. $UpdatedBy$ACLDigest$Signature$Name$DesignVersion$Version$Formula$FormulaClass$Collation$Info$Flags$Fonts$Body$TemplateModTime$TemplateServerName$TemplateFileName$DefaultNavigator$FlagsNoRefreshIconBitmap$TITLE$Index$Collation1$Collation2$ViewFormat$CommentDataPercentLessThan1DataPercentOnetoTwoDataPercentThreetoFiveDataUDistribution1DataUDistribution2DataUDistribution4DataUDistribution5DataDatePerformedDataNumberUsers1DataNumberUsers2DataNumberUsers3DataNumberUsers4DataNumberUsers5DataLessThan1DataOnetoTwoDataThreetoFiveDataUNumberUsers2DataUNotesMark2DataUResponseTime2DataUOther12DataUOther22DataUNumberUsers3DataUDistribution3DataUNotesMark3DataUResponseTime3DataUOther13DataUOther23DataUNumberUsers4DataUNotesMark4DataUResponseTime4DataUOther14DataUOther24DataUNumberUsers5DataUNotesMark5DataUResponseTime5DataUOther15DataUOther25DataULessThan1DataUOnetoTwoDataUThreetoFiveDataUSlow1DataUPercentSlow1DataUSlow2DataUPercentSlow2DataUSlow3DataUPercentSlow3DataUSlow4DataUPercentSlow4DataUModificationDate_1$SCRIPTOBJ_12$$FormSigned_1$FormSigned_1_O$$DataUServerID_1$DataUServerID_1_O$$DataUDatePerformed_1$DataUDatePerformed_1_O$$DataUScript1_1$DataUScript1_1_O$$DataUNumberUsers1_1$DataUNumberUsers1_1_O$$DataUNotesMark1_1$DataUNotesMark1_1_O$$TotOrdersCreated_1$TotOrdersCreated_1_O$$TotDollarValue_1$TotDollarValue_1_O$$TotOrdersLots_1$TotOrdersLots_1_O$$TotHits_1$TotHits_1_O$$TotBytesXferred_1$TotBytesXferred_1_O$$DataUFast_1$DataUFast_1_O$$DataUMedium_1$DataUMedium_1_O$$DataUSlow_1$DataUSlow_1_O$$DataUMore_1$DataUMore_1_ODataUDatePerformed_1DataUNumberUsers1_1DataUNotesMark1_1TotOrdersCreated_1TotDollarValue_1TotOrdersLots_1TotHits_1TotBytesXferred_1DataUFast_1DataUPercentDFast_1DataUPercentFast_1DataUMedium_1DataUPercentDMedium_1DataUPercentMedium_1DataUSlow_1DataUPercentDSlow_1DataUPercentSlow_1DataUMore_1DataUPercentDMore_1DataUPercentMore_1$WindowTitle$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_O$$DataUAverage_1$DataUAverage_1_O$$DataUMinimum_1$DataUMinimum_1_O$$DataUMaximum_1$DataUMaximum_1_O$$DataUOther21_1$DataUOther21_1_O$$DataUOther11_1$DataUOther11_1_O$$AvgBytesHit_1$AvgBytesHit_1_O$$DataCalibration_1$DataCalibration_1_O$$DataGenerated$DataGenerated_O$$DataGenerated_1$DataGenerated_1_O$$DataMachineID_1$DataMachineID_1_O$$EstimatedRecords$EstimatedRecords_O$$FormSigned$FormSigned_O$$DataMachineID$DataMachineID_O$$DataUServerID$DataUServerID_O$$DataUDatePerformed$DataUDatePerformed_O$$DataUScript1$DataUScript1_O$$DataUNumberUsers1$DataUNumberUsers1_O$$DataUNotesMark1$DataUNotesMark1_O$$DataUResponseTime1$DataUResponseTime1_O$$TotOrdersCreated$TotOrdersCreated_O$$TotDollarValue$TotDollarValue_O$$TotOrdersLots$TotOrdersLots_O$$TotHits$TotHits_O$$AvgBytesHit$AvgBytesHit_O$$TotBytesXferred$TotBytesXferred_O$$DataUAverage$DataUAverage_O$$DataUMinimum$DataUMinimum_O$$DataUMaximum$DataUMaximum_O$$DataUFast$DataUFast_O$$DataUMedium$DataUMedium_O$$DataUSlow$DataUSlow_O$$DataUMore$DataUMore_ODocLinkFlagSaveOptionsEditFieldFlagFormNewLocationCertifyCheckOnDataUAverage_1DataUMinimum_1DataUMaximum_1DataUOther21_1DataUOther11_1AvgBytesHit_1DataCalibration_1DataGeneratedDataGenerated_1MailFlagIsSignedFieldAvgHitsMin_1DataMachineID_1DataUResponseTime1_1FirstTimeestimatedOutputServerOutputFilenameOutputSaveResultsEstimatedRecordsFormSignedDataMachineIDDataUServerIDDataUDatePerformedVendorDurationTestDataUScript1DataUNumberUsers1DataUNotesMark1DataUResponseTime1DataUOther11DataUOther21TotOrdersCreatedTotDollarValueTotOrdersLotsTotHitsAvgBytesHitTotBytesXferredAvgHitsMinDataUAverageDataUMinimumDataUMaximumDataUFastDataUPercentDFastDataUPercentFastDataUMediumDataUPercentDMediumDataUPercentMediumDataUSlowDataUPercentDSlowDataUPercentSlowDataUMoreDataUPercentDMoreDataUPercentMoreDataPerformChartDataDistributeChartSendToCopyToBlindCopyToSubjectDeliveryPriorityDeliveryReportReturnReceiptDataUAuthorDataUCreationDateDataUModificationDateDataUCommentsDataPerformSheetDataDistributeSheet$Fields$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$SCRIPTOBJ_9DataActivityHourDataRoutedHourDataNumComPortsDataNetworkAdaptersDataNumberofCPUsDataAmountofMemoryMachineDatePerformedMachineDatePerfomed0MachineDiskSpindles10MachineDiskSpindles20MachineDiskSpindles30MachineDiskSpindles40MachineDiskSize10MachineDiskSize20MachineDiskSize30MachineDiskSize40MachineCost0MachineCostDate0$$MachineNumberofCPUs$MachineNumberofCPUs_O$$MachineCPUSpeed$MachineCPUSpeed_O$$MachineAmountofMemory$MachineAmountofMemory_O$$MachineDiskSpindles1$MachineDiskSpindles1_O$$MachineDiskSize1$MachineDiskSize1_O$$MachineDiskSpindles2$MachineDiskSpindles2_O$$MachineDiskSize2$MachineDiskSize2_O$$MachineDiskSpindles3$MachineDiskSpindles3_O$$MachineDiskSize3$MachineDiskSize3_O$$MachineDiskSpindles4$MachineDiskSpindles4_O$$MachineDiskSize4$MachineDiskSize4_O$$MachineNumComPorts$MachineNumComPorts_O$$MachineComPortSpeed$MachineComPortSpeed_O$$MachineNetworkAdapters$MachineNetworkAdapters_O$$MachineNetworkAdapterType$MachineNetworkAdapterType_O$$ClientProfPercent1$ClientProfPercent1_O$$ClientProfPercent2$ClientProfPercent2_O$$ClientProfPercent3$ClientProfPercent3_O$$MachineCost$MachineCost_OqueryidDocumentLinkMachineIDMachineDescriptionMachineDatePerfomedMachineNotesVersionMachinePlatformMachineCPUTypeMachineNumberofCPUsMachineCPUSpeedMachineAmountofMemoryMachineDiskSpindles1MachineDiskSize1MachineDiskType1MachineDiskConfigure1MachineDiskSpindles2MachineDiskSize2MachineDiskType2MachineDiskConfigure2MachineDiskSpindles3MachineDiskSize3MachineDiskType3MachineDiskConfigure3MachineDiskSpindles4MachineDiskSize4MachineDiskType4MachineDiskConfigure4MachineNumComPortsMachineComPortSpeedMachineNetworkAdaptersMachineNetworkAdapterTypeClientProf1ClientProfPercent1ClientProf2ClientProfPercent2ClientProf3ClientProfPercent3MachineCostMachineCostDateMachineAuthorMachineCreationDateMachineModificationDateMachineComments$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$ViewMapDataset$ViewMapLayoutListTypeList$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$Class$Type$Operation$Scan$LeftToDo$$VendorList$VendorList_O$$GraphResults$GraphResults_OFORM$Revisions$NavImagemap
  7327. '++LotusScript Development Environment:2:5:(Options):0:74
  7328. Option Public
  7329. Const maxnumberdatapoints = 50
  7330. Const roundpercentage = .10 ' ***changed from NotesBench consortium agreement
  7331. Const rangepercentage = .25
  7332. Const numscripts = 8
  7333. Const rounduptopercentage = .10
  7334. '  return codes from SecondPass
  7335. Const success = 0
  7336. Const goontonextmachine = 1
  7337. Const goontonextrecordset = 2
  7338. Const goontonextscript = 3
  7339. '++LotusScript Development Environment:2:5:(Forward):0:1
  7340. Declare Sub Initialize
  7341. Declare Sub InitializeStructures()
  7342. Declare Sub ProcessMachine()
  7343. Declare Sub ProcessScript()
  7344. Declare Sub FirstPassScan()
  7345. Declare Function SecondPass() As Integer
  7346. Declare Sub ThirdPass()
  7347. Declare Sub GenEstimateDoc ()
  7348. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7349. Dim debugmessage As Integer ' true = display, false = no display
  7350. Dim lowerbound As Integer
  7351. Dim upperbound As Integer
  7352. Dim scriptnum As Integer
  7353. Dim roundupto As Integer
  7354.   '  index 1 = user cound, index 2 = offset in dc
  7355. Dim usercount( maxnumberdatapoints, 2) As Integer
  7356. ' 0 = avg, 1 = fast, 2 = medium, 3 = slow, 4 = more
  7357. Dim useravgamt( maxnumberdatapoints, 5 ) As Single
  7358. Dim origusercount( maxnumberdatapoints) As Integer
  7359. Dim countrecordsfound As Integer
  7360. Dim excludeserver(5) As String  '  names of servers execmpt from the final ruling
  7361. Dim flagexcludeserver As Integer  '  flag if server is a server to be excluded (user count increments of 100)
  7362. Dim scriptname( numscripts ) As String  '  need to do parsing based on workload
  7363. Dim db As NotesDatabase
  7364. Dim machineiddoc As NotesDocument
  7365. Dim vendordatadoc As NotesDocument
  7366. Dim machineidview As NotesView
  7367. Dim dc As NotesDocumentCollection
  7368. Dim dc2 As NotesDocumentCollection
  7369. Dim templowerbound As Integer
  7370. Dim tempupperbound As Integer
  7371. Dim templowerresponsetime As Single
  7372. Dim tempupperresponsetime As Single   
  7373. Dim incrementamount As Integer
  7374. Dim maxrange As Integer
  7375. Dim machineidname As String
  7376. Dim searchformula As String
  7377. Dim j As Integer
  7378. Dim k As Integer
  7379. Dim l As Integer
  7380. Dim m As Integer
  7381. Dim vTempMachineID As Variant
  7382. Dim vbound As Variant
  7383. Dim vaverage As Variant
  7384. Dim vfast As Variant
  7385. Dim vmedium As Variant
  7386. Dim vslow As Variant
  7387. Dim vmore As Variant
  7388. Dim intdivide As Integer
  7389. Dim status As Integer
  7390. Dim intervalrange As Integer
  7391. Dim intervalavgamt As Single
  7392. Dim intervalfastamt As Single
  7393. Dim intervalmediumamt As Single
  7394. Dim intervalslowamt As Single
  7395. Dim intervalmoreamt As Single
  7396. Dim incrementamt As Single
  7397. Dim loweravgamt As Single
  7398. Dim upperavgamt As Single
  7399. Dim lowerfastamt As Single
  7400. Dim upperfastamt As Single
  7401. Dim lowermediumamt As Single
  7402. Dim uppermediumamt As Single
  7403. Dim lowerslowamt As Single
  7404. Dim upperslowamt As Single
  7405. Dim lowermoreamt As Single
  7406. Dim uppermoreamt As Single
  7407. '++LotusScript Development Environment:2:2:Initialize:1:10
  7408. Sub Initialize
  7409.      Dim session As New NotesSession
  7410.      
  7411.      Call InitializeStructures()
  7412.      
  7413.      Set db = session.CurrentDatabase
  7414.      
  7415.      Call ProcessMachine()
  7416.      
  7417. End Sub
  7418. '++LotusScript Development Environment:2:2:InitializeStructures:1:8
  7419. Sub InitializeStructures()
  7420.      debugmessage = False
  7421.      lowerbound = 0
  7422.      upperbound = 0
  7423.      
  7424.      '  initialize list of servers that are to be excluded from the strict ruling on vendor data entries
  7425.      '  will calculate increments of 100 starting from the lowest to the highest
  7426.      excludeserver(0) = "NF3500-233MHZ1P6-320MB"
  7427.      excludeserver(1) = "NF7000-200MHZ2P6-1280MB"
  7428.      excludeserver(2) = "PCS325-233MHZ1P6-384MB"
  7429.      excludeserver(3) = "PCS330-300MHZ1PII-512MB"
  7430.      excludeserver(4) = "PCS704-200MHZ1P6-512MB"
  7431.      
  7432.      scriptname(0) = "Mail"
  7433.      scriptname(1) = "Mail & Database"
  7434.      scriptname(2) = "Groupware #1"
  7435.      scriptname(3) = "Calendar & Scheduling"
  7436.      scriptname(4) = "Database"
  7437.      scriptname(5) =  "Web Walker"
  7438.      scriptname(6) =  "Web Buyer"
  7439.      scriptname(7) = "Replication Hub"
  7440.      scriptname(8) = "Mail Routing Hub"
  7441.      
  7442.      For j = 1 To maxnumberdatapoints
  7443.           usercount( j, 1 ) = 0
  7444.           For k = 0 To 4
  7445.                useravgamt ( j , k ) = 0
  7446.           Next k
  7447.           usercount( j, 2 ) = j    '  insert index
  7448.           origusercount( j ) = 0
  7449.      Next
  7450.      
  7451. End Sub
  7452. '++LotusScript Development Environment:2:2:ProcessMachine:1:8
  7453. Sub ProcessMachine()
  7454.      
  7455.      '  first verify that no estimated documents exist in this database
  7456.      Dim view As NotesView
  7457.      Dim doc As NotesDocument
  7458.      Set view = db.GetView("Estimated")
  7459.      Set doc = view.GetFirstDocument
  7460.      If Not(doc Is Nothing)  Then   '  was something found
  7461.           Messagebox("Estimated documents already exist in this database")
  7462.           Exit Sub
  7463.      End If
  7464.      
  7465.       '  first determine the lower boundary of the data for a given machine
  7466.      '  get the list of machines
  7467.      Set machineidview = db.GetView("Machine Identifier")
  7468.      Set machineiddoc = machineidview.GetFirstDocument
  7469.      
  7470.      While Not (machineiddoc Is Nothing)
  7471.           flagexcludeserver = False  '  way to differentiate originate dataset decision vs. new dataset decisions
  7472.           vTempMachineID = machineiddoc.MachineID
  7473.           
  7474.           '  need to loop for each script/ querying for each script separately under each machine
  7475.           For m = 0 To numscripts
  7476.                scriptnum = m
  7477.                lowerbound = 0
  7478.                upperbound = 0
  7479.                Call ProcessScript()
  7480.           Next m  '  looping for each script  ***** may not be at right place
  7481.           
  7482.           Set machineiddoc = machineidview.GetNextDocument( machineiddoc )  '  get the next machine
  7483.      Wend
  7484.      
  7485.      
  7486. End Sub
  7487. '++LotusScript Development Environment:2:2:ProcessScript:1:8
  7488. Sub ProcessScript()
  7489.      Dim dt As New NotesDateTime("01/01/90")
  7490.      
  7491.      searchformula$="Form = ""Vendor Data"" &  DataUServerID = " & {"} & vTempMachineID(0) & {"} & " & DataUScript1 = " & {"} & scriptname( m ) & {"}
  7492.      Set dc = db.Search( searchformula$, dt, 0 )
  7493.      If ( dc.Count > 1 )  And ( dc.Count < ( maxnumberdatapoints + 1 ) ) Then  'have one or more vendor docs under this machine id
  7494.                '  now need to loop through all the vendor data documents found under this machine id
  7495.                ' finally at the point of deciding lower  & upper bound; go through all records
  7496.           countrecordsfound = dc.Count
  7497.           Call FirstPassScan()
  7498.      Else
  7499.           If dc.Count = 0 Then
  7500.                If debugmessage = True Then
  7501.                     Messagebox ("No records found for " &  vTempMachineID( 0 )  + " script: " + scriptname( m ) )
  7502.                End If
  7503.                Goto OntoNextRecord
  7504.           End If
  7505.           If dc.Count = 1 Then
  7506.                Messagebox ("Can't estimate if only one Vendor Data record present for: " &  vTempMachineID( 0 ))
  7507.                Goto OntoNextRecord
  7508.           End If
  7509.           If dc.Count > maxnumberrecordscount Then
  7510.                Messagebox("Number of records found exceeds the limit:  " + vTempMachineID( 0 ))
  7511.                Goto OnToNextRecord
  7512.           End If
  7513.      End If
  7514.      
  7515.           '  have gone through one pass of records
  7516.           '  now check if validated documents can be generated
  7517.      
  7518.      ireturn =  SecondPass()
  7519.      If ireturn = goontonextscript Then
  7520.           Messagebox ("exiting ProcessScript, error from SecondPass, going onto next script")
  7521.           Exit Sub  ' nothing more to do
  7522.      End If
  7523.      
  7524.      '  set up the defaults for all
  7525.      If upperbound < 501 Then
  7526.           incrementamount = 50
  7527.      Elseif upperbound < 2501 Then
  7528.           incrementamount = 100
  7529.      Elseif upperbound < 7501 Then
  7530.           incrementamount = 500
  7531.      Elseif upperbound < 12501 Then
  7532.           incrementamount = 1000
  7533.      End If
  7534.      
  7535.            '  determine if machine id is part of the original set (before the rules were established
  7536.      Dim vTempMachineIDservername As Variant
  7537.      For j = 0 To 4
  7538.           vTempMachineIDservername = vTempMachineID( 0 )
  7539.           If vTempMachineIDservername = excludeserver( j ) Then
  7540.                flagexcludeserver = True
  7541.                If debugmessage = True Then
  7542.                     Messagebox ("excludeserver flag = true for " + vTempMachineID( 0 ) )
  7543.                End If
  7544.                '  handle case of groupware not reaching 500, so create estimated records with a user count = 50
  7545.                If upperbound < 501 Then
  7546.                     incrementamount = 50
  7547.                Else 
  7548.                     incrementamount = 100
  7549.                End If
  7550.                
  7551.           End If
  7552.      Next j
  7553.      
  7554.      
  7555.      maxrange = upperbound  '  might as well set it to create the records regardless of the range
  7556.      
  7557.      
  7558.      Call ThirdPass()
  7559.      
  7560.           '  go onto processing the next machine id form
  7561. OnToNextRecord:
  7562.           '  clean out to be sure
  7563.      For j = 1 To maxnumberdatapoints
  7564.           usercount( j, 1 ) = 0
  7565.      Next j
  7566.      'Set machineiddoc = view.GetNextDocument( machineiddoc )
  7567.      
  7568. End Sub
  7569. '++LotusScript Development Environment:2:2:FirstPassScan:1:8
  7570. Sub FirstPassScan()
  7571.      
  7572.      Dim vCertifyCheck As Variant
  7573.      Dim vIsSignedField As Variant
  7574.      
  7575.      For j = 1 To dc.Count
  7576.           Set vendordatadoc = dc.GetNthDocument(j)
  7577.           
  7578.           '  first validate that all records are certified
  7579.           
  7580.           vCertifyCheck = vendordatadoc.CertifyCheckOn
  7581.           vIsSignedField = vendordatadoc.IsSignedField
  7582.           If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "0" Then
  7583.                Messagebox("Found record which isn't signed under " & vTempMachineID( 0 ))
  7584.                Exit For  '  exit immediately from this loop for this machine
  7585.           End If
  7586.           
  7587.           vbound = vendordatadoc.DataUNumberUsers1  'initialize boundary fields
  7588.           vaverage = vendordatadoc.DataUAverage
  7589.           vfast = vendordatadoc.DataUFast
  7590.           vmedium = vendordatadoc.DataUMedium
  7591.           vslow = vendordatadoc.DataUSlow
  7592.           vmore = vendordatadoc.DataUMore
  7593.           
  7594.           '  passed security validation
  7595.           If lowerbound = 0 Then  '  gone down this path before?
  7596.                lowerbound = vbound( 0 )  'initialize boundary fields
  7597.                upperbound = vbound( 0 )
  7598.           Else
  7599.                If vbound( 0 ) < lowerbound Then
  7600.                     lowerbound = vbound( 0 )  '  get a lower value
  7601.                End If
  7602.                          '  can determine upper boundary at the same time
  7603.                If vbound( 0 ) > upperbound Then
  7604.                     upperbound = vbound( 0 )  'get a higher value
  7605.                End If
  7606.           End If
  7607.           
  7608.           usercount( j, 1 ) = vbound( 0 )  '  save off all numbers; user count
  7609.           useravgamt( j, 0 ) = vaverage( 0 )
  7610.           useravgamt( j, 1 ) = vfast( 0 )
  7611.           useravgamt( j, 2 ) = vmedium( 0 )
  7612.           useravgamt( j, 3 ) = vslow( 0 )
  7613.           useravgamt( j, 4 ) = vmore( 0 )
  7614.           origusercount( j) = usercount( j, 1 )
  7615.      Next j
  7616.      
  7617. End Sub
  7618. '++LotusScript Development Environment:2:1:SecondPass:1:8
  7619. Function SecondPass() As Integer
  7620.      
  7621.      '  need to calculate roundupto amount
  7622.      '  defaulting to 50
  7623.      '  take percentage of max number, handle in 50/100/500/1000/5000 increments
  7624.      
  7625.      roundupto = 50
  7626.      
  7627.      '  first test if there are multiple records
  7628.      If lowerbound <> upperbound Then
  7629.                '  now calculate the increment amount (currently 10% rounded up to 100/500/1000, store percentage and rounding increment)
  7630.           incrementamount = roundpercentage * upperbound
  7631.           intdivide = incrementamount / roundupto   '  extract just the divisor
  7632.           
  7633.          ' Messagebox ( incrementamount Mod roundupto)
  7634.           'Messagebox ( roundupto/2 )
  7635.           
  7636.           If incrementamount < roundupto Then
  7637.                incrementamount = roundupto
  7638.           Elseif (incrementamount Mod roundupto) >= ( roundupto/2 ) Then
  7639.                incrementamount = ( ( intdivide ) + 1 ) * roundupto  '  raise it to next increment
  7640.           Else
  7641.                incrementamount = ( ( intdivide)   )* roundupto
  7642.           End If
  7643.      Else
  7644.           Messagebox( "Need more records to generate estimate for " + vTempMachineID( 0 ) )
  7645.           'Goto OnToNextRecord
  7646.           SecondPass = goontonextscript
  7647.           Exit Function
  7648.      End If
  7649.      
  7650.      If incrementamount = 0 Then
  7651.           Messagebox( "Spread not far enough to generate estimation records for " + vTempMachineID( 0 ) )
  7652.           If debugmessage = True Then
  7653.                Messagebox(" Calculating incrementamount")
  7654.           End If
  7655.           'Goto OnToNextRecord
  7656.           SecondPass = goontonextscript
  7657.           Exit Function
  7658.           
  7659.      Elseif incrementamount > 500 And incrementamount < 1000 Then
  7660.           incrementamount = 500
  7661.      Elseif incrementamount >1000 And incrementamount < 1500 Then
  7662.           incrementamount = 1000
  7663.      Elseif incrementamount > 1500 And incrementamount < 2000 Then
  7664.           incrementamount = 1500
  7665.      Elseif incrementamount > 2000 And incrementamount < 2400 Then
  7666.           incrementamount = 2000          
  7667.      End If
  7668.      
  7669.           '  sort the UserCount values stored in the array (lowest to highest)
  7670.      For j = 1 To countrecordsfound
  7671.                '  use index 0 for temp storage
  7672.                '  the origusercount array contains the original ordering
  7673.           For k = ( j + 1 ) To countrecordsfound
  7674.                If usercount( j , 1) > usercount( k, 1 ) Then
  7675.                     For l = 1 To 2
  7676.                          usercount( 0, l ) = usercount( j, l )
  7677.                          usercount( j , l ) = usercount( k, l )
  7678.                          usercount( k, l ) = usercount( 0, l )
  7679.                     Next l
  7680.                     For l = 0 To 4
  7681.                          useravgamt( 0, l ) = useravgamt( j , l)
  7682.                          useravgamt( j , l ) = useravgamt( k, l )
  7683.                          useravgamt( k, l ) = useravgamt( 0, l )
  7684.                     Next l
  7685.                End If
  7686.           Next k
  7687.      Next
  7688.      
  7689.           '  just a sanity check
  7690.      If usercount (1, 1) <> lowerbound Then
  7691.           Messagebox ("lowerbound <> usercount(1)")
  7692.           '  Goto OnToNextRecord
  7693.           SecondPass = goontonextscript
  7694.           Exit Function
  7695.           
  7696.      End If
  7697.      
  7698.      If usercount( countrecordsfound, 1 ) <> upperbound Then
  7699.           Messagebox(" upperbound <> usercount(countrecordsfound)")
  7700.           'Goto OnToNextRecord
  7701.           SecondPass = goontonextscript
  7702.           Exit Function
  7703.           
  7704.      End If
  7705.      
  7706.           '  calculate valid range span for creating estimation records
  7707.           '  span should be no more than 25% of the largest datapoint, rounded up to the even 100 boundary
  7708.      
  7709.      maxrange = rangepercentage * upperbound
  7710.      intdivide = maxrange / roundupto
  7711.      If maxrange Mod roundupto >= ( roundupto/2 ) Then
  7712.           maxrange = ( ( intdivide ) + 1 ) * roundupto  '  raise it to next increment
  7713.      Else
  7714.           maxrange = ( intdivide) * roundupto
  7715.      End If
  7716.      
  7717.      If maxrange = 0 Then
  7718.           Messagebox( "Spread not far enough to generate estimation records for " + vTempMachineID( 0 ) )
  7719.           If debugmessage = True Then
  7720.                Messagebox(" Calculating imaxrange")
  7721.           End If
  7722.           '  Goto OnToNextRecord
  7723.           SecondPass = goontonextscript
  7724.           Exit Function
  7725.           
  7726.      End If
  7727.      
  7728.      SecondPass = True
  7729. End Function
  7730. '++LotusScript Development Environment:2:2:ThirdPass:1:8
  7731. Sub ThirdPass()
  7732.      Dim displayint As Integer
  7733.      
  7734.           '  now dive in deeper to find valid pockets of lowerbound and upper bound for record creation
  7735.      For j = 1 To ( countrecordsfound - 1)
  7736.           templowerbound = usercount( j, 1 )
  7737.           
  7738.           '  detect the special case of usercount = 1, and treat as 0 for addition purposes
  7739.           '  also now dealing with the situation
  7740.           displayint = templowerbound
  7741.           If templowerbound < 51 Then
  7742.                templowerbound = 0  '  just for calculation purposes
  7743.           End If
  7744.           
  7745.           tempupperbound = usercount( ( j + 1 ), 1 )
  7746.           
  7747.            '  make sure maxrange is at least for a range of 200, so a record can be created at the 100 interval
  7748.           If ( maxrange < 200 ) Then
  7749.                maxrange = 200
  7750.           End If
  7751.           
  7752.           '  validate if range between temporary boundaries meets criteria
  7753.           If (tempupperbound - templowerbound) < ( maxrange + 1 ) Then
  7754.                 '  keep processing, now generate estimation records
  7755.                 '  first determine how many records to generate
  7756.                
  7757.                loweravgamt = useravgamt( j , 0 )  '  retrieve average response time information
  7758.                upperavgamt = useravgamt( j + 1, 0 )
  7759.                
  7760.                lowerfastamt = useravgamt( j , 1 )  '  retrieve fast response time information
  7761.                upperfastamt = useravgamt( j + 1, 1 )
  7762.                
  7763.                lowermediumamt = useravgamt( j , 2 )  '  retrieve medium response time information
  7764.                uppermediumamt = useravgamt( j + 1, 2 )
  7765.                
  7766.                lowerslowamt = useravgamt( j , 3 )  '  retrieve slow response time information
  7767.                upperslowamt = useravgamt( j + 1, 3 )
  7768.                
  7769.                lowermoreamt = useravgamt( j , 4 )  '  retrieve 'more' response time information
  7770.                uppermoreamt = useravgamt( j + 1, 4 )
  7771.                
  7772.               '  intervalrange = ( ( tempupperbound - templowerbound ) / roundupto ) 
  7773.                intervalrange = ( ( tempupperbound - templowerbound ) / incrementamount ) 
  7774.                
  7775.                If debugmessage = True Then
  7776.                     If templowerbound = 0 Then
  7777.                          Messagebox ("calculated intervalrange " + Str( intervalrange ) + " docs to be created between " + Str( displayint ) + " and " + Str( tempupperbound ) )
  7778.                     Else
  7779.                          Messagebox ("calculated intervalrange " + Str( intervalrange ) + " docs to be created between " + Str( displayint ) + " and " + Str( tempupperbound ) )
  7780.                     End If
  7781.                End If
  7782.                '  now detect if the j + 1 record has a lower response time value than the j record
  7783.                If upperavgamt < loweravgamt Then
  7784.                     If debugmessage = True Then
  7785.                          Messagebox("detected upperavgamt < loweravgamt" )
  7786.                     End If
  7787.                     '  for now, skip creating records  CHANGED - > will create records
  7788.                     '  if this changes, need to reset all loweravgamt values to be upperavgamt values ***
  7789.                     If intervalrange > 1 Then
  7790.                          loweravgamt = upperavgamt
  7791.                          lowerfastamt = upperfastamt
  7792.                          lowermediumamt = uppermediumamt
  7793.                          lowerslowamt = upperslowamt
  7794.                          lowermediumamt = upperslowamt
  7795.                          For k = 1 To ( intervalrange - 1)  '  create 1 less than the number of intervals
  7796.                               Call GenEstimateDoc ()
  7797.                          Next k
  7798.                     Else
  7799.                          If debugmessage = True Then
  7800.                               '  may want to come back here and find out why
  7801.                               Messagebox (" upperavgamt < loweravgamt & i =0 or 1")
  7802.                          End If
  7803.                     End If
  7804.                Else
  7805.                     If intervalrange = 0 Then
  7806.                          If debugmessage = True Then
  7807.                               Messagebox (" intervalaverage = 0, not creating document")
  7808.                          End If
  7809.                     Else
  7810.                          If intervalrange > 1 Then
  7811.                               For k = 1 To ( intervalrange - 1)  '  create 1 less than the number of intervals
  7812.                                    Call GenEstimateDoc ()
  7813.                               Next k
  7814.                          End If
  7815.                     End If
  7816.                End If
  7817.           Else
  7818.                If templowerbound = 0 Then
  7819.                     Messagebox("Spread between records too much to calculate estimation records for: " + vTempMachineID( 0 ) + " " + Str( displayint ) + " " + Str( tempupperbound ) )
  7820.                Else
  7821.                     Messagebox("Spread between records too much to calculate estimation records for: " + vTempMachineID( 0 ) + " " + Str( displayint ) + " " + Str( tempupperbound ) )
  7822.                End If
  7823.                '  can keep processing in case there are more records
  7824.           End If
  7825.      Next j
  7826.      
  7827.      
  7828. End Sub
  7829. '++LotusScript Development Environment:2:2:GenEstimateDoc:1:8
  7830. Sub GenEstimateDoc ()
  7831.      Dim i As Integer
  7832.      Dim dt As New NotesDateTime("01/01/90")
  7833.      Dim itempusercount As Integer
  7834.      Dim iremainder As Integer
  7835.      
  7836.      itempusercount = templowerbound + ( k * incrementamount)
  7837.      iremainder = itempusercount Mod roundupto
  7838.      itempusercount = itempusercount - iremainder   '  get rid of any trailing amount
  7839.      
  7840.      'first validate that the record doesn't exist
  7841.      searchformula$="Form = ""Vendor Data"" &  DataUServerID = " & {"} & vTempMachineID( 0 ) & {"} & " & DataUScript1 = " & {"} & scriptname( m ) & {"} & " & DataUNumberUsers1 = " &  _
  7842.      ( itempusercount ) 
  7843.      Set dc2 = db.Search( searchformula$, dt, 0 )
  7844.      If ( dc2.Count = 0 ) Then  '  a record does skip, just exit
  7845.           '  calculate the record to generate
  7846.           Set newdoc = New NotesDocument( db )
  7847.           newdoc.Form = "Vendor Data"
  7848.           '  fields at top of form
  7849.           newdoc.estimated = "Yes"  '  unique flag to signal estimated record, change from default of "No"
  7850.           '**newdoc.FirstTime = "2"  ' doesn't change *** create machine id link?
  7851.           '*** need to create MachineIDLink ***
  7852.           newdoc.TestDuration = 0
  7853.           newdoc.CertifyCheckOn = "1"
  7854.           
  7855.           newdoc.FormSigned = "Yes"
  7856.           newdoc.DataUServerID = vTempMachineID( 0 )
  7857.           newdoc.IsSignedField = "0"  ' create as not signed
  7858.           For i = 0 To 8
  7859.                If i = scriptnum Then  '  match index
  7860.                     newdoc.DataUScript1 = scriptname( i )
  7861.                     If debugmessage = True Then
  7862.                          Messagebox (" scriptname = " + scriptname( i ) )
  7863.                     End If
  7864.                End If
  7865.           Next i
  7866.           '**       newdoc.DurationTest = 0
  7867.           '  newdoc.Vendor
  7868.           '  newdoc.DataMachineID
  7869.           '  newdoc.DataUDatePerformed
  7870.           
  7871.           '  need to detect case if upperavgamt < loweravgamt, then for now, change loweravgamt ??????
  7872.           
  7873.           '  need to calculate total amount in range, divided by number of intervals, times point in interval
  7874.           intervalavgamt = ( ( ( ( upperavgamt - loweravgamt ) / intervalrange ) * k) + loweravgamt  )  '  add on calculated amt to base value
  7875.           intervalfastamt = ( ( ( ( upperfastamt - lowerfastamt ) / intervalrange ) * k) + lowerfastamt  )
  7876.           intervalmediumamt = ( ( ( ( uppermediumamt - lowermediumamt ) / intervalrange ) * k) + lowermediumamt  )
  7877.           intervalslowamt = ( ( ( ( upperslowamt - lowerslowamt ) / intervalrange ) * k) + lowerslowamt  )
  7878.           intervalmoreamt = ( ( ( ( uppermoreamt - lowermoreamt ) / intervalrange ) * k) + lowermoreamt  )
  7879.           
  7880.           If debugmessage = True Then
  7881.                Messagebox ( "calculated intervalavgamt " + Str( intervalavgamt ) + " loweravgamt " + Str( loweravgamt ) + " upperavgamt " + Str( upperavgamt )  + " interval " + Str( j ) )  
  7882.           'Messagebox ( "calculated intervalavgamt " + Str( intervalavgamt ) + " loweravgamt " + Str( loweravgamt ) + " upperavgamt " + Str( upperavgamt )  + " interval " + Str( j ) )  
  7883.           'Messagebox ( "calculated intervalavgamt " + Str( intervalavgamt ) + " loweravgamt " + Str( loweravgamt ) + " upperavgamt " + Str( upperavgamt )  + " interval " + Str( j ) )  
  7884.           'Messagebox ( "calculated intervalavgamt " + Str( intervalavgamt ) + " loweravgamt " + Str( loweravgamt ) + " upperavgamt " + Str( upperavgamt )  + " interval " + Str( j ) )  
  7885.           End If
  7886.           
  7887.           newdoc.DataUAverage = Round( intervalavgamt, 3 )
  7888.           newdoc.DataUMinimum = Round( intervalavgamt, 3 )  '  also initialize the Min & Max amts, with the Avg value
  7889.           newdoc.DataUMaximum = Round( intervalavgamt, 3 )
  7890.           newdoc.DataUFast = Round( intervalfastamt, 3 )
  7891.           newdoc.DataUMedium = Round( intervalmediumamt, 3 )
  7892.           newdoc.DataUSlow = Round( intervalslowamt, 3 )
  7893.           newdoc.DataUMore = Round( intervalmoreamt, 3 )
  7894.           
  7895.           '  calculate the amount to add onto the base value
  7896.           newdoc.DataUNumberUsers1 = templowerbound + (k * incrementamount)
  7897.           
  7898.           Call newdoc.Save( True, False )
  7899.      End If
  7900.      
  7901. End Sub
  7902. O=Lotus Notes
  7903. O=Lotus Notes
  7904. PURSAFO
  7905. |.:#U
  7906. O=Lotus Notes
  7907. CN=Lotus Notes Template Development/O=Lotus Notes
  7908. PURSAFO
  7909. FjJb;
  7910. $TITLE
  7911. $AssistType
  7912. $AssistLastRun
  7913. $AssistDocCount
  7914. $AssistFlags
  7915. $AssistTrigger
  7916. $AssistInfo
  7917. $AssistQuery
  7918. $AssistAction
  7919. $AssistAction_Ex
  7920. Estimated\
  7921. IsSignedField
  7922.     1S3S4S6S8S
  7923. DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUPercentDFastDataUPercentDMediumDataUPercentDSlowDataUOther11DataUOther21$4$Conflict$REF
  7924. Vendor Data
  7925. estimated
  7926.     L1S2S3S4S5S6S7S1E
  7927. DataUServerIDDataUScript1DataUNumberUsers1
  7928. DataUServerID
  7929. DataUServerIDYServer.Planner: Vendor
  7930. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  7931. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7932. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7933. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7934. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7935. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7936. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7937. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7938. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7939. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7940. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7941. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7942. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7943. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7944. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7945. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7946. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7947. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7948. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7949. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7950. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7951. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7952. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7953. Refresh Fields303
  7954. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  7955. Server.Planner: AnalystEstimatedRecordsC
  7956. EstimatedRecords
  7957. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  7958. Platform(List)
  7959. AIX/RS6000AIX/SP2HP-UXNetWare 3.12Netware 4.1 NT 3.51 NT 4.0 OS/2 2.11 SMP OS/2 Warp Connect OS/2 Warp Server 4.0 Solaris 2.5 Win95 1.0
  7960. CN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris
  7961. ################################
  7962. |Database(List)
  7963. CN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris
  7964. #########
  7965. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7966. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7967. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7968. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7969. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7970. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7971. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7972. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7973. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7974. CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  7975. Server.Planner: VendorMachine IdentifierG3
  7976. CN=Richard Kanosky/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  7977. Test ResultsZ
  7978. IsSignedField
  7979.     1S3S4S6S8S
  7980. DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUPercentDFastDataUPercentDMediumDataUPercentDSlowDataUOther11DataUOther21$4$Conflict$REF
  7981. Vendor Data
  7982. estimated
  7983.     L1S2S3S4S5S6S7S1E
  7984. DataUServerIDDataUScript1DataUNumberUsers1
  7985. DataUServerID
  7986. DataUServerIDYServer.Planner: Vendor
  7987. CN=Richard Kanosky/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7988. ##########################################################
  7989. ##########################################################
  7990. ##########################################################
  7991. ##########################################################
  7992. ##########################################################
  7993. ##########################################################
  7994. ##########################################################
  7995. ##########################################################
  7996. ##########################################################
  7997. ##########################################################
  7998. ##########################################################
  7999. ##########################################################
  8000. ##########################################################
  8001. ##########################################################
  8002. ##########################################################
  8003. ##########################################################
  8004. ##########################################################
  8005. ##########################################################
  8006. ##########################################################
  8007. ##########################################################
  8008. ##########################################################
  8009. ##########################################################
  8010. ##########################################################
  8011. ##########################################################
  8012. ##########################################################
  8013. ##########################################################
  8014. ##########################################################
  8015. ##########################################################
  8016. ##########################################################
  8017. ##########################################################
  8018. ##########################################################
  8019. ##########################################################
  8020. ##########################################################
  8021. ##########################################################
  8022. ##########################################################
  8023. ##########################################################
  8024. ##########################################################
  8025. ##########################################################
  8026. ##########################################################
  8027. ##########################################################
  8028. ##########################################################
  8029. ##########################################################
  8030. ##########################################################
  8031. ##########################################################
  8032. ##########################################################
  8033. ##########################################################
  8034. ##########################################################
  8035. ##########################################################
  8036. ##########################################################
  8037. ##########################################################
  8038. ##########################################################
  8039. ##########################################################
  8040. ##########################################################
  8041. ##########################################################
  8042. ##########################################################
  8043. ##########################################################
  8044. ##########################################################
  8045. ##########################################################
  8046. ##########################################################
  8047. ##########################################################
  8048. ##########################################################
  8049. ##########################################################
  8050. ##########################################################
  8051. ##########################################################
  8052. ##########################################################
  8053. ##########################################################
  8054. ##########################################################
  8055. ##########################################################
  8056. ##########################################################
  8057. ##########################################################
  8058. ##########################################################
  8059. ##########################################################
  8060. ##########################################################
  8061. ##########################################################
  8062. ##########################################################
  8063. ##########################################################
  8064. ##########################################################
  8065. ##########################################################
  8066. ##########################################################
  8067. ##########################################################
  8068. ##########################################################
  8069. ##########################################################
  8070. ##########################################################
  8071. ##########################################################
  8072. ##########################################################
  8073. ##########################################################
  8074. ##########################################################
  8075. ##########################################################
  8076. ##########################################################
  8077. ##########################################################
  8078. ##########################################################
  8079. ##########################################################
  8080. ##########################################################
  8081. ##########################################################
  8082. ##########################################################
  8083. ##########################################################
  8084. ##########################################################
  8085. ##########################################################
  8086. ##########################################################
  8087. ##########################################################
  8088. ##########################################################
  8089. ##########################################################
  8090. ##########################################################
  8091. ##########################################################
  8092. O=Lotus Notes
  8093. O=Lotus Notes
  8094. PURSAFO
  8095. |.:#U
  8096. O=Lotus Notes
  8097. CN=Lotus Notes Template Development/O=Lotus Notes
  8098. PURSAFO
  8099. sZ%!ZM}
  8100. j[ETD8.h
  8101. $Flags
  8102. O=Lotus Notes
  8103. O=Lotus Notes
  8104. PURSAFO
  8105. |.:#U
  8106. O=Lotus Notes
  8107. CN=Lotus Notes Template Development/O=Lotus Notes
  8108. PURSAFO
  8109. sZ%!ZM}
  8110. L<yp1
  8111. $Flags
  8112. O=Lotus Notes
  8113. O=Lotus Notes
  8114. PURSAFO
  8115. |.:#U
  8116. O=Lotus Notes
  8117. CN=Lotus Notes Template Development/O=Lotus Notes
  8118. PURSAFO
  8119. sZ%!ZM}
  8120. dYt;a
  8121. $Flags
  8122. O=Lotus Notes
  8123. O=Lotus Notes
  8124. PURSAFO
  8125. |.:#U
  8126. O=Lotus Notes
  8127. CN=Lotus Notes Template Development/O=Lotus Notes
  8128. PURSAFO
  8129. sZ%!ZM}
  8130. $Flags
  8131. O=Lotus Notes
  8132. O=Lotus Notes
  8133. PURSAFO
  8134. |.:#U
  8135. O=Lotus Notes
  8136. CN=Lotus Notes Template Development/O=Lotus Notes
  8137. PURSAFO
  8138. sZ%!ZM}
  8139. $Flags
  8140. O=Lotus Notes
  8141. O=Lotus Notes
  8142. PURSAFO
  8143. |.:#U
  8144. O=Lotus Notes
  8145. CN=Lotus Notes Template Development/O=Lotus Notes
  8146. PURSAFO
  8147. sZ%!ZM}
  8148. $Flags
  8149. O=Lotus Notes
  8150. O=Lotus Notes
  8151. PURSAFO
  8152. |.:#U
  8153. O=Lotus Notes
  8154. CN=Lotus Notes Template Development/O=Lotus Notes
  8155. PURSAFO
  8156. sZ%!ZM}
  8157. $Flags
  8158. O=Lotus Notes
  8159. O=Lotus Notes
  8160. PURSAFO
  8161. |.:#U
  8162. O=Lotus Notes
  8163. CN=Lotus Notes Template Development/O=Lotus Notes
  8164. PURSAFO
  8165. sZ%!ZM}
  8166. $Flags
  8167. O=Lotus Notes
  8168. O=Lotus Notes
  8169. PURSAFO
  8170. |.:#U
  8171. O=Lotus Notes
  8172. CN=Lotus Notes Template Development/O=Lotus Notes
  8173. PURSAFO
  8174. sZ%!ZM}
  8175. WB$7"!
  8176. $Flags
  8177. O=Lotus Notes
  8178. O=Lotus Notes
  8179. PURSAFO
  8180. |.:#U
  8181. O=Lotus Notes
  8182. CN=Lotus Notes Template Development/O=Lotus Notes
  8183. PURSAFO
  8184. sZ%!ZM}
  8185. $Flags
  8186. O=Lotus Notes
  8187. O=Lotus Notes
  8188. PURSAFO
  8189. |.:#U
  8190. O=Lotus Notes
  8191. CN=Lotus Notes Template Development/O=Lotus Notes
  8192. PURSAFO
  8193. sZ%!ZM}
  8194. J{nAsm
  8195. 4fvP:
  8196. $Flags
  8197. O=Lotus Notes
  8198. O=Lotus Notes
  8199. PURSAFO
  8200. |.:#U
  8201. O=Lotus Notes
  8202. CN=Lotus Notes Template Development/O=Lotus Notes
  8203. PURSAFO
  8204. sZ%!ZM}
  8205. $Flags
  8206. O=Lotus Notes
  8207. O=Lotus Notes
  8208. PURSAFO
  8209. |.:#U
  8210. O=Lotus Notes
  8211. CN=Lotus Notes Template Development/O=Lotus Notes
  8212. PURSAFO
  8213. sZ%!ZM}
  8214. $Flags
  8215. O=Lotus Notes
  8216. O=Lotus Notes
  8217. PURSAFO
  8218. |.:#U
  8219. O=Lotus Notes
  8220. CN=Lotus Notes Template Development/O=Lotus Notes
  8221. PURSAFO
  8222. sZ%!ZM}
  8223. cOT4_x~
  8224. $Flags
  8225. O=Lotus Notes
  8226. O=Lotus Notes
  8227. PURSAFO
  8228. |.:#U
  8229. O=Lotus Notes
  8230. CN=Lotus Notes Template Development/O=Lotus Notes
  8231. PURSAFO
  8232. sZ%!ZM}
  8233. 4I!ki
  8234. $Flags
  8235. O=Lotus Notes
  8236. O=Lotus Notes
  8237. PURSAFO
  8238. |.:#U
  8239. O=Lotus Notes
  8240. CN=Lotus Notes Template Development/O=Lotus Notes
  8241. PURSAFO
  8242. sZ%!ZM}
  8243.  99VsR-
  8244. %]g>&$
  8245. $Flags
  8246. O=Lotus Notes
  8247. O=Lotus Notes
  8248. PURSAFO
  8249. |.:#U
  8250. O=Lotus Notes
  8251. CN=Lotus Notes Template Development/O=Lotus Notes
  8252. PURSAFO
  8253. sZ%!ZM}
  8254. $Flags
  8255. O=Lotus Notes
  8256. O=Lotus Notes
  8257. PURSAFO
  8258. |.:#U
  8259. O=Lotus Notes
  8260. CN=Lotus Notes Template Development/O=Lotus Notes
  8261. PURSAFO
  8262. sZ%!ZM}
  8263. $Flags
  8264. O=Lotus Notes
  8265. O=Lotus Notes
  8266. PURSAFO
  8267. |.:#U
  8268. O=Lotus Notes
  8269. CN=Lotus Notes Template Development/O=Lotus Notes
  8270. PURSAFO
  8271. sZ%!ZM}
  8272. V0kEeSa
  8273. $Flags
  8274. O=Lotus Notes
  8275. O=Lotus Notes
  8276. PURSAFO
  8277. |.:#U
  8278. O=Lotus Notes
  8279. CN=Lotus Notes Template Development/O=Lotus Notes
  8280. PURSAFO
  8281. sZ%!ZM}
  8282. $Flags
  8283. O=Lotus Notes
  8284. O=Lotus Notes
  8285. PURSAFO
  8286. |.:#U
  8287. O=Lotus Notes
  8288. CN=Lotus Notes Template Development/O=Lotus Notes
  8289. PURSAFO
  8290. sZ%!ZM}
  8291. $Flags
  8292. O=Lotus Notes
  8293. O=Lotus Notes
  8294. PURSAFO
  8295. |.:#U
  8296. O=Lotus Notes
  8297. CN=Lotus Notes Template Development/O=Lotus Notes
  8298. PURSAFO
  8299. sZ%!ZM}
  8300. $Flags
  8301. Started running agent 'Refresh Fields' on 11/02/98 09:57:28 AM
  8302. 1 document(s) were modified by formula
  8303. Done running agent 'Refresh Fields' on 11/02/98 09:58:24 AM
  8304.     0S0E
  8305.     0S0E
  8306. O=Lotus Notes
  8307. O=Lotus Notes
  8308. PURSAFO
  8309. |.:#U
  8310. O=Lotus Notes
  8311. CN=Lotus Notes Template Development/O=Lotus Notes
  8312. PURSAFO
  8313. ]={So
  8314. jKqT)p
  8315. $TITLE
  8316. $Formula
  8317. Footlight MT Light
  8318. '++LotusScript Development Environment:2:5:(Options):0:66
  8319. '++LotusScript Development Environment:2:5:(Forward):0:1
  8320. Declare Sub Exiting(Source As Field)
  8321. Declare Sub Terminate
  8322. Declare Sub Entering(Source As Field)
  8323. Declare Sub Initialize
  8324. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8325. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8326. Private Sub BindEvents(Byval Objectname_ As String)
  8327.      Static Source As FIELD
  8328.      Set Source = Bind(Objectname_)
  8329.      On Event Exiting From Source Call Exiting
  8330.      On Event Entering From Source Call Entering
  8331. End Sub
  8332. '++LotusScript Development Environment:2:2:Exiting:1:12
  8333. Sub Exiting(Source As Field)
  8334.      
  8335. End Sub
  8336. '++LotusScript Development Environment:2:2:Terminate:1:10
  8337. Sub Terminate
  8338.      Dim workspace As New notesuiworkspace
  8339.      Dim ThisDoc As notesuidocument
  8340.      
  8341.      Set ThisDoc = workspace.CurrentDocument
  8342.      TempString$ = ThisDoc.FieldGetText("VendorList")
  8343.      
  8344.      
  8345. End Sub
  8346. '++LotusScript Development Environment:2:2:Entering:1:12
  8347. Sub Entering(Source As Field)
  8348.      
  8349. End Sub
  8350. '++LotusScript Development Environment:2:2:Initialize:1:10
  8351. Sub Initialize
  8352.      
  8353. End Sub
  8354. '++LotusScript Development Environment:2:5:(Options):0:66
  8355. '++LotusScript Development Environment:2:5:(Forward):0:1
  8356. Declare Sub Exiting(Source As Field)
  8357. Declare Sub Terminate
  8358. Declare Sub Entering(Source As Field)
  8359. Declare Sub Initialize
  8360. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8361. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8362. Private Sub BindEvents(Byval Objectname_ As String)
  8363.      Static Source As FIELD
  8364.      Set Source = Bind(Objectname_)
  8365.      On Event Exiting From Source Call Exiting
  8366.      On Event Entering From Source Call Entering
  8367. End Sub
  8368. '++LotusScript Development Environment:2:2:Exiting:1:12
  8369. Sub Exiting(Source As Field)
  8370.      
  8371. End Sub
  8372. '++LotusScript Development Environment:2:2:Terminate:1:10
  8373. Sub Terminate
  8374.      Dim workspace As New notesuiworkspace
  8375.      Dim ThisDoc As notesuidocument
  8376.      
  8377.      Set ThisDoc = workspace.CurrentDocument
  8378.      'TempString$ = ThisDoc.FieldGetText("VendorList")
  8379.      
  8380.      
  8381. End Sub
  8382. '++LotusScript Development Environment:2:2:Entering:1:12
  8383. Sub Entering(Source As Field)
  8384.      
  8385. End Sub
  8386. '++LotusScript Development Environment:2:2:Initialize:1:10
  8387. Sub Initialize
  8388.      
  8389. End Sub
  8390. EstimatedRecords'++LotusScript Development Environment:2:5:(Options):0:66
  8391. '++LotusScript Development Environment:2:5:(Forward):0:1
  8392. Declare Sub Terminate
  8393. Declare Sub Postopen(Source As Notesuidocument)
  8394. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8395. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8396. Private Sub BindEvents(Byval Objectname_ As String)
  8397.      Static Source As NOTESUIDOCUMENT
  8398.      Set Source = Bind(Objectname_)
  8399.      On Event Postopen From Source Call Postopen
  8400. End Sub
  8401. '++LotusScript Development Environment:2:2:Terminate:1:10
  8402. Sub Terminate
  8403.      
  8404. End Sub
  8405. '++LotusScript Development Environment:2:2:Postopen:2:12
  8406. %INCLUDE "pstoarr.lss"
  8407. Sub Postopen(Source As Notesuidocument)
  8408.      
  8409. End Sub
  8410. '++LotusScript Development Environment:2:5:(Options):0:66
  8411. '++LotusScript Development Environment:2:5:(Forward):0:1
  8412. Declare Sub Exiting(Source As Field)
  8413. Declare Sub Terminate
  8414. Declare Sub Entering(Source As Field)
  8415. Declare Sub Initialize
  8416. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8417. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8418. Private Sub BindEvents(Byval Objectname_ As String)
  8419.      Static Source As FIELD
  8420.      Set Source = Bind(Objectname_)
  8421.      On Event Exiting From Source Call Exiting
  8422.      On Event Entering From Source Call Entering
  8423. End Sub
  8424. '++LotusScript Development Environment:2:2:Exiting:1:12
  8425. Sub Exiting(Source As Field)
  8426.      
  8427. End Sub
  8428. '++LotusScript Development Environment:2:2:Terminate:1:10
  8429. Sub Terminate
  8430.      Dim workspace As New notesuiworkspace
  8431.      Dim ThisDoc As notesuidocument
  8432.      
  8433.      Set ThisDoc = workspace.CurrentDocument
  8434.      'TempString$ = ThisDoc.FieldGetText("VendorList")
  8435.      
  8436.      
  8437. End Sub
  8438. '++LotusScript Development Environment:2:2:Entering:1:12
  8439. Sub Entering(Source As Field)
  8440.      
  8441. End Sub
  8442. '++LotusScript Development Environment:2:2:Initialize:1:10
  8443. Sub Initialize
  8444.      
  8445. End Sub
  8446. EstimatedRecords
  8447. YesNo
  8448. Include Estimation Records in Graph?
  8449. O=Lotus Notes
  8450. O=Lotus Notes
  8451. PURSAFO
  8452. |.:#U
  8453. O=Lotus Notes
  8454. CN=Lotus Notes Template Development/O=Lotus Notes
  8455. PURSAFO
  8456. $$VendorList
  8457. $VendorList_O
  8458. $$GraphResults
  8459. $GraphResults_O
  8460. $TITLE
  8461. $Info
  8462. $$ScriptName
  8463. $$FormScript
  8464. $$$FormScript_O
  8465. $$EstimatedRecords
  8466. $EstimatedRecords_O
  8467. $Body
  8468. O=Lotus Notes
  8469. O=Lotus Notes
  8470. PURSAFO
  8471. |.:#U
  8472. O=Lotus Notes
  8473. CN=Lotus Notes Template Development/O=Lotus Notes
  8474. PURSAFO
  8475. sZ%!ZM}
  8476. $Flags
  8477. O=Lotus Notes
  8478. O=Lotus Notes
  8479. PURSAFO
  8480. |.:#U
  8481. O=Lotus Notes
  8482. CN=Lotus Notes Template Development/O=Lotus Notes
  8483. PURSAFO
  8484. sZ%!ZM}
  8485. b'{.o
  8486. $Flags
  8487. O=Lotus Notes
  8488. O=Lotus Notes
  8489. PURSAFO
  8490. |.:#U
  8491. O=Lotus Notes
  8492. CN=Lotus Notes Template Development/O=Lotus Notes
  8493. PURSAFO
  8494. sZ%!ZM}
  8495. $Flags
  8496. O=Lotus Notes
  8497. O=Lotus Notes
  8498. PURSAFO
  8499. |.:#U
  8500. O=Lotus Notes
  8501. CN=Lotus Notes Template Development/O=Lotus Notes
  8502. PURSAFO
  8503. sZ%!ZM}
  8504. $Flags
  8505. O=Lotus Notes
  8506. O=Lotus Notes
  8507. PURSAFO
  8508. |.:#U
  8509. O=Lotus Notes
  8510. CN=Lotus Notes Template Development/O=Lotus Notes
  8511. PURSAFO
  8512. sZ%!ZM}
  8513. $Flags
  8514. O=Lotus Notes
  8515. O=Lotus Notes
  8516. PURSAFO
  8517. |.:#U
  8518. O=Lotus Notes
  8519. CN=Lotus Notes Template Development/O=Lotus Notes
  8520. PURSAFO
  8521. sZ%!ZM}
  8522. $Flags
  8523. O=Lotus Notes
  8524. O=Lotus Notes
  8525. PURSAFO
  8526. |.:#U
  8527. O=Lotus Notes
  8528. CN=Lotus Notes Template Development/O=Lotus Notes
  8529. PURSAFO
  8530. sZ%!ZM}
  8531. $Flags
  8532. O=Lotus Notes
  8533. O=Lotus Notes
  8534. PURSAFO
  8535. |.:#U
  8536. O=Lotus Notes
  8537. CN=Lotus Notes Template Development/O=Lotus Notes
  8538. PURSAFO
  8539. sZ%!ZM}
  8540. ''EBw
  8541. $Flags
  8542. O=Lotus Notes
  8543. O=Lotus Notes
  8544. PURSAFO
  8545. |.:#U
  8546. O=Lotus Notes
  8547. CN=Lotus Notes Template Development/O=Lotus Notes
  8548. PURSAFO
  8549. sZ%!ZM}
  8550. $Flags
  8551. O=Lotus Notes
  8552. O=Lotus Notes
  8553. PURSAFO
  8554. |.:#U
  8555. O=Lotus Notes
  8556. CN=Lotus Notes Template Development/O=Lotus Notes
  8557. PURSAFO
  8558. sZ%!ZM}
  8559. $Flags
  8560. Vendor Data
  8561. GraphicButton2
  8562.     hq"    S
  8563. hy<~    
  8564. u=3y=
  8565. hqG~hz|
  8566. |hbG!hzm
  8567. pO    8h
  8568.     sTy~M~hb8
  8569. XphQG
  8570. ~zbG    
  8571. =|zp8
  8572.         myL,hpRc
  8573. }gathbv
  8574. Mupb}
  8575. y[gpb
  8576. u=ubuM
  8577. M~VqbS
  8578. K:`FS
  8579. d EYXn}LH^#
  8580. PX0+)
  8581. `    Z6X^>
  8582. =(Z:j
  8583. rn*6+S
  8584. a >'*/)
  8585. rY(%'`8
  8586. ]^2'(0
  8587. \] m12
  8588. +YEsks~S
  8589. ksP^(6#
  8590. dm(%'%`8
  8591. &`<`+
  8592. Hm1>S
  8593. <m'212
  8594. .=*21S
  8595. <E>1'
  8596.     ]k%'2'(`8
  8597. Hm1>n8
  8598. a m1`
  8599. {>1%6
  8600. 2*#N8
  8601. Hm1>1_<
  8602. }>1*/+
  8603. H2*/+
  8604. .^v>1'
  8605. am212*~
  8606. d #0+/
  8607. '*6#*
  8608. E21%(/>
  8609. ^m*#+
  8610. *'12%60
  8611. #*'2*/
  8612. +    0(%'*6
  8613. +0/6#+
  8614. +0#/(
  8615. PX0+)
  8616. .E/(/0
  8617. <%/+)
  8618.  #6/`8
  8619. .=(*(#
  8620. . 12:
  8621. a>%6+
  8622. ]^2'(0
  8623. \arP21:
  8624. \] m12
  8625. kEY21:
  8626. ;X1X<
  8627. ;n12Z
  8628. ;X1>12
  8629. LX_6_
  8630. ;m>1Z
  8631.  *21S
  8632. Hm1>S
  8633. <m'212
  8634. H^=Pk
  8635. ]1%0)
  8636. ;E>1Z
  8637. Hm1>n8
  8638. ;X1>1'%*
  8639. rX('>XF
  8640. LE'0)
  8641. ;X1>1'
  8642. ;Ev1Z
  8643.  12(N8
  8644. Hm1>1_<
  8645. }>1*/+
  8646. ]X21'
  8647. \ /*2
  8648. ]X21'
  8649. ]=v1*
  8650. %*6/6
  8651. r>1*_{
  8652. am212*~
  8653. n21%6
  8654. P6%21'%Y
  8655. %6#6P
  8656. lv1*#n
  8657. m1*#0P
  8658. E21%(/>
  8659. ^m*#+
  8660. #*'2'
  8661. (/#/(%'%(
  8662. '2%(0
  8663. '1>2*#
  8664. '12*#+
  8665. #*'2*/
  8666. +    0(%'*6
  8667. 6(6#+
  8668. +#6/0
  8669. +#6(60
  8670.     -iI@QOJ
  8671. @QOJR
  8672. I@QOJ
  8673. COJtR
  8674.     ?@CWOtR
  8675. XXXxxx
  8676. HHHPPP
  8677. ((@@@@
  8678. PPXXX`
  8679. 0( 888HHHP
  8680. `X0`x
  8681. Button5Machine Description
  8682. Machine Identifier
  8683.     0S0E
  8684. Machine Identifier
  8685. Button2Test Results
  8686. Test Results
  8687.     0S0E
  8688. Machine Identifier
  8689. Button3HelpL
  8690. 852564B1:006F8A1C
  8691. Button4All Vendor Data
  8692. Vendor Data
  8693.     0S0E
  8694. Machine Identifier
  8695. p+$-,
  8696. 4%&*-
  8697. 0.+$&
  8698. nos4x
  8699. ^24yz
  8700. oyz{|
  8701. outuo
  8702. mdkeR
  8703. XC')_c
  8704. \F7)b`
  8705. rh>5lf
  8706. EFMATGaXhN9'lc
  8707. H'6)c
  8708. r;'6dc
  8709. QI6'k`
  8710. HT76f
  8711. eiPXI'6)
  8712. <TNC:;5c
  8713. Q=8'k
  8714. dnPVF:8;k`
  8715. N;8'5
  8716. ZG=<6R
  8717. hH8:>k`
  8718. VF?:8')
  8719. ]FC?=8f
  8720. ZA;>?k`
  8721. SN@?;7)
  8722. VSFIB@:95
  8723. 6AMojo^R
  8724. joHN;<9'5d
  8725. EI;>?>k`
  8726. J;<9'lf
  8727. _kik6:
  8728. :<7;8')d
  8729. \L=@W
  8730. ><'ln
  8731. iPrF>=
  8732. <U;8'lf
  8733. hIBCR
  8734. iI?@B@:75
  8735. dcPicf
  8736. ^<')d
  8737. \L=@BR
  8738. iMCB?:96)c
  8739. P    Sj>?@?;k`
  8740. eD<'lf
  8741. hIBCG`
  8742. B?;')
  8743. ]FIBkc
  8744. [CB><')
  8745. @=9b`
  8746. ^A'gf
  8747. hIBCBUi
  8748. aCB=86
  8749. h@=86)
  8750. \NKCB?:7'[
  8751. \L'5W
  8752. ]I@B@=^
  8753. XL@:95
  8754. EF9768
  8755. j:?=<9=
  8756. M=86)
  8757. B>86)5H
  8758. EL97'A
  8759. M@B>;8C
  8760. NI=96
  8761. =?B@><7'9=@
  8762. A:;96569:>:9
  8763. 8:?@>;')
  8764. 9=?@=8'7<>
  8765. :<'569;:;7
  8766. :<7'9;
  8767. 6    7;>?=<')
  8768. :<96)5'8;:
  8769. ;8'5678<96
  8770. 57<:;8')
  8771. ;8'6'8
  8772. )6798;
  8773. ;89'6)
  8774. _ecOl
  8775. rh>5lf
  8776. \M'7'5)
  8777. =7'lf
  8778. [<'6gc
  8779. HT76f
  8780. eiPXI'6)
  8781. \M8;875
  8782. rA;8')gf
  8783. i>86f
  8784. n:9lc
  8785. F9<8k`
  8786. N;8'5
  8787. \L;=;95
  8788. H?:95
  8789. F;:;k`
  8790. VF?:8')
  8791. \FB@d
  8792. \L:>:95
  8793. ]C><6
  8794. F:>:k`
  8795. SN@?;7)
  8796. V]ZH@Bd
  8797. \L:>:95
  8798. H@:7lf
  8799. F=>:k`
  8800. VSFIB@:95
  8801. jMA@Bd
  8802. \L:>:95
  8803. hB>85f
  8804. QTBTi
  8805. F=>:k`
  8806. J;<9'lf
  8807. QTBCB@
  8808. XTU<U'l_
  8809. mdnPX
  8810. iJ?:6f
  8811. QTBKDi
  8812. F=@BR
  8813. F>?:k`
  8814. <U;8'lf
  8815. hIBCR
  8816. iI?@B@:75
  8817. hNLHjD`
  8818. SB>7f
  8819. eD<'lf
  8820. hIBCG`
  8821. B?;')
  8822. QTBCB?>=
  8823. ZT;?CTe
  8824. XM?7f
  8825. QTBCB?c
  8826. FB@;b`
  8827. ^A'gf
  8828. hIBCBUi
  8829. aCB=86
  8830. ST@B?:<
  8831. VF8=@
  8832. ST@B?
  8833. SLKB=Y
  8834. Z:>=<8<
  8835. ZCB=U[
  8836. \L'5W
  8837. ]I@B@=^
  8838. XL@:95
  8839. G@B><'6
  8840. H<>@B?>A
  8841. ><9<H
  8842. JKB=9G
  8843. IB=97H
  8844. EL97'A
  8845. M@B>;8C
  8846. NI=96
  8847. 9:?@=95)
  8848. 59=?@?
  8849. :A:;898;>?>;
  8850. <:?@>;7'9=
  8851. 8:?BC@=9
  8852. 9:>:965'8:?B@=96)69=
  8853. 9=?@=8'7<>
  8854. ;9'6'8:
  8855. ;9'9;
  8856. 7;:;96
  8857. :96)69:
  8858. :<7'9;
  8859. 6    7;>?=<')
  8860. 8'5)68
  8861. <;<96
  8862. )69;:;86
  8863. 69<875
  8864. )69<;<75)57<
  8865. ;8'6'8
  8866. PpOOO
  8867. pppxxx
  8868. hhh```XXXPPPXX`HHH@@@@Xx
  8869. (HHP 
  8870. 888H( 8888((@0(@
  8871.  `X0 
  8872. DataUServer22222222lts");
  8873. @Command(44444444
  8874. 00000000
  8875. @Command(4444
  8876. Button3Help
  8877. @Command(4444
  8878. Command(4444
  8879. @Command(4444
  8880. Command(4444
  8881. @Command(4444
  8882. O=Lotus Notes
  8883. O=Lotus Notes
  8884. PURSAFO
  8885. |.:#U
  8886. O=Lotus Notes
  8887. CN=Lotus Notes Template Development/O=Lotus Notes
  8888. PURSAFO
  8889. $ViewMapDataset
  8890. $ViewMapLayout
  8891. $NavImagemap
  8892. DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg ProbeDataUPercentDFastFastDataUPercentDMediumMediumDataUPercentDSlowSlowDataUOther11Actions/MinDataUOther21Bytes/Min$4SignatureV
  8893. IsSignedField
  8894.     1S3S4S6S8S
  8895. O=Lotus Notes
  8896. O=Lotus Notes
  8897. PURSAFO
  8898. |.:#U
  8899. O=Lotus Notes
  8900. CN=Lotus Notes Template Development/O=Lotus Notes
  8901. PURSAFO
  8902. $TITLE
  8903. $Index
  8904. $Formula
  8905. $FormulaClass
  8906. $ViewFormat
  8907. $Comment
  8908. 08/22/97 10:02:58 AM TestNSF/IrisTS updated TestNSF/IrisTS
  8909. 08/22/97 10:02:58 AM TestNSF/IrisTS added TestNSF/IrisTS
  8910. 08/22/97 10:02:58 AM TestNSF/IrisTS added Local Domain Servers
  8911. 08/22/97 10:02:58 AM TestNSF/IrisTS updated -Default-
  8912. 08/22/97 10:02:58 AM TestNSF/IrisTS added OtherDomainServers
  8913. -Default-
  8914. OtherDomainServers
  8915. Local Domain Servers
  8916. CN=TestNSF/O=IrisTS
  8917.