Australian Personal Computer 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / notes / 50lbwis.exe / DATA1.CAB / DominoDataFiles / cpa.nsf (.txt) < prev next >

Wrap

Lotus Notes Storage Facility | 1999-01-28 | 1.6 MB | 9,536 lines

Sample Vendor Database #2Server.Planner: Vendor ;(K;(0 huhsw J;0H: K;PH: K;pH: K; H:0K; H:@K; H:PK; H:`K; I:pK;0I: K;PI: K;pI: K;0J: L;PJ: L;pJ: L; J:0L; J:@L; J:PL; J:`L; K:pL;0K: L;PK: L;pK: :B%HB H (H#0H#8H# R@a, :HG0P .Cx1B pJ;0H: J;PH: J;pH: J;0I: K;PI: K;pI: K; I:0K; I:@K; I:PK; K;0J: L;PJ: L;pJ: L; J:0L; J:@L; J:PL; J:`L; K:pL;0K: L;PK: L;pK: L;0L: M;PL: M;pL: M; L:0M; L:@M; L:PM; L:`M; M:pM;0M: M;PM: M;pM: M;0N: N;PN: N;pN: N; N:0N; N:@N; N:PN; N:`N; O:pN;0O: N;PO: N;pO: STG62896 STG29977 STG38624 STG36359 STG50266 STG18531 08/22/97 10:02:58 AM TestNSF/IrisTS updated TestNSF/IrisTS 08/22/97 10:02:58 AM TestNSF/IrisTS added TestNSF/IrisTS 08/22/97 10:02:58 AM TestNSF/IrisTS added Local Domain Servers 08/22/97 10:02:58 AM TestNSF/IrisTS updated -Default- 08/22/97 10:02:58 AM TestNSF/IrisTS added OtherDomainServers -Default- OtherDomainServers Local Domain Servers CN=TestNSF/O=IrisTS !:ODL L,l7X }Nw*! TO~-B D|Wpd bx$oH Cz,*# sy0^4 ls93l rUz`6 l:18] ksC9#V4 {CM8U Q{axe CN=Lotus Notes Template Development/O=Lotus Notes all documents\list all documents/list (all documents\all) all documents\all all documents/all (list) cn=carol zimmet/o=iris machine identifier (all documents\list) vendor data outputinfo (vendor data) (compare: probe/notesbench response) bx$oH compare: probe/notesbench response bx$oH 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 $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O $Flags 0SL1S4S5S3724 $TITLE CN=Carol Zimmet/O=Iris CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notess Notes Tem ff&fffffffffffffff&fff"&ff fffff} f&fff(&ff fffff f&fff(&ff &fff(&ff fff(&ff fff(&ff ff(&ff fb""ff ffff& fjffDDFl ffffZ fjffdtfl jffdtfl ffdtfl ffdtfl f&fffj fdtfl f&fffjn f&fffjf Vfffjff fffjff fffffj fff&f fff&fj ffffff&ff fffffffff CN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Carol Zimmet/O=IrisCN=Richard Kanosky/O=Irisy CN=Richard Kanosky/O=Irisc:\data\dspv.ntflMachine IdentifierSample Vendor Database #2Server.Planner: Vendor JMachine Identifier: MachineDiskType1 RAID 5 MachineDiskType2 RAID 5 MachineDiskType3 RAID 5 MachineDiskType4 RAID 5 Any Config RAID 5 1S3S4S5S6R7S8S9S2E10S11S12S13S14R15S16S20S FormSigned 1S3S4S6S8S MachineIDMachineDescriptionMachinePlatformMachineCPUTypeMachineNumberofCPUsMachineCPUSpeedMachineAmountofMemoryMachineNotesVersionMachineCost$16$6$Conflict$REF Machine Identifier L1S2S3S1X MachineIDMachinePlatformMachineNotesVersionMachineCost MachineCost MachineCostY CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes )(All Documents\List)X ListTypeList$Conflict$REF (List) L1S2S3S1 ListTypeList& CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes HVendor Data: IsSignedField 1S3S4S6S8S DataUServerIDLataUScript1DataUNumberUsers1DataUAverageDataUPercentDFastDataUPercentDMediumDataUPercentDSlowDataUOther11DataUOther21$4$Conflict$REF Vendor Data L1S2S3S1E DataUServerIDDataUScript1DataUNumberUsers1 DataUServerID DataUServerIDY CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes #(All Documents\All)8 Form$Conflict$REF L1S1 Form& CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes (List)|ListX ListTypeList$Conflict$REF (List) L1S2S3S1 ListTypeList 0ListTypeList NameListList& CN=Carol Zimmlt/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes Vendor Data Output to DatabaseEC4M768JR_ >@Mail & Database $@NBTestNSF/IrisTS; Carol Zimmet/Iris0 JR_ CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ACLDigest Times New Roman bodytext_dd bll_onl Task List &Switch To The Domino Server.Planner Analyst Database is a tool for creating and managing queries that you make against Vendor Databases. It stores the results in a Decision Maker Database. body text The Analyst Database presents two views: Query on Data Conversion Guidelines You use the Query on Data view to create, use, and manage your queries. You use the Conversion Guidelines view to adjust the search parameters to convert laboratory results to real-life requirements, for specific workloads. (Optoonal) Each view has an action button bar for ease of use. You can also perform any of these actions from the menu bar. Server.Planner queries only certified Vendor Data and Machine Identification forms. You use the Query on Data view to perform a variety of activities with the queries you have created to analyze the vendor data. Using the Domino Server._lanner Vendor Database The Server.Planner Vendor Database contains hardware, software, and benchmark information created by Lotus NotesBench. The database presents two views: Machine Identifier Vendor Data When you select the Machine Identifier view, the view pane presents a list of Machine IDs, including a summary of the configuration of that machine. You can view any complote Machine Identifier form by opening it. When you select the Vendor Data view, the view pane presents a list of Machine IDs followed by a list of the workloads that were performed on these systems. You can view any workload data set by opening it. Each view has an action button bar for ease of use. You can also perform any of these actions from the menu bar. You cannot alter the data in any Machine/Identifier form, or Vendor Data form, once it has been certified. Using the Machine Identifier View To remove a Machine Identifier form, select Machine ID in the navigator pane, select the form in the list in the view pane, and press the Delete key, (or use Edit Cut from the menu bar). To view any Machine Identifier form, select Maohine Identifier in the navigator pane, and double-click on its entry in the list, (or use File Open from the menu bar). To create a Machine Identifier form, select Create Machine Identifier from the menu bar. To edit an uncertified Machine Identifier form, select Machine Identifier in the navigator pane, and double-click on its entry in the list, (or/use File Open from the menu bar). Select Edit on the action bar, and make changes to any open field. Use Save on the action bar to preserve your changes. Using the Vendor Data View When you select the Vendor Data view, you see a list of Machine IDs with associated workloads listed below them. Select View Expand All from the menu bar if you see only Machine IDs. To view the Vendor Data form for a particular workload run, double-click on the workload entry. The form shows a summary of the benchmark results, as created by Probe and Notesnum. You cannot alter any of the test data fields in this form. You can create charts from the test data for a given workload on a system, graphing by performance or distribution. You can also / create additional charts for comparative analysis of other machines, or other vendors' machines, after creating the initial charts. : The Graphical Test Results area of the Vendor Data form must be open when you initiate any graphing option. You can add this vendor data and the charts to the Decision Maker database, or create a mail item, by using the Save Results button, (or Oction Save Results on the menu bar). O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Info $Body MachineIDMachine IDMachineDescriptionMachine DescriptionMachinePlatformOSMachineCPUTypeCPU TypeMachineNumberofCPUs #MachineCPUSpeedMHzMachineAmountofMemoryMemMachineNotesVersionNotesMachineCostCost$16Disk MachoneDiskType1 RAID 5 MachineDiskType2 RAID 5 MachineDiskType3 RAID 5 MachineDiskType4 RAID 5 Any Config RAID 5 1S3S4S5S6R7S8S9S2E10S11S12S13S14R15S16S20S $6SignatureT FormSigned 1S3S4S6S8S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ L:0q $TITLE $Index $Formulo $FormulaClass $ViewFormat $Comment DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesOataUAverageAvg ProbeDataUPercentDFastFastDataUPercentDMediumMediumDataUPercentDSlowSlowDataUOther11Actions/MinDataUOther21Bytes/Min$4SignatureV IsSignedField 1S3S4S6S8S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaCoass $ViewFormat $Comment O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Developmont/O=Lotus Notes PURSAFO Fde!f^^ 1'/\T& $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ @|\o_ $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment Times New Roman body text Task List &Switch To About Lotus Domino Server.Planner Body Text Domino Server.Planner is a capacity planning tool. It is a Notes Application used to identify benchmarked server configurations that support specified workload requirements for Domino servers. Server.Planner provides information in several formats, but with primarily two viewpoints: Server configuration recommendations hat satisfy server workload requirements. Graphical performance analysis and comparisons. This application is distributed as three Notes database templates. Its use requires three kinds of Domino Server.Planner databases: Vendor Database Analyst Database Decision Maker Database DISCLAIMER : This template is intended solely to provide you with a means for matching your ser 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 S_CH DAMAGES. This application requires: Notes 4.6 or later Windows 95 or Windows NT 3.51 or later Lotus Components 1.1 or later (for graphical information) About the Domino Server.Planner Vendor Database The Server.Planner Vendor Database contains hardware, software, and /benchmark information created by Lotus NotesBench. The database presents two views: Machine Identifier Vendor Data When you select the Machine Identifier view, the view pane presents a list of Machine IDs, including a summary of the configuration of that machine. You can view any complete Machine Identifier form by opening it. When you select the Vendor Data view, the view pane presents a list / of Machine IDs followed by a list of the workloads that were performed on these systems. You can view any workload data set by opening it. Each view has an action button bar for ease of use. You can also perform any of these actions from the menu bar. You cannot alter the data in any Machine Identifier form, or Vendor Data form, once it has been certified. For more detailed information about this application, choose - Using This Database O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $Info $Body 0S0E NotesPerformance Notes Product Development )I^-. PURSAF "[q{[ Notes Domain Certificate PURSAF S_)tW' aY*]c PURSAF Lotus Development Inc 0wmS( PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO MachineID 0S0E Sample Vendor Database Notes Product Development )I^-. PURSAF "[q{[ S_)tW' aY*]c PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO j6AD' MachineID 0S0E Sample Vendor Database Notes Product Development )I^-. PURSAF "[q{[ S_)tW' aY*]c PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO C`vm7A MachineID 0S0E Sample Vendor Database Notes Product Development )I^-. PURSAF "[q{[ S_)tW' aY*]c PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO EDjjY MachineID MailFlag Server Machine ID Server Machine ID .,$ //: tmpDateList 0S0E tmpDateSeleoted O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $HTMLCode $Info $$Script_O $$ScriptName tmpListOfDates tmpDateSelected $Body $PublicAccess $Info $$Script_O /$ScriptName $Body PURSAFO Cgl{ jxDx> $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames Vendor DataCH FirstTimeDataDistributeSheetDataPerformSheetDataUCommentsDataUModificationDateDataUCreationDateDataUAuthorReturnReceiptDeliveryReportDeliveryPrioritySubjectBlindCopyToCopyToSendToDataDistributeChartDataPerformChartDataUPercentMoreDataUPorcentDMoreDataUMoreDataUPercentSlowDataUPercentDSlowDataUSlowDataUPercentMediumDataUPercentDMediumDataUMediumDataUPercentFastDataUPercentDFastDataUFastDataUMaximumDataUMinimumDataUAverageAvgHitsMinTotBytesXferredAvgBytesHitTotHitsTotOrdersLotsTotDollarValueTotOrdersCreatedDataUOther21DataUOther11DataUResponseTime1DataUNotesMark1DataUNumberUsers1DataUScript1DurationTestVendorDataUDatePerformedDataUServerIDDataMachineIDFormSignedOutputSaveResultsOutputFilenameOutputServerDataUResponseTime1_1DataMachineID_1AvoHitsMin_1IsSignedFieldMailFlagDataGenerated_1DataGeneratedDataCalibration_1AvgBytesHit_1DataUOther11_1DataUOther21_1DataUMaximum_1DataUMinimum_1DataUAverage_1CertifyCheckOnFormNewLocationEditFieldFlagSaveOptionsDocLinkFlag CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesowner - co 'Machine Identifier0 MachineCommentsMachineModioicationDateMachineCreationDateMachineAuthorMachineCostDateMachineCostClientProfPercent3ClientProf3ClientProfPercent2ClientProf2ClientProfPercent1ClientProf1MachineNetworkAdapterTypeMachineNetworkAdaptersMachineComPortSpeedMachineNumComPortsMachineDiskConfigure4MachineDiskType4MachineDiskSize4MachineDiskSpindles4MachineDiskConfigure3MachineDiskType3MachineDiskSize3MachineDiskSpindles3MachineDiskConfigure2MachineDiskType2MachineDiskSize2MachineDiskSpindles2MachineDiskConfigure1MachineDiskType1MachineDiskSize?MachineDiskSpindles1MachineAmountofMemoryMachineCPUSpeedMachineNumberofCPUsMachineCPUTypeMachinePlatformMachineNotesVersionMachineDatePerfomedMachineDescriptionFormSignedMachineIDIsSignedFieldCertifyCheckOnFormNewLocationSaveOptionsDocumentLinkqueryid CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes request: CN=Carol Zimmet/O=Iris2 30719 CN=Carol Zimmet/O=Iris CN=Carol Zimmet/O=Iris2 30719 If iAct CN=Carol Zimmet/O=IrosCN=Lotus Notes Template Development/O=Lotus Notes note.For +Vendor DataG3 CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Noteseason) 0Machine IdentifierG3 CN=Carol Zimmet/O=IrisCN=Lot s Notes Template Development/O=Lotus NotesEnd Sub (List)C CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes Dim rt OutputInfoC CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesote.GetI !(Vendor Data)6 FormSigned 1S3S4S6S8S DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUPercentFastDataUPercen MediumDataUPercentSlowDataUOther11DataUOther21$1$Conflict$REF Vendor Data L1S2S3S1E DataUServerIDDataUScript1DataUNumberUsers1 DataUServerID DataUServerIDY CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesation = A bx$oH (Compare: Probe/NotesBench Response) DataUServerIDDataUScript1DataUNumberUsers1DataUAverageDataUResponseTime1_1DataUResponseTime1DataUNotesMark1$Conflict$REF Vendor Data L1S2S3S1E DataUServerIDDataUScript1DataUNumberUsers1 DataUServerID DataUServerID DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg ProbeDataUResponseTime1_1NB ResponseDataUResponseTime1DataUNotesMark1NB NotesMark& CN=Carol Zimmet/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesich = rese Platform(List) 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 CN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Machine Identifier0111Yessample machine - 1000 4.6NT 4.0Pen ium Pro (P6) 30Any ConfigurationNot Used TCPIP TestNSF/IrisTSCarol Zimmet/Iris RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Machine Identifier0111EC1M768Yes1 CPU Config 4.6NT 4.0Pentium (P5) 10Any ConfigurationNot Used TCPIP Carol Zimmet/Iris<kc CN=Carol Zimmet/O=Iris pLPUUU '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, vFieldEntryValue ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting( Source As Field ) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting( Source As Field ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUDatePerformed End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUDatePerformed If ( Cdat(vFieldEntryValue( 0 ) ) <> Cdat( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUDatePerformed = Cdat( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting( Source As Field ) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting( Source As Field ) Dim WorkSpace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = WorkSpace.CurrentDocument If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then Messagebox "Enter Script Specification", MB_ICONEXCLAMATION, "Validation" ThisDoc.GoToField( "DataUScript1" ) End If If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUNumberUsers1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUNumberUsers1 If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUNumberUsers1 = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUNotesMark1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUNotesMark1 If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUNotesMark1 = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.TotOrdersCreated) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.GoToField( "TotOrdersCreated" ) End If Dim vTemp As Variant vTemp = ThisDoc.Document.TotOrdersCreated If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotOrdersCreated = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotOrdersCreated End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotDollarValue End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.TotDollarValue If ( Ccur(vFieldEntryValue( 0 ) ) <> Ccur( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotDollarValue = Ccur( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotOrdersLots End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.TotOrdersLots If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotOrdersLots = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotHits End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.TotHits If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotHits = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotBytesXferred End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.TotBytesXferred If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotBytesXferred = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUFast End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUFast If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUFast = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMedium End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMedium If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMedium = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUSlow End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUSlow If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUSlow = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMore End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMore If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMore = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub Vendor Data Footlight MT Light '++LotusScript Development Environment:2:5:(Options):0:74 Option Public 'Use "vendordata" Const numoutputlines = 10 '%INCLUDE "chconsts2.txt" %INCLUDE "chconsts.txt" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub DistributeChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument) Declare Sub PerformChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument) Declare Sub AMSV() Declare Public Function ValidateAMDistribution( ThisDoc As NotesUIDocument ) As Integer Declare Public Function ValidateGraphDistribution( ) As Integer Declare Public Function ValidateGraphPerformance( ) As Integer Declare Public Sub CreateSpreadChartAddlLink( iRCnt, iCCnt ) Declare Public Function CreateOutputDB( ThisDoc As NotesUIDocument ) As NotesDatabase Declare Public Function ValidateAMPerformance( ThisDoc As NotesUIDocument ) As Integer Declare Public Function ProcessPerformChart( PerformChart As Variant ) As Variant Declare Public Function CreateList( ) As NotesDocument Declare Public Sub PerformChartAssn2( iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument ) Declare Public Sub GraphPerformance( iRowCountPerform As Integer, iColCountPerform As Integer ) Declare Public Function PerformComponentsSetup2( ) As Integer Declare Function ExtractVendorName( sSearchDB As String ) As String Declare Sub GraphForSave (ThisDoc As NotesUIDocument, ThisDocBE As NotesDocument ) '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim iRowCountPerform As Integer Dim iColCountPerform As Integer Dim iRowCountDistribute As Integer Dim iColCountDistribute As Integer Dim PerformChart As Variant Dim PerformSheet As Variant Dim DistributeChart As Variant Dim DistributeSheet As Variant Dim vFieldEntryValue As Variant Dim vFieldEntryValueL As Variant Dim vEditFieldFlag As Variant Dim sFieldName As String Dim bAlreadyDisplayedPerform As Integer Dim bAlreadyDisplayedDistribute As Integer Dim sFirstTime As String ' flag for saving machine id field '++LotusScript Development Environment:2:2:DistributeChartAssn:1:8 Sub DistributeChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument) DistributeChart.Repaint = False DistributeChart.rowcount = iRC - 1 DistributeChart.columncount = iCC DistributeSheet.tablename = "DistributeSheet" DistributeChart.sslinkbook = "DistributeSheet" test = iRC DistributeChart.sslinkrange = "a1:m" + test DistributeChart.sslinkmode = 1 DistributeChart.Repaint = True Call ThisDoc.GoToField("DataDistributeChart") End Sub '++LotusScript Development Environment:2:2:PerformChartAssn:1:8 Sub PerformChartAssn (iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument) PerformChart.Repaint = False PerformChart.rowcount = iRC PerformChart.columncount = iCC PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = iRC + 1 PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 PerformChart.Repaint = True Call ThisDoc.GoToField("DataPerformChart") End Sub '++LotusScript Development Environment:2:2:AMSV:1:8 Sub AMSV() ' Graph Performance Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime ("1/1/96") Dim SearchEntryCollection As NotesDocumentCollection Dim SearchMachineCollection As NotesDocumentCollection Dim SearchEntryDoc As NotesDocument Dim SearchMachineDoc As NotesDocument Dim sSavedMachines(numoutputlines, 2) As String ' col1 = machine name, col2 = vendor Dim bAlreadyFound As Integer Dim sVendorName As String Dim iMinUsers As Integer Dim iMaxUsers As Integer Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True sVendorName = ExtractVendorName( ThisDB.Filename ) ' extract current vendor name ' sVendorName = Left(sSearchDB, (Len(sSearchDB) - 4) ) ' extract .NSF 'sVendorName = Right(sVendorName, (Len(sVendorName) - 2 ) ) ' extract CP prefix If ValidateAMPerformance(ThisDoc) = False Then Exit Sub End If 'Set SearchMachineCollection = ThisDB.Search(FormulateQuery(ThisDoc), DateTime, 0 ) ' first make sure there is some data to process ' search on range of number of users iMinUsers = Cint(.95 * Cint(ThisDoc.FieldGetText("DataUNumberUsers1") ) ) iMaxUsers = Cint( 1.05 * Cint(ThisDoc.FieldGetText("DataUNumberUsers1") ) ) ' see if there are more machines (same vendor).... FormulateQuery$ = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText("DataUServerID") & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText("DataUScript1") & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers Set SearchMachineCollection = ThisDB.Search(FormulateQuery$, DateTime, 0 ) If SearchMachineCollection.Count = 0 Then Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Performance Information" Exit Sub End If PerformChart.Repaint = False On Error Goto 0 ' zero out extra columns For i = 3 To iColCountPerform PerformSheet.col = i For j = 2 To iRowCountPerform PerformSheet.row = j PerformSheet.text=NA Next j Next i iColCountPerform = 2 sSavedMachines(1, 1) = ThisDoc.FieldGetText("DataUServerID") sSavedMachines( 1, 2 ) = sVendorName For j = 1 To SearchMachineCollection.Count Set SearchMachineDoc = SearchMachineCollection.GetNthDocument ( j ) ' first make sure this is a unique entry bAlreadyFound = False For k = 1 To (iColCountPerform - 1) temp = SearchMachineDoc.GetItemValue("DataUServerID") If temp(0) = sSavedMachines(k, 1) Then If sVendorName = sSavedMachines( k, 2) Then ' check machine name ' verify that machine name and vendor name are the same bAlreadyFound = True End If End If Next k ' make sure the data has a signature attached vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = ThisDoc.Document.IsSignedField If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "0" Then bAlreadyFound = True End If If bAlreadyFound = False Then ' new entry iColCountPerform = iColCountPerform + 1 PerformSheet.row = 1 PerformSheet.col = iColCountPerform ' save off the machines already processed temp = SearchMachineDoc.GetItemValue("DataUServerID") sSavedMachines ((iColCountPerform - 1), 1) = temp(0) 'subtract off original columns sSavedMachines ((iColCountPerform - 1), 2) = sVendorName PerformSheet.text = temp(0) PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' load up the spreadsheet with data ' do a lookup based on this machine id and this script id temp = SearchMachineDoc.GetItemValue("DataUServerID") SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID = " & {"} & temp(0) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText("DataUScript1") & {"} Set SearchEntryCollection = ThisDB.Search(SearchFormula$, DateTime, 0 ) If SearchEntryCollection.Count > 0 Then For i = 1 To SearchEntryCollection.Count Set SearchEntryDoc = SearchEntryCollection.GetNthDocument ( i ) ' need to see if an entry exists in the current spreadsheet bAlreadyFound = False PerformSheet.col = 1 temp = SearchEntryDoc.GetItemValue("DataUNumberUsers1") For k = 2 To iRowCountPerform PerformSheet.row = k If PerformSheet.number = Cint(temp(0)) Then bAlreadyFound = True PerformSheet.col = iColCountPerform temp1= SearchEntryDoc.GetItemValue("DataUAverage") PerformSheet.number= Csng(temp1(0)) End If Next k If bAlreadyFound = False Then ' insert in table (entry and data) iRowCountPerform = iRowCountPerform + 1 PerformSheet.row = iRowCountPerform ' insert new data PerformSheet.col = 1 PerformSheet.number = Cint(temp(0)) PerformSheet.col = iColCountPerform temp1= SearchEntryDoc.GetItemValue("DataUAverage") PerformSheet.number= Csng(temp1(0)) End If Next i End If End If Next j ' set columns to automatically resize PerformSheet.SetColWidthAuto 1, 1, (iRowCountPerform + 1), 2 , True PerformSheet.col = 1 PerformSheet.row = 1 PerformSheet.showselections = 0 PerformSheet.Sort 2, 1, iRowCountPerform, iColCountPerform + 1, True, 1 ' insert zeros where there are gaps, up to the final entry For i = 2 To iColCountPerform bAlreadyFound = False PerformSheet.col = i For j = iRowCountPerform To 2 Step -1 ' count backwards PerformSheet.row = j If PerformSheet.number > 0 Then bAlreadyFound = True Elseif bAlreadyFound = True Then ' already found the top number PerformSheet.number = 0 End If Next j Next i ' **************************** ' Perform Chart Setup '**************************** Set PerformChart = ProcessPerformChart(PerformChart) 'set Perform chart type to 2d line 'PerformChart.chartType = CHChartType2dLine PerformChart.chartType = CHChartType2dBar PerformChart.TitleText = ThisDoc.FieldGetText ("DataUScript1") + ": Comparative Analysis, Same Vendor" PerformChart.Plot.DataSeriesInRow = False 'reads from a column ' set up the link between spreadsheet and chart Call PerformChartAssn ((iRowCountPerform-1), (iColCountPerform- 1), ThisDoc) Dim ThisDocBE As NotesDocument Set ThisDocBE = ThisDoc.Document Call GraphForSave( ThisDoc, ThisDocBE ) Exit Sub ExitNow: Messagebox "Need to Generate Original Performance Graph", MB_ICONEXCLAMATION, "Graph Performance Information" Exit Sub End Sub '++LotusScript Development Environment:2:1:ValidateAMDistribution:1:8 Public Function ValidateAMDistribution( ThisDoc As NotesUIDocument ) As Integer ValidateAMDistribution = True If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then ValidateAMDistribution = False Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION,_ "Graph Distribution Information" ThisDoc.GoToField( "DataUServerID" ) Exit Function End If If ThisDoc.FieldGetText( "DataUNumberUsers1" ) = "" Then ValidateAMDistribution = False Messagebox "Specify Number Users/Spoke", MB_ICONEXCLAMATION,_ "Graph Distribution Information" ThisDoc.GoToField( "DataUServerID" ) Exit Function End If If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then Messagebox "Specify Script Performed", MB_ICONEXCLAMATION,_ "Graph Distribution Information" ValidateAMDistribution = False ThisDoc.GoToField( "DataUScript1" ) Exit Function End If End Function '++LotusScript Development Environment:2:1:ValidateGraphDistribution:1:8 Public Function ValidateGraphDistribution( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION, "Graph Distribution Information" ThisDoc.GoToField( "DataUServerID" ) ValidateGraphDistribution = False Exit Function End If If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then Messagebox "Specify Script Performed", MB_ICONEXCLAMATION, "Graph Distribution Information" ThisDoc.GoToField( "DataUScript1" ) ValidateGraphDistribution = False Exit Function End If ' assuming if this field is filled in, all of the other frequency fields will also be filled in If ThisDoc.FieldGetText( "DataUAverage" ) = "" Then Messagebox "Specify Results from Data Run", MB_ICONEXCLAMATION, "Graph Distribution Information" ThisDoc.GoToField( "DataUAverage" ) ValidateGraphDistribution = False Exit Function End If ValidateGraphDistribution = True End Function '++LotusScript Development Environment:2:1:ValidateGraphPerformance:1:8 Public Function ValidateGraphPerformance( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION, "Graph Performance Information" ThisDoc.GoToField( "DataUServerID" ) ValidateGraphPerformance = False Exit Function End If If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then Messagebox "Specify Script Performed", MB_ICONEXCLAMATION, "Graph Performance Information" ThisDoc.GoToField( "DataUScript1" ) ValidateGraphPerformance = False Exit Function End If ValidateGraphPerformance = True End Function '++LotusScript Development Environment:2:2:CreateSpreadChartAddlLink:1:8 Public Sub CreateSpreadChartAddlLink( iRCnt, iCCnt ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument ThisDoc.GotoField( "DataPerformSheet" ) Set PerformSheet = ThisDoc.GetObject( "PerformSheet" ) ThisDoc.GoToField( "DataPerformChart" ) Set PerformChart = ThisDoc.GetObject( "PerformChart" ) PerformChart.Repaint = False PerformChart.rowcount = iRCnt j = iCCnt -1 ' for the moment, max of 12 columns If j > 12 Then j = 12 End If PerformChart.columncount = j PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = iRCnt PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 End Sub '++LotusScript Development Environment:2:1:CreateOutputDB:1:8 Public Function CreateOutputDB( ThisDoc As NotesUIDocument ) As NotesDatabase Dim Workspace As New NotesUIWorkspace Dim OutputDB As New NotesDatabase( "", "" ) Dim OutputDBTemplate As New NotesDatabase( "", "DSPD.NTF" ) Dim QueryOutputFilename As String Dim QueryOutputServer As String Dim Session As New NotesSession Dim ThisDB As NotesDatabase Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.document.OutputServer = "local" ThisDoc.document.OutputFilename = "OUTPUT.NSF" If( Workspace.DialogBox( "OutputInfo", True, True ) = False ) Then 'Messagebox "Cannot Create Output Database", MB_ICONEXCLAMATION, "Save Results" Exit Function End If QueryOutputFilename = ThisDoc.FieldGetText( "OutputFilename" ) QueryOutputServer = ThisDoc.FieldGetText( "OutputServer" ) If QueryOutputServer = "local" Then QueryOutputServer = "" End If If QueryOutputFilename = "" Then 'Messagebox "Output Database Filename Must be Specified", MB_ICONEXCLAMATION, "Save Results" Exit Function End If ' if database doesn't exist, create it If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then If( Not( OutputDB.Open( QueryOutputServer, Ucase( QueryOutputFilename ) ) ) ) Then 'Set OutputDB = ThisDB.CreateCopy( QueryOutputServer, Ucase( QueryOutputFilename ) ) Set OutputDB = OutputDBTemplate.CreateCopy( QueryOutputServer, Ucase( QueryOutputFilename ) ) OutputDB.Title = "Server.Planner Output Rev 1.0" End If End If Set CreateOutputDB = OutputDB End Function '++LotusScript Development Environment:2:1:ValidateAMPerformance:1:8 Public Function ValidateAMPerformance( ThisDoc As NotesUIDocument ) As Integer ValidateAMPerformance = True If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then ValidateAMPerformance = False Messagebox "Specify Server Machine ID", MB_ICONEXCLAMATION,_ "Graph Performance Information" ThisDoc.GoToField( "DataUServerID" ) Exit Function End If If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then ValidateAMPerformance = False Messagebox "Specify Script Performed", MB_ICONEXCLAMATION,_ "Graph Performance Information" ThisDoc.GoToField( "DataUScript1" ) Exit Function End If End Function '++LotusScript Development Environment:2:1:ProcessPerformChart:1:8 Public Function ProcessPerformChart( PerformChart As Variant ) As Variant Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument 'set Perform chart type to 2d line 'PerformChart.chartType = CHChartType2dLine PerformChart.chartType = CHChartType2dBar PerformChart.TitleText = "System Performance: " + ThisDoc.FieldGetText _ ( "DataUScript1" ) PerformChart.Plot.DataSeriesInRow = False 'reads from a column Set ProcessPerformChart = PerformChart End Function '++LotusScript Development Environment:2:1:CreateList:1:8 Public Function CreateList( ) As NotesDocument Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim db2 As NotesDatabase Dim view2 As NotesView Dim doc2 As NotesDocument Dim outputstring As String Dim fileName As String Dim AllDatabaseCount As Integer Dim pathName As String Dim sPlatform( 12 ) As String Dim bExitLoop As Integer Set db = session.CurrentDatabase Set view = db.GetView( "(List)" ) If view Is Nothing Then ' bypass if mailed item Exit Function End If Set doc = view.GetFirstDocument ' make sure a List document is present with platform information bExitLoop = False While bExitLoop = False If doc Is Nothing Then bExitLoop = True Elseif doc.ListType( 0 ) = "Platform" Then bExitLoop = True Else Set doc = view.GetNextDocument( doc ) End If Wend ' *** Find the document for the Database if one is not there create one so it can be filled in.. If doc Is Nothing Then Set Listdoc = db.createdocument Listdoc.ListType = "Platform" Listdoc.Form = "(List)" Call Listdoc.save( False,False ) Else If Not( doc Is Nothing ) Then If doc.ListType( 0 ) = "Platform" Then Set Listdoc = doc Listdoc.list="" Call Listdoc.Save( False, False ) End If Set doc = view.GetNextDocument( doc ) End If End If ' initialize default fields sPlatform( 0 ) = "AIX/RS6000" sPlatform( 1 ) = "AIX/SP2" sPlatform( 2 ) = "HP-UX" sPlatform( 3 ) = "NetWare 3.12" sPlatform( 4 ) = "Netware 4.1" sPlatform( 5 ) = " NT 3.51" sPlatform( 6 ) = " NT 4.0" sPlatform( 7 ) = " OS/2 2.11 SMP" sPlatform( 8 ) = " OS/2 Warp Connect" sPlatform( 9 ) = " OS/2 Warp Server 4.0" sPlatform( 10 ) = " Solaris 2.5" sPlatform( 11 ) = " Win95 1.0" Listdoc.list = sPlatform Call Listdoc.save( False, False ) Set doc = view.GetFirstDocument ' make sure a List document is present with vendor database information bExitLoop = False While bExitLoop = False If doc Is Nothing Then bExitLoop = True Elseif doc.ListType( 0 ) = "Database" Then bExitLoop = True Else Set doc = view.GetNextDocument( doc ) End If Wend ' *** Find the document for the Database if one is not there create one so it can be filled in.. If doc Is Nothing Then Set Listdoc = db.createdocument Listdoc.ListType = "Database" Listdoc.Form = "(List)" Call Listdoc.save( False,False ) Else If Not( doc Is Nothing ) Then If doc.ListType( 0 ) = "Database" Then Set Listdoc = doc Listdoc.List = "" Call Listdoc.Save( False, False ) End If End If End If pathName = session.GetEnvironmentString( "Directory",True ) Chdir pathName ' **** document that vendor databases need to be in upper case pathName = pathname & "\CP*.NSF" fileName = Dir$( pathName ) If fileName = "" Then Messagebox "Cannot find Vendor Database(s)", MB_ICONEXCLAMATION, "Vendor Data" Set CreateList = Listdoc Exit Function End If AllDatabaseCount = 0 Do While fileName <> "" ' first need to validate that this is a proper vendor database Set db2 = New NotesDatabase( "", fileName ) Set view2 = db2.GetView( "(Vendor Data)" ) On Error Resume Next Set doc2 = view2.GetFirstDocument On Error Goto 0 If Not( doc2 Is Nothing ) Then ' include if entry found Redim Preserve AllDatabase( AllDatabaseCount ) ' parse out system name from filename outputstring = Left ( filename, ( Len( filename ) - 4 ) ) filename = outputstring outputstring = Right ( filename, ( Len( filename ) - 2 ) ) AllDatabase ( AllDatabaseCount ) = Ucase( outputstring ) ' Messagebox AllDatabase( AllDatabaseCount ) AllDatabaseCount = AllDatabaseCount +1 End If If db2.IsOpen = True Then ' don't close if current vendor database Dim sTempFileName As String Dim i As Integer sTempFileName = db.FileName i = Instr(1, db.FileName, ".nsf") If i > 0 Then ' handle case where testing from .ntf sTempFileName = Left$( db.FileName, ( i - 1) ) End If 'Messagebox (sTempFileName) & filename 'If ( ( sTempFileName ) <> fileName ) Then If Instr( 1, fileName, sTempFile ) = 0 Then 'Messagebox "DEBUG: sTempFileName " & sTempFileName & " fileName " & fileName Call db2.Close End If End If fileName = Dir$( ) Loop If AllDatabaseCount = 0 Then ' no matches found 'Messagebox "Warning: Cannot find Vendor Databases", MB_ICONEXCLAMATION, "Vendor Database Search" End If ' save the information off (zero out if nothing found) Listdoc.list = AllDatabase 'Call Listdoc.save( False, False ) Call Listdoc.save( True, True ) Set CreateList = Listdoc End Function '++LotusScript Development Environment:2:2:PerformChartAssn2:1:8 Public Sub PerformChartAssn2( iRC As Integer, iCC As Integer, ThisDoc As NotesUIDocument ) PerformChart.Repaint = False PerformChart.rowcount = iRC PerformChart.columncount = iCC PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = iRC + 1 PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 PerformChart.Repaint = True Call ThisDoc.GoToField( "DataPerformChart" ) End Sub '++LotusScript Development Environment:2:2:GraphPerformance:1:8 Public Sub GraphPerformance( iRowCountPerform As Integer, iColCountPerform As Integer ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Dim bMatchFound As Integer Dim itemp As Integer Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True If ValidateGraphPerformance( ) = False Then Exit Sub End If If PerformComponentsSetup2( ) = False Then Exit Sub End If '******************************************************** ' load up the spreadsheet with data ' do a lookup based on this machine id and this script id iEntryCount=0 SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 ) ' first insert data from current database If SearchCollection.Count > 0 Then For i = 1 To SearchCollection.Count Set SearchDoc = SearchCollection.GetNthDocument( i ) ' make sure the data has a signature attached vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = SearchDoc.IsSignedField 'If vCertifyCheck( 0 ) = "1" And SearchDoc.IsSigned Then If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "1" Then PerformSheet.row = 1 + i PerformSheet.col = 1 temp = SearchDoc.GetItemValue( "DataUNumberUsers1" ) PerformSheet.number = Cint( temp( 0 ) ) PerformSheet.col = 2 ' response time temp= SearchDoc.GetItemValue( "DataUAverage" ) PerformSheet.number= Csng( temp( 0 ) ) iEntryCount=iEntryCount + 1 End If Next i End If ' make sure the current form is filled out and then insert If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then ' see if the entry exists bMatchFound = False For i = 1 To iEntryCount PerformSheet.row = i + 1 PerformSheet.col = 1 itemp = PerformSheet.number If Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) = iTemp Then bMatchFound = True PerformSheet.col= 2 ' response time PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) ) End If Next i If bMatchFound = False Then PerformSheet.row = 1 + iEntryCount + 1 PerformSheet.col = 1 ' user count PerformSheet.number = Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) PerformSheet.col= 2 ' response time PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) ) iEntryCount=iEntryCount + 1 End If End If iRowCountPerform = iEntryCount + iRowCountPerform ' set columns to automatically resize PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True EndRow =( iOutputCount + 2 ) - 1 PerformSheet.Sort 2, 1, iRowCountPerform + 1, 2, True, 1 ' set up the link between spreadsheet and chart iColCountPerform = 1 Call PerformChartAssn2( iRowCountPerform, iColCountPerform, ThisDoc ) iRowCountPerform = iRowCountPerform + 1 Exit Sub PressEdit: Messagebox "Need to be in Edit Mode, then Request Graphical Information", MB_ICONEXCLAMATION, "Graph Performance Information" Exit Sub End Sub '++LotusScript Development Environment:2:1:PerformComponentsSetup2:1:8 Public Function PerformComponentsSetup2( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Dim bMatchFound As Integer Dim itemp As Integer PerformComponentsSetup = True Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase If ValidateGraphPerformance( ) = False Then Exit Function End If ' set up spreadsheet and chart On Error Goto PressEdit ' need to be in edit mode to continue processing ThisDoc.GoToField( "DataPerformSheet" ) ThisDoc.FieldClear( "DataPerformSheet" ) Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" ) ThisDoc.GoToField( "DataPerformChart" ) ThisDoc.FieldClear( "DataPerformChart" ) Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" ) 'ThisDoc.Document.AppendText( "foo" ) 'ThisDoc.Document.ComputeWithForm True, True On Error Goto 0 PerformChart.Repaint = False PerformChart.rowcount = 10 PerformChart.columncount = 1 PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = 12 PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 '**************************** 'set up Perform sheet '**************************** iRowCountPerform = 0 iColCountPerform = 1 PerformSheet.displaycols = 2 PerformSheet.displayrows = 10 PerformSheet.showrowheading = False PerformSheet.showcolheading = False ' set up headings PerformSheet.row = 1 PerformSheet.col = 1 PerformSheet.text = "# Users" PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False PerformSheet.col = 2 PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" ) PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' **************************** ' Perform Chart Setup '**************************** PerformChart.chartType = CHChartType2dLine PerformChart.TitleText = "System Performance: " + ThisDoc.FieldGetText( "DataUScript1" ) PerformChart.Plot.DataSeriesInRow = False 'reads from a column 'show major grid line in red and minor grid line in blue With PerformChart.plot.axis( CHAxisIdY ).AxisGrid .majorPen.width = 1 .minorPen.VtColor.Set 0, 0, 255 .minorPen.width = 1 End With If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "Spoke Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With Else With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "User Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With End If With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle .visible = True .text = "Perform Time( sec )" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle .visible = True .text = "Machine" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter .TextLayout.VertAlignment = CHVerticalAlignmentCenter End With With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With ' adjust size of title With PerformChart.title.VtFont .name = "Arial" .size = 10 .style = CHFontStyleBold .effect = 512 .VtColor.Set 0, 0, 255 End With 'use manual scale to display y axis( value axis ) With PerformChart.plot.axis( CHAxisIdY ).ValueScale .auto = True End With With PerformChart.Legend ' Make Legend Visible .location.visible = True .location.locationType = CHLocationTypeBottom ' Set Legend properties .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft ' Left justify .VtFont.VtColor.Set 0, 0, 255 .backdrop.fill.style = CHFillStyleBrush .backdrop.fill.Brush.style = CHBrushStyleSolid End With With PerformChart.backdrop.fill '.style=CHFillStyleNull .style=CHFillStyleBrush .Brush.style=CHBrushStyleSolid End With ' need to enhance Machine IDs Names for legend PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" ) Exit Function PressEdit: Messagebox "Need to be in Edit Mode, then Request Graphical Information", MB_ICONEXCLAMATION, "Graph Performance Information" PerformComponentsSetup=False Exit Function End Function '++LotusScript Development Environment:2:1:ExtractVendorName:1:8 Function ExtractVendorName( sSearchDB As String ) As String Dim i As Integer Dim j As Integer Dim k As Integer Dim sFirstChar As String Dim bSlashFound As Integer j = 1 bSlashFound = False If Instr( 1, sSearchDB, "\" ) > 0 Then While j <> 0 k = j j = Instr( ( j + 1 ), sSearchDB, "\CP" ) Wend bSlashFound = True Else While j <> 0 k = j j = Instr( ( j + 1 ), sSearchDB, "CP" ) Wend End If If bSlashFound = True Then ExtractVendorName = Right$( sSearchDB, ( ( Len ( sSearchDB ) - k ) - 2 ) ) ' extract mfg name following .CP Else ExtractVendorName = Right$( sSearchDB, ( Len ( sSearchDB ) - 2 ) ) ' extract mfg name following .CP End If i = Instr( 1, ExtractVendorName, ".NSF" ) ExtractVendorName = Left$( ExtractVendorName, ( Len (ExtractVendorName) - 4 ) ) End Function '++LotusScript Development Environment:2:2:GraphForSave:1:8 Sub GraphForSave (ThisDoc As NotesUIDocument, ThisDocBE As NotesDocument ) Call ThisDoc.FieldSetText("SaveOptions", "1" ) Call ThisDoc.Save Call ThisDoc.FieldSetText("SaveOptions", "0" ) End Sub H h%X1 H! 2 h"H$\4 h$H%x7 $('H8 (&H(x: &H'X; H'h*<< h'h'h< (h)@= ((*,> (H)\> )h4d? 9$JPM 9l,l, $-,:4-4- Al=l= @d?d? pBpBPBPB 0C0C@C@C 2$2PC 289pC 2@DpC G E E ExGxG 5x9(D p6THDH 6THxD LTITI 8H9xD H9h9\F ffffff B M0O JTQa{ 4H4H`I $I$I(\ MPM,] L<^69 JT^d8 xKl_M $Lh`) 9} HJ 9}dH# 9} HJ,: :+<:$ ;-,># =)87K ;-t>## >}hL# Kl=-@?# >}hL# Kl=-@?# =Kl=, ^h@4Q =,8@}hL# =,8@}hL# =,8@}hL# K\=-@?# K\=-@?# ^|=K\=, ^(@K|=,8@} @K|=,8@} @K|=,8@} ^`A4L >}hL#} 9}hL# 9}hL# A+<:$ B-,># >}hL#} 9}hL# ^0B+<:$ ^@BK0B- ^`BKPB-,># >}hL#} 9}hL# B+<:$ 9} HJ B+<:$ ^PCK@C-,># @#Q`C} @#QlC} B,xC}8U ^ CK$2, >}TU# ^0CK$2, >}xU# CJ0CJ C CJ0CJ C D}(V! >}hL#} 9}hL# ^PD+<:$ ^`DKPD- A}hVK`D, DKpD-,># ^0EK E, K0ESHF ^0EK E,TFJ0E# FQHF} K0ESHF ^0EK E,TFJ0E# ^0EK E, K0ESHF ^0EK E,TFJ0E# FQHF} EKpD, ^PEK@E, ^`EKPE, ^,Gr,G o,GJpE K@E-TG# D-t># D-t>#}L[ D-t># 9} HJ G+<:$ H-,># >}hL# K4H-@?# K4H-@?# ^DHK4H, HKDHP HKDH,8@} HKDH,8@} ^4I+<:$ ^DIK4I- ^dIKTI-,># 8KDI,$J} 8KDI,$J} 9} HJXJ ?KDI, >}hL# A}hVKDI, KO$KQ0K} KO$KQ<K KO$KO NHKO$KQ0K} NHKO$KQ<K NHKO$KO NXKO$KQ0K} NXKO$KQ<K NXKO$KO NhKO$KQ0K} NhKO$KQ<K NhKO$KO %OxKS KO$KQ0K} KO$KQ<K %OxKS KO$KQ0K} KO$KQ<K %OxKS KO$KQ0K} KO$KQ<K KQ0K} NLLO\LQ NLLO\LQhL~ NLLO$KO NLLOtLO NLLOtLO 8OtLP LKDI, >}hL# 8, M} 8,PM# 8, M} Vendor Data'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen( Source As Notesuidocument ) Declare Sub Terminate Declare Sub Querysave( Source As Notesuidocument, Continue As Variant ) Declare Sub Initialize Declare Sub Postrecalc( Source As Notesuidocument ) Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:10 Const MB_ICONSTOP = 16 Const MB_ICONQUESTION = 32 Const MB_ICONEXCLAMATION = 48 Const MB_ICONINFORMATION = 64 Const CHFontEffectUnderline=512 Const MB_YESNO = 4 Const IDYes = 6 Const IDNo = 7 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen On Event Querysave From Source Call Querysave On Event Postrecalc From Source Call Postrecalc On Event Queryopen From Source Call Queryopen End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen( Source As Notesuidocument ) ' TO DO ' avoid vendor screen repaints ' Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim ThisDocBE As NotesDocument Dim sFileName As String Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase Set ThisDocBE = ThisDoc.Document ThisDoc.EditMode = True sFirstTime = "0" ' process for new document, fill in vendor field sFileName = ThisDB.FileName sFileName = Mid$( sFilename, 3, ( ( Len( sFileName ) - 2 ) - 4) ) ' remove cp prefix and .nsf extension 'Call ThisDoc.FieldSetText( "Vendor", Ucase( sFileName ) ) vEditFieldFlag = ThisDoc.Document.EditFieldFlag ' initialize output results checkbox ThisDoc.Document.OutputSaveResults = "Output to Database" Dim vIsSignedField As Variant vIsSignedField = ThisDoc.Document.IsSignedField If ThisDoc.IsNewDoc = False Then ' first verify the SaveOptions field value (if 0, don't save ) vTemp = ThisDocBE.SaveOptions If vTemp(0) = "1" Then ' as calculations take place, need to save off current document Call ThisDoc.Save End If End If vTemp = ThisDocBE.DocLinkFlag If vTemp( 0 ) <> 1 Then ThisDocBE.DocLinkFlag = 0 'make sure it's initialized End If vTemp = ThisDocBE.MailFlag vTemp1 = ThisDocBE.SaveOptions If vTemp( 0 ) = "0" And vTemp1( 0 ) = "1" Then ' only update if not mailed Call ThisDoc.FieldSetText( "Vendor", Ucase( sFileName ) ) End If vTemp = ThisDocBE.SaveOptions If vTemp(0) = "1" Then If vIsSignedField( 0 ) = "0" Then ThisDoc.Document.FormSigned = "No" Else ThisDoc.Document.FormSigned = "Yes" End If 'Call ThisDoc.Save End If %END REM If ThisDoc.IsNewDoc = False Then ' note there is a tenuous relationship between saving ThisDoc and ThisDocBE ' ThisDocBE save at the end for the doc link ' as calculations take place, need to save off current document ' first verify the SaveOptions field value (if 0, don't save ) vTemp = ThisDocBE.SaveOptions If vTemp(0) = "1" Then Call ThisDoc.Save Set ThisDocBE = ThisDoc.Document Dim MachineDoc As NotesDocument Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection ' only create doclink if the fields are filled in, only go down this path once Dim vDocLinkFlag As Variant vDocLinkFlag = ThisDocBE.DocLinkFlag If vDocLinkFlag( 0 ) = 0 Then If ThisDoc.FieldGetText( "DataUServerID" ) = "" Then Messagebox "Server Machine ID information needs to be filled in to create the DocLink", MB_ICONEXCLAMATION, "Vendor Data" Else SearchFormula$ = " Form = ""Machine Identifier"" & MachineID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 ) If SearchCollection.Count = 0 Then Messagebox "Machine ID could not be found", MB_ICONSTOP, "Vendor Data" Elseif SearchCollection.Count > 1 Then Messagebox "Multiple Machine ID entries were found", MB_ICONSTOP, "Vendor Data" Else Set MachineDoc = SearchCollection.GetNthDocument( 1 ) Dim notesitem As Variant Set notesitem = ThisDocBE.GetFirstItem( "DataMachineID" ) Call notesitem.AppendDocLink( MachineDoc, "Server Machine ID" ) ThisDocBE.DocLinkFlag = 1 ' only create doclink once ThisDocBE.FirstTime = "1" sFirstTime = "1" Call ThisDoc.FieldSetText("SaveOptions", "1" ) Call ThisDocBE.Save( False, False ) End If End If End If End If End If ' new document check vTemp = ThisDocBE.SaveOptions If vTemp(0) = "1" Then If vIsSignedField( 0 ) = "0" Then ThisDoc.Document.FormSigned = "No" Else ThisDoc.Document.FormSigned = "Yes" End If 'Call ThisDoc.Save End If vTemp = ThisDocBE.SaveOptions If ThisDoc.IsNewDoc = False And vTemp(0) = "1" Then ' now need to prevent future savings of this document Call ThisDoc.FieldSetText("SaveOptions", "0" ) 'Call ThisDoc.Save End If 'ThisDoc.EditMode = False End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave( Source As Notesuidocument, Continue As Variant ) End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:Postrecalc:1:12 Sub Postrecalc( Source As Notesuidocument ) End Sub '++LotusScript Development Environment:2:2:Queryopen:1:12 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim outputstring As String Dim fileName As String Dim AllDatabaseCount As Integer Dim pathName As String Dim ListDoc As NotesDocument Set Listdoc = CreateList( ) pathName = session.GetEnvironmentString( "Directory",True ) Chdir pathName pathName = pathname & "\CP*.NSF" fileName = Dir$( pathName ) If fileName = "" Then Messagebox "Cannot find Vendor Databases", MB_ICONEXCLAMATION, "Vendor Database Search" End If AllDatabaseCount = 0 Do While fileName <> "" Redim Preserve AllDatabase( AllDatabaseCount + 1 ) ' parse out system name from filename outputstring = Left( filename,( Len( filename ) - 4 ) ) filename = outputstring outputstring = Right( filename,( Len( filename ) - 2 ) ) AllDatabase( AllDatabaseCount ) = Ucase( outputstring ) ' Messagebox AllDatabase( AllDatabaseCount ) fileName = Dir$( ) AllDatabaseCount = AllDatabaseCount +1 Loop If Not listdoc Is Nothing Then ' bypass if mailed item Listdoc.list = AllDatabase Call Listdoc.save( False, False ) End If %END REM vFieldEntryValue = 0 'flags for noting whether the graph has already been stored in output bAlreadyDisplayedDistribute = False bAlreadyDisplayedPerform = False End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUAverage 'vFieldEntryValue = ThisDoc.Document.DataUFast End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUAverage If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUAverage = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMinimum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMinimum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMaximum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMaximum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMinimum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMinimum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMaximum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMaximum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMinimum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMinimum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataCalibration_1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValue <> Csng( ThisDoc.FieldGetText( sFieldName ) ) And vFieldEntryValue <> "" And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValue( 0 ) ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vFieldEntryValueL <> "" And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vFieldEntryValueL <> "" And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub Entering( Source As Field ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering( Source As Field ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, vFieldEntryValue ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub Entering( Source As Field ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering( Source As Field ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting( Source As Field ) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting( Source As Field ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUDatePerformed End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUDatePerformed If ( Cdat(vFieldEntryValue( 0 ) ) <> Cdat( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUDatePerformed = Cdat( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting( Source As Field ) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting( Source As Field ) Dim WorkSpace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = WorkSpace.CurrentDocument If ThisDoc.FieldGetText( "DataUScript1" ) = "" Then Messagebox "Enter Script Specification", MB_ICONEXCLAMATION, "Validation" ThisDoc.GoToField( "DataUScript1" ) End If If ( vFieldEntryValueL <> ThisDoc.FieldGetText( sFieldName ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" Call ThisDoc.FieldSetText( sFieldName, Cstr( vFieldEntryValueL ) ) End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValueL = ThisDoc.FieldGetText( sFieldName ) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUNumberUsers1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUNumberUsers1 If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUNumberUsers1 = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUNotesMark1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUNotesMark1 If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUNotesMark1 = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUResponseTime1 End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUResponseTime1 If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUResponseTime1 = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.TotOrdersCreated) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.GoToField( "TotOrdersCreated" ) End If Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.TotOrdersCreated If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotOrdersCreated = Cdbl( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotOrdersCreated End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotDollarValue End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.TotDollarValue If ( Ccur(vFieldEntryValue( 0 ) ) <> Ccur( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotDollarValue = Ccur( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotOrdersLots End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.TotOrdersLots If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotOrdersLots = Cdbl( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotHits End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.TotHits If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotHits = Cdbl( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.AvgBytesHit End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.AvgBytesHit If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.AvgBytesHit = Cdbl( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.TotBytesXferred End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.CertifyCheckOn If vTemp( 0 ) = "1" Then vTemp = ThisDoc.Document.TotBytesXferred If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.TotBytesXferred = Cdbl( vFieldEntryValue( 0 ) ) End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUAverage 'vFieldEntryValue = ThisDoc.Document.DataUFast End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUAverage If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUAverage = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMinimum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMinimum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMinimum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMaximum End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMaximum If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMaximum = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUFast End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUFast If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUFast = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMedium End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMedium If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMedium = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUSlow End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUSlow If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUSlow = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument sFieldName = ThisDoc.CurrentField vFieldEntryValue = ThisDoc.Document.DataUMore End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument Dim vTemp As Variant vTemp = ThisDoc.Document.DataUMore If ( Cdbl(vFieldEntryValue( 0 ) ) <> Cdbl( vTemp( 0 ) ) And vEditFieldFlag( 0 ) = 0 ) Then Messagebox "This field cannot be modified", MB_ICONEXCLAMATION, "Vendor Data" ThisDoc.Document.DataUMore = Cdbl( vFieldEntryValue( 0 ) ) End If End Sub DocLinkFlag SaveOptions EditFieldFlag FormNewLocation CertifyCheckOn DataUAverage_1 DataUMinimum_1 DataUMaximum_1 DataUOther21_1 DataUOther11_1 AvgBytesHit_1 DataCalibration_1 DataGenerated DataGenerated DataGenerated_1 MailFlag IsSignedField AvgHitsMin_1 DataMachineID_1Click on this icon to see the related Machine Identifier form. DataUResponseTime1_1 FirstTime OutputServerTarget Output Server OutputFilenameTarget Output Filename for results of query OutputSaveResults Create Mail ItemOutput to Database Vendor Data Certified Test Results Signed: FormSignedContains "Yes" when certified by NotesBench auditor. MailFlag Machine Identifier Link: DataMachineIDClick on this icon to see the related Machine Identifier form. Server Machine ID: DataUServerIDUnique Machine ID for the system configuration that produced this data. Date Performed: DataUDatePerformedDate benchmark was performed. Vendor Database: Vendor Test Duration: DurationTestRun time used for this workload minutes NotesBench Results: Script NotesBench Number Users/Spokes NotesBench NotesMark NotesBench ResponseTime DataUScript1Workload exercised on given machine configuration. Calendar & SchedulingDatabaseGroupware #1MailMail Routing HubMail & DatabaseReplication HubWeb BuyerWeb Walker DataUNumberUsers1Number of spokes if script is Replication Hub or Mail Routing Hub. Number of Users for all other workloads. DataUNotesMark1Results of NotesBench workload. DataUResponseTime1_1 0S0E DataUResponseTime1Results of NotesBench workload. DataUScript1 Replication Hub DataUScript1 Mail Routing Hubu 4S6S7S11S Additional Information for Server Tasks Actions/Minute: Bytes/Minute: DataUOther11_1 0S0E DataUOther11If script is Replication Hub, amount of Replications performed per hour. If script is Mail Routing Hub, amount of mail routed per hour. DataUOther21_1 0S0E DataUOther21If script is Mail Routing Hub, amount of data, expressed in megabytes, moved per hour. DataUScript1 Web Buyer Additional Information form Web Buyer Total Orders Created: TotOrdersCreatedFor the Web Buyer script, the total number of orders created for the duration of the test's execution. Total Dollar Value: TotDollarValueFor the Web Buyer script, the total dollar value generated for the duration of the script's execution. TotOrdersLotsFor the Web Buyer script, the total orders lots generated for the duration of the script's execution. Total Orders Lost: DataUScript1 Web Walkeru Additional Information for Web Walker Total Hits: TotHitsFor the Web Walker, the total hits experienced for the duration of the script's execution. Average KBytes/Hit: AvgBytesHit_1 0S0E AvgBytesHitFor the Web Walker, the average number of bytes per hit, for the duration of the script's execution. TotBytesXferredFor the Web Walker, the total number of bytes transferred, for the duration of the script's execution. Total Bytes Transferred: AvgHitsMin_1 0S0E AvgHitsMinFor the Web Walker, the average number of hits per minute, for the duration of the script's execution. Average Hits/Minute: Probe Results: Response Time (seconds): Average Minimum Maximum DataUAverage_1 DataUAverage_1 DataUAverage_1 1S5S6S11S12S13S14S17S18S24SDataUAverageAverage time required to open & close a database during test run. DataUMinimum_1 DataUMinimum_1 DataUMinimum_1 1S5S6S11S12S13S14S17S18S24SDataUMinimumMinimum time required to open & close a database during test run. DataUMaximum_1 DataUMaximum_1 DataUMaximum_1 1S5S6S11S12S13S14S17S18S24SDataUMaximumMaximum time required to open & close a database during test run. Distribution (seconds): Time #/Responses %/Total %/Total (Cumulative) Fast ( < 1): DataUFastThe number of Probe responses that were less than 1 second. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUFast DataUFast DataUFast total 0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDFastFrom the total number of Probe responses, the percentage of responses which fall within the range of less than 1 second. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUFast DataUFast DataUFast total 0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentFastThe percentage of Probe responses that fall within the Fast range. Medium (1 - 3): DataUMediumThe number of Probe responses that were within the range of 1 - 3 seconds. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUMedium DataUMedium DataUMedium total 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. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUMedium DataUMedium DataUFast DataUPercentFast DataUMedium total DataUPercentFast 0R1S3S4S5S2E6S7S8S10RS5E11S13S14S15S16S2E18S21RS8E26S2E27S30SDataUPercentMediumThe percentage of Probe responses that fall within the Fast and Medium range. Slow (3.1 - 5): DataUSlowThe number of Probe responses between 3 and 5 seconds. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUSlow DataUSlow DataUSlow total 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. total DataUFast DataUMedium DataUSlow DataUMore 1S2S previous DataUFast DataUMedium total 0R1S6S8S9S DataUSlow DataUSlow DataUPercentMedium DataUSlow total previous 0R1S3S4S5S6S7S8S10S12S17S2E18S19S21S DataUPercentSlowThe percentage of responses that fall with the Fast, Medium and Slow ranges. Outside Range ( > 5): DataUMoreThe number of Probe responses greater than 5 seconds. total DataUFast DataUMedium DataUSlow DataUMore 1S2S DataUMore DataUMore DataUMore total 0R1S3S4S5S2E6S7S8S10S14S2E15SDataUPercentDMoreFrom the total number of Probe responses, the percentage of responses which fall within the range of greater than 5 seconds. total DataUFast DataUMedium DataUSlow DataUMore 1S2S previous DataUFast DataUMedium DataUSlow total 0R1S2S6S8S10S11S DataUMore DataUMore DataUMore total previous 0R1S3S4S5S6S7S8S10S16S2E17S18S DataUPercentMoreThe percentage of responses that fall with the Fast, Medium, Slow and Very Slow ranges. Server Comparison Graphs DataPerformChartArea used to display Performance Graph. FormNewLocation '++LotusScript Development Environment:2:5:(Options):0:74 'Use "vendordata" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) Declare Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:3:12 '%INCLUDE "chconsts2.txt" %INCLUDE "chconsts.txt" Sub Click( Source As Button ) Call AMSV( ) End Sub '++LotusScript Development Environment:2:1:FormulateQuery2:1:8 Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String Dim iMinUsers As Integer Dim iMaxUsers As Integer ' first make sure there is some data to process ' search on range of number of users iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) ' see if there are more machines( same vendor ).... FormulateQuery = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers End Function 8"P. x!x%</ "X"$0 8"8'L0 "8#41 "x#x1 X$8%x3 8&8)86 X&8(d6 &x' 7 'X(h8 (x(D9 8(x*x9 (x+8: X)8*p; x*8+H= 8+x,@> ,x-\? ,8.p@ -X.|A ffffff New Button Need a newer version of Notes to execute this button. 0S0E Additional Machines (Same Vendor)o 3'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Function FormulateQuery( ) As String Declare Sub Click( Source As Button ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:1:FormulateQuery:1:8 Function FormulateQuery( ) As String Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim iMinUsers As Integer Dim iMaxUsers As Integer Set ThisDoc = Workspace.CurrentDocument ' first make sure there is some data to process ' search on range of number of users iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) ' see if there are more machines( same vendor ).... 'FormulateQuery = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ '" & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers ' in case there are machines for the different vendors with the same id FormulateQuery = " Form = ""Vendor Data"" "& _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers End Function '++LotusScript Development Environment:2:2:Click:4:12 %INCLUDE "chconsts.txt" '%INCLUDE "chconsts2.txt" Sub Click( Source As Button ) ' Graph Performance Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchEntryCollection As NotesDocumentCollection Dim SearchMachineCollection As NotesDocumentCollection Dim SearchEntryDoc As NotesDocument Dim SearchMachineDoc As NotesDocument Dim CurrentView As NotesView Dim doc As NotesDocument Dim Listdoc As NotesDocument Dim sSavedMachines( numoutputlines, 2 ) As String Dim bAlreadyFound As Integer Dim sVendorName As String Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True sVendorName = ExtractVendorName( ThisDB.Filename ) ' extract current vendor name If ValidateAMPerformance( ThisDoc ) = False Then Exit Sub End If PerformChart.Repaint = False On Error Goto 0 ' zero out extra columns For i = 3 To iColCountPerform PerformSheet.col = i For j = 2 To iRowCountPerform PerformSheet.row = j PerformSheet.text=NA Next j Next i iColCountPerform = 2 ' search on the different vendors Set CurrentView = ThisDB.GetView( "(List)" ) Set doc = CurrentView.GetFirstDocument ' Find the list document which contains the dynamic list If doc Is Nothing Then Messagebox "List of Machines Information Missing", MB_ICONSTOP, "Graph Performance Information" Exit Sub Else While Not( doc Is Nothing ) If doc.ListType( 0 ) = "Database" Then Set Listdoc = doc If Listdoc.list( 0 ) = "" Then Messagebox "No Vendor Databases to Search", MB_ICONEXCLAMATION, "Graph Performance Information" End If Forall vendorname In Listdoc.list 'Messagebox vendorname & " " & sVendorName ' make sure you're not going after same vendor twice If vendorname <> "" And Ucase( vendorname ) <> Ucase( sVendorName ) Then sSearchDatabase = "CP" & vendorname & ".NSF" Set SearchDB = New NotesDatabase( "", sSearchDatabase ) Set SearchMachineCollection = SearchDB.Search( FormulateQuery( ), DateTime, 0 ) If SearchMachineCollection.Count = 0 Then 'Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Performance Information" Else sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" ) sSavedMachines( 1, 2 ) = sVendorName For j = 1 To SearchMachineCollection.Count Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j ) ' first make sure this is a unique entry bAlreadyFound = False For k = 1 To( iColCountPerform - 1 ) temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) If temp( 0 ) = sSavedMachines( k, 1 ) & sVendorName = sSavedMachines( k, 2 ) Then bAlreadyFound = True End If Next k ' make sure the data has a signature attached If bAlreadyFound = False Then vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = ThisDoc.Document.IsSignedField If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "0" Then bAlreadyFound = True End If End If ' also , only process entries for entries not in vendor's db, except for current entry temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) If Ucase$( sSearchDatabase ) = Ucase$( ThisDB.FileName ) And temp( 0 ) <> ThisDoc.FieldGetText( "DataUserverID" ) Then bAlreadyFound = True ' skip over this entry End If If bAlreadyFound = False Then ' new entry iColCountPerform = iColCountPerform + 1 PerformSheet.row = 1 PerformSheet.col = iColCountPerform ' save off the machines already processed temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) sSavedMachines( iColCountPerform - 1, 1 ) = temp( 0 ) 'subtract off original columns sSavedMachines( iColCountPerform - 1, 2 ) = sVendorName PerformSheet.text = temp( 0 ) PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' load up the spreadsheet with data ' do a lookup based on this machine id and this script id temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID = " & {"} & temp( 0 ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} Set SearchEntryCollection = SearchDB.Search( SearchFormula$, DateTime, 0 ) If SearchEntryCollection.Count > 0 Then For i = 1 To SearchEntryCollection.Count Set SearchEntryDoc = SearchEntryCollection.GetNthDocument( i ) ' need to see if an entry exists in the current spreadsheet bAlreadyFound = False PerformSheet.col = 1 temp = SearchEntryDoc.GetItemValue( "DataUNumberUsers1" ) For k = 2 To iRowCountPerform PerformSheet.row = k If PerformSheet.number = Cint( temp( 0 ) ) Then bAlreadyFound = True PerformSheet.col = iColCountPerform temp1= SearchEntryDoc.GetItemValue( "DataUAverage" ) PerformSheet.number= Csng( temp1( 0 ) ) End If Next k If bAlreadyFound = False Then ' insert in table( entry and data ) iRowCountPerform = iRowCountPerform + 1 PerformSheet.row = iRowCountPerform ' insert new data PerformSheet.col = 1 PerformSheet.number = Cint( temp( 0 ) ) PerformSheet.col = iColCountPerform temp1= SearchEntryDoc.GetItemValue( "DataUAverage" ) PerformSheet.number= Csng( temp1( 0 ) ) End If Next i End If End If Next j End If End If End Forall End If Set doc = CurrentView.GetNextDocument( doc ) Wend End If ' set columns to automatically resize PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True PerformSheet.col = 1 PerformSheet.row = 1 PerformSheet.showselections = 0 PerformSheet.Sort 2, 1, iRowCountPerform, iColCountPerform + 1, True, 1 ' insert zeros where there are gaps, up to the final entry For i = 2 To iColCountPerform bAlreadyFound = False PerformSheet.col = i For j = iRowCountPerform To 2 Step -1 ' count backwards PerformSheet.row = j If PerformSheet.number > 0 Then bAlreadyFound = True Elseif bAlreadyFound = True Then ' already found the top number PerformSheet.number = 0 End If Next j Next i ' Perform Chart Setup 'PerformChart.chartType = 3 ' line PerformChart.chartType = 1 ' bar PerformChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ": Performance - Comparative Analysis, Other Vendor(s)" PerformChart.Plot.DataSeriesInRow = False 'reads from a column ' set up the link between spreadsheet and chart Call PerformChartAssn(( iRowCountPerform - 1 ),( iColCountPerform - 1 ), ThisDoc ) If iColCountPerform = 2 Then Messagebox "No new information to display", MB_ICONINFORMATION, "Graph Performance Information" End If Dim ThisDocBE As NotesDocument Set ThisDocBE = ThisDoc.Document Call GraphForSave( ThisDoc, ThisDocBE ) End Sub New Button Need a newer version of Notes to execute this button. 0S0E Additional Machines (Other Vendor(s)) DataDistributeChartArea used to display Distribution Graph. '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:3:12 %INCLUDE "chconsts.txt" Sub Click( Source As Button ) ' Graph Distribution of other machines, same vendor, same script and user count Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchEntryCollection As NotesDocumentCollection Dim SearchMachineCollection As NotesDocumentCollection Dim SearchEntryDoc As NotesDocument Dim SearchMachineDoc As NotesDocument Dim sSavedMachines( numoutputlines, 2 ) As String Dim bAlreadyFound As Integer Dim iEntryCount As Integer Dim iMinUsers As Integer Dim iMaxUsers As Integer Dim sVendorName As String Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True sVendorName = ExtractVendorName( ThisDB.Filename ) ' extract current vendor name If ValidateAMDistribution( ThisDoc ) = False Then Exit Sub End If ' first make sure there is some data to graph ' search on range of number of users iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) ' see if there are more machines.... SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers 'Messagebox( SearchFormula$ ) Set SearchMachineCollection = ThisDB.Search( SearchFormula$, DateTime, 0 ) If SearchMachineCollection.Count = 0 Then Messagebox " No new information to display", MB_ICONINFORMATION, "Graph Distribution Information" Exit Sub End If 'Add onto Distribute sheet DistributeChart.Repaint = False On Error Goto 0 DistributeSheet.displaycols = SearchMachineCollection.Count + 2 DistributeSheet.displayrows = 5 ' assume a fixed distribution response DistributeSheet.showrowheading = False DistributeSheet.showcolheading = False ' initialize saved machine list iColCountDistribute = 2 sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" ) sSavedMachines( 1, 2 ) = sVendorName For j = 1 To SearchMachineCollection.Count Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j ) ' first make sure this is a unique entry bAlreadyFound = False For k = 1 To iColCountDistribute temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) If temp( 0 ) = sSavedMachines( k, 1 ) & sVendorName = sSavedMachines( k, 2 ) Then bAlreadyFound = True End If Next k ' make sure the data has a signature attached If bAlreadyFound = False Then vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = ThisDoc.Document.IsSignedField If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "0" Then bAlreadyFound = True End If End If If bAlreadyFound = False Then ' new entry iColCountDistribute = iColCountDistribute + 1 ' set up headings DistributeSheet.row = 1 DistributeSheet.col = iColCountDistribute ' save off the machines already processed temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) sSavedMachines( iColCountDistribute, 1 ) = temp( 0 ) sSavedMachines( iColCountDistribute, 2 ) = sVendorName DistributeSheet.text = temp( 0 ) DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False '******************************************************** ' load up the spreadsheet with data DistributeSheet.row = 2 temp = SearchMachineDoc.GetItemValue( "DataUFast" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 3 temp = SearchMachineDoc.GetItemValue( "DataUMedium" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 4 temp = SearchMachineDoc.GetItemValue( "DataUSlow" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 5 temp = SearchMachineDoc.GetItemValue( "DataUMore" ) DistributeSheet.number = temp( 0 ) End If Next j ' set columns to automatically resize ' *** number of rows should be set to the max, need to resize the spreadsheet DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True DistributeSheet.col = 1 DistributeSheet.row = 1 DistributeSheet.showselections = 0 StartRow = 2 StartCol = 1 EndRow =( iOutputCount + StartRow ) - 1 EndCol = 2 ' Distribute Chart Setup 'set Distribute chart type to 2d line 'DistributeChart.chartType = CHChartType2dLine 'DistributeChart.chartType = CHChartType2dArea DistributeChart.chartType = 5 DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ": Distribution - Comparative Analysis, Same Vendor" DistributeChart.Plot.DataSeriesInRow = False 'reads from a column ' set up the link between spreadsheet and chart iRowCountDistribute = 5 If iColCountDistribute > 12 Then iColCountDistribute = 12 End If Call DistributeChartAssn( iRowCountDistribute,( iColCountDistribute -1 ), ThisDoc ) Dim ThisDocBE As NotesDocument Set ThisDocBE = ThisDoc.Document Call GraphForSave( ThisDoc, ThisDocBE ) Exit Sub ExitNow: Messagebox "Need to Generate Original Distribution Graph", MB_ICONEXCLAMATION, "Graph Distribution Information" End Sub 3t8`7`7 ( ( , H h T (!H"80 H#h#X3 #H$x4 $H%H5 $(%t5 %h&H7 h&H'88 ((H*8; h)h)(= .$1,B p/D0hB 143hC 3$3lD ffffff T6T6 J 6\8XJ l7 KP -+4-$ 1+T0}TC$ --T3# ^D0Kp/-x3# 3KD0-(4## 4}0F# 4}0F# 4}(G# 1KD0, 5J 1-X5# 1-X5# 1-X5# 2,d6} 2,d6} 5T$7}DK 2,d6}TK# 2,d6} 2,d6} 2,d6} 4}(G#} 8[`7G .^\8# New Button Need a newer version of Notes to execute this button. 0S0E Additional Machines (Same Vendor)o ?*'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:2:12 %INCLUDE "chconsts.txt" Sub Click( Source As Button ) ' Graph Distribution of other machines, same vendor, same script and user count Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim SearchDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchEntryCollection As NotesDocumentCollection Dim SearchMachineCollection As NotesDocumentCollection Dim SearchEntryDoc As NotesDocument Dim SearchMachineDoc As NotesDocument Dim CurrentView As NotesView Dim doc As NotesDocument Dim Listdoc As NotesDocument Dim ThisDocBE As NotesDocument Dim sSavedMachines( numoutputlines, 2 ) As String Dim sVendorName As String Dim bAlreadyFound As Integer Dim iEntryCount As Integer Dim iMinUsers As Integer Dim iMaxUsers As Integer Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True Set ThisDocBE = ThisDoc.Document sVendorName = ExtractVendorName( ThisDB.Filename ) ' extract current vendor name If ValidateAMDistribution( ThisDoc ) = False Then Exit Sub End If DistributeChart.Repaint = False On Error Goto 0 ' search on range of number of users, formulate query iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) ' in case other vendors have the same machine id 'SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ '" & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers SearchFormula$ = " Form = ""Vendor Data"" " & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers 'Add onto Distribute sheet DistributeSheet.displaycols = numoutputlines DistributeSheet.displayrows = 5 ' assume a fixed distribution response DistributeSheet.showrowheading = False DistributeSheet.showcolheading = False ' initialize saved machine list iColCountDistribute = 2 sSavedMachines( 1, 1 ) = ThisDoc.FieldGetText( "DataUServerID" ) sSavedMachines( 1, 2 ) = sVendorName ' search on the different vendors Set CurrentView = ThisDB.GetView( "(List)" ) Set doc = CurrentView.GetFirstDocument ' Find the list document which contains the dynamic list If doc Is Nothing Then Messagebox "Cannot find Vendor List information", MB_ICONSTOP, "Graph Distribution Information" Exit Sub Else While Not( doc Is Nothing ) If doc.ListType( 0 ) = "Database" Then Set Listdoc = doc If Listdoc.list( 0 ) = "" Then Messagebox "No Vendor Databases to Search", MB_ICONEXCLAMATION, "Graph Distribution Information" End If Forall vendorname In Listdoc.list ' format the string into a filename If vendorname <> "" And Ucase( vendorname ) <> Ucase( svendorname ) Then sSearchDatabase = "CP" & vendorname & ".NSF" Set SearchDB = New NotesDatabase( "", sSearchDatabase ) Set SearchMachineCollection = SearchDB.Search( SearchFormula$, DateTime, 0 ) For j = 1 To SearchMachineCollection.Count Set SearchMachineDoc = SearchMachineCollection.GetNthDocument( j ) ' first make sure this is a unique entry bAlreadyFound = False For k = 1 To iColCountDistribute temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) If temp( 0 ) = sSavedMachines( k, 1 ) & sVendorName = sSavedMachines( k, 2 ) Then bAlreadyFound = True End If Next k ' make sure the data has a signature attached If bAlreadyFound = False Then vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = ThisDoc.Document.IsSignedField If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "0" Then bAlreadyFound = True End If End If ' also , only process entries for entries not in vendor's db, except for current entry temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) If Ucase$( sSearchDatabase ) = Ucase$( ThisDB.FileName ) And temp( 0 ) <> ThisDoc.FieldGetText( "DataUserverID" ) Then bAlreadyFound = True ' skip over this entry End If If bAlreadyFound = False Then ' new entry iColCountDistribute = iColCountDistribute + 1 DistributeSheet.row = 1 DistributeSheet.col = iColCountDistribute ' save off the machines already processed temp = SearchMachineDoc.GetItemValue( "DataUServerID" ) sSavedMachines( iColCountDistribute, 1 ) = temp( 0 ) sSavedMachines( iColCountDistribute, 2 ) = sVendorName DistributeSheet.text = temp( 0 ) DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False '******************************************************** ' load up the spreadsheet with data DistributeSheet.row = 2 temp = SearchMachineDoc.GetItemValue( "DataUFast" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 3 temp = SearchMachineDoc.GetItemValue( "DataUMedium" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 4 temp = SearchMachineDoc.GetItemValue( "DataUSlow" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 5 temp = SearchMachineDoc.GetItemValue( "DataUMore" ) DistributeSheet.number = temp( 0 ) End If Next j ' set columns to automatically resize DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True DistributeSheet.col = 1 DistributeSheet.row = 1 DistributeSheet.showselections = 0 StartRow = 2 StartCol = 1 EndRow =( iOutputCount + StartRow ) - 1 EndCol = 2 ' **************************** ' Distribute Chart Setup ' DistributeChart.chartType = CHChartType2dLine 'DistributeChart.chartType = CHChartType2dArea DistributeChart.chartType = 5 DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ": Comparative Analysis, Other Vendor(s)" DistributeChart.Plot.DataSeriesInRow = False 'reads from a column End If End Forall End If Set doc = CurrentView.GetNextDocument( doc ) Wend End If ' set up the link between spreadsheet and chart DistributeChart.Repaint = False DistributeChart.rowcount = 4 j = iColCountDistribute ' for the moment, max of 12 columns If j > 12 Then j = 12 End If DistributeChart.columncount = j - 1 DistributeSheet.tablename = "DistributeSheet" DistributeChart.sslinkbook = "DistributeSheet" test = 5 'row count DistributeChart.sslinkrange = "a1:m" + test DistributeChart.sslinkmode = 1 DistributeChart.Repaint = True ThisDoc.GoToField( "DataDistributeChart" ) If iColCountDistribute = 2 Then Messagebox "No new information to display", MB_ICONEXCLAMATION, "Graph Distribution Information" End If Call GraphForSave( ThisDoc, ThisDocBE ) Exit Sub ExitNow: Messagebox "Need to Generate Original Distribution Graph", MB_ICONEXCLAMATION, "Graph Distribution Information" End Sub New Button Need a newer version of Notes to execute this button. 0S0E Additional Machines (Other Vendor(s)) Mailing Information SendTo} 0S0E SendToList of primary people to send memo. CopyTo} CopyToList of people to send a copy of the memo. BlindCopyTo BlindCopyToList of undisclosed people to send copies of memo. Subject: PhoneCaller Phone Call: PhoneCaller Subject SubjectSubject of memo. Delivery Priority: Normal DeliveryPriorityPriority: Normal, High (immediate delivery), Low (overnight delivery). High|HLow|LNormal|N Delivery Report: DeliveryReportConditions upon which failure report will be sent back to you. Basic|BConfirmed|CNo Report|N Return Receipt: ReturnReceipt ReturnReceipt ReturnReceiptReturn receipt requested. No|0Yes|1 Document History/Test Results Submitted By: DataUAuthorOptional. Author of this document. Defaults to current user. Creation Date: DataUCreationDateOptional. Date this form initially created. Defaults to current date. Modification Date: DataUModificationDateOptional. Date this form last changed. Defaults to current date. Comments: DataUCommentsOptional. Any additional comments about this form. Miscellaneous Performance Information: DataPerformSheetReserved for use by Server.Planner. Distribution Information: DataDistributeSheetReserved for use by Server.Planner. Categori_ze3 _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder Exit'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) ' formerly @PostedCommand([FileCloseWindow]) Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim ThisDocBE As NotesDocument Dim sFileNameExtract As String Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase Set ThisDocBE = ThisDoc.Document ' bypass if machine id field updated If sFirstTime = "0" Then ' need to detect if current path is a mail item sFileNameExtract = Left$( ThisDB.FileName, 2 ) ' also check the mail flag, if "1", then we're in mail ' If sFileNameExtract = "CP" And ThisDocBE.MailFlag = "0" Then If Ucase( sFileNameExtract ) = "CP" Then On Error Goto 0 ThisDoc.EditMode = True Call ThisDoc.FieldSetText( "SaveOptions", "1" ) ' clear out the graphs ThisDoc.GoToField( "DataPerformChart" ) ThisDoc.FieldClear( "DataPerformChart" ) ThisDoc.GoToField( "DataPerformSheet" ) ThisDoc.FieldClear( "DataPerformSheet" ) ThisDoc.GoToField( "DataDistributeChart" ) ThisDoc.FieldClear( "DataDistributeChart" ) ThisDoc.GoToField( "DataDistributeSheet" ) ThisDoc.FieldClear( "DataDistributeSheet" ) Call ThisDoc.Save ' to clear out graphs/restored with Dollie 'Call ThisDocBE.Save( False, False ) ' prevent the prompt from coming up Call ThisDoc.FieldSetText( "SaveOptions", "0" ) End If End If Call ThisDoc.Close End Sub Save Results'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click( Source As Button ) Dim Session As New NotesSession Dim OutputDB As New NotesDatabase( "", "" ) Dim ThisDB As NotesDatabase Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim OutputDoc As NotesDocument Dim ThisDocBE As NotesDocument Dim TempItem As NotesRichTextItem Dim RTItem As NotesRichTextItem Dim OutputVendorData As NotesDocument Dim MailThisDoc As NotesDocument Dim ListDoc As NotesDocument Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase Set ThisDocBE = ThisDoc.Document ' make sure the information is signed Dim vIsSignedField As Variant vIsSignedField = ThisDocBE.IsSignedField ' If ThisDocBE.IsSigned = False Then If vIsSignedField( 0 ) = "0" Then 'Messagebox "Needs a Digital Signature to be Saved", MB_ICONEXCLAMATION, "Save Query Results" 'Exit Sub End If Set OutputDB = CreateOutputDB( ThisDoc ) If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then ' save list document in output database Set View = ThisDB.GetView( "(List)" ) ' capture case of user pressed Cancel On Error Goto ExitDBError Set Outputview = OutputDB.GetView( "(All Documents\List)" ) On Error Goto ExitSub Set Listdoc = View.GetFirstDocument Set OutputDoc = Outputview.GetFirstDocument If OutputDoc Is Nothing Then Set OutputDoc = OutputDB.createdocument OutputDoc.Form = "(List)" OutputDoc.ListType = "Database" OutputDoc.List="" Call OutputDoc.save( False,False ) End If ' **** will need to query on this data later OutputDoc.queryid = RandomValue OutputDoc.List = Listdoc.List SearchList = ListDoc.List ' save off List document with list of systems Call OutputDoc.Save( False, False ) ' Save Query within current database If ThisDoc.FieldGetText( "SaveOptions" ) = "1" Then ' only if possible 'ThisDoc.Save Else 'Messagebox "Cannot Save After Document is Signed", MB_ICONEXCLAMATION, "Vendor Data" 'Exit Sub End If End If If ThisDoc.FieldGetText( "OutputSaveResults" ) = "" Then ' no options selected Messagebox "No Options Selected", MB_ICONEXCLAMATION, "Save Query Results" Exit Sub End If If ( Instr( 1,ThisDoc.FieldGetText( "OutputSaveResults" ), "Create Mail Item" ) ) Then ' verify info is specified in the sendto field If ThisDoc.FieldGetText( "SendTo" ) = "" Then Messagebox "Specify Recipient List in Mailing Section", MB_ICONEXCLAMATION, "Save Query Results" ThisDoc.GoToField( "SendTo" ) Exit Sub End If ' create mailable document Set MailThisDoc = New NotesDocument( ThisDB ) Call ThisDocBE.CopyAllItems( MailThisDoc ) MailThisDoc.Form = "Vendor Data" ' need to remove doc link - won't work in ouptut database Set TempItem = MailThisDoc.GetFirstItem("DataMachineID") Call TempItem.Remove ' setup the switch settings MailThisDoc.FormNewLocation = "1" 'flag to say that this is going elsewhere (disable action bar) MailThisDoc.MailFlag = "1" ' way to identify the form has been mailed MailThisDoc.Send( True ) End If If ( Instr( 1, ThisDoc.FieldGetText( "OutputSaveResults" ), "Output to Database" ) ) Then ' processing onward for database only QueryOutputFilename = ThisDoc.FieldGetText( "OutputFilename" ) QueryOutputServer = ThisDoc.FieldGetText( "OutputServer" ) If QueryOutputServer = "local" Then QueryOutputServer = "" End If ' create output document with text details( for view ) Set OutputVendorData = New NotesDocument( OutputDB ) Call ThisDocBE.Save(False, False) Call ThisDocBE.CopyAllItems( OutputVendorData ) OutputVendorData.Form = "Output VendorData" 'If ThisDocBE.HasItem( "DataMachineID" ) Then ' need to remove doc link - won't work in ouptut database Set Item = OutputVendorData.GetFirstItem("DataMachineID") Call Item.Remove ' End If ' now see if a doclink can be created in the new database Dim MachineDoc As NotesDocument Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchFormula As String SearchFormula$ = " Form = ""Machine Identifier"" & MachineID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} Set SearchCollection = OutputDB.Search( SearchFormula$, DateTime, 0 ) If SearchCollection.Count = 0 Then 'Messagebox "Machine ID could not be found", MB_ICONSTOP, "Vendor Data" 'Elseif SearchCollection.Count > 1 Then 'Messagebox "Multiple Machine ID entries were found", MB_ICONSTOP, "Vendor Data" Else ' can have it point to any document Set MachineDoc = SearchCollection.GetNthDocument( 1 ) 'Dim notesitem As Variant 'Set notesitem = ThisDocBE.GetFirstItem( "DataMachineID" ) Set RTItem = New NotesRichTextItem ( OutputVendorData, "DataMachineID" ) Call RTItem.AppendDocLink( MachineDoc, "Server Machine ID" ) End If OutputVendorData.FormNewLocation = "1" 'flag to note that action bar items may be disabled Call OutputVendorData.Save( False, False ) OutputDB.Close End If Exit Sub ExitDBError: Exit Sub ExitSub: Messagebox "Cannot Process User Request", MB_ICONEXCLAMATION, "Save Results" Exit Sub ' need to remove doc link - won't work in mailed item Set Item = ThisDocBE.GetFirstItem("DataMachineID") '%REM ' need to save off, to restore afterwards ' If ThisDocBE.HasItem( "DataMachineID" ) Then Set Item = ThisDocBE.GetFirstItem("DataMachineID") Set TempItem = ThisDocBE.GetFirstItem("DataMachineID") Call Item.Remove 'End If ' restore blank RTItem field 'Set RTItem = New NotesRichTextItem ( ThisDocBE, "DataMachineID" ) '%END REM ThisDocBE.FormNewLocation = "1" 'flag to say that this is going elsewhere (disable action bar) ThisDocBE.MailFlag = "1" ' way to identify the form has been mailed ThisDocBE.Send( True ) ' If ThisDocBE.HasItem( "DataMachineID" ) Then Call ThisDocBE.CopyItem( TempItem, "DataMachineID" ) ' restore doclink 'End If ThisDocBE.FormNewLocation = "0" 'flag to say that this is going elsewhere (enable action bar) ThisDocBE.MailFlag = "0" ' reset flag to say not mailed %END REM End Sub FormNewLocation Graph Performancep'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) Declare Function PerformComponentsSetup( ) As Integer '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:3:12 '%INCLUDE "chconsts2.txt" %INCLUDE "chconsts.txt" Sub Click( Source As Button ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Dim bMatchFound As Integer Dim itemp As Integer Dim ThisDocBE As NotesDocument Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase Set ThisDocBE = ThisDoc.Document ThisDoc.EditMode = True Call ThisDoc.ExpandAllSections ' make sure user doesn't prevent graph from displaying If ValidateGraphPerformance( ) = False Then Exit Sub End If If PerformComponentsSetup( ) = False Then Exit Sub End If '******************************************************** ' load up the spreadsheet with data ' do a lookup based on this machine id and this script id iEntryCount=0 SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} ' " & DataUNumberUsers1 = " & {"} & ThisDoc.FieldGetText( "DataUNumberUsers1" ) & {"} Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 ) ' first insert data from current database If SearchCollection.Count > 0 Then For i = 1 To SearchCollection.Count Set SearchDoc = SearchCollection.GetNthDocument( i ) ' make sure the data has a signature attached vCertifyCheck = ThisDoc.Document.CertifyCheckOn Dim vIsSignedField As Variant vIsSignedField = SearchDoc.IsSignedField ' If vCertifyCheck( 0 ) = "1" And SearchDoc.IsSigned Or vCertifyCheck( 0 ) = "0" Then ' should checking be enabled? If vCertifyCheck( 0 ) = "1" And vIsSignedField( 0 ) = "1" Or vCertifyCheck( 0 ) = "0" Then ' should checking be enabled? PerformSheet.row = 1 + i PerformSheet.col = 1 temp = SearchDoc.GetItemValue( "DataUNumberUsers1" ) PerformSheet.number = Cint( temp( 0 ) ) PerformSheet.col = 2 ' response time temp= SearchDoc.GetItemValue( "DataUAverage" ) PerformSheet.number= Csng( temp( 0 ) ) iEntryCount=iEntryCount + 1 End If Next i End If ' make sure the current form is filled out and then insert If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then ' see if the entry exists bMatchFound = False For i = 1 To iEntryCount PerformSheet.row = i + 1 PerformSheet.col = 1 itemp = PerformSheet.number If Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) = iTemp Then bMatchFound = True PerformSheet.col= 2 ' response time PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) ) End If Next i If bMatchFound = False Then PerformSheet.row = 1 + iEntryCount + 1 PerformSheet.col = 1 ' user count PerformSheet.number = Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) PerformSheet.col= 2 ' response time PerformSheet.number = Csng( ThisDoc.FieldGetText( "DataUAverage" ) ) iEntryCount=iEntryCount + 1 End If End If iRowCountPerform = iEntryCount + iRowCountPerform ' set columns to automatically resize PerformSheet.SetColWidthAuto 1, 1,( iRowCountPerform + 1 ), 2 , True EndRow =( iOutputCount + 2 ) - 1 PerformSheet.Sort 2, 1, iRowCountPerform + 1, 2, True, 1 ' set up the link between spreadsheet and chart iColCountPerform = 1 Call PerformChartAssn( iRowCountPerform, iColCountPerform, ThisDoc ) iRowCountPerform = iRowCountPerform + 1 Exit Sub Call GraphForSave( ThisDoc, ThisDocBE ) End Sub '++LotusScript Development Environment:2:1:PerformComponentsSetup:2:8 '%INCLUDE "chconsts2.txt" Function PerformComponentsSetup( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Dim bMatchFound As Integer Dim itemp As Integer PerformComponentsSetup = True Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True If ValidateGraphPerformance( ) = False Then Exit Function End If ' set up spreadsheet and chart 'Messagebox "Error" & Str( Err ) & ":" &Error$ ThisDoc.GoToField( "DataPerformSheet" ) ThisDoc.FieldClear( "DataPerformSheet" ) Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" ) ThisDoc.GoToField( "DataPerformChart" ) ThisDoc.FieldClear( "DataPerformChart" ) Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" ) %REM Dim ChartItem As NotesRichTextItem Set ChartItem = ThisDoc.Document.GetFirstItem( "DataPerformChart" ) ThisDoc.Document.ChartItem.AppendText( "foo" ) ThisDoc.Document.ComputeWithForm True, True %END REM On Error Goto 0 PerformChart.Repaint = False PerformChart.rowcount = numoutputlines PerformChart.columncount = 1 PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = 12 PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 '**************************** 'set up Perform sheet '**************************** iRowCountPerform = 0 iColCountPerform = 1 PerformSheet.displaycols = 2 PerformSheet.displayrows = numoutputlines PerformSheet.showrowheading = False PerformSheet.showcolheading = False ' set up headings PerformSheet.row = 1 PerformSheet.col = 1 PerformSheet.text = "# Users" PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False PerformSheet.col = 2 PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" ) PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' **************************** ' Perform Chart Setup '**************************** 'PerformChart.chartType = CHChartType2dLine PerformChart.chartType = CHChartType2dBar PerformChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Performance" PerformChart.Plot.DataSeriesInRow = False 'reads from a column 'show major grid line in red and minor grid line in blue With PerformChart.plot.axis( CHAxisIdY ).AxisGrid .majorPen.width = 1 .minorPen.VtColor.Set 0, 0, 255 .minorPen.width = 1 End With If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "Spoke Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With Else With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "User Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With End If With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle .visible = True .text = "Perform Time( sec )" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle .visible = True .text = "Machine" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter .TextLayout.VertAlignment = CHVerticalAlignmentCenter End With With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With ' adjust size of title With PerformChart.title.VtFont .name = "Arial" .size = 10 .style = CHFontStyleBold .effect = 512 .VtColor.Set 0, 0, 255 End With 'use manual scale to display y axis( value axis ) With PerformChart.plot.axis( CHAxisIdY ).ValueScale .auto = True End With With PerformChart.Legend ' Make Legend Visible .location.visible = True .location.locationType = CHLocationTypeBottom ' Set Legend properties .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft ' Left justify .VtFont.VtColor.Set 0, 0, 255 .backdrop.fill.style = CHFillStyleBrush .backdrop.fill.Brush.style = CHBrushStyleSolid End With With PerformChart.backdrop.fill '.style=CHFillStyleNull .style=CHFillStyleBrush .Brush.style=CHBrushStyleSolid End With ' need to enhance Machine IDs Names for legend PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" ) Exit Function PressEdit: If Err = 0 Or Err = 8501 Then Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONSTOP, "Graph Performance Information" Elseif Err = 4412 Then 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" End If PerformComponentsSetup=False Exit Function End Function FormNewLocation Graph Distribution'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) Declare Function DistributionComponentsSetup( ) As Integer Declare Function PerformComponentsSetup( ) As Integer '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:3:12 '%INCLUDE "chconsts2.txt" %INCLUDE "chconsts.txt" Sub Click( Source As Button ) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True Call ThisDoc.ExpandAllSections ' make sure user doesn't prevent graph from displaying If ValidateGraphDistribution ( ) = False Then Exit Sub End If If DistributionComponentsSetup( ) = False Then Exit Sub End If '******************************************************** ' load up the spreadsheet with data ' do a lookup based on this machine id and this script id iEntryCount=0 SearchFormula$ = " Form = ""Vendor Data"" & DataUServerID = " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} Set SearchCollection = ThisDB.Search( SearchFormula$, DateTime, 0 ) ' there should only be one returned ' make sure the current form is filled out and then insert If ThisDoc.FieldGetText( "DataUNumberUsers1" ) > " " And ThisDoc.FieldGetText( "DataUAverage" ) > " " Then DistributeSheet.col = 1 ' response range DistributeSheet.row = 2 DistributeSheet.text = "< 1" DistributeSheet.row = 3 DistributeSheet.text = "1 - 3" DistributeSheet.row = 4 DistributeSheet.text = "3.1 - 5" DistributeSheet.row = 5 DistributeSheet.text = "> 5" DistributeSheet.col = 2 ' count DistributeSheet.row = 2 DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUFast" ) ) DistributeSheet.row = 3 DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUMedium" ) ) DistributeSheet.row = 4 DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUSlow" ) ) DistributeSheet.row = 5 DistributeSheet.number = Cint( ThisDoc.FieldGetText( "DataUMore" ) ) iEntryCount=iEntryCount + 1 End If iRowCountDistribute = 5 iColCountDistribute = 1 'set columns to automatically resize ' *** number of rows should be set to the max, need to resize the spreadsheet DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True ' set up the link between spreadsheet and chart Call DistributeChartAssn( iRowCountDistribute, iColCountDistribute, ThisDoc ) Dim ThisDocBE As NotesDocument Set ThisDocBE = ThisDoc.Document Call GraphForSave( ThisDoc, ThisDocBE ) End Sub '++LotusScript Development Environment:2:1:DistributionComponentsSetup:2:8 '%INCLUDE "chconsts2.txt" Function DistributionComponentsSetup( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True DistributionComponentsSetup=True If ValidateGraphDistribution = False Then Exit Function End If ' set up spreadsheet and chart ThisDoc.GotoField( "DataDistributeSheet" ) ThisDoc.FieldClear( "DataDistributeSheet" ) Set DistributeSheet = ThisDoc.CreateObject( "DistributeSheet", "Lotus.Spreadsheet.1" ) ThisDoc.GoToField( "DataDistributeChart" ) ThisDoc.FieldClear( "DataDistributeChart" ) Set DistributeChart = ThisDoc.CreateObject( "DistributeChart", "Lotus.Chart.1" ) On Error Goto 0 DistributeChart.Repaint = False DistributeChart.rowcount = numoutputlines DistributeChart.columncount = 1 DistributeSheet.tablename = "DistributeSheet" DistributeChart.sslinkbook = "DistributeSheet" test = 12 DistributeChart.sslinkrange = "a1:m" + test DistributeChart.sslinkmode = 1 '**************************** 'set up Distribute sheet '**************************** iRowCountDistribute = 0 iColCountDistributeDistribute = 1 DistributeSheet.displaycols = 2 DistributeSheet.displayrows = 5 DistributeSheet.showrowheading = False DistributeSheet.showcolheading = False ' set up headings DistributeSheet.row = 1 DistributeSheet.col = 1 DistributeSheet.text = "Response Distribution" DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False DistributeSheet.col = 2 DistributeSheet.text = ThisDoc.FieldGetText( "DataUServerID" ) DistributeSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' **************************** ' Distribute Chart Setup '**************************** 'set Distribute chart type to 2d line 'DistributeChart.chartType = CHChartType2dLine 'DistributeChart.chartType = CHChartType2dArea DistributeChart.chartType = 5 DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Distribution" DistributeChart.Plot.DataSeriesInRow = False 'reads from a column 'show major grid line in red and minor grid line in blue With DistributeChart.plot.axis( CHAxisIdY ).AxisGrid .majorPen.width = 1 .minorPen.VtColor.Set 0, 0, 255 .minorPen.width = 1 End With If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then With DistributeChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "Response Time( sec )" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With Else With DistributeChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "Response Time Distribution" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With End If With DistributeChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle .visible = True .text = "Probe Frequency" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With DistributeChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle .visible = True .text = "Machine" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With DistributeChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter .TextLayout.VertAlignment = CHVerticalAlignmentCenter End With With DistributeChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With With DistributeChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With ' adjust size of title With DistributeChart.title.VtFont .name = "Arial" .size = 10 .style = CHFontStyleBold .effect = 512 .VtColor.Set 0, 0, 255 End With 'use manual scale to display y axis( value axis ) With DistributeChart.plot.axis( CHAxisIdY ).ValueScale .auto = True End With With DistributeChart.Legend ' Make Legend Visible .location.visible = True .location.locationType = CHLocationTypeBottom ' Set Legend properties .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft ' Left justify .VtFont.VtColor.Set 0, 0, 255 End With With DistributeChart.backdrop.fill '.style=CHFillStyleNull .style=CHFillStyleBrush .Brush.style=CHBrushStyleSolid End With ' need to enhance Machine IDs Names for legend DistributeChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" ) Exit Function End Function '++LotusScript Development Environment:2:1:PerformComponentsSetup:1:8 Function PerformComponentsSetup( ) As Integer Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim DateTime As New NotesDateTime( "1/1/96" ) Dim SearchCollection As NotesDocumentCollection Dim SearchDoc As NotesDocument Dim iEntryCount As Integer Dim bMatchFound As Integer Dim itemp As Integer PerformComponentsSetup = True Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase ThisDoc.EditMode = True If ValidateGraphPerformance( ) = False Then Exit Function End If ' set up spreadsheet and chart On Error Goto PressEdit ' need to be in edit mode to continue processing ThisDoc.GoToField( "DataPerformSheet" ) ThisDoc.FieldClear( "DataPerformSheet" ) Set PerformSheet = ThisDoc.CreateObject( "PerformSheet", "Lotus.Spreadsheet.1" ) ThisDoc.GoToField( "DataPerformChart" ) ThisDoc.FieldClear( "DataPerformChart" ) Set PerformChart = ThisDoc.CreateObject( "PerformChart", "Lotus.Chart.1" ) On Error Goto 0 PerformChart.Repaint = False PerformChart.rowcount = numoutputlines PerformChart.columncount = 1 PerformSheet.tablename = "PerformSheet" PerformChart.sslinkbook = "PerformSheet" test = 12 PerformChart.sslinkrange = "a1:m" + test PerformChart.sslinkmode = 1 '**************************** 'set up Perform sheet '**************************** iRowCountPerform = 0 iColCountPerform = 1 PerformSheet.displaycols = 2 PerformSheet.displayrows = numoutputlines PerformSheet.showrowheading = False PerformSheet.showcolheading = False ' set up headings PerformSheet.row = 1 PerformSheet.col = 1 PerformSheet.text = "# Users" PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False PerformSheet.col = 2 PerformSheet.text = ThisDoc.FieldGetText( "DataUServerID" ) PerformSheet.setfont "Arial", 10, True, False, False, False, 0, False, False ' **************************** ' Perform Chart Setup '**************************** 'PerformChart.chartType = CHChartType2dLine PerformChart.chartType = CHChartType2dBar PerformChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) & ": Performance" PerformChart.Plot.DataSeriesInRow = False 'reads from a column 'show major grid line in red and minor grid line in blue With PerformChart.plot.axis( CHAxisIdY ).AxisGrid .majorPen.width = 1 .minorPen.VtColor.Set 0, 0, 255 .minorPen.width = 1 End With If ThisDoc.FieldGetText( "DataUScript1" ) = "Replication Hub" Or ThisDoc.FieldGetText( "DataUScript1" ) = "Mail Routing Hub" Then With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "Spoke Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With Else With PerformChart.Plot.axis( CHAxisIdX, 1 ).AxisTitle .visible = True .text = "User Count" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With End If With PerformChart.Plot.axis( CHAxisIdY, 1 ).AxisTitle .visible = True .text = "Perform Time( sec )" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdZ, 1 ).AxisTitle .visible = True .text = "Machine" .VtFont.name = "Arial" .VtFont.size = 10 .VtFont.VtColor.set 0, 0, 255 End With With PerformChart.Plot.axis( CHAxisIdX ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 .TextLayout.HorzAlignment = CHHorizontalAlignmentCenter .TextLayout.VertAlignment = CHVerticalAlignmentCenter End With With PerformChart.Plot.axis( CHAxisIdY ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With With PerformChart.Plot.axis( CHAxisIdZ ).Labels.Item( 1 ) ' Set X Axis label properties .auto = True .VtFont.name = "Arial" .VtFont.size = 10 End With ' adjust size of title With PerformChart.title.VtFont .name = "Arial" .size = 10 .style = CHFontStyleBold .effect = 512 .VtColor.Set 0, 0, 255 End With 'use manual scale to display y axis( value axis ) With PerformChart.plot.axis( CHAxisIdY ).ValueScale .auto = True End With With PerformChart.Legend ' Make Legend Visible .location.visible = True .location.locationType = CHLocationTypeBottom ' Set Legend properties .TextLayout.HorzAlignment = CHHorizontalAlignmentLeft ' Left justify .VtFont.VtColor.Set 0, 0, 255 .backdrop.fill.style = CHFillStyleBrush .backdrop.fill.Brush.style = CHBrushStyleSolid End With With PerformChart.backdrop.fill '.style=CHFillStyleNull .style=CHFillStyleBrush .Brush.style=CHBrushStyleSolid End With ' need to enhance Machine IDs Names for legend PerformChart.Plot.SeriesCollection.Item( 1 ).LegendText = ThisDoc.FieldGetText( "DataUServerID" ) Exit Function PressEdit: If Err = 0 Or Err = 8501 Then Messagebox "Lotus Components Must Be Correctly Installed to Proceed", MB_ICONSTOP, "Graph Distribution Information" Elseif Err = 4412 Then 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" End If PerformComponentsSetup=False Exit Function End Function FormNewLocation Help^ DSPUG.NSF Table of Contents 4S10S12S13S (0(0$ @3@303 0D5t6t6L x7x78 p p |. 0!4/ !P"`/ !p#80 "0#$2 #P#t2 #0$d3 P$P$84 $P&,5 %0'T6 p&P*D7 'p(h9 0(P(0: *0+\> p,p-x@ </</HB 8x8x8H8H8 \2\2PC 5\60E ;@K{j :(Lb6 T:LLP ;(M69 :@Md8 <;4ND H;dO) 0+X/$ ^p3K</- 4}TF# K\2- 5# K\2- 5# ^03K\2,T5JD5 5K</- 5K03P 5K03, 5} H# 5K03, 5}\H# ^466* 4} H#}|H 4}\H#}|H ^D64u 4} H# 5Q(6K</, 4}\H# 5Q(6K</, 4} H# 5Q(6K</, 4}\H# 6[\6[ 6^</# [\6G\6 ) 7^</^p3# 7+X/$ 7Kx7- 7,H8} 7,x8} 8}LJ# 7,H8}LJ# 7,x8} 8Q,9} 5QP9~ 5Qt9}\L 5Qt9K 4}TF#} 4}TF#} 4}TF#} N,:Q<: N,:Qt9} N,:OH:QT:} N,:OH:Q`: N,:OH:O Nl:Q<: Nl:Qt9}hN Nl:OH:QT:} Nl:OH:Q`: Nl:OH:O N|:Q<: N|:Qt9} N|:OH:QT:} N|:OH:Q`: N|:OH:O :Qt9} :OH:QT:} :OH:Q`: :OH:O :OH:QT:} :OH:Q`: :OH:QT:} :OH:Q`: ;OH:QT:} ;OH:Q`: N ;QT:} N ;Q`: N ;Q0;~ N ;Q<; Np;OH:O ;Q0;~ ;Q0;~ ;Q0;~ ;Q0;~ <|5|5 4d2P6 T7T7D7l8 h;t=t= 8;8;t 8"P. x!x%</ "X"$0 8"8'L0 "8#41 "x#x1 X$8%x3 8&8)86 X&8(d6 &x' 7 'X(h8 (x(D9 8(x*x9 (x+8: X)8*p; x*8+H= 8+x,@> ,x-\? ,8.p@ -X.|A X.(8@B 7d7d7 `8lH! T7l84D 9|La{ \9,Md8 /KD/- /,d4# 5}4F# 1,<5J /-`6# /^P6# 6,d7}$I# 7}$I# 6,d7} 7},J}PJ N|5QT8} 8Q`8} 8Q|8}<KJl8 5}4F#} N(9O89QD9 N(9OP9O\9Th9 N(9OP9QD9 5}4F#} 5}4F#} 9O\9Th9 9O\9Th9 9O\9Th9 9O\9Th9 :O$:Q0:~H :O$:Q<:~ 8Oh:P Nt:O\9Th9 :O$:Q0:~ 9O\9Th9 8O ;S %Q,;K ^H;K8;- ^h;KX;- KH;.@4 KH;,d7} [\<KH;, 7}HQ} KH;,d7}hQ# 7}hQ# [p<KH;, Np<QH8 N\<QT8}HQ Np<Q`8}HQ Np<Q|8}<KJ|< 5KH;, 8KH;, 5}4F#}4R <Np<O <O89QD9 <OP9O\9Th9 <OP9QD9 5}4F#} 5}4F#} <Np<O 9O\9Th9 <Np<O 9O\9Th9 <Np<O 9O\9Th9 <Np<O 9O\9Th9 =Np<O =O$:Q0:~H =O$:Q<:~ =Np<O ^$=Np<O ^4=Np<Oh:P N4=O\9Th9 ^D=Np<O ^T=Np<P NT=O$:Q0:~ 9O\9Th9 ^d=Np<O 8O ;S %Q,;KH;, O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO VH1-Os> DataPercentLessThan1 DataPercentOnetoTwo DataPercentThreetoFive DataUDistribution1 DataUDistribution2 DataUDistribution4 DataUDistribution5 DataDatePerformed DataNumberUsers1 DataNumberUsers2 DataNumberUsers3 DataNumberUsers4 DataNumberUsers5 DataLessThan1 DataOnetoTwo DataThreetoFive DataUNumberUsers2 DataUNotesMark2 DataUResponseTime2 DataUOther12 DataUOther22 DataUNumberUsers3 DataUDistribution3 DataUNotesMark3 DataUResponseTime3 DataUOther13 DataUOther23 DataUNumberUsers4 DataUNotesMark4 DataUResponseTime4 DataUOther14 DataUOther24 DataUNumberUsers5 DataUNotesMark5 DataUResponseTime5 DataUOther15 DataUOther25 DataULessThan1 DataUOnetoTwo DataUThreetoFive DataUSlow1 DataUPercentSlow1 DataUSlow2 DataUPercentSlow2 DataUSlow3 DataUPercentSlow3 DataUSlow4 DataUPercentSlow4 DataUModificationDate_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_O DataUDatePerformed_1 DataUNumberUsers1_1 DataUNotesMark1_1 TotOrdersCreated_1 TotDollarValue_1 TotOrdersLots_1 TotHits_1 TotBytesXferred_1 DataUFast_1 DataUPercentDFast_1 DataUPercentFast_1 DataUMedium_1 DataUPercentDMedium_1 DataUPercentMedium_1 DataUSlow_1 DataUPercentDSlow_1 DataUPercentSlow_1 DataUMore_1 DataUPercentDMore_1 DataUPercentMore_1 $TITLE $Info $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 $$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_O DocLinkFlag EditFieldFlag DataUAverage_1 DataUMinimum_1 DataUMaximum_1 DataUOther21_1 DataUOther11_1 AvgBytesHit_1 AvgHitsMin_1 DataUResponseTime1_1 DataUDatePerformed DurationTest DataUNumberUsers1 DataUNotesMark1 DataUResponseTime1 DataUOther11 DataUOther21 TotOrdersCreated TotDollarValue TotOrdersLots TotHits AvgBytesHit TotBytesXferred AvgHitsMin DataUAverage DataUMinimum DataUMaximum DataUFast DataUPercentDFast DataUPercentFast DataUMedium DataUPercentDMedium DataUPercentMedium DataUSlow DataUPercentDSlow DataUPercentSlow DataUMore DataUPercentDMore DataUPercentMore DataUCreationDate DataUModificationDate $Body $ACTIONS $SCRIPTOBJ_6 $SCRIPTOBJ_7 $SCRIPTOBJ_8 $SCRIPTOBJ_9 #*pO* YKAU!+ *dDJoU SU(+V B"%iY ZUA]U 0cGA^ MQ#X)#gN Hi$kcre /Ow$~ 8tb"> 4B+0+ 1L[ZcTH |H%m, P&54& )HODs .4MM?d \"{qH 4x$cFQ T@#@MEpQI D%`pI P5z%BR7|T Fi"E5 #*pO* YKAU!+ *dDJoU SU(+V B"%iY (gdi9T WU(ET BVKLD Z]A]U &V<"U hg"zA !.WV" sb*%J JBTA %zEL(c 74)C&M BjaDa H\Z$jC !G:K|[ X)+ZG *,p6&#eI @N^J^jJ P5"6S 3th0H cHO+! =).DO 1)rM: M vgTas ja4)a0"FO@ @RtIS <fKU( Th]Cj >QU@Z K+(N;e Machine Identifier Footlight MT Light '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:10 Const MB_ICONSTOP = 16 Const MB_ICONQUESTION = 32 Const MB_ICONEXCLAMATION = 48 Const MB_ICONINFORMATION = 64 Const MB_YESNO = 4 Const IDYes = 6 Const IDNo = 7 Machine Identifier'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen( Source As Notesuidocument ) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen( Source As Notesuidocument ) ' TO DO ' put in validation for negative numbers ' Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim Session As New NotesSession Dim ThisDB As NotesDatabase Dim ThisDocBE As NotesDocument Set ThisDoc = Workspace.CurrentDocument Set ThisDB = Session.CurrentDatabase Set ThisDocBE = ThisDoc.Document If ThisDoc.IsNewDoc = True Then ThisDoc.EditMode = True 'Call ThisDoc.FieldSetText( "FormSigned", "No" ) 'ThisDoc.EditMode = False End If ' if document is copied, make sure signed status is updated If ThisDocBE.IsSigned = False Then If ThisDoc.FieldGetText( "FormSigned" ) <> "No" Then ThisDoc.EditMode = True 'Call ThisDoc.FieldSetText( "FormSigned", "No" ) 'ThisDoc.EditMode = False End If Else If ThisDoc.FieldGetText( "FormSigned" ) = "No" Then ThisDoc.EditMode = True 'Call ThisDoc.FieldSetText( "FormSigned", "Yes" ) 'ThisDoc.EditMode = False End If End If ' alert about document signature If ThisDocBE.IsSigned Then ' Messagebox "This Document was signed by: " & ThisDocBE.Signer, MB_ICONINFORMATION, "Machine Identifier" Else If ThisDoc.IsNewDoc = False Then ' Messagebox "Warning: Document Not Signed", MB_ICONEXCLAMATION, "Machine Identifier" End If End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineNumberofCPUs) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNumberofCPUs" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineCPUSpeed) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineCPUSpeed" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineAmountofMemory) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineAmountofMemory" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles1) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles1" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSize1) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize1" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles2) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles2" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSize2) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize2" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles3) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles3" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSize3) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize3" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSpindles4) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles4" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineDiskSize4) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize4" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineNumComPorts) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNumComPorts" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineComPortSpeed) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineComPortSpeed" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineNetworkAdapters) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNetworkAdapters" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineNetworkAdapterType) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNetworkAdapterType" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.ClientProfPercent1) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProfPercent1" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.ClientProfPercent2) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProfPercent2" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.ClientProfPercent3) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProfPercent3" ) End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim Workspace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Set ThisDoc = Workspace.CurrentDocument If ( Isnumeric(ThisDoc.Document.MachineCost) = True ) Then Messagebox "Field Value Must be Numeric", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineCost" ) End If End Sub 0S0E queryid DocumentLink SaveOptions FormNewLocation CertifyCheckOn IsSignedField Machine Identifier Machine ID: MachineIDRequired. Enter a unique Machine ID. Must match notes.ini parameter. Signed: FormSignedContains "Yes" when certified by NotesBench auditor. Machine Description: MachineDescriptionEnter brief description meaningful to analysts and decision makers. Date Created: MachineDatePerfomedDate benchmark to be performed. Initially today's date. Software Configuration: Notes Version: MachineNotesVersionRequired. Select tested version from pull-down list. 4.134.144.514.524.6 Platform: MachinePlatformRequired. Select the server platform type from pull-down list. AIX/RS6000AIX/SP2HP-UXNetWare 3.12Netware 4.1NT 3.51NT 4.0OS/2 2.11 SMPOS/2 Warp ConnectOS/2 Warp Server 4.0Solaris 2.5Win95 1.0 Hardware Configuration: CPU Type: MachineCPUTypeRequired. Select server CPU type from pull-down list. Alpha 300Alpha 400Alpha 500CryrixPA-RISC 7100PA-RISC 8100Pentium Pro (P6)Pentium (P5)PowerPC 604PowerPC 610SparcUltraSparc Number of CPUs: MachineNumberofCPUsRequired. Enter integer if more than one CPU configured. Default is 1. Maximum is 99. CPU Speed: MachineCPUSpeedRequired. Select server CPU speed from pull-down list. 336690100120133150166180200220233300 Memory: MachineAmountofMemoryRequired. Enter number of megabytes configured. Maximum field size is 5 digits. Disk I/O (Data Directory): Number/Spindles Disk Size (GB) Disk Type Raid Configured By: MachineDiskSpindles1Required. Enter disk information as tested. Enter number of spindles. Default is 1. MachineDiskSize1Required. Enter disk information as tested. Disk Size is in gigabytes. MachineDiskType1Required. Any Configuration or RAID 5 only (or Select from pull-down list). Enter disk information as tested. Any ConfigurationIncludes RAID 5 MachineDiskConfigure1Required. Configured by hardware or software if present. Enter information as tested. HardwareSoftwareNot Used MachineDiskSpindles2Enter disk information as tested. Enter number of spindles. MachineDiskSize2Enter disk information as tested. Disk Size is in gigabytes. MachineDiskType2Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list). Enter disk information as tested. Any ConfigurationIncludes RAID 5 MachineDiskConfigure2Configured by hardware or software if present (or Select from pull-down list). Enter information as tested. HardwareSoftwareNot Used MachineDiskSpindles3Enter disk information as tested. Enter number of spindles. MachineDiskSize3Enter disk information as tested. Disk Size is in gigabytes. MachineDiskType3Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list). Enter disk information as tested. Any ConfigurationIncludes RAID 5 MachineDiskConfigure3Configured by hardware or software if present (or Select from pull-down list). Enter information as tested. HardwareSoftwareNot Used MachineDiskSpindles4Enter disk information as tested. Enter number of spindles. MachineDiskSize4Enter disk information as tested. Disk Size is in gigabytes. MachineDiskType4Disk Type is Any Configuration or RAID 5 only (or Select from pull-down list). Enter disk information as tested. Any ConfigurationIncludes RAID 5 MachineDiskConfigure4Configured by hardware or software if present (or Select from pull-down list). Enter information as tested. HardwareSoftwareNot Used Communication Configuration: Communication Ports: Number: MachineNumComPortsOptional. Enter number of Communication Port(s). Speed: MachineComPortSpeedOptional. Enter Speed of Communication Port(s) in MegaBits. Mbits Network Adapters: Number: MachineNetworkAdaptersOptional. Enter Number of Network Adapter(s). Speed: MachineNetworkAdapterTypeOptional. Enter Speed of Network Adapter(s) in MegaBits. Mbits Client Profile: Connection Type Client Type Distribution ClientProf1Required. Select client connect protocol type from pull-down list. NETBeuiSPXTCPIPX.PC ClientProfPercent1Required. Percentage of clients assigned to protocol. ClientProf2Select client connect protocol type from pull-down list. NETBeuiSPXTCPIPX.PC ClientProfPercent2Percentage of clients assigned to protocol. ClientProf3Select client connect protocol type from pull-down list. NETBeuiSPXTCPIPX.PC ClientProfPercent3Percentage of clients assigned to protocol. Miscellaneous: Cost (List): MachineCostRequired. Enter list price on date available for analysis. Includes Hardware and Software costs. MachineCostDateRequired. Enter list price on date it was available for cost/performance analysis. Document History Author: MachineAuthorOptional. Author of this document. Defaults to current user. Creation Date: MachineCreationDateOptional. Date this form initially created. Defaults to current date. Modification Date: MachineModificationDateOptional. Date this form last changed. Defaults to current date. Comments: MachineCommentsOptional. Any additional comments about this form. Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert Exit 0S0E Save'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) Declare Function ValidateDiskIO( ThisDoc As NotesUIDocument, iDiskCount As Integer ) As Integer Declare Function EntryPresent( ThisDoc As NotesUIDocument, iRowNum As Integer ) As Integer '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click( Source As Button ) ' TO DO ' validate machineid name is unique in db Dim WorkSpace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim ThisDocBE As NotesDocument Dim vTemp As Variant Set ThisDoc = WorkSpace.CurrentDocument Set ThisDocBE=ThisDoc.Document ' first verify the SaveOptions field value (if 0, don't save ) vTemp = ThisDocBE.SaveOptions If vTemp(0) = "0" Then Messagebox "Cannot save after document is signed", MB_ICONEXCLAMATION, "Machine Identifier" Exit Sub End If If ThisDocBE.IsSigned = True Then ' prompt to insure saving knowingly will invalidate signature Dim lBoxType As Long, iAnswer As Integer Dim sTwoLiner As String lboxType& = MB_YESNO + MB_ICONQUESTION ' should be two lines sTwoLiner = |Are You Sure? ( Saving this information will invalidate the digital signature. )| iAnswer = Messagebox( sTwoLiner, lBoxType, "Save Vendor Data" ) If iAnswer = IDNO Then Exit Sub End If End If ' need to verify that all required fields are filled in ' Required: Machine ID vTemp = ThisDoc.Document.MachineID If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Machine Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineID" ) Exit Sub End If ' Required: Notes Version vTemp = ThisDoc.Document.MachineNotesVersion If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Notes Version Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNotesVersion" ) Exit Sub End If ' Required: Platform vTemp = ThisDoc.Document.MachinePlatform If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Machine Platform Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachinePlatform" ) Exit Sub End If ' Required: CPUType vTemp = ThisDoc.Document.MachineCPUType If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Machine CPU Type Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineCPUType" ) Exit Sub End If ' Required: Number of CPUs vTemp = ThisDoc.Document.MachineNumberofCPUs If Len( vTemp( 0 ) ) = 0 Or Len( vTemp( 0 ) )= 0 Then Messagebox "Required: Number of CPUs", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineNumberofCPUs" ) Exit Sub End If ' Required: Machine CPU Speed vTemp = ThisDoc.Document.MachineCPUSpeed If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = "" Then Messagebox "Required: Machine CPU Speed Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineCPUSpeed" ) Exit Sub End If ' Required: Amount of Memory vTemp = ThisDoc.Document.MachineAmountofMemory If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Amount of Memory Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineAmountofMemory" ) Exit Sub End If ' Required: At least one entry in first slot If ValidateDiskIO( ThisDoc, 1 ) = False Then Exit Sub End If ' Optional: if entry present in the Disk configuration row, validate the whole row If EntryPresent( ThisDoc, 2 ) Then If ValidateDiskIO( ThisDoc, 2 ) = False Then Exit Sub End If End If If EntryPresent( ThisDoc, 3 ) Then If ValidateDiskIO( ThisDoc, 3 ) = False Then Exit Sub End If End If If EntryPresent( ThisDoc, 4 ) Then If ValidateDiskIO( ThisDoc, 4 ) = False Then Exit Sub End If End If ' Required: Client Profile - should have at least one, verify other entries if present vTemp = ThisDoc.Document.MachineID If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Machine Identifier Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineID" ) Exit Sub End If ' verify client profile distribution adds up to 100 'If ( Cint( ThisDoc.FieldGetText( "ClientProfPercent1" ) ) +Cint( ThisDoc.FieldGetText( "ClientProfPercent2" ) ) _ '+ Cint( ThisDoc.FieldGetText( "ClientProfPercent3" ) ) ) <> 100 Then Dim vTemp1 As Variant Dim vTemp2 As Variant Dim vTemp3 As Variant vTemp1 = ThisDoc.Document.ClientProfPercent1 vTemp2 = ThisDoc.Document.ClientProfPercent2 vTemp3 = ThisDoc.Document.ClientProfPercent3 If ( vTemp1( 0 ) + vTemp2( 0 ) + vTemp3( 0 ) ) <> 100 Then Messagebox "Required: Client Profile Percentage Distribution must add up to 100", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProfPercent1" ) Exit Sub End If vTemp = ThisDoc.Document.ClientProf1 If Isnumeric( vTemp1( 0 ) ) = False Then Messagebox "Required: Client Profile Type #1", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf1" ) Exit Sub Elseif vTemp1( 0 ) = 0 Or vTemp( 0 ) = "" Then Messagebox "Required: Client Profile Type #1", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf1" ) Exit Sub End If vTemp = ThisDoc.Document.ClientProf2 If Len( vTemp2( 0 ) ) = 0 Then If vTemp2( 0 ) = "" And vTemp( 0 ) <> "" Then Messagebox "Required: Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf2" ) Exit Sub End If Else If vTemp2( 0 ) > 0 And vTemp( 0 ) = "" Then Messagebox "Required: Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf2" ) Exit Sub Elseif vTemp2( 0 ) = 0 And vTemp( 0 ) <> "" Then Messagebox "Required: Client Profile Type #2", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf2" ) Exit Sub End If End If vTemp = ThisDoc.Document.ClientProf3 If Len( vTemp3( 0 ) ) = 0 Then If vTemp3( 0 ) = "" And vTemp( 0 ) <> "" Then Messagebox "Required: Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf3" ) Exit Sub End If Else If vTemp3( 0 ) > 0 And vTemp( 0 ) = "" Then Messagebox "Required: Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf3" ) Exit Sub Elseif vTemp3( 0 ) = 0 And vTemp( 0 ) <> "" Then Messagebox "Required: Client Profile Type #3", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "ClientProf3" ) Exit Sub End If End If ' Required: Machine Cost vTemp = ThisDoc.Document.MachineCost If Len( vTemp( 0 ) ) = 0 Or vTemp( 0 ) = " " Then Messagebox "Required: Machine Cost (List) Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineCost" ) Exit Sub End If ' wants you to be in edit mode On Error Goto Done ' first verify the SaveOptions field value (if 0, don't save ) vTemp = ThisDocBE.SaveOptions If vTemp(0) = "1" Then ThisDoc.Save End If Exit Sub Done: Messagebox "Need to be in Edit Mode, then Save Information", MB_ICONEXCLAMATION, "Machine Identifier" Exit Sub End Sub '++LotusScript Development Environment:2:1:ValidateDiskIO:1:8 Function ValidateDiskIO( ThisDoc As NotesUIDocument, iDiskCount As Integer ) As Integer ' input: index into table, output is whether it is correctly filled out ValidateDiskIO = True ' return success code If iDiskCount = 1 Then ' Required: One entry for disk, verify other entries if present ' Disk Spindle info vTemp = ThisDoc.Document.MachineDiskSpindles1 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles1" ) ValidateDiskIO = False Exit Function End If ' Disk Size info vTemp = ThisDoc.Document.MachineDiskSize1 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize1" ) ValidateDiskIO = False Exit Function End If ' Disk Type (RAID) info vTemp = ThisDoc.Document.MachineDiskType1 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Type (RAID) Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskType1" ) ValidateDiskIO = False Exit Function End If ' Disk Configure (HW/SW) info vTemp = ThisDoc.Document.MachineDiskConfigure1 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskConfigure1" ) ValidateDiskIO = False Exit Function End If Elseif iDiskCount = 2 Then vTemp = ThisDoc.Document.MachineDiskSpindles2 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles2" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskSize2 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize2" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskType2 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Type (RAID) Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskType2" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskConfigure2 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskConfigure2" ) ValidateDiskIO = False Exit Function End If Elseif iDiskCount = 3 Then vTemp = ThisDoc.Document.MachineDiskSpindles3 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles3" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskSize3 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize3" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskType3 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Type (RAID) Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskType3" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskConfigure3 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskConfigure3" ) ValidateDiskIO = False Exit Function End If Elseif iDiskCount = 4 Then vTemp = ThisDoc.Document.MachineDiskSpindles4 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Spindle Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSpindles4" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskSize4 If vTemp( 0 ) = 0 Then Messagebox "Required: Disk Size Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskSize4" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskType4 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Type (RAID) Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskType4" ) ValidateDiskIO = False Exit Function End If vTemp = ThisDoc.Document.MachineDiskConfigure4 If vTemp( 0 ) = "" Then Messagebox "Required: Disk Configuration Information", MB_ICONEXCLAMATION, "Machine Identifier" ThisDoc.GoToField( "MachineDiskConfigure4" ) ValidateDiskIO = False Exit Function End If End If End Function '++LotusScript Development Environment:2:1:EntryPresent:1:8 Function EntryPresent( ThisDoc As NotesUIDocument, iRowNum As Integer ) As Integer Dim vTemp As Variant EntryPresent = False ' return success code only if at least one column is filled in (data entry only) If iRowNum = 2 Then ' Disk Spindle info vTemp = ThisDoc.Document.MachineDiskSpindles2 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If ' Disk Size info vTemp = ThisDoc.Document.MachineDiskSize2 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If Elseif iRowNum = 3 Then ' Disk Spindle info vTemp = ThisDoc.Document.MachineDiskSpindles3 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If ' Disk Size info vTemp = ThisDoc.Document.MachineDiskSize3 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If Elseif iRowNum = 4 Then ' Disk Spindle info vTemp = ThisDoc.Document.MachineDiskSpindles4 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If ' Disk Size info vTemp = ThisDoc.Document.MachineDiskSize4 If Isnumeric( vTemp( 0 ) ) = True Then If vTemp( 0 ) > 0 Then EntryPresent = True Exit Function End If End If End If End Function FormNewLocation Edit'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) ' changed from @PostedCommand([EditDocument]) Dim WorkSpace As New NotesUIWorkspace Dim ThisDoc As NotesUIDocument Dim ThisDocBE As NotesDocument Dim vTemp As Variant Set ThisDoc = WorkSpace.CurrentDocument Set ThisDocBE=ThisDoc.Document ThisDoc.EditMode = True ThisDoc.GoToField( "MachineID" ) ' for some reason, not positioning at specified field End Sub FormNewLocation Help^ DSPUG.NSF Table of Contents 4S10S12S13S. FormNewLocation @ mk O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ &!L=gm DataThreetoFive DataDatePerformed DataActivityHour DataRoutedHour DataNumComPorts DataNetworkAdapters DataNumberofCPUs DataAmountofMemory MachineDatePerformed MachineDatePerfomed0 MachineDiskSpindles10 MachineDiskSpindles20 MachineDiskSpindles30 MachineDiskSpindles40 MachineDiskSize10 MachineDiskSize20 MachineDiskSize30 MachineDiskSize40 MachineCost0 MachineCostDate0 $TITLE $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $$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_O MachineDatePerfomed MachineNumberofCPUs MachineAmountofMemory MachineDiskSpindles1 MachineDiskSize1 MachineDiskSpindles2 MachineDiskSize2 MachineDiskSpindles3 MachineDiskSize3 MachineDiskSpindles4 MachineDiskSize4 MachineNumComPorts MachineComPortSpeed MachineNetworkAdapters MachineNetworkAdapterType ClientProfPercent1 ClientProfPercent2 ClientProfPercent3 MachineCost MachineCostDate MachineCreationDate MachineModificationDate $Body $ACTIONS $SCRIPTOBJ_7 $SCRIPTOBJ_8 GraphicButton1 Im?nI @I[R @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ HHHHHHHH RRRRRRRR HotspotRectangle1 Machine Identifier 0S0E Machine Identifier HotspotRectangle2 Vendor Data 0S0E Vendor Data O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ViewMapDataset $ViewMapLayout RepeatCustom RepeatUnit 1S2S3S4S5S6S Weekends RepeatUnit 1S2S3S4S5S6S If the date"occurs on a weekend: RepeatWeekends Don't Move|DMove to Friday|FMove to Monday|MMove to Nearest Weekday|NDelete|X Duration RepeatHow From|UStarting|F StartDateTime StartDateTime RepeatStartDate You must enter a value for start date.{ RepeatStartDate RepeatUnit RepeatHow 1S2S3S4S5S6S RepeatUnit RepeatHow 1S2S3S4S5S6S continuing for StartDate RepeatStartDate RepeatUnit StartDate RepeatUnit StartDate RepeatUnit StartDate RepeatUnit StartDate StartDate RepeatUntil RepeatFor RepeatUnit AppointmentType RepeatUnit 3S4S6S9S10S12S14S17S RepeatForUnit Day(s)|D 1S2S Weeks Week(s)|W 0R1S2S Months Month(s)|M 0R1S2S Years Year(s)|Y 0R1S2S RepeatUnit Weeks Months Years RepeatUnit Weeks Months Years RepeatUnit Months Years Years 0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S New Button Need a newer version of Notes to execute this button. 0S0E thisform = document.forms[0] parentform = window.opener.document.forms[0] items = thisform.elements for (i = 0; i< items.length; i++) if (items[i].name.indexOf("Repeat") >= 0) if (items[i].name == "RepeatHow") radioitem = items[i] for (j = 0; j < radioitem.length; j++) { if (radioitem[j].checked) { parentform.elements[items[i].name].value = radioitem[j].value break } } else parentform.elements[items[i].name].value = items[i].value parentform.OrgRepeat.value = "1" sblf.close() New Button Need a newer version of Notes to execute this button. 0S0E self.close() Cancel O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFB #$GzQ $Info $$Script_O $$ScriptName $$FormAction1 RepeatCustom RepeatStartDate RepeatUntil RepeatFor $Body $PublicAccess o}t4V $Info $$Script_O $$ScriptName $$FormAction1 $Body $SCRIPTOBJ_6 $TITLE $Name $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment $V5ACTIONS $ACTIONS $ViewGlobalScript $ViewGlobalScript_O d^$d# d^$d# f,,k} `}Pb#1 f,,k}`bK f,,j}pb f,,k} g,,k} S_)tW' aY*]c PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Marina Bodik/O=Iris PURSAFO )V#XwIS= $TITLE $Name $Index $Formula $FormulaClass $ViewFormat $Comment $V5ACTIONS $ACTIONS $SCRIPTOBJ_6 $ViewGlobalScript $ViewGlobalScript_O $ACTIONS $SCRIPTOBJ_6 $ViewGlobalScript $ViewGlobalScrbpt_O Machine Identifier GraphicButton1 Im?nI @I[R @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ HHHHHHHH RRRRRRRR HotspotRectangle1% Machine Identifier 0S0E Machine Identifier HotspotRectangle2f Vendor Data 0S0E Vendor Data O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ViewMapDataset $ViewMapLayout Footlight MT Light (List) queryid ListType List O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $$ScriptName $Body OutputInfo Output Database Information: Server: OutputServer OutputFilename Filename: Save Results: OutputSaveResults Create Mail ItemOutput to Database O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Info $$Script_O $$ScriptName $Body DataUServerIDMachine IDDataUScript1Script RunDataUNumberUsers1# Users/SpokesDataUAverageAvg Probe Resp TimeDataUPercentFastFastDataUPercentMediumMediumDataUPercentSlowSlowDataUOther11Activity/HourDataUOther21MB/Hour$1SignatureT FormSigned 1S3S4S6S8S O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment bx$oH O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 5jieO $TITLE $Index $Formula $FormulaClass $ViexFormat $Comment 0S0E Database 'cprent', View 'Vendor Data' Notes Product Development )I^-. PURSAF "[q{[ Notes Domain Certificate PURSAF S_)tW' aY*]c PURSAF Lotus Development Inc 0wmS( PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO +eDcW MachineID 0S0E Sample Vendor Database Notes Product Development )I^-. PURSAF "[q{[ Notes Domain Certificate PURSAF S_)tW' aY*]c PURSAF Lotus Development Inc 0wmS( PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris PURSAFO MachineID PURSAFO "\$)9 $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment Database(List) APERFBELWOODRENT CN=Carol Zimmet/O=IrisCN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris STG29977 STG62896 EXT14562 STG36359 STG38624 EXT35652 STG50266 EXT26427 STG18531 EXT13582 EXT14562PerformChaptDataPerformChart EXT35652DistributeChartDataDistributeChart EXT26427PerformSheetDataPerformSheet EXT13582DistributeSheetDataDistributeSheetVendor Data localOUTPUT.NSFOutput to DatabaseEC4M768 >@Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Vendor Data Output to DatabaseEC4M768 >@Database 9@N@TestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID From Source Call Querymodechange On Event Querysave From Source Call Querysa !:ODL Vendor Data localOUTPUT.NSFOutput to DatabaseEC4M768VTO >@Database ZdKA@ 6@NBTestNSF/IrisTS; Carol Zimmet/Iris0 VTO CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris! MailFlag Server Machine ID Server Machine ID Vendor Data Output to DatabaseEC4M7682\O >@Database =@fffff .@NBTestNSF/IrisTS; Carol Zimmet/Iris0 1\O CN=TestNSF/O=IpisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768} >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 } CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data localOUTPUT.NSFOutput to DatabaseEC4M768; >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 carol zim`etjen step by step; CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris/ MailFlag Server Machine ID -3 Worksheet Vendor Data Output to DatabaseEC4M768 >@Mail & Database ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID reater than 2 characters in length. Vendor Data Output to DatabaseEC4M768 >@Mail & Database ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID ResFilename Vendor Data Output to DatabaseEC4M768 >@Mail & Dapabase NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Save & Close Can't use @isvalid on the web L,l7X Vendor Data localOUTPUT.NSFOutput to DatabaseEC4M768Z4_ >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 Z4_ CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris% MailFlag Server Machine ID Vendor Data localOUTPUT.NSFOutput to DatabaseEC4M768 >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris! MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768!E_ >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 !E_ CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 ?(vb'vb CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Arial VtSurfaceDesc Arial VtCLineItem VtSeries VtSeriesPoint VtSeriesLabel VtSeriesPointElement Elwood4CPU768 Elwood4CPU768 VtTextFormat VtFormatGroup VtFormatter VtDigitSet VtChartTitle Arial Database: Performance VtList VtChSsLink VtDataSourceSsLink a1:m7 PerformSheet VtDataSource VtWindow Average Hits/Minute: Server Comparison Graphs '++LotusScript Development Environment:2:5:(Options):0:74 'Use "vendordata" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click( Source As Button ) Declare Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:3:12 '%INCLUDE "chconsts2.txt" %INCLUDE "chconsts.txt" Sub Click( Source As Button ) Call AMSV( ) End Sub '++LotusScript Development Environment:2:1:FormulateQuery2:1:8 Function FormulateQuery2( ThisDoc As NotesUIDocument ) As String Dim iMinUsers As Integer Dim iMaxUsers As Integer ' first make sure there is some data to process ' search on range of number of users iMinUsers = Cint( .95 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) iMaxUsers = Cint( 1.05 * Cint( ThisDoc.FieldGetText( "DataUNumberUsers1" ) ) ) ' see if there are more machines( same vendor ).... FormulateQuery = " Form = ""Vendor Data"" & DataUServerID <> " & {"} & ThisDoc.FieldGetText( "DataUServerID" ) & {"} & _ " & DataUScript1 = " & {"} & ThisDoc.FieldGetText( "DataUScript1" ) & {"} & " & DataUNumberUsers1 > " & iMinUsers & " & DataUNumberUsers1 < " & iMaxUsers End Function Notes Product Development )I^-. PURSAF "[q{[ Notes Domain Certificate PURSAF S_)tW' aY*]c PURSAF Lotus Development Inc 0wmS( PURSAF O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Carol Zimmet/O=Iris VtChart VtDataGrid VtMatrix VtCollection VtObject VtString Elwood4CPU768 VtValue VtDouble VtBackdrop VtFill VtPicture VtChartFootnote VtChartText VtTextBlock VtFont Arial Footnote VtChartSection VtChartLegend Arial VtChartPlot VtArray VtLight3 VtInfLight3 VtAxis Arial User Count VtAxisScaleBlock VtValueBlock Arial Arial Perform Time( sec ) Arial Arial Secondary Y Axis Title Arial Arial Machine VtSurfaceDesc Arial VtCLineItem VtSeries VtSeriesPoint VtSeriesLabel VtSeriesPointElement Elwood4CPU768 VtTextFormat VtFormatGroup VtFormatter VtDigitSet VtChartTitle Arial Database: Distribution VtList VtChSsLink VtDataSourceSsLink a1:m5 DistributeSheet VtDataSource VtWindow Arial Arial Arial Arial User Count Arial Elwood4CPU768 Arial Database: Performance VtChart VtDataGrid VtMatrix VtCollection VtObject VtString VtValue Item1 VtInteger Item2 Item3 Item4 VtBackdrop VtFill VtPicture VtChartFootnote VtChartText VtTextBlock VtFont Arial Footnote VtChartSection VtChartLegend Arial VtChartPlot VtArray VtLight3 VtInfLight3 VtAxis Arial Response Time Distribution VtAxisScaleBlock VtValueBlock Item4 Arial Arial Probe Frequency VtDouble Arial Arial Secondary Y Axis Title Arial Arial Machine Arial PerformSheet Lotus Spreadsheet Arial1 Arial1 Arial1 Arial1 Arial "$"#,##0_);$"$"#,##0$ "$"#,##0_);[Red]$"$"#,##0$ "$"#,##0.00_);$"$"#,##0.00$ ""$"#,##0.00_);[Red]$"$"#,##0.00$ 0_("$"* #,##0_);$"$"* #,##0$;_("$"* "-"_);_(@_) '_(* #,##0_);$* #,##0$;_(* "-"_);_(@_) 8_("$"* #,##0.00_);$"$"* #,##0.00$;_("$"* "-"??_);_(@_) /_(* #,##0.00_);$* #,##0.00$;_(* "-"??_);_(@_) Sheet1 MbP?_ Page &P # Users Elwood4CPU768~ Elwood4CPU768 1, 2 ) = sVendorName DistributeSheet Lotus Spreadsheet Arial1 Arial1 Arial1 Arial1 Arial "$"#,##0_);$"$"#,##0$ "$"#,##0_);[Red]$"$"#,##0$ "$"#,##0.00_);$"$"#,##0.00$ ""$"#,##0.00_);[Red]$"$"#,##0.00$ 0_("$"* #,##0_);$"$"* #,##0$;_("$"* "-"_);_(@_) '_(* #,##0_);$* #,##0$;_(* "-"_);_(@_) 8_("$"* #,##0.00_);$"$"* #,##0.00$;_("$"* "-"??_);_(@_) /_(* #,##0.00_);$* #,##0.00$;_(* "-"??_);_(@_) Sheet1 MbP?_ Page &P Response Distribution Elwood4CPU768 1 - 3~ 3.1 - 5~ eadsheet with data DistributeSheet.row = 2 temp = SearchMachineDoc.GetItemValue( "DataUFast" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 3 temp = SearchMachineDoc.GetItemValue( "DataUMedium" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 4 temp = SearchMachineDoc.GetItemValue( "DataUSlow" ) DistributeSheet.number = temp( 0 ) DistributeSheet.row = 5 temp = SearchMachineDoc.GetItemValue( "DataUMore" ) DistributeSheet.number = temp( 0 ) End If Next j ' set columns to automatically resize ' *** number of rows should be set to the max, need to resize the spreadsheet DistributeSheet.SetColWidthAuto 1, 1,( iRowCountDistribute + 1 ), 2 , True DistributeSheet.col = 1 DistributeSheet.row = 1 DistributeSheet.showselections = 0 StartRow = 2 StartCol = 1 EndRow =( iOutputCount + StartRow ) - 1 EndCol = 2 ' **************************** ' Distribute Chart Setup '**************************** 'set Distribute chart type to 2d line 'DistributeChart.chartType = CHChartType2dLine 'DistributeChart.chartType = CHChartType2dArea DistributeChart.chartType = 5 DistributeChart.TitleText = ThisDoc.FieldGetText( "DataUScript1" ) + ": Distribution - Comparative Analysis, Same Vendor" DistributeChart.Plot.DataSeriesInRow = False 'reads from a column ' set up the link between spreadsheet and chart iRowCountDistribute = 5 If iColCountDistribute > 12 Then iColCountDistribute = 12 End If Call DistributeChartAssn( iRowCountDistribute,( iColCountDistribute -1 ), ThisDoc ) Dim ThisDocBE As NotesDocument Set ThisDocBE = ThisDoc.Document Call GraphForSave( ThisDoc, ThisDocBE ) Exit Sub ExitNow: Messagebox "Need to Generate Original Distribution Graph", MB_ICONEXCLAMATION, "Graph Distribution Information" Exit Sub End Sub PURSAFO MailFlag Server Machine ID EXT14562Lotus.Chart.1 "Arial Arial Arial Arial Arial Arial System Arial Arial Arial Arial User Count Arial Elwood4CPU768 Arial Database: Performance ppppp `````P PPPPP @@@@@0 00000 f orders created EXT35652Lotus.Chart.1 "Arial Arial Arial Arial Arial Arial System Arial Arial Arial Item1 Item2 Item3 Item4 Arial Response Time Distribution Arial Elwood4CPU768f Arial Database: Distribution# ppppp `````P PPPPP @@@@@0 00000 For the Web Walk er minute, for t ution. EXT26427Lotus.Spreadsheet.1 "Arial "Arial # Users Elwood4CPU768 1.8049999486 3.5699999336 9.8909997946 20.690999986 60.547000896 250.02099616 14S2E15S EXT13582Lotus.Spreadsheet.1 "Arial "Arial Response Distribution Elwood4CPU768 1 - 3 3.1 - 5> Server Machine ID Vendor Data Output to DatabaseRC4M1000\ >@Mail & Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID ssForwardTo AutoProcessUserList AutoProcessUserList Vendor Data Output to DatabaseRC4M1000 >@Mail & Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID cription- Description& Vendor Data Output to DatabaseRC4M1000e >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Type SequenceNum SequenceNum KeepPosted KeepPosted Vendor Data Output to DatabaseRC4M1000 >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmeu/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID (RepeatOpenList) tmpDateSelectedtmpDateListtmpListOfDates1 CN=Ryan Jansen/O=IrisCN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCUA3x default 1.gif CN=William Zircher/O=Iris Plain TextSteNotesLtr0 Vendor Data Output to DatabaseRC4M10004 >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Type$AvailableDaysOtherComments$Times7SaturdayAvailable$Times6FridayAvailable$T Output to DatabaseRENT0Vendor Data011Yes Mail & Database TestNSF/IrisTSCarol Zimmet/Iris >@RC4M5000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID Output to DatabaseRENT0Vendor Data011Yes Mail & Database TestNSF/IrisTSCarol Zimmet/Iris >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID Output to DatabaseRENT0Vendor Data011Yes Mail & Database TestNSF/IrisTSCarol Zimmet/Iris >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID StartTimeReftmpStartDateReftmpEndTimetmpEndDatetmpGridFormattmpStartTimetmpStartDate CN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ResourceResFrameset|ResourceResFrameset#4C CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes TemplateNameTemplateNameC34W CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesu (ChangeRepeat) tmpChangeWhich1 CN=Ryan Jansen/O=IrisCN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCU3 (ChangeRepeat) tmpChangeWhich1 CN=Ryan Jansen/O=IrisCN=Marina Bodik/O=IrisCU3P k/O=IrisCU3P Output to DatabaseRENT0Vendor Data011Yes Mail & Database TestNSF/IrisTSCarol Zimmet/Iris >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine%ID Output to DatabaueRENT0Vendor Data011Yes Mail & Database Zd;&@ TestNSF/IrisTSCarol Zimmet/Iris >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID Output to DatabaseRENT0Vendor Data011Yest Mail & Database TestNSF/IrisTSCarol Zimmet/Iris >@RC4M1000 CN=TestNSE/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID Vendor Data Output to DatabaseRC4M10001#a >@Mail & Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Output to DatabaseRENT0Vendor Data011Yes Mail & Database TestNSF/IrisTSCarol Zimmet/Iris! >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine%ID Output to DatabaueRENT0Vendor Data011Yes Mail & Database @}?5^ TestNSF/IrisTSCarol Zimmet/Iris" >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesv Cz,*# Vendor Data Output to DatabaseRC4M1000 >@Mail & Database ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 # CN=TestNSF%O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID 1S2S3S $TITLE$FormPrivs$FormUsers$Bod Output to DatabaseRENT0Vendor Data011Yesh:a Mail & Database TestNSF/IrisTSCarol Zimmet/Iris$ >@RC4M1000 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris Server Machine ID AnonymousCN=Daffy Duck/O=WarnerCN=Marina Bodik/O=IrisCN=Daffy Duck/O=WarnerCN=Marina Bodik/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSharedFunctionss34Q1 (w QSave Reservation) CN=Marina Bodik/O=IrisfL3u DbTitleDbTitleC34WH CN=Debbie Braeco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes $ACTIONS CN=Debbie Branco/O=IrisCny$ Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 % CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID ($FindReservation)/P=168 ApptUNID ApptUNID Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 & CN=TestNSF/O=IrisUSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID CN=Ryan Jansen/O=IrisCN=Lotus Notes Te Vendor Data Output to DatabaseRC4M1000.Ua >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 ' CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID S1T1V 6S7S8S }Nw*! Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 ( CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes new.GIF new.gifnew.gif34Ci GIF89a ___OOO 1PQK 01357 i5la+o@B1DFHJ >=1?M j:RL{8 ;s$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$ Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 ) CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000,Va >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 * CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Eris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 + CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Mail NBTestNSF/IrisTS; Carol Zimmet/Iris0 , CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000FWa >@Mail |?5^z*@ ,@NBTestNSF/IrisTS; Carol Zimmet/Iris0 - CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Mail *@NBTestNSF/IrisTS; Carol Zimmet/Iris0 . CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Eris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Mail .@NBTestNSF/IrisTS; Carol Zimmet/Iris0 / CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000oXa >@Mail 2@NBTestNSF/IrisTS; Carol Zimmet/Iris0 0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Mail .@NBTestNSF/IrisTS; Carol Zimmet/Iris0 1 ?<<<<<< CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000 >@Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 2 CN=TestNSF/O=ErisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabeseRC4M1000 >@Database @NBTestNSF/IrisTS; Carol Zimmet/Iris0 3 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID sy0^4 Vendor Data Output to DatabaseRC4M1000 >@Database 0 @1 :@NBTestNSF/IrisTS; Carol Zimmet/Iris0 4 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID O=Lotus Notes O=Lotus Notes PURSAFO |.:#U Vendor Data Output to DatabaseRC4M1000 >@Database 8@NBTestNSF/IrisTS; Carol Zimmet/Iris0 5 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID opment Environment:2:5:(Declarations):0:10 'w QSave Reservation: Dim dtCalDat Vendor Data Output to DatabaseRC4M1000 >@Database 6@?5^ 5@NBTestNSF/IrisTS; Carol Zimmet/Iris0 6 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseRC4M1000c >@Database ,@NBTestNSF/IrisTS; Carol Zimmet/Iris0 7 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID $AssistAction_Ex Vendor Data Output to DatabaseEC4M768 >@Mail 7@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=IrisD MailFlag Server Machine ID s New NotesSession Dim note As notesdocument Dim db As Notesdatabase Dim d Vendor Data Output to DatabaseEC4M768 >@Mail 7@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID re Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(D Vendor Data Output to DatabaseEC4M768 >@Mail (\0@F 7@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID End Sub ls93l Vendor Data Output zo DatabaseEC4M768l >@Mail Zd;?1@B` 7@NBTestNSF/IrisTS; Carol Zimmet/Iris0 l CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Mail 6@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Replication Hub NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID v@Vendor Data Output to DatabaseEC4M768J >@Replication Hub NBTestNSF/IrisTS; Carol Zimmet/Iris0 J CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server*Machine ID @Vendor Data Output to DatabaseEC4M768X >@Replijation Hub ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 X CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Machine Identifier0111NOTESPERFORMANCEYesCompaq P4000 4.5aNT 3.51Pentium (P5) 2Any ConfigurationNot Used 0.115 10TCPIP TestNSF/IrisTSJames Grigsby/CAM/LotusCarol Zimmet/IrisJ CN=TestNSF/O=IrisTSCN=James Grigsby/OU=CAM/O=LotusCN=Carol Zimmet/O=Iris @Vendor Data Output to DatabaseEC4M768* >@Replication Hub :@NBTestNSF/IrisTS; Carol Zimmet/Iris0 * CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Resource 0S0E [CreateResource]u @Vendor Data Output to DatabaseEC4M7682 >@Replication Hub (\O$@ 9@NBTestNSF/IrisTS; Carol Zimmet/Iris0 2 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes @Vendor Data Output to DatabaseEC4M768 >@Replication Hub 8@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID s@Vendor Data Output to DatabaseEC4M7683 >@Replication Hub 8@NBTestNSF/IrisTS; Carol Zimmet/Iris0 3 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID sDocument Dim reservation As NotesDocument '++LotusScript Development Environ @Vendor Data Output to DitabaseEC4M768 >@Replication Hub 7@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data localOUTPUT.NSFOutput to DatabaseEC4M768k >@Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 carol zimmetvendoy datak CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID $TITLE $AssistType $AssistLastRun $AssistDocCount $Assist Vendor Data Output to DatabaseEC4M768 >@Database NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID You are Vendor Data Output to DatabaseEC4M768 >@Database :@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $$Script_O $$ScriptName $Body $PublicAccess $Info $$Script_O $$ScriptName $Body Vendor Data Output to DatabaseEC4M768 >@Database 9@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID rce, Resource 0S0E [CreateResource]u @Vendor Data Output to DatabaseEC4M768w >@Replication Hub 8@NBTestNSF/IrisTS; Carol Zimmet/Iris0 w CN=TestNSF/E=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID 0R1S2S6S Server Vendor Data Output to DatabaseEC4M768 >@Mail & Database $@NBTestNSF/IrisTS; Carol Zimmet/Iris0 ?UUUUUU CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID [CreateResource]u Create Reservation0 Reservation 0S0E 4S5S Delete Reservation Server 1S2S6S 0R1S2S6S Server 0R7S8S11S13S14S15S16S17S18S _Move to Folder... _Remove from Folder... Create Mail-in Reservation* Notice 0S0E 4S5S Categori_zeK _Edit Document Send Docu_ment _Forwa Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID PURSAF Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling :@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling 9@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data Output to DatabaseEC4M768 >@Calendar & Scheduling x)+@y 8@NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID new.gif|new.gif? New ReservationKj Pre-5.0 Reservation 13S16R 4S5S NewDoc.gif|NewDoc.gif? New Mail-In ReservationK* Notice 0S0E 4S5S NewDoc.gif|NewDoc.gif? Delete Site ProfileK'++LotusScript Development Enveronment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++Lot Vendor Data ?Output to DatabaseNOTESPERFORMANCEUf^ Web Walker NBadmin/grigsby; Carol Zimmet/Iris0 CN=admin/O=grigsbyCN=Carol Zimmet/O=Iris MailFlag Server Machine ID :0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environme Vendor Data @Output to DatabaseRC4M1000 >@Web Walker NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmeu/O=Iris MailFlag Server Machine ID @Vendor Data @Output to DatabaseRC4M1000E Greupware #1 ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID 4@Vendor Data @Output to DatabaseRC4M1000 Groupware #1 ?NBTestNSF/IrisTS; Carol Zimmet/Iris0 UUUUUU ?UUUUUU ?UUUUUU ?UUUUUU CN=TestNSF/O=IrisTSCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data ?Output to DatabaseNOTESPERFORMANCE Web Walker NBadmin/grigsby; James Grigsby/Iris; Carol Zimmet/Iris0 CN=admin/O=grigsbyCN=James Grigsby/O=IrisCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data ?Output to DatabaseNOTESPERFORMANCE Web Walker NBadmin/grigsby; James Grigsby/Iris; Carol Zimmet/Iris0 CN=admin/O=grigsbyCN=James Grigsby/O=IrisCN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data ?Output to DatabaseNOTESPEUFORMANCE Web Walker NBadmin/grigsby; James Grigsby/Iris; admin/grigsby; Carol Zimmet/Iris0 CN=admin/O=grigsbyCN=James Grigsby/O=IrisCN=admin/O=grigsbyCN=Carol Zimmet/O=Iris MailFlag Server Machine ID es Template Development/O=Lotus Notes Vendor Data T@Output to DatabaseRC4M1000 >@Calendar & Scheduling NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment $V5ACTIONS $ACTIONS $SCRIPTOBJ_10 $ViewGlobalScript $ViewGlobalScript_O $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment $V5ACTIONS $ACTIONS $SCRIPTOBJ_10 $ViewGlobalScript $ViewGlobalScript_O PUUSAFO ; ;a5 $Info $$ScriptName $Body Vendor Data @Output to DatabaseRC4M1000 >@Calendar & Scheduling NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @Output to DatabaseRC4M1000 >@Calendar & Scheduling NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @Output to DatabaseRC4M1000 >@Calendar & Scheduling NECarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID New Reservation by Mail Reservation for ResourceName" Vendor Data @Output to DatabaseRC4M1000 >@Calendar & Scheduling NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID ity of the resource or room you are trying to schedule. The notificetion will tell you if the room or resource was successfully booked or if it was not available at the requested time. Chair: Chair Reserve a: OrgState Room|5Resource|6 OrgState 3S4S Room name to reserve: Vendor Data @Output to DatabaseRC4M1000 >@Calendar & Scheduling NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID enter the number of attendees when reserving a room. tUz`6 Vendor%Data @Output to DatabaseRC4M10006 >@Calendar & Scheduling NBCarol Zimmet/Iris0 6 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Purpose: Vendor Data @Output to DatabaseTC4M2000 Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Send Docu_ment Categori_zeK Vendor Data \@Output to DatabaseTC4M2000X >@Mail NBCarol Zimmet/Iris0 X CN=Carol Zimmet/O=Iris MailFlag Server Machine ID O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $TITLE $AssistType $AssistLastRun $AssistDocCount $Comment $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex 0S0E Create Site ProfileK0 Vendor Data Z@Output to DatabaseTC4M2000 >@Mail NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlae Server Machine ID Vendor Data [@Output to DatabaseTC4M2000= >@Mail NBCarol Zimmet/Iris0 = CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @\@Output to DatabaseTC4M2000 >@Mail NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID PURSAFO Vendor Data \@Output to DatabaseTC4M2000# >@Mail ?333333 NBCarol Zimmet/Iris0 # CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Resource Reservations O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Vendor Data @]@Output to DatabaseTC4M2000 >@Mail NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlae Server Machine ID [CreateResource]u 4S6S7S Vendor Data ]@Output to DatabaseTC4M2000 >@Mail ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID GIF89a Vendor Data J@Output to DatabaseTC4M2000' >@Mail & Database NBCarol Zimmet/Iris0 ' CN=Carol Zimmet/O=Iris MailFlag Server Machine ID CN=Lotus Notes Template Development/O=Lotus Notes Vendor Data E@Output to DatabaseTC4M2000 >@Mail & Database @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID $Info $Body $V5ACTIONS $ACTIONS O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ /JJv] $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Vendor Data ;@Output to DatabaseTC4M2000! >@Mail & Database NBCarol Zimmet/Iris0 ! CN=Carol Zimmet/O=Iris MailFlag Server Machine ID ot note Is Nothing If note.Form(0) = "Resource" Then Vendor Data D@Output to DatabaseTC4M2000 >@Mail & Database ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data F@Output to DatabaseTC4M2000@ >@Mail & Database NBCarol Zimmet/Iris0 @ CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data D@Output to DatabaseTC4M2000 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID NoCache Server names.nsf ($Rooms) 0S0E NoCache Server names.nsf ($Resources) 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotuu Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $DBScript $DBScript_O $TITLE $Flags Vendor Data B@Output to DatabaseTC4M2000 >@Mail & Database @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID 1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As Vendor Data L@Output to DatabaseTC4M2000 >@Mail & Database @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID i=1 To dbc.Count Set note=dbc.GetNthDocument(i) Call ReservationReview(n Vendor Data D@Output to DatabaseTC4M2000* >@Mail & Database @NBCarol Zimmet/Iris0 * CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data I@Output to DatabaseTC4M2000 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data J@Output to DatabaseTC4M2000 >@Mail & Database ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID S_)tW' aY*]c l:18] Vendor Data J@Output to DatabaseTC4M2000 >@Mail & Database @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID new.gif|new.gif? Delete Reser Vendor Data N@Output to DatabaseTC4M2000 >@Mail & Database ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data I@Output to DatabaseTC4M2000 >@Mail & Database @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID [CreateResource]u Create Reservation0 Reservation 0S0E Deeete Reservation Server 1S2S6S 0R1S2S6S Server 0R7S8S11S13S14S15S16S17S18S _Move to Folder... _Remove from Folder... Update Existing ReservationsF (Site) SiteProfile Error A Site Profile has not been created. You must create a Site Profile before running this agent. SiteProfile (UpdateReservations) 18RS8E20RS14E22RS16E31S37RS21E38RS21E 0S0E Categori_zeK _Edit Document Send Docu_ment _Forward 0S0E ksC9#V4 Vendor Data K@Output to DatabaseTC4M20004 >@Mail & Database ?NBCarol Zimmet/Iris0 4 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID PURSAFO Vendor Data L@Output to DatabaseTC4M2000R >@Mail & Database @NBCarol Zimmet/Iris0 R CN=Carol Zimmet/O=Iris MailFlag Server Machine ID PURSAFO Machine Identifier0111TC4M2000YesTupelo/4CPU/2GB 4.6NT 4.0Pentium Pro (P6) 30Any ConfigurationNot Used TCPIP Carol Zimmet/IrisL CN=Carol Zimmet/O=Iris Machine Identifier0111EC2M512YesElwood/2CPU/512MB 4.6NT 4.0Pentium (P5) 10Any ConfigurationNot Used TCPIP Carol Zimmet'Iris CN=Carol Zimmet/O=Iris Machine Identifier0111EC4M768YesElwood/4CPU/768Mem 4.6NT 4.0Pentium (P5) 30Any ConfigurationNot Used TCPIP Carol Zimmet/Iris@ CN=Carol Zimmet/O=Iris Q@Vendor Data e@Output to DatabaseTC4M2000m >@Groupware #1 NBCarol Zimmet/Iris0 m CN=Carol Zimmet/O=Iris MailFlag Server Machine ID $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment C@Vendor Data e@Output to DatabaseTC4M2000 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID ?@Vendor Data `e@Output to DatabaseTC4M2000y >@Groupware #1 NBCarol Zimmet/Iris0 y CN=Carol Zimmet/O=Iris MailFlag Server Machine ID @@Vendor Data `f@Output to DatabaseTC4M2000 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID A@Vendor%Data `p@Output to DatabaseTC4M2000 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data `a@Output to DatabaseEC1M7684 >@Mail NBCarol Zimmet/Iris0 4 CN=Carol Zimmet/O=Iris> MailFlag Server Machine ID Vendor Data pr@Output to DatabaseEC1M768 >@Mail NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris@ MailFlag Vendor Data $z@Output to DatabaseEC1M768 >@Mail NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris6 MailFlag Server Machine ID Vendor Data @Output to DatabaseEC1M768 >@Mail ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris' MailFlag Server Machine ID Vendor Data @Output to DatabaseEC1M768 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Irish MailFlag Server Machine ID 0@Vendor Data @Output to DatabaseEC1M768 >@Groupware #1 t@}?5^ NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris# MailFlag Server Machine ID 1@Vendor Data `b@Output to DatabaseEC1M768 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID 8@Vendor Data c@Output to DatabaseEC1M768 >@Groupware #1 ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Server Machine ID =@Vendor Data @Output to DatabaseEC1M768 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID A@Vendor Data @Output to DatabaseEC1M768 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris! MailFlag Server Machine ID Server Machine ID A@Vendor Data @Output to DatabaseEC1M768 >@Groupware #1 ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris" Vendor Data |@Output to DatabaseEC2M512 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID @Vendor Data a@Output to DatabaseEC2M512p >@Groupware #1 ?333333 NBCarol Zimmet/Iris0 p CN=Carol Zimmet/O=Iris MailFlag Server Machine ID @Vendor Data @[@Output to DatabaseEC2M512 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID &@Vendor Data ^@Output to DatabaseEC2M512q >@Groupware #1 NBCarol Zimmet/Iris0 q CN=Carol Zimmet/O=Iris MailFlag Server Machine ID *@Vendor Data @b@Output to DatabaseEC2M512 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID 1@Vendor Data b@Output to DatabaseEC2M512} >@Groupware #1 NBCarol Zimmet/Iris0 } CN=Carol Zimmet/O=Iris MailFlag Server Machine ID 1@Vendor Data h@Output to DatabaseEC2M512 >@Groupware #1 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID A@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 ?333333 ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID A@Vendor Data @Output to DatabaseEC2M512M >@Groupware #1 ?333333+@ @NBCarol Zimmet/Iris0 M CN=Carol Zimmet/O=Iris MailFlag Server Machine ID C@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID D@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 ?NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID D@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID G@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 @NBCarol Zimmet/Iris0 ?UUUUUU CN=Carol Zimmet/O=Iris MailFlag Server Machine ID {CM8U [@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 @333333 @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID V@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 @NBCarol Zimmet/Iris0 ?ZZZZZZ CN=Carol Zimmet/O=Iris MailFlag Server Machine ID T@Vendor Data @Output to DatabaseEC2M512 >@Groupware #1 &1X[@ @NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data k@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data `a@Output to DatabaseEC2M512, >@Mail & Database NBCarol Zimmet/Iris0 , CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @_@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data `@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data a@Output to DatabaseEC2M512w >@Mail & Database NBCarol Zimmet/Iris0 w CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data `@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor%Data a@Output to DatabaseEC2M512X >@Mail & Database NBCarol Zimmet/Iris0 X CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data b@Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data b@Output to DatabaseEC2M512= >@Mail & Database NBCarol Zimmet/Iris0 = CN=Carol Zimmet/O=Iris MailFlag Server Machine ID TO~-B Vendor Data d@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID D|Wpd Vendor%Data g@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data f@Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data ``@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @u@Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data v@Output to DatabaseEC2M512{ >@Mail & Database NBCarol Zimmet/Iris0 { CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data y@Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data `x@Output to DatabaseEC2M512K >@Mail & Database NBCarol Zimmet/Iris0 K CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data r@Output to DatabaseEC2M512 >@Mail & Database NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data t@Output to DatabaseEC2M512" >@Mail & Database ?ffffff NBCarol Zimmet/Iris0 " CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data {@Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Q{axe Vendor Data y@Output to DatabaseEC2M512w >@Mail & Database NBCarol Zimmet/Iris0 w CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @Output to DatabaseEC2M512 >@Mail & Database ?333333 NBCarol Zimmet/Iris0 CN=Carol Zimmet/O=Iris MailFlag Server Machine ID Vendor Data @Output to DatabaseEC2M512d >@Mail & Database ?333333 NBCarol Zimmet/Iris0 c CN=Carol Zimmet/O=Iris MailFlag Server Machine ID