home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / 123 / TEAMCONS.NTF (.txt) < prev    next >
Lotus Notes Database  |  1997-02-03  |  475KB  |  3,461 lines

  1. TeamConsolidate
  2. #1TeamConsolidate
  3. c:\notes\data\teamcons.ntf
  4. 4ixNY
  5. .K[W+l
  6. ~_#U0
  7. CN=Lotus Notes Template Development/O=Lotus Notes
  8. CN=Beth Brownholtz/OU=CAM/O=Lotus
  9. CN=Robin Alvarez/O=TCGEMINI2
  10. CN=Michael Clark/O=Iris
  11. CN=Robin Alvarez/O=TCGEMINI2CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  12. !##############
  13. $Modified
  14.     1S2S3S
  15. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  16.     0SL1S3724
  17. $TITLE
  18. CN=Cathy Pfeiler/OU=CAM/O=Lotus
  19. ########
  20. .K[W+l
  21. CN=Cathy Pfeiler/O=TCGEMINI2d:\notes\data\teamcons.ntfMain Navigator
  22. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Cathy Pfeiler/O=TCGEMINI2CN=Beth Brownholtz/OU=CAM/O=Lotus######################################################
  23. Document with 1-2-3 WorkbookMain
  24. Form BannerHistory1
  25. BookNameSessionEditorsSessionTimesMain_RemarksMasterStatusNameTitleSourceNameAuthor87279D403CA2742761F3E98F9FE89BD3
  26. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes4536102E4EFA4390E0AFFC0755288B1967843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes###################################
  27. ContributorSecondary
  28. Response FormHistoryC
  29. BookNameSessionEditorsSessionTimesWorkBookNameParentTitleResponse_RemarkContributorEmbeddingEmbeddingDisplayAreaContributorWorksheetTitleNotifyDistributorForContributorsOnlyDistributorCurrentAuthorRestrictedToFormTitleInfoDisplayWorkbookTitle
  30. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  31. MemoMemoC
  32. BodySubjectBlindCopyToCopyToSendToDefaultMailSaveOptionsEncryptSignLogoFrom
  33. CN=Beth Brownholtz/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  34. All Documents|View by Master Contributor
  35. WorksheetTitle"
  36. Title
  37.     3S5S
  38. SessionEditors
  39. Contributor
  40. SessionEditors
  41.     3S4S24S
  42. Temp_Status
  43. Worksheetstatus
  44. StatusX
  45.     1S16S
  46. Temp_Value
  47. Temp_Status
  48. Temp_Status
  49. Temp_Status
  50.     0R1S2S
  51. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  52. Temp_Value
  53. $12$28$26$23$8$10$Conflict$REF
  54. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  55. ###################################
  56. (Internal Consolidate)|(Internal Consolidate)/O
  57.     0S0E
  58. WorksheetTitle
  59. Title
  60.     3S5S
  61. Temp_Status
  62. Worksheetstatus
  63. StatusX
  64.     1S16S
  65. Temp_Value
  66. Temp_Status
  67. Temp_Status
  68. Temp_Status
  69.     0R1S2S
  70. Not Yet Distributed,Data Requested,Partially Consolidated,Consolidation Complete,In Progress,Ready to Consolidate,Do Not Consolidate,Data Requested,Consolidation Complete
  71. Temp_Value
  72. $16$21$20$Conflict$REF
  73. $16Unique ID
  74.     0S0E
  75. $21TitleH
  76. WorksheetTitle
  77. Title
  78.     3S5S
  79. $20Status
  80. Temp_Status
  81. Worksheetstatus
  82. StatusX
  83.     1S16S
  84. Temp_Value
  85. Temp_Status
  86. Temp_Status
  87. Temp_Status
  88.     0R1S2S
  89. Not Yet Distributed,Data Requested,Partially Consolidated,Consolidation Complete,In Progress,Ready to Consolidate,Do Not Consolidate,Data Requested,Consolidation Complete
  90. Temp_Value
  91. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  92. ##########################################################
  93. ~_#U0
  94. By Contributor|View By ContributorZ
  95. Contributor
  96.     0S0E
  97. WorkbookTitle
  98.     0S0E
  99. Temp_Status
  100. Worksheetstatus
  101. Temp_Value
  102. Temp_Status
  103. Temp_Status
  104. Temp_Status
  105.     0R1S2S
  106. In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  107. Temp_Value
  108. $31$33WorksheetTitle$29$17$16$Conflict
  109.     L1S1
  110. $31$33Y
  111. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  112. By Date|View By Date
  113.     0S0E
  114. WorksheetTitle"
  115. Title
  116.     3S5S
  117. SessionEditors
  118. Contributor
  119. SessionEditors
  120.     3S4S24S
  121. Temp_Status
  122. Worksheetstatus
  123. StatusX
  124.     1S16S
  125. Temp_Value
  126. Temp_Status
  127. Temp_Status
  128. Temp_Status
  129.     0R1S2S
  130. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  131. Temp_Value
  132. $21$28$26$23$10$Conflict$REF
  133. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  134. ################################
  135. By Status|View By Status
  136. Data not yet requested,Data requested,Partially consolidated,Consolidation completed
  137. StatusX
  138. WorksheetTitle"
  139. Title
  140.     3S5S
  141. SessionEditors
  142. Contributor
  143. SessionEditors
  144.     3S4S24S
  145. Temp_Status
  146. Worksheetstatus
  147. Temp_Value
  148. Temp_Status
  149. Temp_Status
  150. Temp_Status
  151.     0R1S2S
  152. In Progress,Ready to Consolidate,Do Not Consolidate,Data Requested,Consolidation Complete
  153. Temp_Value
  154. $19$24$22$16$8$10$Conflict$REF
  155. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  156. ########################################
  157. HistoryCUA3
  158. BookNameSessionEditorsSessionTimes
  159. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  160. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################
  161. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################
  162. Form BannerCUA3
  163. Title
  164. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes######################################
  165. Response FormCUA3
  166. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes######
  167. 4ixNY
  168. Main NavigatorG3
  169. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##################
  170. (Parent ID)|ConsolidateButton8
  171. $RefV
  172.     0S0E
  173.     0S0E
  174. Temp_Status
  175. Worksheetstatus
  176. Temp_Value
  177. Temp_Status
  178. Temp_Status
  179. Temp_Status
  180.     0R1S2S
  181. In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  182. Temp_Value
  183. $37$34WorksheetTitle$29$17$16$Conflict
  184.     L1S1
  185. $37$34Y
  186. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes########################################
  187. ##########################################################
  188. ##########################################################
  189. ##########################################################
  190. ##########################################################
  191. ##########################################################
  192. ##########################################################
  193. ##########################################################
  194. ##########################################################
  195. ##########################################################
  196. ##########################################################
  197. ##########################################################
  198. ##########################################################
  199. ##########################################################
  200. ##########################################################
  201. ##########################################################
  202. ##########################################################
  203. ##########################################################
  204. ##########################################################
  205. ##########################################################
  206. ##########################################################
  207. ##########################################################
  208. ##########################################################
  209. ##########################################################
  210. ##########################################################
  211. ##########################################################
  212. ##########################################################
  213. ##########################################################
  214. ##########################################################
  215. ##########################################################
  216. ##########################################################
  217. ##########################################################
  218. ##########################################################
  219. ##########################################################
  220. ##########################################################
  221. ##########################################################
  222. ##########################################################
  223. ##########################################################
  224. ##########################################################
  225. ##########################################################
  226. ##########################################################
  227. ##########################################################
  228. ##########################################################
  229. ##########################################################
  230. O=Lotus Notes
  231. O=Lotus Notes
  232. PURSAFO
  233. |.:#U
  234. O=Lotus Notes
  235. CN=Lotus Notes Template Development/O=Lotus Notes
  236. PURSAFO
  237. Fde!f^^
  238. i\K(.,
  239. $ACLDigest
  240. $Modified
  241.     1S2S3S
  242. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  243.     0SL1S
  244. $TITLE
  245. CN=Cathy Pfeiler/OU=CAM/O=Lotus
  246. CN=Cathy Pfeiler/O=TCGEMINI2 
  247. CN=Beth Brownholtz/O=TCGEMINI2
  248. View by Contributor|Sheets Only
  249. View by Date
  250. View by Status    
  251. History
  252. (Parent ID)|ConsolidateButton
  253. Form Banner
  254. Response Form
  255. Main Navigator
  256. CN=Robin Alvarez/O=TCGEMINI2
  257. By Contributor|Sheets Only    
  258. By Date
  259. By Status
  260. By Status|View By Status
  261. By Date|View By Date
  262. MemoMemo
  263. (Internal Consolidate)|(Internal Consolidate)
  264. By Contributor|View By Contributor
  265. Document with 1-2-3 WorkbookMain
  266. ContributorSecondary
  267. All Documents|View by Master Contributor
  268. 4ixNY
  269. Document with 1-2-3 WorkbookMainR
  270. Brownholtz/OU=CAM/O=Lotus
  271. Document with 1-2-3 WorkbookMainR
  272. CN=Beth Brownholtz/OU=CAM/O=Lotus
  273. MemoMemo
  274. All Do
  275. Brownholtz/OU=CAM/O=Lotus
  276. ContributorSecondary
  277. Document with 1-2-3 WorkbookMain
  278. 2-3 WorkbookMain
  279. All Documents|View by Master Contributor
  280. (Internal Consolidate)|(Internal Consolidate)
  281. Brownholtz/OU=CAM/O=Lotus
  282. MemoMemo
  283. All Documents|View by Master Contrib
  284. MemoMemo
  285. All Documents|View by Master Contrib
  286. ContributorSec
  287. ContributorSecondary
  288. Document with 1-2-3 WorkbookMain
  289. 2-3 WorkbookMain
  290. All Docuolidate)|(Internal Consolidate)
  291. Brownholtz/OU=CAM/O=Lotus
  292. MemoMemo
  293. (Internal Consolidate)|(Internal Consolidate)
  294. By Contributor|View By Contributor
  295. Document with 1-2-3 WorkbookMain
  296. ContributorSecondary
  297. All Documents|View by Master Contributor
  298. er Contributor
  299. er Contributor
  300. 4ixNY
  301. Document with 1-2-3 WorkbookMainR
  302. Brownholtz/OU=CAM/O=Lotus
  303. Document with 1-2-3 WorkbookMainR
  304. CN=Beth Brownholtz/OU=CAM/O=Lotus
  305. MemoMemo
  306. All Do
  307. Brownholtz/OU=CAM/O=Lotus
  308. ContributorSecondary
  309. Document with 1-2-3 WorkbookMain
  310. 2-3 WorkbookMain
  311. All Documents|View by Master Contributor
  312. (Internal Consolidate)|(Internal Consolidate)
  313. Brownholtz/OU=CAM/O=Lotus
  314. MemoMemo
  315. All Documents|View by Master Contrib
  316. MemoMemo
  317. All Documents|View by Master Contrib
  318. ContributorSec
  319. ContributorSecondary
  320. Document with 1-2-3 WorkbookMain
  321. 2-3 WorkbookMain
  322. All Docuolidate)|(Internal Consolidate)
  323. Brownholtz/OU=CAM/O=Lotus
  324. MemoMemo
  325. All Documents|View by Master Contributor
  326. (Internal Consolidate)|(Internal Consolidate)
  327. ContributorSecondary
  328. Document with 1-2-3 WorkbookMain
  329. 2-3 WorkbookMain
  330. 4ixNY
  331. Document with 1-2-3 WorkbookMainR
  332. Brownholtz/OU=CAM/O=Lotus
  333. Document with 1-2-3 WorkbookMainR
  334. CN=Beth Brownholtz/OU=CAM/O=Lotus
  335. MemoMemo
  336. All Do
  337. Brownholtz/OU=CAM/O=Lotus
  338. MemoMemo
  339. All Documents|View by Master Contributor
  340. (Internal Consolidate)|(Internal Consolidate)
  341. ContributorSecondary
  342. Document with 1-2-3 WorkbookMain
  343. 4ixNY
  344. Document with 1-2-3 WorkbookMainR
  345. Brownholtz/OU=CAM/O=Lotus
  346. Document with 1-2-3 WorkbookMainR
  347. CN=Beth Brownholtz/OU=CAM/O=Lotus
  348. MemoMemo
  349. All Do
  350. Brownholtz/OU=CAM/O=Lotus
  351. MemoMemo
  352. CN=Beth Brownholtz/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  353. (Internal Consolidate)|(Internal Consolidate)
  354. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  355. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  356. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  357. By Contributor|View By Contributor
  358. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  359. ~_#U0
  360. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  361. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  362. 4ixNY
  363. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  364. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  365. Document with 1-2-3 WorkbookMain
  366. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  367. ContributorSecondary
  368. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  369. All Documents|View by Master Contributor
  370. CN=Cathy Pfeiler/O=TCGEMINI2CN=Lotus Notes Template Development/O=Lotus Notes
  371. CN=Beth Brownholtz/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  372. MemoMemo
  373. All Documents|View by Master Contrib
  374. MemoMemo
  375. All Documents|View by Master Contrib
  376. ContributorSecondary
  377. Document with 1-2-3 WorkbookMain
  378. 2-3 WorkbookMain
  379. All Documents|View by Master Contributor
  380. (Internal Consolidate)|(Internal Consolidate)
  381. Brownholtz/OU=CAM/O=Lotus
  382. MemoMemo
  383. All Documents|View by Master Contrib
  384. MemoMemo
  385. All Documents|View by Master Contrib
  386. ContributorSec
  387. ContributorSecondary
  388. Document with 1-2-3 WorkbookMain
  389. 2-3 WorkbookMain
  390. All Docuolidate)|(Internal Consolidate)
  391. New Workbook by  
  392. Title
  393.  by "
  394.  with "
  395.  (No Responses)
  396.  (1 Response)
  397.  (% Responses)
  398.     4S5S6S10S14S15S17S21S23S24S25S26S30S32S
  399. &Arial
  400. '++LotusScript Development Environment:2:5:(Options):0:74
  401. Option Public
  402. '++LotusScript Development Environment:2:5:(Forward):0:1
  403. Declare Public Type Assignment
  404. Declare Public Type Request
  405. Declare Function DoRequestAction ()
  406. Declare Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  407. Declare Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  408. Declare Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  409. Declare Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  410. Declare Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  411. '++LotusScript Development Environment:2:5:(Declarations):0:10
  412. ' UI entry points    
  413. ' * * * --> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  414. Const  UIDLL_NAME =   "tcui10en.dll"
  415. ' collect which kind of documents?
  416. Declare Public Function GetConsolidateInfo Lib UIDLL_NAME  Alias "GetConsolidateInfo"  (Byval hInst As Long, pbCompleteOnly As Long, pbDeleteContributions As Long) As Long
  417. ' share now or later
  418. Declare Public Function ShareDocument Lib UIDLL_NAME  Alias "ShareDocument" (Byval hInst As Long) As Long
  419. ' get  is the status of the contribution
  420. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  421. ' which spreadsheet to use, existing or new
  422. Declare Public Function BrowseForSpreadSheet  Lib UIDLL_NAME  Alias "BrowseForSpreadSheet"  (Byval hInst As Long, pFilename As String,  _
  423. pNewOrExsisting As Long,  pTitle As String ) As Long
  424. ' assign worksheets to users
  425. Declare Public Function AssignWorkSheet   Lib UIDLL_NAME  Alias "AssignWorkSheet"  _ 
  426. (Byval hInst As Long, pSheetList As Any, pAssignmentList As Any, pNotifyAssigned As Long, pAccessFlag As Long, pMailMessage As String, pNotifyDistrib As Long ) As Long
  427. ' distributed workbook warning
  428. Declare Public Function DistributeWarning   Lib UIDLL_NAME  Alias "DistributeWarning"  (Byval hInst As Long, pShowAgain As Long) As Long
  429. ' -- constants
  430. ' * * * these constant values should not be changed * * * 
  431. Const EXISTING_FILE = 1
  432. Const NEW_FILE = 2
  433. Const DISTRIBUTE_NOW = 1
  434. Const DISTRIBUTE_LATER = 2
  435. Const CANCEL = 0
  436. Const SUCCESS = 1
  437. Const FAILURE = 2
  438. Const STATUS_IN_PROGRESS = "1"
  439. Const STATUS_READY_CONS = "2"
  440. Const STATUS_DONT_CONS = "3"
  441. Const STATUS_DATA_REQUESTED = "101"
  442. Const STATUS_CONS_IN_MASTER = "102"
  443. Const NOTIFICATION_PENDING =  "1"
  444. Const CONTRIBUTOR_NOTIFIED =  "2"
  445. Const UPDATE_IN_PROGRESS =  "1"
  446. Const UPDATE_COMPLETE = "4"
  447. Const IGNORE = "5"
  448. Const CONSOLIDATED_INTO_MASTER = "6"
  449. Const NOT_YET_DISTRIBUTED =  "1"
  450. Const MASTER_DISTRIBUTED = "2"
  451. Const PARTIALLY_CONSOLIDATED = "3"
  452. Const CONSOLIDATION_COMPLETE =  "4"
  453. Const CONVERT_TO_ARRAY = 1
  454. Const CONVERT_TO_TEXTLIST = 2
  455. ' -- error codes
  456. Const WORKBOOK_PASSWORDED      =  257                       ' 0x101
  457. Const COLLECT_PAGE_NOT_FOUND   =  258                       ' 0x102
  458. ' -- Strings
  459. ' -- Form names 
  460. Const CONTRIBUTOR_FORM = "Secondary"
  461. Const CONTRIBUTOR_FORM_ALIAS = "Contributor"
  462. Const MASTER_FORM = "Main"
  463. Const MEMO_FORM = "Memo"
  464. ' -- View names
  465. Const CONSOLIDATE_VIEW = "(Internal Consolidate)"
  466. ' -- * * * Strings to be translated * * *
  467. Const MAIL_SUBJECT = "You have been assigned sheet --> "                               ' header for the subject of the mail with doc link
  468. Const DOCLINK_TEXT = "Follow this link to your assigned sheet.   "                        ' user sees this when clicking on doclink
  469. Const MSG_ERROR = "Error: "
  470. Const MSG_LOTUS_TITLE          =              "Lotus 1-2-3 97"
  471. Const MSG_SHARING_WORKBOOK = "Sharing 1-2-3 workbook"
  472. Const MSG_REQUEST_COMPLETE =        "1-2-3 has distributed the sheets."
  473. Const MSG_DISTRIB_PASSWORDED =    "Cannot distribute sheets from a passsword-protected master workbook."
  474. Const MSG_EDIT_PASSWORDED       =    " This distributed sheet cannot be edited because its master workbook is password protected."
  475. Const MSG_DISTRIBUTING_SHEET    = "Distributing sheet " 
  476. Const MSG_FYI  = "FYI:  "
  477. Const MSG_NO_EMAIL =  " could not be notified via email at this time."
  478. ' consolidate complete message.  Used in Consolidate/Click
  479. Const  MSG_CONSOLIDATE =  |Consolidation complete.|
  480. Const MSG_DBLCLICK = |Double-click the embedded workbook to see the results.|
  481. Const MSG_REPLICATION_CONFLICT = "Consolidate cannot be done while distributed documents have replication conflicts."
  482. Const MSG_CONSOLIDATE_ERROR = "Error encountered while consolidating sheet "
  483. Const MSG_CONSOLIDATING_SHEET = "Consolidating sheet "
  484. Const MSG_CONSOLIDATE_VIEW_NOT_FOUND = "Cannot complete consolidation: ""Internal Consolidate"" view not found."
  485. Const MSG_CONSOLIDATE_IDS_NOT_FOUND = "Cannot complete consolidation: internal error, Note IDs do not match in view."
  486. Const MSG_CANNOT_OPEN_WRKBOOK = "The 1-2-3 Workbook could not be activated. Try closing the Notes document, returning and trying again."
  487. ' -- * * * End Strings to be translated * * *
  488. ' --- Data structures
  489. Public Type Assignment
  490.      sheetName   As String    ' name of sheet
  491.      assignedTo  As String     ' names of user(s) 
  492.      sheetObject As Long  ' handle to 1-2-3 sheet
  493. End Type 
  494. Public Type Request
  495.      sendMail  As Long        ' send email?
  496.      closedACL As Long      ' acl set to contributor or everyone
  497.      message   As String       ' message to include in email
  498.      notifyDistrib As Long      ' notify distributor on completion?
  499. End Type
  500. ' -- Global variables
  501. Dim DB As NotesDatabase
  502. Dim UIDoc As NotesUIDocument
  503. Dim hInst As Long
  504. Dim hWorkBook As Variant
  505. '++LotusScript Development Environment:2:1:DoRequestAction:4:8
  506. ' this is a subroutine that implements all the "RequestWorkbook Data" action
  507. ' but by having it in a subroutine, it can be invoked via the action and by PostOpen
  508. Function DoRequestAction ()
  509.      
  510.      On Error Goto handler
  511.      
  512.  '     -- Declarations --          
  513.      Dim workSpace As New NotesUIWorkspace
  514.      Dim result As Integer
  515.      
  516.      Dim thisDoc As NotesDocument    
  517.      Set UIDoc = workSpace.CurrentDocument
  518.      Set thisDoc = UIDoc.Document
  519.      
  520.       ' force a save of the document, so the 1-2-3 object get saved before we ask for its list of sheets
  521.      ' because the user could have activated it before doing the Request and didn't save it yet
  522.      UIDoc.Save
  523.      
  524.      Dim Session As New NotesSession
  525.      Set DB = Session.CurrentDatabase
  526.      
  527.      ' get handle to LotusScript instance
  528.      hInst = Lsi_info(4)
  529.      
  530. ' Get the handle to the Master spreadsheet
  531.      
  532.      Set embedObj = GetMasterEmbeddedObject (thisDoc)
  533.      
  534.      If Isempty(hWorkBook) Then         
  535.           Set hWorkBook = UIDoc.GetObject("Master 123 Object")
  536.           ' activate the Master spreadsheet, hidden
  537.        '   Set hWorkBook = embedObj.Activate (False)  
  538.      End If
  539.      
  540.  ' make sure we got back a valid handle
  541.      If Datatype(hWorkBook) <> 9 Then
  542.           Msgbox MSG_CANNOT_OPEN_WRKBOOK 
  543.           Goto Done
  544.      End If
  545.      
  546.      
  547.  ' Ask it for a list of sheets 
  548.      Dim i As Integer
  549.      Dim sheetList (256) As String
  550.      Dim assignmentList(256) As Assignment
  551.      Dim requestInfo As Request    
  552.      
  553.      i = 0
  554.      Forall sheet In hWorkBook.Sheets 
  555.           Dim sheetName As String        
  556.           
  557.           ' put unhidden sheets in the list
  558.           If Not sheet.issheethidden Then
  559.                sheetList(i) = sheet.Name             
  560.                i = i + 1
  561.           End If
  562.           
  563.      End Forall
  564.      
  565.  ' call the UI, which asks the user for the mapping of sheets --> users
  566.      result = AssignWorksheet (hInst, sheetList, assignmentList, requestInfo.sendMail, requestInfo.closedACL, requestInfo.message, requestInfo.notifyDistrib)
  567.      
  568.      ' user cancelled from assign worksheet UI, clear out handle to 1-2-3 workbook. this way if they hit the request button again
  569.      ' before closing the Notes document, everything will work OK.
  570.      If result = CANCEL Then
  571.           hWorkBook = Empty
  572.           Goto Done
  573.      Else
  574.           
  575.           Forall assigned In assignmentList
  576.                
  577.                ' we're done when there are no more sheets
  578.                If assigned.sheetName = "" Then
  579.                     Exit Forall
  580.                     
  581.                Else
  582.                     ' distribute each sheet
  583.                     Call Distribute (hWorkBook, assigned, requestInfo,  DB, thisDoc)
  584.                     
  585.                End If
  586.           End Forall
  587.           
  588.           ' inform the user that the request operation is complete
  589.           Msgbox MSG_REQUEST_COMPLETE, 0 + 64, MSG_LOTUS_TITLE 
  590.      End If
  591.      
  592.      
  593. JustStatus: 
  594.      ' change the status of the master document now that it has been distributed
  595.      ' put the document into edit mode, otherwise we can't update the status
  596.      If UIDoc.EditMode = False Then
  597.           UIDoc.EditMode = True
  598.      End If
  599.      
  600.      hWorkBook = Empty
  601.      thisDoc.Status =  MASTER_DISTRIBUTED
  602.      thisDoc.Save True, False
  603.      
  604.      UIDoc.Reload   
  605.      UIDoc.RefreshHideFormulas
  606.      UIDoc.Save
  607.      
  608.      ' refresh the view so it gets the new documents and status changes
  609.      workSpace.ViewRefresh
  610.      
  611.      UIDoc.Close
  612.      Exit Function
  613.      
  614. handler:
  615.      Msgbox MSG_ERROR  & Error$    
  616.      Goto Done
  617.      
  618. Done:
  619.      
  620. End Function 
  621. '++LotusScript Development Environment:2:2:Distribute:1:8
  622. Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  623.      On Error Goto handler
  624.      
  625. ' -- Declarations --          
  626.      
  627.      Dim newResponse As New NotesDocument (parentDB)
  628.      Dim convertedArray  As Variant 
  629.      Dim contributor As NotesItem
  630.      Dim currAuthor As NotesItem
  631.      Dim canName As Variant
  632.      Dim contributorOnly As NotesItem
  633.      
  634.       ' notify the user that we are distributing sheet X 
  635.      Print MSG_DISTRIBUTING_SHEET ;  assign.sheetName
  636.      
  637.      newResponse.Form = CONTRIBUTOR_FORM
  638.      newResponse.WorksheetTitle = assign.sheetName
  639.      newResponse.WorkbookTitle = thisDoc.Title
  640.      newResponse.SourceName = thisDoc.SourceName
  641.      
  642.      ' convert the list from the ui (comma delimitted) to an array
  643.      convertedArray = StringConvert (assign.assignedTo,  CONVERT_TO_ARRAY)
  644.      
  645.      Set contributor = New NotesItem(newResponse, "Contributor", convertedArray, NAMES)    
  646.      contributor.IsSummary = True                                    ' so it shows up in a view
  647.      
  648.       ' now convert all the name(s) in the contributor field to canonical
  649.      canName = Evaluate("@Name([Canonicalize];Contributor)", newResponse)
  650.      newResponse.ReplaceItemValue "Contributor", canName
  651.      
  652.      ' first New the current author item to get its AUTHORS flag set, just doing the copy doesn't do it
  653.      ' assign the contributor(s)
  654.      Set currAuthor = New NotesItem(newResponse, "CurrentAuthor", canName, AUTHORS)
  655.      
  656.      ' then add the distributor as having author acess as well, otherwise they won't even be able to save the document
  657.      currAuthor.AppendToTextList (thisDoc.Author(0))
  658.      
  659.      ' keep track of who created this document
  660.      Dim distributor As NotesItem
  661.      Set distributor = New NotesItem(newResponse, "Distributor", thisDoc.Author, NAMES)
  662.      distributor.IsSummary =True
  663.      
  664.      ' should the distributor be notified when the user has completed work on this sheet?
  665.      newResponse.NotifyDistributor = requestInfo.notifyDistrib 
  666.      
  667.      newResponse.WorkSheetStatus  = STATUS_DATA_REQUESTED 
  668.      
  669.      ' make a response doc of the current doc
  670.      newResponse.MakeResponse thisDoc
  671.      
  672.       ' by design of the ACL, contributors have Author access to their documents, others can read them only.
  673.      ' if the distributor wanted a closed ACL, then no one else can read the contributor documents either.
  674.      newResponse.ForContributorsOnly = requestInfo.closedACL
  675.      
  676.      If requestInfo.closedACL = 1 Then
  677.           ' put contributors names in the readers field, that will define them as who can read the document
  678.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", newResponse.Contributor, READERS)
  679.           
  680.           ' add the distributor so s/he can read the document too
  681.           contributorOnly.Appendtotextlist thisDoc.Author
  682.           
  683.      Else
  684.           ' not restricted, put a * in the readers field, without this there are disappearing response documents in the view
  685.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", "*", READERS)
  686.           contributorOnly.IsSummary = True                        
  687.      End If
  688.      
  689.      ' create the contributor embedding from a new 1-2-3 workbook
  690.      Set RTItem = New NotesRichTextItem( newResponse, "ContributorEmbedding")
  691.      Dim ContribEmbedObj As NotesEmbeddedObject
  692.      Dim hContributor As Variant
  693.      
  694.      Set ContribEmbedObj = RTItem.EmbedObject( EMBED_OBJECT, "Lotus123.Workbook", "", assign.sheetName)
  695.      
  696.      ' save the new response document
  697.      newResponse.Save True, False
  698.      
  699.     ' activate the contributor spreadsheet, hidden
  700.      Set hContributor = ContribEmbedObj.Activate (False)   'activate hidden
  701.      
  702.     ' distribute sheetName into the new contributor embedding
  703.     ' 1-2-3 will automatically close the document
  704.      hWorkBook.Distribute assign.sheetName,  hContributor.Name             
  705.      
  706.      ' save the new response document
  707.      newResponse.save True, False
  708.      
  709.      ' make the contributor a reader of the Master document, they need at least reader access 
  710.      'or otherwise we won't be able to make this work
  711.      Dim docReaders As notesitem
  712.      If thisDoc.DocReaders(0) = "*" Then
  713.           thisDoc.DocReaders =  ""                           ' just clear it out so appendtotextlist will work the first time
  714.      End If
  715.      
  716.      Set docReaders  = thisDoc.GetFirstItem("DocReaders")
  717.      Forall contribNames In Contributor.Values              
  718.           docReaders.Appendtotextlist( contribNames)
  719.      End Forall
  720.      
  721.      ' save the reader field changes to the master document
  722.      thisDoc.Save True, False
  723. %END REM
  724.      
  725.  ' send an email to the assignees
  726.      
  727.      ' if the user wants email sent, then compose one and mail a doc link to this new response
  728.      If requestInfo.sendMail = 1 Then Goto SendTheMail Else Goto Done
  729.      
  730. SendTheMail:
  731.      Call SendMailWithDocLink(thisDoc, newResponse, assign, requestInfo)
  732.      Goto Done
  733.      
  734. handler:
  735.      Msgbox MSG_ERROR & Error$    
  736.      Resume Next
  737.      
  738. Done:   
  739.      
  740. End Sub
  741. '++LotusScript Development Environment:2:2:SendMailWithDocLink:1:8
  742. Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  743.      
  744.      On Error Goto handler
  745.      
  746.      Dim newDoc As NotesDocument
  747.      Dim subjectString As String
  748.      Dim titleString As String
  749.      Dim contribItem As NotesItem
  750.      Dim linkMessage As String
  751.      
  752.      Set newDoc = New NotesDocument(linkDoc.ParentDatabase)
  753.      newDoc.Form = MEMO_FORM 
  754.      Set BodyItem = New NotesRichTextItem( newDoc, "Body" )
  755.      
  756.      subjectString = parentDoc.Title(0)
  757.      titleString = linkDoc.WorkSheetTitle(0)
  758.      newDoc.Subject = MAIL_SUBJECT + titleString
  759.      
  760.      ' cc: distributor?
  761.      ' newDoc.CopyTo = parentDoc.Author
  762.      
  763.      ' send the mail to all of the contributor(s)
  764.      Set contribItem = linkDoc.GetFirstItem("Contributor")
  765.      newDoc.CopyItem contribItem, "SendTo"
  766.      
  767.      ' compose the doc link popup
  768.      linkMessage = subjectString + "." + titleString
  769.      
  770.      ' compose the body of the email
  771.      BodyItem.AppendText requestInfo.message
  772.      BodyItem.AddNewLine 2
  773.      BodyItem.AppendText DOCLINK_TEXT 
  774.      BodyItem.AppendDocLink linkDoc, linkMessage      
  775.      
  776.      ' send it out
  777.      Call newDoc.Send (False)
  778.      
  779.      Goto Done
  780.      
  781. handler:
  782.      Msgbox MSG_ERROR  & Error$    
  783.      'Resume Next
  784.      Exit Sub
  785.      
  786.      
  787. Done:
  788.      
  789. End Sub
  790. '++LotusScript Development Environment:2:1:StringConvert:1:8
  791. Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  792.      
  793.      Const QUOTE = """"
  794.      Const SEMICOLON = ";"
  795.      Const COMMA = ","
  796.      Const COLON = " : "
  797.      Const BLANK = " "
  798.      Const RESIZE_UNIT = 20
  799.      
  800.      Dim SingleChar As String, MaxStrLen As Integer, LastCharInString As String
  801.      
  802.      If InitialString = "" Then          'if the incoming string is an empty string then
  803.           StringConvert = InitialString    'return back the empty string
  804.           Goto Done
  805.      End If
  806.      
  807.      Select Case ConvertType
  808.      Case CONVERT_TO_TEXTLIST:
  809.           
  810.           Dim TheFinalString As String
  811.           
  812.           'if string is not empty below statements will perform conversion
  813.           
  814.           MaxStrLen = Len(InitialString)          'length of the incoming string 
  815.           TheFinalString = QUOTE                 'Insert quote to begining of string 
  816.           
  817.           For StrIndex = 1 To MaxStrLen
  818.                
  819.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  820.                
  821.                ' comma or semicolon denote the end of one string
  822.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  823.                     
  824.                     TheFinalString = TheFinalString & QUOTE & COLON & QUOTE   'concatenate quote and colon to string if condition met
  825.                     LastCharInString = QUOTE 
  826.                     
  827.                Else
  828.                     
  829.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  830.                     If SingleChar = BLANK And LastCharInString = QUOTE Then
  831.                          Goto NextChar
  832.                     Else
  833.                          
  834.                          TheFinalString = TheFinalString & SingleChar    'concatenate one char at a time
  835.                          LastCharInString = SingleChar
  836.                     End If    
  837.                     
  838.                End If
  839.                
  840. NextChar:
  841.           Next StrIndex
  842.           
  843.           If ConvertType = CONVERT_TO_TEXTLIST Then
  844.                
  845.                TheFinalString = TheFinalString & QUOTE         'Close the final quote
  846.           End If        
  847.           
  848.           
  849.           StringConvert  = TheFinalString
  850.           
  851.           
  852.      Case CONVERT_TO_ARRAY:
  853.           
  854.           Redim FinalString(RESIZE_UNIT) As String
  855.           Dim i, currentBounds  As Integer
  856.           currentBounds = RESIZE_UNIT 
  857.           i = 0
  858.           
  859.           MaxStrLen = Len(InitialString)    'length of the incoming string 
  860.           
  861.           For StrIndex = 1 To MaxStrLen
  862.                
  863.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  864.                
  865.                     ' comma or semicolon denote the end of one string
  866.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  867.                     
  868.                     i = i + 1                                           ' for array, bump to next element
  869.                     
  870.                     ' if we have reached the end of the allocated array, resize by another chunk
  871.                     If i  > currentBounds Then
  872.                          currentBounds = currentBounds + RESIZE_UNIT 
  873.                          Redim Preserve FinalString(currentBounds) As String
  874.                     End If
  875.                     LastCharInString = COMMA
  876.                     
  877.                Else
  878.                     
  879.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  880.                     If SingleChar = BLANK And LastCharInString = COMMA Then
  881.                          Goto ToNextChar
  882.                     Else
  883.                          FinalString(i) = FinalString(i) & SingleChar    'concatenate one char at a time
  884.                          LastCharInString = SingleChar
  885.                     End If    
  886.                     
  887.                End If
  888.                
  889. ToNextChar:
  890.           Next StrIndex                          ' for loop
  891.           
  892.           ' trim the array to just what was needed
  893.           Redim Preserve FinalString(i) As String
  894.           
  895.           StringConvert  = FinalString
  896.           
  897.      End Select
  898.      
  899. Done:
  900.      
  901. End Function            'end of StringConvert
  902. '++LotusScript Development Environment:2:1:ActivateMaster:2:8
  903. ' activate the master embedded object, hidden; returns a handle to the running object
  904. Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  905.      
  906.      Dim hMaster As Variant
  907.      
  908.      Dim thisDoc As NotesDocument
  909.      Set thisDoc = thisUIDoc.Document
  910.      
  911.      
  912.      Dim embedObject As NotesEmbeddedObject
  913.      Set embedObject =  GetMasterEmbeddedObject(thisDoc)
  914.      Set hMaster = embedObject.Activate (False)
  915.      Set ActivateMaster = hMaster
  916.      
  917. End Function
  918. '++LotusScript Development Environment:2:1:GetMasterEmbeddedObject:2:8
  919. ' returns the Notes embedded object for the Master embedding
  920. Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  921.      
  922.      Dim MasterWorkBook As NotesRichTextItem
  923.      Dim MasterItem As Variant
  924.      Dim embedObj As NotesEmbeddedObject
  925.      Dim embedName As NotesItem
  926.      
  927.      Set embedName = thisDoc.GetFirstItem("MasterName")
  928.      Set MasterItem =  thisDoc.GetFirstItem("Master")
  929.      Set MasterWorkBook = MasterItem
  930.      
  931.      Set embedObj = MasterWorkBook.GetEmbeddedObject(embedName.Text)
  932.      
  933.      Set GetMasterEmbeddedObject = embedObj
  934.      
  935. End Function
  936. Contributor
  937.     0S0E
  938.  Main'++LotusScript Development Environment:2:5:(Options):0:66
  939. '++LotusScript Development Environment:2:5:(Forward):0:1
  940. Declare Sub Postopen(Source As Notesuidocument)
  941. '++LotusScript Development Environment:2:5:(Declarations):0:2
  942. '++LotusScript Development Environment:2:2:BindEvents:1:129
  943. Private Sub BindEvents(Byval Objectname_ As String)
  944.      Static Source As NOTESUIDOCUMENT
  945.      Set Source = Bind(Objectname_)
  946.      On Event Postopen From Source Call Postopen
  947. End Sub
  948. '++LotusScript Development Environment:2:2:Postopen:1:12
  949. Sub Postopen(Source As Notesuidocument)
  950.      
  951. ' -- Declarations --      
  952.      Dim newOrExisting As Long
  953.      Dim result As Long    
  954.      Dim Session As New NotesSession
  955.      Dim theTitle As String
  956.      
  957.      Set DB = Session.CurrentDatabase
  958.      Set UIDoc = source
  959.      Dim Doc As New NotesDocument(DB)
  960.      Set Doc = Source.Document
  961.      
  962.      ' Only do all the create processing when the document is new
  963.      If Doc.ISNEWNOTE Then
  964.           
  965.           ' get handle to LotusScript instance, needed to pass to all UI calls
  966.           hInst = Lsi_info(4)
  967.           
  968.           ' declare a new field to track whether they want to see the if you edit this warning which 
  969.            ' is put up on subsequent opens ot this document
  970.           Dim  DontShowWarning As New NotesItem(Doc, "DontShowWarning", 0)
  971.           
  972.           Set RTItem = New NotesRichTextItem( Doc, "Master")
  973.           Dim EmbObj As NotesEmbeddedObject                        
  974.           
  975.           Dim workbookName As String
  976.           Dim masterName As New NotesItem (Doc, "MasterName", "Master 123 Object")
  977.           
  978.           ' get the kind of workbook to embed (new or existing)
  979.           result = BrowseForSpreadSheet (hInst, workbookName, newOrExisting, theTitle)
  980.           If result = CANCEL Then
  981.                ' the user is cancelling the creation of the shared workbook:
  982.                ' close this document and get out. Note:  it was never saved so we don't have to delete it
  983.                UIDoc.Close
  984.                Goto Done
  985.                
  986.           Else 
  987.                ' navigate to the field where we will embed the 1-2-3 object
  988.                UIDoc.GotoField "Master"
  989.                
  990.                ' populate the title field
  991.                Doc.Title = theTitle
  992.                
  993.                ' embedding an existing file
  994.                If newOrExisting = EXISTING_FILE Then  
  995.                     
  996.                     ' save off the filename of the workbook we are creating from
  997.                     Doc.SourceName = workbookName
  998.                     
  999.                     ' create the embedding
  1000.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "", workbookName)
  1001.                     
  1002.                     ' for embedding from file, must call GetObject to actually get a handle to the object
  1003.                     Set hWorkBook = UIDoc.GetObject(masterName.Text)
  1004.                     
  1005.                     ' in case of some kind of timeout, keep trying until we get the handle
  1006. tryAgain:
  1007. '                    If Datatype (hWorkBook)  <> 9 Then
  1008.                     ' datatype 13 is IUnknown, datatype 9 is Ole object and nothing
  1009.                     If Datatype (hWorkBook)  = 13 Then
  1010.                          Set hWorkBook = UIDoc.GetObject(masterName.Text)
  1011.                          Goto tryAgain
  1012.                     End If
  1013.                     
  1014.                     ' let the user know what's happening
  1015.                     Print MSG_SHARING_WORKBOOK 
  1016.                     
  1017.                     ' ask 1-2-3 if this document is OK to share
  1018.                     result = hWorkBook.CreateAsShared
  1019.                     
  1020.                     If result <> SUCCESS Then
  1021.                          
  1022.                          ' can't share password-protected workbooks
  1023.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  1024.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  1025.                               ' remove workbook embedding
  1026.                               doc.RemoveItem("Master")
  1027.                               UIDoc.Close 
  1028.                               Exit Sub
  1029.                          End If
  1030.                          
  1031.                     End If      ' if SUCCESS
  1032.                     
  1033.        '             UIDoc.Save
  1034.                     
  1035.                      ' now that the master workbook is embedded, ask the user if they want to distribute now or later
  1036.                     result = ShareDocument(hInst) 
  1037.                     If result = DISTRIBUTE_NOW Then
  1038.                          ' go to it
  1039.                          result = DoRequestAction()
  1040.                     End If
  1041.                     
  1042.                Else
  1043.                     
  1044.                     ' embeddjng  a NEW 1-2-3 object
  1045.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "Lotus123.Workbook")
  1046.                     
  1047.                      ' ask 1-2-3 if this document is OK to share 
  1048.                     result = hWorkBook.CreateAsShared
  1049.                     
  1050.                     If result <> SUCCESS Then
  1051.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  1052.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  1053.                               ' remove workbook embedding
  1054.                               doc.RemoveItem("Master")
  1055.                               UIDoc.Close
  1056.                               Exit Sub
  1057.                          End If
  1058.                     End If    ' if SUCCESS
  1059.                     
  1060.         '            doc.Save True, False
  1061.                     
  1062.                End If      ' test for create from new or existing workbook
  1063.                
  1064.           End If      ' user hit OK out of select workbook UI
  1065.           
  1066.           ' get the UI sync'ed up with the backend
  1067.           Doc.Save True, False
  1068.           UIDoc.Reload   
  1069.           
  1070.           ' recompute all fields and save it out
  1071.           UIDoc.Refresh
  1072.           UIDoc.Save
  1073.           
  1074.           hWorkBook = empty
  1075.           
  1076.      End If        ' if this is a new document
  1077.      
  1078. Done:
  1079.      
  1080. End Sub
  1081. -,    #}
  1082. -,    ##
  1083. -,    ##
  1084. -,    #}
  1085. '++LotusScript Development Environment:2:5:(Options):0:66
  1086. '++LotusScript Development Environment:2:5:(Forward):0:1
  1087. Declare Sub Initialize
  1088. Declare Sub Entering(Source As Field)
  1089. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1090. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1091. Private Sub BindEvents(Byval Objectname_ As String)
  1092.      Static Source As FIELD
  1093.      Set Source = Bind(Objectname_)
  1094.      On Event Entering From Source Call Entering
  1095. End Sub
  1096. '++LotusScript Development Environment:2:2:Initialize:1:10
  1097. Sub Initialize
  1098.      
  1099. End Sub
  1100. '++LotusScript Development Environment:2:2:Entering:1:12
  1101. Sub Entering(Source As Field)
  1102.      
  1103.      If UIDoc.EditMode = True Then
  1104.           Dim Doc As New NotesDocument(DB)
  1105.           Set Doc = UIDoc.Document
  1106.           
  1107.           ' warn the user that editting this document is risky after its been distributed
  1108.           If doc.Status(0) = MASTER_DISTRIBUTED Then
  1109.                If doc.DontShowWarning(0) = 0 Then
  1110.                     Dim show As Long
  1111.                     show = doc.DontShowWarning(0)
  1112.                     result = DistributeWarning (hInst, show)
  1113.                     doc.DontShowWarning = show
  1114.                     doc.Save  True, False       ' write it out?
  1115.                End If
  1116.           End If
  1117.      End If
  1118.      
  1119. End Sub
  1120. Section Heading
  1121. TeamConsolidate of 1-2-3 Workbook
  1122. FormTitleInfoDisplay
  1123. Author
  1124. SourceNameh
  1125. SourceName
  1126. New 1-2-3 Workbook
  1127.     0S0E
  1128. SourceName
  1129. Form Banner
  1130. wwwwwwwwwwww
  1131. wwwwwwwwwwww
  1132. wwwwwwwwwwww
  1133. wwwwwwwwwwww
  1134. wwwwwwwwwwwwwwwwwwwwwwwww
  1135. wwwwwxwwwwww
  1136. wwwwwxwwwwww
  1137. wxwwppww
  1138. wxwwppww
  1139. wpppwxww
  1140. wpppwxww
  1141. wwwwwxwwwwww
  1142. wwwwwxwwwwww
  1143. wpppwxww
  1144. wpppww
  1145. wwwwww
  1146. wwwwwxwwwwww
  1147. wwwwww
  1148. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  1149. UUUUXwxww
  1150. wpppwxww
  1151. UUUWwxwwwwww
  1152. wwwwwxwwwwwww
  1153. """(]UUU
  1154. """"""""""""""""""""""/
  1155. """""/
  1156. *""""/
  1157.      
  1158. FormTitleInfoDisplay
  1159. FormTitleDisplay
  1160. Subject
  1161. Title
  1162. Regular Style
  1163. Created By:    
  1164. AUTHOR
  1165.     0S0E
  1166. CreateDate
  1167. CreatedTime
  1168. Status:
  1169. Status
  1170.     0S0E
  1171. Status
  1172. Data not yet requested | 1Data requested | 2Partially consolidated | 3Consolidation completed | 4
  1173. Workbook
  1174. Regular Style
  1175.            
  1176. Master
  1177. Remarks
  1178. Main_Remarks
  1179. History
  1180. Sheet History
  1181. Workbook History
  1182.     0S0E
  1183.  History
  1184. Hidden Always
  1185. SessionTimes
  1186. Gets list of editors, including the current editor  from the CurrentEditor field.
  1187. SessionEditors
  1188. Gets list of editors, including the current editor  from the CurrentEditor field.
  1189. Workbook Source File:       
  1190. SourceName
  1191. BookName
  1192. Created by 
  1193. Edited by 
  1194. SessionEditorsj
  1195. SessionEditors
  1196.  on "
  1197. SessionTimesT
  1198. Sunday
  1199. Monday
  1200. Tuesday
  1201. Wednesday
  1202. Thursday
  1203. Friday
  1204. Satday
  1205. SessionTimesO
  1206. January
  1207. February
  1208. March
  1209. April
  1210. August
  1211. September
  1212. October
  1213. November
  1214. December
  1215. SessionTimesP
  1216. SessionTimesN
  1217.  at "
  1218. SessionTimes
  1219.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  1220. * * * END OF DOCUMENT * * *
  1221. Hidden
  1222. Categori_zed
  1223. _Edit Document
  1224. Send Docu_ment
  1225. _Forward
  1226. _Move To Folder...
  1227. _Remove From Folder
  1228. Request Workbook Data
  1229. '++LotusScript Development Environment:2:5:(Options):0:66
  1230. '++LotusScript Development Environment:2:5:(Forward):0:1
  1231. Declare Sub Click(Source As Button)
  1232. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1233. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1234. Private Sub BindEvents(Byval Objectname_ As String)
  1235.      Static Source As BUTTON
  1236.      Set Source = Bind(Objectname_)
  1237.      On Event Click From Source Call Click
  1238. End Sub
  1239. '++LotusScript Development Environment:2:2:Click:1:12
  1240. Sub Click(Source As Button)
  1241.      
  1242.      ' Request data for this master document
  1243.      
  1244.      ' call request action sub to do all the work
  1245.      DoRequestAction
  1246.      
  1247. End Sub
  1248. Status
  1249.     1S2S
  1250. Re-Request Workbook Data'++LotusScript Development Environment:2:5:(Options):0:66
  1251. '++LotusScript Development Environment:2:5:(Forward):0:1
  1252. Declare Sub Click(Source As Button)
  1253. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1254. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1255. Private Sub BindEvents(Byval Objectname_ As String)
  1256.      Static Source As BUTTON
  1257.      Set Source = Bind(Objectname_)
  1258.      On Event Click From Source Call Click
  1259. End Sub
  1260. '++LotusScript Development Environment:2:2:Click:1:12
  1261. Sub Click(Source As Button)
  1262.      
  1263.      ' Re-request data for this master document
  1264.      
  1265.       ' call request action sub to do all the work
  1266.      DoRequestAction
  1267.      
  1268. End Sub
  1269. Status
  1270.     1S2S
  1271. Consolidate Workbook Data
  1272. '++LotusScript Development Environment:2:5:(Options):0:66
  1273. '++LotusScript Development Environment:2:5:(Forward):0:1
  1274. Declare Sub Click(Source As Button)
  1275. Declare Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  1276. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1277. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1278. Private Sub BindEvents(Byval Objectname_ As String)
  1279.      Static Source As BUTTON
  1280.      Set Source = Bind(Objectname_)
  1281.      On Event Click From Source Call Click
  1282. End Sub
  1283. '++LotusScript Development Environment:2:2:Click:1:12
  1284. Sub Click(Source As Button)
  1285.      
  1286.  ' all logic for whether this button should be available or not is done
  1287.  ' in the formula for when to hide the button
  1288.      
  1289.      On Error Goto handler
  1290.      
  1291.  '     -- Declarations --          
  1292.      Dim workSpace As New NotesUIWorkspace
  1293.      Dim result As Integer
  1294.      
  1295.      Dim thisDoc As NotesDocument    
  1296.      Set UIDoc = workSpace.CurrentDocument
  1297.      Set thisDoc = UIDoc.Document
  1298.      
  1299.      Dim responseDoc As NotesDocument
  1300.      Dim view As NotesView    
  1301.      Dim Session As New NotesSession
  1302.      Dim DB As NotesDatabase
  1303.      Dim thisDocInView As NotesDocument
  1304.      Dim done As Integer
  1305.      Dim deleteThisDoc  As Integer
  1306.      
  1307.      Dim totalResponses As Integer
  1308.      Dim totalInProgress As Integer
  1309.      Dim totalCompleted As Integer
  1310.      Dim totalDontConsolidate As Integer
  1311.      
  1312.      Set DB = Session.CurrentDatabase
  1313.      
  1314.      ' see if this document can be consolidated; the function puts up the error if there is one
  1315.      Set view = PrepareForConsolidate(thisDoc, thisDocInView)
  1316.      If view Is Nothing Then
  1317.           Goto Finished
  1318.      End If 
  1319.      
  1320.      ' ask the user which responses they want to consolidate
  1321.      Dim collectStatusStr As String
  1322.      Dim  deleteResponses As Long
  1323.      Dim collectStatus As Long
  1324.      
  1325.      deleteResponses = False
  1326.      collectStatus = True
  1327.      
  1328.      result = GetConsolidateInfo(LSInstance, collectStatus, deleteResponses)
  1329.      collectStatusStr = Cstr(collectStatus)
  1330.      If result = CANCEL Then
  1331.           Goto Finished
  1332.      End If
  1333.      
  1334.      Dim embedName As NotesItem
  1335.      Set embedName = thisDoc.GetFirstItem("MasterName")
  1336.      
  1337.      ' put the document in edit mode, otherwise no changes could be saved to it
  1338.      If UIDoc.EditMode <> True Then
  1339.           UIDoc.EditMode = True
  1340.      End If
  1341.      
  1342.       ' activate the Master spreadsheet, hidden, using the UI document will give better results
  1343.      ' in case the object has already been activated
  1344.      Set hWorkBook = UIDoc.GetObject(embedName.Text)
  1345.      
  1346.      ' start searching for children 
  1347.      Set responseDoc = view.GetChild(thisDocInView)
  1348.      
  1349.      deleteThisDoc = False
  1350.      
  1351.      ' loop through all the children, consolidating only those that meet the user's criteria 
  1352.      While ( Not (responseDoc Is Nothing) And Not done)
  1353.           
  1354.           If  responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  1355.                If collectStatus = 1 Then
  1356.                     If responseDoc.WorkSheetStatus(0) = STATUS_READY_CONS Then
  1357.                          Goto Collect
  1358.                     Else
  1359.                          Goto GoToNext
  1360.                     End If 
  1361.                Else
  1362.                     ' skip do not consolidates and consolidate completed responses
  1363.                     If responseDoc.WorkSheetStatus(0) = STATUS_DONT_CONS Or responseDoc.WorkSheetStatus(0) = STATUS_CONS_IN_MASTER Then
  1364.                          Goto GoToNext
  1365.                     Else
  1366.                          Goto Collect
  1367.                     End If         
  1368.                     
  1369.                End If      
  1370.                
  1371. Collect:
  1372.                'collect the contributor document into this one
  1373.                Print MSG_CONSOLIDATING_SHEET & responseDoc.WorksheetTitle(0)
  1374.                
  1375.                result = hWorkBook.Collect(responseDoc.WorksheetTitle(0), 1)
  1376.                
  1377.                If result = SUCCESS Then
  1378.                     
  1379.                     ' activate the response document's embedding, this will complete the collect operation for this response
  1380.                     Dim WorkSheet As NotesRichTextItem
  1381.                     Dim hWorkSheet As Variant
  1382.                     Dim Item As Variant
  1383.                     Dim WorkSheetEmbedObj As NotesEmbeddedObject
  1384.                     
  1385.                     Set Item =  responseDoc.GetFirstItem("ContributorEmbedding")
  1386.                     Set WorkSheet = Item
  1387.                     
  1388.                     Set WorkSheetEmbedObj = WorkSheet.GetEmbeddedObject(responseDoc.WorksheetTitle(0))
  1389.                     
  1390.                     ' if an error happened while activating the embedding, we'll get a 4005 back
  1391.                     On Error 4005 Goto CantGetHandle
  1392.                     
  1393.                     ' activate the worksheet, hidden
  1394.                     Set hWorkSheet = WorkSheetEmbedObj.Activate (False)  
  1395.                     
  1396.                     If ErrorOnCollect Then
  1397.                          ErrorOnCollect = False
  1398.                          Goto GoToNext             ' skip the rest for this document, it failed, but we want to keep going
  1399.                     End If
  1400.                     
  1401.                     ' remove author access from contributor(s), make the distributor have author access
  1402.                     responseDoc.ReplaceItemValue "CurrentAuthor", responseDoc.Distributor(0)
  1403.                     
  1404.                     ' remove author access from contributor(s), and then make the distributor have author access
  1405.                     responseDoc.RemoveItem("CurrentAuthor")
  1406.                     Dim currAuthor As NotesItem
  1407.                     Dim distributor As NotesItem 
  1408.                     Set distributor = responseDoc.GetFirstItem("Distributor")
  1409.                     Set currAuthor = responseDoc.CopyItem (distributor, "CurrentAuthor")
  1410.                     
  1411.                     ' leave the contributors with read access to their work
  1412.                     ' if the contributors weren't assigned reader access during distribution, then put them on now
  1413.                     If responseDoc.ForContributorsOnly(0)  <> 1 Then
  1414.                          Dim restrictedTo As NotesItem
  1415.                          Set restrictedTo  = responseDoc.GetFirstItem("RestrictedTo")
  1416.                          Dim contributor As NotesItem
  1417.                          Set contributor = responseDoc.GetFirstItem("Contributor")
  1418.                          Forall contribNames In contributor.Values
  1419.                               restrictedTo.Appendtotextlist( contribNames)
  1420.                          End Forall
  1421.                     End If
  1422.                     
  1423.                     responseDoc.WorkSheetStatus = STATUS_CONS_IN_MASTER 
  1424.                     responseDoc.Save True, False
  1425.                     
  1426.                     ' delete response if user requested it (do a delayed delete, otherwise we couldn't use 'responseDoc' anymore
  1427.                     If deleteResponses = 1 Then
  1428.                          deleteThisDoc = True
  1429.                     End If
  1430.                     
  1431.                Else                         
  1432.                     Print MSG_CONSOLIDATE_ERROR  + responseDoc.WorkSheetTitle(0)
  1433.                End If        ' error on collect
  1434.                
  1435.           End If     ' the correct form
  1436.           
  1437. GoToNext:
  1438.           
  1439.           ' count the number of response documents, used for setting status below
  1440.           totalResponses = totalResponses + 1
  1441.           
  1442.           Select Case responseDoc.WorkSheetStatus(0)
  1443.                
  1444.           Case STATUS_CONS_IN_MASTER:
  1445.                totalCompleted = totalCompleted + 1
  1446.                
  1447.           Case STATUS_IN_PROGRESS:
  1448.                totalInProgress = totalInProgress + 1
  1449.                
  1450.           Case STATUS_DONT_CONS:
  1451.                totalDontConsolidate = totalDontConsolidate + 1
  1452.                
  1453.           End Select
  1454.           
  1455.           ' go on to the next response; save the previous one in case it needs to be deleted
  1456.           Dim prevResponse As NotesDocument
  1457.           Set prevResponse = responseDoc
  1458.           Set responseDoc = view.GetNextSibling(responseDoc)
  1459.           
  1460.           If deleteThisDoc = True Then
  1461.                Call prevResponse.Remove (True)                 
  1462.                deleteThisDoc = False
  1463.           End If
  1464.           
  1465.      Wend     ' while more response documents
  1466.      
  1467.      ' now that we are done witht the collect, let 1-2-3 know it
  1468.      hWorkBook.CollectComplete
  1469.      
  1470.      ' change the status for the master document, as long as we processed at least one response
  1471.      ' otherwise, just leave the status what it was when we came in
  1472.      If totalResponses Then
  1473.           If totalCompleted = totalResponses Then
  1474.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  1475.           Elseif totalInProgress Then
  1476.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  1477. '          Elseif totalDontConsolidate Then              
  1478.           Elseif totalDontConsolidate And  ((totalDontConsolidate + totalCompleted) = totalResponses) Then
  1479.  '              thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  1480.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  1481.           Else
  1482.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  1483.           End If
  1484.      End If
  1485.      
  1486.      thisDoc.Save True, False
  1487.      UIDoc.RefreshHideFormulas
  1488.      UIDoc.Save
  1489.      workSpace.ViewRefresh
  1490.      
  1491.       ' inform the user that the consolidation is complete, and tell them to double click on the embedding to see the results
  1492.      ' this is due to a limitation of the Notes script classes which will not update the rendering of the embedding
  1493.      Dim str1 As String
  1494.      Dim str2 As String
  1495.      
  1496.      str1 = MSG_CONSOLIDATE
  1497.      str2 = MSG_DBLCLICK
  1498.      
  1499.      Msgbox str1 & Chr(13) & Chr(13) & str2, 0 + 64,  MSG_LOTUS_TITLE
  1500.      
  1501.      hWorkBook = empty
  1502.      Goto Finished
  1503.      
  1504. CantGetHandle:
  1505.      ' error happened when activating the response embedding to collect it
  1506.      ErrorOnCollect = True
  1507.      Print MSG_CONSOLIDATE_ERROR  & responseDoc.WorksheetTitle(0)
  1508.      hWorkSheet = empty
  1509.      Resume Next
  1510.      
  1511. handler:
  1512.      Msgbox MSG_ERROR & Error$    
  1513.      Goto Finished
  1514.      
  1515. Finished:
  1516.      
  1517. End Sub
  1518. '++LotusScript Development Environment:2:1:PrepareForConsolidate:4:8
  1519. ' prepare this document for consolidate, including making sure there are no replication conflicts
  1520. ' if there are then we will disallow the consolidate
  1521. Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  1522.      
  1523.      Dim view As NotesView
  1524.      Dim responseDoc As NotesDocument
  1525.      
  1526.      ' get the view for conslidating; it must exist
  1527.      Set view = DB.GetView(CONSOLIDATE_VIEW ) 
  1528.      If view Is Nothing Then
  1529.           Messagebox MSG_CONSOLIDATE_VIEW_NOT_FOUND 
  1530.           Goto ErrorDone
  1531.      End If
  1532.      
  1533.      ' search for the document in the view that matches this one; set up the key for searching 
  1534.      ' Note: the order of the keys corresponds to the columns in the view
  1535.      Dim theId As String
  1536.      theId = thisDoc.UniversalID
  1537.      
  1538.      Set thisDocInView = view.GetDocumentByKey(theId)
  1539.      
  1540.      ' make sure the document found _is_ the right one
  1541.      If Strcompare(thisDocInView.UniversalID, thisDoc.UniversalID) <> 0 Then
  1542.           Messagebox MSG_CONSOLIDATE_IDS_NOT_FOUND 
  1543.           Goto ErrorDone
  1544.      Else 
  1545.           
  1546.           ' consolidate is only legal if there are no replication conflicts in any of the children
  1547.           Set responseDoc = view.GetChild(thisDocInView)
  1548.           
  1549.           While ( Not (responseDoc Is Nothing) And Not done)
  1550.                
  1551.                If responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  1552.                     
  1553.                    ' make sure there are no replication conflicts below this one
  1554.                     Dim replicationDoc As NotesDocument
  1555.                     Set replicationDoc = view.GetChild (responseDoc)
  1556.                     
  1557.                     If Not (replicationDoc Is Nothing)  Then
  1558.                          
  1559.                          If replicationDoc.HasItem("$Conflict") Then
  1560.                               
  1561.                               If replicationDoc.Form(0) = CONTRIBUTOR_FORM Then
  1562.                                    Messagebox MSG_REPLICATION_CONFLICT
  1563.                                    Set view = Nothing
  1564.                                    Goto Done
  1565.                               End If 
  1566.                               
  1567.                          End If  ' has conflict
  1568.                          
  1569.                     End If  ' replication doc
  1570.                Else
  1571.                     
  1572.                     If responseDoc.Form(0) = MASTER_FORM  And responseDoc.HasItem("$Conflict") Then
  1573.                          Messagebox MSG_REPLICATION_CONFLICT
  1574.                          Set view = Nothing
  1575.                          Goto Done 
  1576.                     End If
  1577.                End If   ' contributor doc   
  1578.                
  1579.                ' go on to the next response
  1580.                Set responseDoc = view.GetNextSibling(responseDoc)
  1581.                
  1582.           Wend
  1583.           
  1584.      End If
  1585.      
  1586. Done:
  1587.      ' reset the view back to the document we are consolidating into
  1588.      Set view = DB.GetView(CONSOLIDATE_VIEW) 
  1589.      Set thisDocInView = view.GetDocumentByKey(theId)
  1590.      
  1591. ErrorDone:     
  1592.      Set PrepareForConsolidate = view
  1593.      
  1594. End Function
  1595. Status
  1596. NoCache
  1597. ConsolidateButton
  1598. Ready to consolidate
  1599. In progress
  1600.     0S0E
  1601. Detach 1-2-3 Workbook...'++LotusScript Development Environment:2:5:(Options):0:66
  1602. '++LotusScript Development Environment:2:5:(Forward):0:1
  1603. Declare Sub Click(Source As Button)
  1604. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1605. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1606. Private Sub BindEvents(Byval Objectname_ As String)
  1607.      Static Source As BUTTON
  1608.      Set Source = Bind(Objectname_)
  1609.      On Event Click From Source Call Click
  1610. End Sub
  1611. '++LotusScript Development Environment:2:2:Click:1:12
  1612. Sub Click(Source As Button)
  1613.      
  1614.      Dim workSpace As New NotesUIWorkspace
  1615.      Dim hWorkBook As Variant
  1616.      Dim result As Integer
  1617.      Dim embedObject As NotesEmbeddedObject
  1618.      Dim item As Variant
  1619.      Dim MasterWorkBookItem As NotesRichTextItem
  1620.      Dim embedName As NotesItem
  1621.      Dim thisDoc As NotesDocument    
  1622.      
  1623.      Set UIDoc = workSpace.CurrentDocument
  1624.      Set thisDoc = UIDoc.Document
  1625.      
  1626.      ' force a save of the document, so the 1-2-3 object get saved before we try to save it 
  1627.      UIDoc.Save
  1628.      
  1629.      ' get a handle to the embedding
  1630.      Set hWorkBook = UIDoc.GetObject ("Master 123 Object")
  1631.      
  1632.      ' save it out to a file (puts up File SaveAs dialog)
  1633.      result = hWorkBook.SaveToFile()
  1634.      
  1635.      
  1636.      ' old code
  1637.      ' get to the 1-2-3 workbook
  1638. '     Set embedName = thisDoc.GetFirstItem("MasterName")
  1639. '    Set item =  thisDoc.GetFirstItem("Master")
  1640. '     Set MasterWorkBookItem = item
  1641. '     Set embedObject = MasterWorkBookItem.GetEmbeddedObject(embedName.Text)
  1642.      
  1643.      ' activate the 1-2-3 workbook
  1644. '     Set hWorkBook = embedObject.Activate (False)
  1645. '     Set  hWorkBook = Nothing
  1646.      
  1647.      
  1648. End Sub
  1649. Status
  1650.     1S2S2E
  1651. P    P    $
  1652. O=Lotus Notes
  1653. O=Lotus Notes
  1654. PURSAFO
  1655. |.:#U
  1656. O=Lotus Notes
  1657. CN=Lotus Notes Template Development/O=Lotus Notes
  1658. PURSAFO
  1659. Fde!f^^
  1660. $SCRIPTOBJ_10
  1661. CreatedTime
  1662. $TITLE
  1663. $Info
  1664. $SubForms
  1665. $WindowTitle
  1666. $ConflictAction
  1667. $Script
  1668. $$Script_O
  1669. $$ScriptName
  1670. $$FormScript
  1671. $$$FormScript_O
  1672. $$Master
  1673. $Master_O
  1674. SessionTimes
  1675. $Body
  1676. $ACTIONS
  1677. $SCRIPTOBJ_6
  1678. $SCRIPTOBJ_7
  1679. $SCRIPTOBJ_8
  1680. $SCRIPTOBJ_9
  1681. ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$Collection$ViewContainerIconBitmap$TemplateModTime$TemplateServerName$TemplateFileName$DefaultNavigator$Flags$FlagsNoRefresh$SCRIPTOBJ_10CreatedTime$TITLE$Info$SubForms$WindowTitle$ConflictAction$Fonts$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_O$$Master$Master_OAuthorSourceNameTitleNameStatusMasterMain_RemarksSessionTimesSessionEditorsBookName$Fields$Body$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$SCRIPTOBJ_9$$XMB$$XMB_2$$XMB_3$LicenseeCreateTime$AUTOLAUNCHWORKBOOKTITLEFormTitleInfoDisplayRestrictedToCurrentAuthorDistributorForContributorsOnlyNotifyDistributorWorksheetTitleContributorEmbeddingDisplayAreaContributorEmbeddingResponse_RemarkParentTitleWorkbookName$$FormPostOpenAction$TypeIconExpireDateReplyDateComposedDateFromLogoSignEncryptDefaultMailSaveOptionsSendToCopyToBlindCopyToSubjectbody$Index$Collation1$Collation2$ViewFormat$Comment$ViewMapDataset$ViewMapLayout
  1682. EmbeddingDisplayArea
  1683. WorkbookTitle
  1684. NoCache
  1685. (Internal Consolidate)
  1686. $RefV
  1687.  - Sheet 
  1688. WorksheetTitle"
  1689.     24S25S26S
  1690. &Arial
  1691. '++LotusScript Development Environment:2:5:(Options):0:66
  1692. Option Public
  1693. '++LotusScript Development Environment:2:5:(Forward):0:1
  1694. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1695. ' UI entry point
  1696. ' * * *  ---> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  1697. Const  UIDLL_NAME =   "tcui10en.dll"
  1698. ' get  is the status of the contribution
  1699. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  1700. '-- * * *  strings to translate * * * 
  1701. Const MSG_OPENING_123 =  "Opening 1-2-3 object"
  1702. Const MSG_LOTUS_TITLE  = "Lotus 1-2-3 97"
  1703. ' for composing email to Originator
  1704. Const MSG_SHEET = "Sheet"
  1705. Const MSG_READYTOCONS = "marked Ready to consolidate"
  1706. Const MSG_BLANK = " "
  1707. Const MSG_IN = "in"
  1708. Const MSG_MARKED = "has been marked Ready to Consolidate."
  1709. ' user sees this when clicking on doclink
  1710. Const DOCLINK_TEXT =         "Follow this link to the sheet.   "                        
  1711. Const MSG_FYI  = "FYI:  "
  1712. Const MSG_NO_EMAIL =  " could not be notified via email at this time."
  1713. ' -- * * * end strings to translate * * * 
  1714. ' Form names
  1715. Const MEMO_FORM = "Memo"
  1716. ' these values match the values defined in Main/Globals (the master document). They should not be changed
  1717. Const STATUS_IN_PROGRESS = "1"
  1718. Const STATUS_READY_CONS = "2"
  1719. Const STATUS_DONT_CONS = "3"
  1720. Const STATUS_DATA_REQUESTED = "101"
  1721.  Secondary'++LotusScript Development Environment:2:5:(Options):0:66
  1722. '++LotusScript Development Environment:2:5:(Forward):0:1
  1723. Declare Sub Terminate
  1724. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1725. Declare Sub Initialize
  1726. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1727. Declare Sub Postopen(Source As Notesuidocument)
  1728. Declare Function GetSheetStatus As Long
  1729. Declare Sub SendMailToDistributor
  1730. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1731. Dim DocWasSaved As Integer
  1732. Dim UIDoc As NotesUIDocument
  1733. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1734. Private Sub BindEvents(Byval Objectname_ As String)
  1735.      Static Source As NOTESUIDOCUMENT
  1736.      Set Source = Bind(Objectname_)
  1737.      On Event Queryclose From Source Call Queryclose
  1738.      On Event Querysave From Source Call Querysave
  1739.      On Event Postopen From Source Call Postopen
  1740. End Sub
  1741. '++LotusScript Development Environment:2:2:Terminate:1:10
  1742. Sub Terminate
  1743.      
  1744.      Dim workSpace As New NotesUIWorkspace
  1745.      Dim thisDoc As Notesdocument
  1746.      
  1747.      
  1748.      ' if the document was saved, then put up a status dialog
  1749.      If DocWasSaved Then
  1750.           
  1751.           Set thisDoc = UIDoc.Document
  1752.           
  1753.           ' get sheet status from user
  1754.           Dim status As Long
  1755.           status = GetSheetStatus
  1756.           
  1757.           ' should we notify the distributor if the sheet is complete
  1758.           If thisDoc.NotifyDistributor(0) = 1 Then
  1759.                If Cstr(status) = STATUS_READY_CONS Then
  1760.                     SendMailToDistributor   
  1761.                End If
  1762.                
  1763.           End If
  1764.           
  1765.           ' re-save the document
  1766.           thisDoc.Save True, True
  1767.           
  1768.           'update the view
  1769.           workSpace.ViewRefresh
  1770.           
  1771.      End If
  1772.      
  1773. End Sub
  1774. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1775. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1776.      
  1777. End Sub
  1778. '++LotusScript Development Environment:2:2:Initialize:1:10
  1779. Sub Initialize
  1780.      
  1781. End Sub
  1782. '++LotusScript Development Environment:2:2:Querysave:1:12
  1783. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1784.      
  1785.      DocWasSaved = True
  1786.      Set UIDoc = Source
  1787.      
  1788. End Sub
  1789. '++LotusScript Development Environment:2:2:Postopen:1:12
  1790. Sub Postopen(Source As Notesuidocument)
  1791.      
  1792.      ' inform the user (in the status window) that we are opening the 1-2-3 embedding 
  1793.      Print MSG_OPENING_123 
  1794.      
  1795. End Sub
  1796. '++LotusScript Development Environment:2:1:GetSheetStatus:1:8
  1797. Function GetSheetStatus As Long
  1798.      
  1799.      Dim hInst As Long
  1800.      Dim thisDoc As NotesDocument
  1801.      Dim status As Long
  1802.      
  1803.      ' get handle to LotusScript instance
  1804.      hInst = Lsi_info(4)
  1805.      
  1806.      Set thisDoc = UIDoc.Document
  1807.      
  1808.      ' get the existing status, convert it from a string
  1809.      status = Clng(thisDoc.WorkSheetStatus(0))
  1810.      
  1811.      ' if the status is "data requested" then default the dialog to "in progress"
  1812.      If status = Clng(STATUS_DATA_REQUESTED) Then
  1813.           status = Clng(STATUS_IN_PROGRESS)
  1814.      End If
  1815.      
  1816.      ' put up the UI to get the status, the dialog will default to the status passed in
  1817.      GetCollectionStatus hInst, status
  1818.      
  1819.      ' add the status back into the document
  1820.      thisDoc.WorkSheetStatus = Cstr(status)
  1821.      
  1822.      GetSheetStatus = status
  1823.      
  1824. End Function
  1825. '++LotusScript Development Environment:2:2:SendMailToDistributor:1:8
  1826. Sub SendMailToDistributor
  1827.      
  1828.      On Error Goto handler
  1829.      
  1830.      
  1831.      Dim thisDoc As NotesDocument
  1832.      Set thisDoc = UIDoc.Document
  1833.      
  1834.      Dim mailDoc As NotesDocument
  1835.      Set mailDoc = New NotesDocument(thisDoc.ParentDatabase)
  1836.      
  1837.      mailDoc.Form = MEMO_FORM 
  1838.      
  1839.      Set RTItem = New NotesRichTextItem( mailDoc, "Body" )
  1840.      
  1841.      Dim subjectString As String
  1842.      Dim titleString As String
  1843.      
  1844.      '!!! - eabtodo -  make this more efficient by using copyitem calls instead of . notation
  1845.      titleString = thisDoc.WorksheetTitle(0)
  1846.      
  1847.      '  subject = Sheet thisDoc.WorksheetTiltle marked Ready to consolidate"
  1848.      ' subjectString = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  1849.      
  1850.      mailDoc.Subject = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  1851.      mailDoc.SendTo = thisDoc.Distributor(0)
  1852.      
  1853.      Dim linkMessage As String
  1854.      linkMessage = thisDoc.Main_Title(0) + "." + titleString
  1855.      
  1856.      RTItem.AppendText MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_IN + MSG_BLANK + _
  1857.      thisDoc.Main_Title(0) + MSG_BLANK + MSG_MARKED
  1858.      
  1859.      RTItem.AddNewLine 2
  1860.      RTItem.AppendText DOCLINK_TEXT 
  1861.      RTItem.AppendDocLink thisDoc, linkMessage      
  1862.      
  1863.      On Error Goto SendError
  1864.      Call mailDoc.Send (False)
  1865.      
  1866.      Goto Done
  1867.      
  1868. handler:
  1869.      Msgbox MSG_ERROR  & Error$    
  1870.      'Resume Next
  1871.      Exit Sub
  1872.      
  1873. SendError:
  1874.      Messagebox MSG_FYI & thisDoc.Distributor(0) & MSG_NO_EMAIL, MB_OK + MB_ICONINFORMATION, MSG_LOTUS_TITLE
  1875.      Exit Sub
  1876.      
  1877. Done:
  1878.      
  1879. End Sub
  1880. }4    Kp
  1881. Hidden
  1882. WorkbookTitle
  1883. WorkbookTitle
  1884. WorkbookTitle
  1885. NoCache
  1886. (Internal Consolidate)
  1887. $RefV
  1888.     0S0E
  1889. FormTitleInfoDisplay
  1890. RestrictedTo
  1891.     0S0E
  1892. RestrictedToOptioanally lists who has read access to the document.
  1893. CurrentAuthor
  1894. CurrentAuthorList who can currently edit the document.
  1895. Distributor
  1896.     0S0E
  1897. DistributorThe originator of the distribution
  1898. ForContributorsOnly
  1899.     0S0E
  1900. ForContributorsOnlyDocument is restricted to contributors only
  1901. NotifyDistributor
  1902.     0S0E
  1903. NotifyDistributorNotify the distributor when work is comlete on this sheet
  1904. WorksheetTitle
  1905. WorksheetTitle
  1906. Response Form
  1907.   @  
  1908.  @@ @
  1909.  `@ `
  1910. @ @@ 
  1911. @@@@@
  1912. @`@@`
  1913. ` @` 
  1914. `@@`@
  1915. ``@``
  1916. WorksheetTitle
  1917. FormTitleInfoDisplay
  1918. FormTitleDisplay
  1919. WorksheetTitle
  1920. WorksheetTitleDisplay
  1921. Assigned to:
  1922. Contributor
  1923.     0S0E
  1924. Contributor
  1925. CreateDate
  1926. CreateTime
  1927. Sheet Status:
  1928. WorkSheetStatus
  1929.     4S6S
  1930. WorkSheetStatus
  1931. In progress | 1Ready to consolidate | 2Do not consolidate | 3Data requested | 101Consolidated into master | 102
  1932. Contributor Worksheet
  1933.       
  1934. EmbeddingDisplayArea
  1935.       
  1936. ContributorEmbedding
  1937. Remarks
  1938. Response_Remark
  1939. Workbook Information
  1940. Title:    
  1941. FormTitleInfoDisplay
  1942. ParentTitle
  1943. Workbook Source:
  1944.                     
  1945. WorkBookNameh
  1946. WorkBookName
  1947. SourceName
  1948.     0S0E
  1949. WorkBookName
  1950. Workbook Status:    
  1951. NoCache
  1952. (Internal Consolidate)
  1953. $RefV
  1954.     0S0E
  1955. WorkBookStatus
  1956. History
  1957. Sheet History
  1958. Workbook History
  1959.     0S0E
  1960.  History
  1961. Hidden Always
  1962. SessionTimes
  1963. Gets list of editors, including the current editor  from the CurrentEditor field.
  1964. SessionEditors
  1965. Gets list of editors, including the current editor  from the CurrentEditor field.
  1966. Workbook Source File:       
  1967. SourceName
  1968. BookName
  1969. Created by 
  1970. Edited by 
  1971. SessionEditorsj
  1972. SessionEditors
  1973.  on "
  1974. SessionTimesT
  1975. Sunday
  1976. Monday
  1977. Tuesday
  1978. Wednesday
  1979. Thursday
  1980. Friday
  1981. Satday
  1982. SessionTimesO
  1983. January
  1984. February
  1985. March
  1986. April
  1987. August
  1988. September
  1989. October
  1990. November
  1991. December
  1992. SessionTimesP
  1993. SessionTimesN
  1994.  at "
  1995. SessionTimes
  1996.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  1997. * * * END OF DOCUMENT * * *
  1998. Categori_zef
  1999. _Edit Document
  2000. Send Docu_ment
  2001. _Forward
  2002. _Move To Folder...
  2003. _Remove From Folder
  2004. Done'++LotusScript Development Environment:2:5:(Options):0:66
  2005. '++LotusScript Development Environment:2:5:(Forward):0:1
  2006. Declare Sub Click(Source As Button)
  2007. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2008. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2009. Private Sub BindEvents(Byval Objectname_ As String)
  2010.      Static Source As BUTTON
  2011.      Set Source = Bind(Objectname_)
  2012.      On Event Click From Source Call Click
  2013. End Sub
  2014. '++LotusScript Development Environment:2:2:Click:1:12
  2015. Sub Click(Source As Button)
  2016.      
  2017.      Dim workSpace As New NotesUIWorkspace
  2018.      Dim UIDoc As NotesUIDocument
  2019.      
  2020.      Set UIDoc = workSpace.CurrentDocument
  2021.      
  2022.      ' close the document, Notes will prompt for whether to save or not
  2023.      UIDoc.Close
  2024.      
  2025. End Sub
  2026. O=Lotus Notes
  2027. O=Lotus Notes
  2028. PURSAFO
  2029. |.:#U
  2030. O=Lotus Notes
  2031. CN=Lotus Notes Template Development/O=Lotus Notes
  2032. PURSAFO
  2033. Fde!f^^
  2034. CreateTime
  2035. $TITLE
  2036. $AUTOLAUNCH
  2037. $Info
  2038. $SubForms
  2039. $WindowTitle
  2040. $Script
  2041. $$Script_O
  2042. $$ScriptName
  2043. $$FormScript
  2044. $$$FormScript_O
  2045. ForContributorsOnly
  2046. NotifyDistributor
  2047. SessionTimes
  2048. $Body
  2049. $ACTIONS
  2050. $SCRIPTOBJ_6
  2051. Times New Roman
  2052. VersionOpt|
  2053.     6S7S9S14S
  2054. $VersionOpt
  2055.     0R1S2S3S
  2056. SavedOnce
  2057.     0R1S2S3S
  2058. PostedDate(
  2059.     0R1S2S3S
  2060. DeliveredDate
  2061.     0R1S2S3S
  2062. $AutoEditMode
  2063.     0R1S2S3S
  2064. MailSaveOptions
  2065.     0R1S2S3S
  2066. VersionOpt
  2067.     0R4S
  2068. New Memo
  2069. Subject
  2070. Subject
  2071. Subject
  2072.     4S6S12S13S14S15S17S21S23S25S26S28S
  2073. '++LotusScript Development Environment:2:5:(Options):0:74
  2074. Option Public
  2075. %INCLUDE "lsconst.lss"
  2076. '++LotusScript Development Environment:2:5:(Forward):0:1
  2077. Declare Sub InstantiateObjectVariables(source)
  2078. Declare Sub SaveDialog(SavedDoc)
  2079. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2080. Dim w As NotesUIWorkspace
  2081. Dim s As NotesSession
  2082. Dim db As NotesDatabase
  2083. Dim note As NotesDocument
  2084. Dim newnote As NotesDocument
  2085. Dim Action As Variant
  2086. Dim DoNotClose As Variant
  2087. Dim ContinueSave As Variant
  2088. Dim NewDocument As Variant
  2089. '++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
  2090. Sub InstantiateObjectVariables(source)
  2091.      
  2092.      Set w = New NotesUIWorkspace
  2093.      Set s = New NotesSession
  2094.      Set db = s.CurrentDatabase
  2095.      Set note = source.document
  2096.      source.AutoReload = False
  2097.      
  2098. End Sub
  2099. '++LotusScript Development Environment:2:2:SaveDialog:1:8
  2100. Sub SaveDialog(SavedDoc)
  2101.      
  2102.      SavePrompt = Messagebox("Do you wish to save this " & SavedDoc & "?", MB_YESNOCANCEL, "Save " & SavedDoc) 
  2103.      Select Case SavePrompt
  2104.      Case IDCANCEL
  2105.           note.MailOptions = "0"
  2106.           DoNotClose = True
  2107.           ContinueSave = False
  2108.           Exit Sub
  2109.      Case IDNO
  2110.           note.SaveOptions = "0"
  2111.           Exit Sub
  2112.      Case IDYES
  2113.           note.SaveOptions = "1"
  2114.      End Select
  2115.      
  2116. End Sub
  2117. }P    Ih
  2118.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  2119. '++LotusScript Development Environment:2:5:(Forward):0:1
  2120. Declare Sub Postopen(Source As Notesuidocument)
  2121. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2122. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2123. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  2124. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2125. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2126. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2127. Private Sub BindEvents(Byval Objectname_ As String)
  2128.      Static Source As NOTESUIDOCUMENT
  2129.      Set Source = Bind(Objectname_)
  2130.      On Event Postopen From Source Call Postopen
  2131.      On Event Querysave From Source Call Querysave
  2132.      On Event Queryclose From Source Call Queryclose
  2133.      On Event Querymodechange From Source Call Querymodechange
  2134.      On Event Queryopen From Source Call Queryopen
  2135. End Sub
  2136. '++LotusScript Development Environment:2:2:Postopen:1:12
  2137. Sub Postopen(Source As Notesuidocument)
  2138.      
  2139.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  2140.      
  2141.      If note.HasItem("PostedDate") And source.EditMode = False Then
  2142.           Exit Sub  
  2143.      Else
  2144.           If source.InPreviewPane Then
  2145.                Exit Sub
  2146.           Else
  2147.                source.EditMode = True
  2148.           End If
  2149.      End If
  2150.      
  2151.      If source.IsNewDoc Then
  2152.           NewDocument = True
  2153.           EditType = s.GetEnvironmentValue("MailStEd")
  2154. 'EditType 1 = CreateStationery          
  2155.           If EditType = "1" Then
  2156.                note.tmpAction = "SaveAsStationery"
  2157.                note.IsMailStationery = 1
  2158.                Call s.SetEnvironmentVar("MailStEd", "0")
  2159.                note.MailOptions = "0"
  2160.                note.SaveOptions = "1"
  2161.                source.Reload
  2162.                source.RefreshHideFormulas
  2163.           End If
  2164.      Else
  2165.           NewDocument = False
  2166.           If note.HasItem("IsMailStationery") Then
  2167.                EditType = s.GetEnvironmentValue("MailStEd")
  2168. 'EditType 2 = EditStationery
  2169.                If EditType = "2" Then 
  2170.                     Call s.SetEnvironmentVar("MailStEd", "0")
  2171.                     note.MailOptions = "0"
  2172.                     note.SaveOptions = "1"
  2173.                Else
  2174. 'Create a doc from Stationery
  2175.                     note.RemoveItem("IsMailStationery")
  2176.                     note.RemoveItem("MailStationeryName")
  2177.                     Call note.ReplaceItemValue("$VersionOpt", "6")              
  2178.                End If
  2179.           Else
  2180.                EditType = s.GetEnvironmentValue("MailStEd")
  2181. 'EditType 5 = EditNewCopy               
  2182.                If EditType = "5" Then 
  2183.                     Call note.ReplaceItemValue("$VersionOpt", "6")               
  2184.                     Call s.SetEnvironmentVar("MailStEd", "0")
  2185.                End If
  2186.           End If
  2187.           source.Reload
  2188.           source.RefreshHideFormulas
  2189.      End If 
  2190.      
  2191. End Sub
  2192. '++LotusScript Development Environment:2:2:Querysave:1:12
  2193. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2194.      
  2195.      DoNotClose = False
  2196.      
  2197.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  2198.      
  2199. 'Remove these because they are explicitly set in this event     
  2200.      note.RemoveItem("MailOptions")
  2201.      note.RemoveItem("SaveOptions")
  2202.      
  2203.      Action = note.tmpAction
  2204.      
  2205.      If note.HasItem("IsMailStationery") Then
  2206.           If Action(0) <> "RenameStationery" Then
  2207.                ContinueSave = True
  2208.                Call SaveDialog("Stationery")
  2209.                If ContinueSave = False Then
  2210.                     Continue = False
  2211.                     Exit Sub
  2212.                End If
  2213.           End If
  2214.      End If
  2215.      
  2216.      Select Case Action(0)
  2217.      Case "SaveAsStationery"
  2218.           sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
  2219.           If sName = "" Then
  2220.                note.MailOptions = "0"
  2221.                note.RemoveItem("tmpAction")
  2222.                DoNotClose = True
  2223.                Continue = False
  2224.                Exit Sub
  2225.           End If
  2226.           If NewDocument Then
  2227.                note.IsMailStationery = 1
  2228.                note.MailStationeryName = sName
  2229.                note.MailOptions = "0"
  2230.                note.SaveOptions = "1"
  2231.           Else
  2232.                note.SaveOptions = "0"
  2233.                Set newnote = New NotesDocument(db)
  2234.                Call note.CopyAllItems(newnote)
  2235.                ItemList = newnote.Items
  2236.                Forall i In ItemList
  2237.                     If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
  2238.                End Forall
  2239.                newnote.IsMailStationery = 1
  2240.                newnote.MailStationeryName = sName              
  2241.                newnote.Form = "Memo"
  2242.                newnote.RemoveItem("PostedDate")
  2243.                newnote.RemoveItem("DeliveredDate")
  2244.                newnote.Save True, True
  2245.                w.ViewRefresh
  2246.           End If
  2247.           Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
  2248.      Case "RenameStationery"
  2249.           MailStationeryName = note.MailStationeryName
  2250.           sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
  2251.           If sName = "" Then
  2252.                note.MailOptions = "0"
  2253.                note.RemoveItem("tmpAction")
  2254.                DoNotClose = True
  2255.                Continue = False
  2256.                Exit Sub
  2257.           End If
  2258.           note.MailStationeryName = sName
  2259.           note.MailOptions = "0"
  2260.           note.SaveOptions = "1"
  2261.      Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
  2262.           note.MailOptions = "0"
  2263.           note.SaveOptions = "1"
  2264.      Case "Send"
  2265.           note.MailOptions = "0"
  2266.           note.SaveOptions = "0"
  2267.      Case "ManualSave"
  2268.           ContinueSave = True
  2269.           Call SaveDialog("Document")
  2270.           If ContinueSave = False Then
  2271.                Continue = False
  2272.                Exit Sub
  2273.           End If
  2274.      Case "ConvertToTask"
  2275.           note.RemoveItem("DeliveredDate")
  2276.           note.RemoveItem("PostedDate")
  2277.           note.SendTo = ""
  2278.           note.CopyTo = ""
  2279.           note.SaveOptions ="1"
  2280.           note.MailOptions = "0"
  2281.           note.Form = "Task"
  2282.           note.AssignState = 0
  2283.           note.ExcludeFromView = "D"
  2284.           Call note.ReplaceItemValue("_ViewIcon", 168)
  2285.      End Select
  2286.      
  2287.      note.RemoveItem("tmpAction")
  2288.      If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
  2289.      
  2290.      source.Reload
  2291.      
  2292. End Sub
  2293. '++LotusScript Development Environment:2:2:Queryclose:1:12
  2294. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2295.      
  2296.      If DoNotClose Then
  2297.           DoNotClose = False
  2298.           Continue = False
  2299.      End If
  2300.      
  2301. End Sub
  2302. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  2303. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  2304.      
  2305.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  2306.      
  2307. 'The following covers the case where the doc is opened in read mode          
  2308. 'the placed in edit mode.     
  2309. 'See comments in queryopen
  2310.      FromName = note.From
  2311.      If FromName(0) = s.Username Then
  2312.           note.RemoveItem("MailOptions")
  2313.           note.RemoveItem("SaveOptions")
  2314.      Else
  2315.           note.MailOptions = "0"
  2316.           note.SaveOptions = "1"
  2317.           note.tmpAction = "ManualSave"
  2318.      End If
  2319.      
  2320.      source.Reload
  2321.      
  2322. End Sub
  2323. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2324. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2325.      
  2326.      If mode = 0 Then Exit Sub
  2327.      If Isnewdoc Then Exit Sub
  2328.      
  2329.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  2330.      
  2331. 'The following covers the case where the doc is opened in edit mode     
  2332.      
  2333. 'If you wrote this memo remove MailOptions and SaveOptions     
  2334.      FromName = note.From
  2335.      If FromName(0) = s.Username Then
  2336.           note.RemoveItem("MailOptions")
  2337.           note.RemoveItem("SaveOptions")
  2338.      Else
  2339. 'If received by you then you can manually save by not mail          
  2340.           note.MailOptions = "0"
  2341.           note.SaveOptions = "1"
  2342.           note.tmpAction = "ManualSave"
  2343.      End If
  2344.      
  2345. End Sub
  2346. QX    }t
  2347. QX    }t
  2348.     Always Hidden: 
  2349. FromPerson memo is from.
  2350. DefaultLogo
  2351. StdNotesLtrGateway
  2352.     4S9S13S16S18SLogoPerson memo is from.
  2353.     0S0E
  2354.     0S0E
  2355. Encrypt
  2356. MailSaveOptions
  2357.     1S2S3S
  2358. MailSaveOptions
  2359. DefaultMailSaveOptions
  2360.     From:    
  2361. FromDomain
  2362. FromDomain
  2363. FromDomain
  2364. FromDomain
  2365.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  2366. FromName
  2367.     0RR1S2S6S
  2368. FromStops
  2369.     0R1S2S6S
  2370. FromName
  2371. FromStops
  2372.     0RR1S2S3S4S8StmpDisplayFrom_Preview
  2373.      on 
  2374. PostedDateh
  2375. PostedDate
  2376.     7S9S
  2377. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  2378. StdNotesLtr0
  2379. StdNotesLtr16
  2380.     3S4S6S8S9S10S12S14S
  2381. tmpDate
  2382.     4S5S6S8S
  2383.     From:    
  2384. FromDomain
  2385. FromDomain
  2386. FromDomain
  2387. FromDomain
  2388.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  2389. FromName
  2390.     0RR1S2S6S
  2391. FromStops
  2392.     0R1S2S6S
  2393. FromName
  2394. FromStops
  2395.     0RR1S2S3S4S8StmpDisplayFrom_NoLogo
  2396.      on 
  2397. PostedDateh
  2398. PostedDate
  2399.     7S9S
  2400. tmpDisplayDate_NoLogoTime/date memo was created or mailed.
  2401. ReplyDate
  2402. ReplyTo
  2403.     1S2S3S4S5S6S
  2404. Please respond
  2405. ReplyTo
  2406. ReplyTo
  2407. ReplyDate
  2408. ReplyDate
  2409.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  2410. SendTo
  2411. CopyTo
  2412.   cc:  
  2413. CopyTo
  2414.     1S2S8S13S14S2E17S18S21S22S28S31S
  2415.     To:    
  2416. SendTo}
  2417.     0S0E
  2418. SendToList of primary people to send memo.
  2419.     cc:    
  2420. CopyTo}
  2421.     0S0E
  2422. CopyToList of people to send a copy of the memo.
  2423. DeliveredDate
  2424. BlindCopyTo
  2425. (bcc: 
  2426. BlindCopyTo
  2427.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  2428.     bcc:    
  2429. BlindCopyTo
  2430.     0S0E
  2431. BlindCopyToList of undisclosed people to send copies of memo.
  2432.     Subject:    
  2433. PhoneCaller
  2434. Phone Call: 
  2435. PhoneCaller
  2436. Subject
  2437.     7S8S9S11SSubjectSubject of memo.
  2438. PostedDate
  2439. SenderTag
  2440. Moods
  2441.     3S4S5S6S8S9S10S11S14S16S
  2442.     $CONTENT(BEGIN)
  2443.     $CONTENT(END)
  2444. Edit Documentc
  2445. Forwardc 
  2446.     0S0E
  2447. New Memo.
  2448.     0S0E
  2449. Delete 
  2450.     0S0E
  2451. _Move To Folder...
  2452. Delivery Information...
  2453. DeliveryInfo
  2454. Delivery Information
  2455.     4S5S6S7S8S9S10S12S
  2456. _Forward
  2457. Reply
  2458. Reply
  2459.     0S0E
  2460. Reply With History
  2461. Reply with History
  2462. This document is truncated.
  2463.     4S8S10S13S
  2464. Reply with history
  2465. Address... 
  2466.     0S0E
  2467. PostedDateh
  2468.     5S6S7S8S
  2469. CloseI 
  2470.     0S0E
  2471. IsMailStationeryh
  2472. PostedDateh
  2473.     6S7S
  2474. Save As Draft
  2475. tmpAction
  2476. SaveAsDraft
  2477.     1S2S3S
  2478. IsMailStationeryh
  2479. PostedDateh
  2480.     4S5S
  2481. Save and File
  2482.     7S9S
  2483. tmpAction
  2484. SaveAndFile
  2485.     0R1S2S3S
  2486. IsMailStationeryh
  2487. PostedDateY
  2488. PostedDateh
  2489.     4S5S9S10S16S17S18S19S
  2490. SendH
  2491. PromptValue
  2492. DefaultMailSaveOptions
  2493. Save when sent
  2494. Do you wish to save a copy of this Memo?
  2495. DefaultMailSaveOptions
  2496.     1S2S5S6S8S14S17S
  2497. SaveOptions
  2498. PromptValue
  2499. SaveOptions
  2500. PromptValue
  2501.     0R1S2S5S6S9S14S
  2502.     0RR7S9S
  2503. tmpAction
  2504. SaveOptions
  2505. SendAndFile
  2506.     0RR1S2S3S6S7S9S11S
  2507.     0R7S9S
  2508. PostedDateh
  2509. IsMailStationeryh
  2510.     5S6S7S8S10S11S
  2511. Send And File...V
  2512.     4S11S13S19S
  2513.     0RR7S9S
  2514.     0RR7S9S
  2515. tmpAction
  2516. SendAndFile
  2517.     0RR1S2S3S
  2518.     0R7S9S
  2519. PostedDateh
  2520. IsMailStationeryh
  2521.     5S6S7S8S10S11S
  2522. Delivery Options...
  2523. DeliveryOptions
  2524. Delivery Options
  2525.     4S8S
  2526. _ViewIcon
  2527. SenderTag
  2528. SenderTag
  2529. SenderTag
  2530. SenderTag
  2531. SenderTag
  2532. SenderTag
  2533. SenderTag
  2534. SenderTag
  2535. SenderTag
  2536. SenderTag
  2537. SenderTag
  2538.     0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
  2539. PostedDateh
  2540.     5S6S7S8S
  2541. Special Options...6
  2542. ReplyDate
  2543. ReplyDate
  2544.     1S2S3S
  2545. ReplyTo
  2546. ReplyTo
  2547.     0R1S2S3S
  2548. (Advanced Options)
  2549. Special Options
  2550.     0R6S10S13S15S
  2551. tmpDisplayReplyInfo
  2552. Please respond
  2553. ReplyTo
  2554. ReplyTo
  2555. ReplyDate
  2556. ReplyDate
  2557.     0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
  2558. DueDateTime
  2559. ReplyDate
  2560. ReplyDate
  2561.     0R1S2S3S6S7S9S11S
  2562. PostedDateh
  2563.     5S6S7S8S
  2564. Save As Stationery...tn
  2565. tmpAction
  2566. SaveAsStationery
  2567.     1S2S3S
  2568. IsMailStationeryh
  2569.     0S0E
  2570. Convert To Task
  2571. ReplyDate
  2572. Can't Convert To Task
  2573. You cannot convert this message into a Task because it already has a due date associated with it.
  2574.     3S4S6S12S18S
  2575. tmpAction
  2576. ConvertNewDoc
  2577. Unavailable
  2578.     0R1S2S3S7S9S
  2579.     0R4S9S13S
  2580.     0R4S
  2581. _Remove From Folder...
  2582. Categori_ze
  2583. SSend
  2584. O=Lotus Notes
  2585. O=Lotus Notes
  2586. PURSAFO
  2587. |.:#U
  2588. O=Lotus Notes
  2589. CN=Lotus Notes Template Development/O=Lotus Notes
  2590. PURSAFO
  2591. Fde!f^^
  2592. $$FormPostOpenAction
  2593. $TypeIcon
  2594. ExpireDate
  2595. ReplyDate
  2596. ComposedDate
  2597. $TITLE
  2598. $Info
  2599. $WindowTitle
  2600. $Script
  2601. $$Script_O
  2602. $$ScriptName
  2603. $$FormScript
  2604. $$$FormScript_O
  2605. $Body
  2606. $ACTIONS
  2607. WorksheetTitle"
  2608. Title
  2609.     3S5S
  2610. SessionEditors
  2611. Contributor
  2612. SessionEditors
  2613.     3S4S24S
  2614. Temp_Status
  2615. Worksheetstatus
  2616. StatusX
  2617.     1S16S
  2618. Temp_Value
  2619. Temp_Status
  2620. Temp_Status
  2621. Temp_Status
  2622.     0R1S2S
  2623. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2624. Temp_Value
  2625. $12$28$26$23$8$10$Conflict$REF$C1$
  2626. $FormPrivs$F
  2627. $28TitleT
  2628. WorksheetTitle"
  2629. Title
  2630.     3S5S
  2631. $26Contributor(s)
  2632. SessionEditors
  2633. Contributor
  2634. SessionEditors
  2635.     3S4S24S$23Status
  2636. Temp_Status
  2637. Worksheetstatus
  2638. StatusX
  2639.     1S16S
  2640. Temp_Value
  2641. Temp_Status
  2642. Temp_Status
  2643. Temp_Status
  2644.     0R1S2S
  2645. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2646. Temp_Value
  2647. $8Creation Date
  2648. $10Modification Date
  2649. Create 1-2-3 Workbook Document&
  2650. NavigatorsH
  2651. EnvName
  2652. NavigatorState"
  2653.     1S2S
  2654. EnvName
  2655. EnvName
  2656. Main Navigator
  2657. EnvName
  2658.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2659. Categori_zen
  2660. _Edit Document
  2661. Send Docu_ment
  2662. _Forward
  2663. _Move To Folder...
  2664. _Remove From Folder
  2665. O=Lotus Notes
  2666. O=Lotus Notes
  2667. PURSAFO
  2668. |.:#U
  2669. O=Lotus Notes
  2670. CN=Lotus Notes Template Development/O=Lotus Notes
  2671. PURSAFO
  2672. Fde!f^^
  2673. $TITLE
  2674. $Index
  2675. $Formula
  2676. $FormulaClass
  2677. $ViewFormat
  2678. $Comment
  2679. $ACTIONS
  2680. Create Document ...
  2681. Categori_ze
  2682. Navigator
  2683. Main Navigator
  2684.     0S0E
  2685. Standard Folders2
  2686. Main Navigator
  2687.     0S0E
  2688. _Edit Document
  2689. Send Docu_ment
  2690. _Forward
  2691. _Move To Folder...
  2692. _Remove From Folder        
  2693. O=Lotus Notes
  2694. O=Lotus Notes
  2695. PURSAFO
  2696. |.:#U
  2697. O=Lotus Notes
  2698. CN=Lotus Notes Template Development/O=Lotus Notes
  2699. PURSAFO
  2700. Fde!f^^
  2701. $ahAahXH
  2702. $TITLE
  2703. $Index
  2704. $Formula
  2705. $FormulaClass
  2706. $ViewFormat
  2707. $Comment
  2708. $ACTIONS
  2709. Contributor
  2710.     0S0E
  2711. WorkbookTitle
  2712.     0S0E
  2713. Temp_Status
  2714. Worksheetstatus
  2715. Temp_Value
  2716. Temp_Status
  2717. Temp_Status
  2718. Temp_Status
  2719.     0R1S2S
  2720. In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2721. Temp_Value
  2722. $31$33WorksheetTitle$29$17$16$Conflict$C1$
  2723. $31$33
  2724. $31Editor6
  2725. Contributor
  2726.     0S0E
  2727. $33Workbook.
  2728. WorkbookTitle
  2729.     0S0E
  2730. WorksheetTitleSheet$29Status
  2731. Temp_Status
  2732. Worksheetstatus
  2733. Temp_Value
  2734. Temp_Status
  2735. Temp_Status
  2736. Temp_Status
  2737.     0R1S2S
  2738. In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2739. Temp_Value
  2740. $17Modification Date
  2741. $16Creation Date
  2742. Create 1-2-3 Workbook Document&
  2743. NavigatordH
  2744. EnvName
  2745. NavigatorState"
  2746.     1S2S
  2747. EnvName
  2748. EnvName
  2749. Main Navigator
  2750. EnvName
  2751.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2752. Categori_ze
  2753. _Edit Document
  2754. Send Docu_ment
  2755. _Forward
  2756. _Move To Folder...
  2757. _Remove From Foldera
  2758. O=Lotus Notes
  2759. O=Lotus Notes
  2760. PURSAFO
  2761. |.:#U
  2762. O=Lotus Notes
  2763. CN=Lotus Notes Template Development/O=Lotus Notes
  2764. PURSAFO
  2765. Fde!f^^
  2766. $TITLE
  2767. $Index
  2768. $Formula
  2769. $FormulaClass
  2770. $ViewFormat
  2771. $Comment
  2772. $ACTIONS
  2773.     0S0E
  2774. WorksheetTitle"
  2775. Title
  2776.     3S5S
  2777. SessionEditors
  2778. Contributor
  2779. SessionEditors
  2780.     3S4S24S
  2781. Temp_Status
  2782. Worksheetstatus
  2783. StatusX
  2784.     1S16S
  2785. Temp_Value
  2786. Temp_Status
  2787. Temp_Status
  2788. Temp_Status
  2789.     0R1S2S
  2790. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2791. Temp_Value
  2792. $21$28$26$23$10$Conflict$REF$C1$
  2793. View by Date
  2794. CN=Cathy Pfeiler/O=TCGEMINI2
  2795.     0S0E
  2796. WorksheetTitle"
  2797. Title
  2798.     3S5S
  2799. SessionEditors
  2800. Contributor
  2801. SessionEditors
  2802.     3S4S24S
  2803. Temp_Status
  2804. Worksheetstatus
  2805.     0S0E
  2806. $28TitleT
  2807. WorksheetTitle"
  2808. Title
  2809.     3S5S
  2810. $26Contributor
  2811. SessionEditors
  2812. Contributor
  2813. SessionEditors
  2814.     3S4S24S$23Status
  2815. Temp_Status
  2816. Worksheetstatus
  2817. StatusX
  2818.     1S16S
  2819. Temp_Value
  2820. Temp_Status
  2821. Temp_Status
  2822. Temp_Status
  2823.     0R1S2S
  2824. Data not yet requested,Data requested,Partially consolidated,Consolidation completed,In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  2825. Temp_Value
  2826. $10Modification Date
  2827. Create 1-2-3 Workbook Document&
  2828. Categori_ze
  2829. Navigator
  2830. EnvName
  2831. NavigatorState"
  2832.     1S2S
  2833. EnvName
  2834. EnvName
  2835. Main Navigator
  2836. EnvName
  2837.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2838. _Edit Document
  2839. Send Docu_ment
  2840. _Forward
  2841. _Move To Folder...
  2842. _Remove From Folder
  2843. O=Lotus Notes
  2844. O=Lotus Notes
  2845. PURSAFO
  2846. |.:#U
  2847. O=Lotus Notes
  2848. CN=Lotus Notes Template Development/O=Lotus Notes
  2849. PURSAFO
  2850. Fde!f^^
  2851. $TITLE
  2852. $Index
  2853. $Formula
  2854. $FormulaClass
  2855. $ViewFormat
  2856. $Comment
  2857. $ACTIONS
  2858. Data not yet requested,Data requested,Partially consolidated,Consolidation completed
  2859. StatusX
  2860. WorksheetTitle"
  2861. Title
  2862.     3S5S
  2863. SessionEditors
  2864. Contributor
  2865. SessionEditors
  2866.     3S4S24S
  2867. Temp_Status
  2868. Worksheetstatus
  2869. Temp_Value
  2870. Temp_Status
  2871. Temp_Status
  2872. Temp_Status
  2873.     0R1S2S
  2874. In Progress,Ready to Consolidate,Do Not Consolidate,Data Requested,Consolidation Complete
  2875. Temp_Value
  2876. $19$24$22$16$8$10$Conflict$REF$C1$
  2877. Data not yet requested,Data requested,Partially consolidated,Consolidation completed
  2878. StatusX
  2879. $24TitleT
  2880. WorksheetTitle"
  2881. Title
  2882.     3S5S
  2883. $22Contributor
  2884. SessionEditors
  2885. Contributor
  2886. SessionEditors
  2887.     3S4S24S$16Sheet Status
  2888. Temp_Status
  2889. Worksheetstatus
  2890. Temp_Value
  2891. Temp_Status
  2892. Temp_Status
  2893. Temp_Status
  2894.     0R1S2S
  2895. In Progress,Ready to Consolidate,Do Not Consolidate,Data Requested,Consolidation Complete
  2896. Temp_Value
  2897. $8Creation Date
  2898. $10Modification Date
  2899. Create 1-2-3 Workbook Document&
  2900. Categori_ze
  2901. NavigatorCH
  2902. EnvName
  2903. NavigatorState"
  2904.     1S2S
  2905. EnvName
  2906. EnvName
  2907. Main Navigator
  2908. EnvName
  2909.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2910. _Edit Document
  2911. Send Docu_ment
  2912. _Forward
  2913. _Move To Folder...
  2914. _Remove From Folder
  2915. O=Lotus Notes
  2916. O=Lotus Notes
  2917. PURSAFO
  2918. |.:#U
  2919. O=Lotus Notes
  2920. CN=Lotus Notes Template Development/O=Lotus Notes
  2921. PURSAFO
  2922. Fde!f^^
  2923. $TITLE
  2924. $Index
  2925. $Formula
  2926. $FormulaClass
  2927. $ViewFormat
  2928. $Comment
  2929. $ACTIONS
  2930. History'++LotusScript Development Environment:2:5:(Options):0:66
  2931. '++LotusScript Development Environment:2:5:(Forward):0:1
  2932. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2933. Declare Sub Initialize
  2934. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2935. Dim addToFields As Integer
  2936. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2937. Private Sub BindEvents(Byval Objectname_ As String)
  2938.      Static Source As NOTESUIDOCUMENT
  2939.      Set Source = Bind(Objectname_)
  2940.      On Event Querysave From Source Call Querysave
  2941. End Sub
  2942. '++LotusScript Development Environment:2:2:Querysave:1:12
  2943. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2944.      
  2945. REM This script will update the SessionTimes and SessionEditors field with a new element after each edit session.
  2946.      
  2947.      Dim session As New NotesSession        
  2948.      Dim workspace As New NotesUIWorkspace
  2949.      Dim uiDoc As NotesUIDocument
  2950.      Dim currentDoc As NotesDocument
  2951.      Dim dateField As NotesItem
  2952.      Dim nameListItem As NotesItem    
  2953.      
  2954.      Set uiDoc = workspace.CurrentDocument
  2955.      Set currentDoc = uiDoc.Document
  2956.      
  2957.      REM Append the "SessionEditors" field with the current editor of the document.
  2958.      
  2959.      Set nameListItem  = currentDoc.GetFirstItem( "SessionEditors" )         
  2960.      Set dateField        = currentDoc.GetFirstItem( "SessionTimes" )
  2961.      
  2962.      nameArray             = nameListItem.Values
  2963.      dateArray              = dateField.Values
  2964.      
  2965.      If addToFields And (Not uiDoc.IsNewDoc) Then
  2966.           Redim Preserve nameArray(Ubound(nameArray) + 1)
  2967.           Redim Preserve dateArray(Ubound(dateArray) + 1)
  2968.      End If
  2969.      
  2970.      nameArray(Ubound(nameArray)) = session.UserName
  2971.      dateArray(Ubound(dateArray)) = Now
  2972.      
  2973.      If Not uiDoc.IsNewDoc Then
  2974.           nameListItem.Values = nameArray
  2975.           dateField.Values = dateArray
  2976.      End If
  2977.      
  2978.      addToFields = False
  2979.      
  2980. End Sub
  2981. '++LotusScript Development Environment:2:2:Initialize:1:10
  2982. Sub Initialize
  2983.      addToFields = True
  2984. End Sub
  2985. Sheet History
  2986. Workbook History
  2987.     0S0E
  2988. istory
  2989. Hidden Always
  2990. SessionTimes
  2991. Gets list of editors, including the current editor  from the CurrentEditor field.
  2992. SessionEditors
  2993. Gets list of editors, including the current editor  from the CurrentEditor field.
  2994. Workbook Source File:       
  2995. SourceName
  2996. BookName
  2997. Created by 
  2998. Edited by 
  2999. SessionEditorsj
  3000. SessionEditors
  3001.  on "
  3002. SessionTimesT
  3003. Sunday
  3004. Monday
  3005. Tuesday
  3006. Wednesday
  3007. Thursday
  3008. Friday
  3009. Satday
  3010. SessionTimesO
  3011. January
  3012. February
  3013. March
  3014. April
  3015. August
  3016. September
  3017. October
  3018. November
  3019. December
  3020. SessionTimesP
  3021. SessionTimesN
  3022.  at "
  3023. SessionTimes
  3024.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  3025. * * * END OF DOCUMENT * * *
  3026. O=Lotus Notes
  3027. O=Lotus Notes
  3028. PURSAFO
  3029. |.:#U
  3030. O=Lotus Notes
  3031. CN=Lotus Notes Template Development/O=Lotus Notes
  3032. PURSAFO
  3033. Fde!f^^
  3034. C^@ g
  3035. $TITLE
  3036. $Info
  3037. $$Script_O
  3038. $$ScriptName
  3039. $$FormScript
  3040. $$$FormScript_O
  3041. SessionTimes
  3042. $Body
  3043. Times New Roman
  3044. Using TeamConsolidate
  3045. ?_?__
  3046. `!b`1
  3047. 7`^///?
  3048. ?b___
  3049. `bOOO
  3050. `<b!R
  3051. For Designers
  3052.     TeamConsolidate is based on a .DLL and a Notes database template, with forms containing scripts created using the LotusScript language. These scripts are associated with various actions and buttons and use the type libraries, objects, methods, and properties from 1-2-3. The user interface of the TeamConsolidate database is provided by the TeamConsolidate .DLL, TCUI10EN.DLL.
  3053.     TeamConsolidate uses Notes documents with 1-2-3 sheets as embedded objects. You cannot substitute another application for 1-2-3.
  3054.     Access control
  3055.     By default, all users of the TeamConsolidate database receive Author access to prevent unauthorized editing in the database and ensure that the feature functions properly. The originator of a master workbook needs to create the master document. After consolidation,
  3056.     the access rights for the response documents are set to Reader to prevent further change. 
  3057.     The originator can consolidate response documents into the master workbook document, but if you want other users to be able to consolidate, they must have Editor access or higher.
  3058.     Suggestions for modifications
  3059.     You can use all of the TeamConsolidate features without altering the forms and views of a TeamConsolidate database. However, you can add forms, views, and documents to suit your needs. For example, you could change the user interface so that an agent checks to see if distributed sheets are marked ready to consolidate and, if so, automatically initiates the consolidation process. 
  3060.     Scripts
  3061.     To preserve the basic functionality of TeamConsolidate, exercise caution if you edit existing scripts. However, you can add new scripts to the forms to perform various tasks according to your needs. For more information about LotusScript, consult your LotusScript documentation.
  3062.     Views
  3063.     You can add or edit views as you like. However, the TeamConsolidate database contains two hidden views: (Internal Consolidate) and (Parent ID). These are required views that you must not remove or modify. 
  3064.     Forms
  3065.     The TeamConsolidate template contains three forms: Document with 1-2-3 workbook, Contributor, and Memo. 
  3066.     Document with 1-2-3 workbook -- The form containing the master workbook. 
  3067.     Note
  3068.       Do not change the choices for the Status field, which are required for TeamConsolidate to function properly. 
  3069.     Contributor -- The response form that contains the distributed sheet. You can customize this form if you like. For example, you can change this form so that the embedded workbook does not launch automatically when you open a response document. To change this, open the Contributor form, go to the Launch tab in the InfoBox for the form, and deselect "Launch in place." Do not change the choices for the WorkSheetStatus field. These are required for TeamConsolidate to function properly. 
  3070.     Memo -- The standard e-mail form used in most Notes databases. 
  3071.     You can customize any of these forms to suit your needs. For example, you might want to add fields for the project name, due dates, or estimated costs. 
  3072.     Copying master and reponse documents
  3073.     You can copy master documents or databases that contain only master documents, but you should avoid copying response documents. Response documents are linked to their master documents through the $REF field. Therefore, after you distribute sheets, any copies of response documents will refer to the original master document in the original database. 
  3074.     To prevent this confusion, do not use File - Database Copy to make copies of a TeamConsolidate database that has response documents, or use Edit - Copy and Edit - Paste to make copies of response documents. 
  3075.     If you want to make a copy of a database, for example, to use as a boilerplate for a new database, do so before you distribute sheets. 
  3076.     Note
  3077.      If you replicate the database, the correct relationship between response and master documents is preserved. 
  3078.     Replication conflicts
  3079.     If you try to consolidate a response document that has a replication conflict, you will get an error message. To see the documents with replication conflicts, use the view "By Contributor."
  3080.     Editing the "About Database" and "Using Database" documents
  3081.     Change the "About Database" and "Using Database" documents to reflect any changes you make. To edit these documents, choose Design - Other. 
  3082. For Users
  3083. Overview: Distributing workbooks with TeamConsolidate
  3084.     TeamConsolidate lets you distribute workbook sheets in a Lotus Notes database to request data or modifications from contributors. After they make changes, you can consolidate these sheets back into your original workbook. 
  3085.     For example, suppose you're using 1-2-3 to track expenses on a project involving several departments. You can create a workbook containing a sheet for each department. Using this database, you distribute each sheet to people in each department. They make updates and additions and then you can consolidate the changes into the original workbook. Storing the workbook in a Notes database makes the information available to everyone--even people at different locations--and can help you track changes over time.
  3086.     How to distribute sheets and consolidate changes into your original document
  3087.     The process for distributing the sheets of a workbook to contributors involves a single distributor and any number of contributors. The general procedure is outlined below. 
  3088.     A person familiar with designing and administering Notes databases sets up a Notes database that will contain the master workbooks and distributed sheets. This database must use the TeamConsolidate template, named TEAMCONS.NTF, which comes with 1-2-3. 
  3089.     The originator opens the Notes database in which to store the workbook.
  3090.     In the database, the originator chooses Create - 1-2-3 Workbook Document, and either creates a new workbook or opens an existing one. 
  3091.     Next, the originator assigns individual sheets of the workbook to one or more contributors and notifies contributors in an e-mail message.
  3092.     Next, contributors open the Notes database and edit the distributed sheets. When contributors finish adding data, they mark their documents as ready for consolidation and save them back to the Notes database.
  3093.     After all contributors mark their documents "Ready for consolidation," the originator clicks the Consolidate Workbook Data button to consolidate contributors' changes into the master workbook.
  3094.     After the changes are consolidated, the originator can save the master workbook as a separate 1-2-3 file or leave the workbook stored in the Notes database.
  3095. Overview: Setting up the master workbook
  3096.     When you use TeamConsolidate, you work with 1-2-3 as you normally would. Because contributors will be working with only one sheet at a time, certain features of 1-2-3 are less important or useful, such as features that work across sheets. 
  3097.     Below is information to keep in mind when creating the master workbook and working in distributed sheets. 
  3098.     Setting up each sheet
  3099.     When you are distributing sheets from a workbook with multiple sheets, put all the data and graphic objects that you want to distribute to one person on a single sheet. If a workbook contains macros, it is best to put these on a separate sheet. 
  3100.     Charts, drawings, maps, and OLE embedded objects
  3101.     During consolidation, if separate distributed sheets contain charts, drawings, maps, or embedded objects with the same names, the objects with the duplicate names are not renamed. No objects or data will be lost, but to avoid confusion, before you distribute a sheet, assign names to objects rather than accepting the default names suggested by 1-2-3.
  3102.     Versions and version groups
  3103.     It is a good idea to avoid 3D versions in a distributed sheet. Although contributors can use data in multiple sheets, for example with formula calculations, 1-2-3 only consolidates the changes made on the single sheet that was distributed. 
  3104.     If the originator adds versions in the master workbook while sheets are distributed, the data in these versions will be lost during consolidation.
  3105.     Version groups are not included in a distributed sheet. 
  3106.     Scripts
  3107.     You can add, edit, and consolidate scripts that are attached to graphic objects on the current sheet, but no other scripts. 
  3108.     Note
  3109.       If a script is attached to a range in a distributed sheet, the script will not be consolidated.
  3110.     Locked workbooks
  3111.     You can distribute, edit, and consolidate locked workbooks. The lock is ignored when the sheet is consolidated back into the master workbook.
  3112.     Password-protected workbooks
  3113.     Since you cannot password-protect an OLE object, you cannot password-protect a master workbook after it is in Notes.
  3114. Creating the master workbook from an existing workbook
  3115.     Before you start, the Notes database for storing the workbook must be set up. 
  3116.     1.    Open the Notes database where you want to store the 1-2-3 workbook. 
  3117.     2.    Click the Create 1-2-3 Workbook Document button. 
  3118.     3.    Enter a title for the master workbook document.
  3119.     4.    Select "Use an existing 1-2-3 workbook" and specify the file name. 
  3120.     5.    Click OK. 
  3121.     6.    Select whether to request data for the workbook now or later. 
  3122.     If you choose to distribute the workbook now, follow the steps, starting with step 3, in "Distributing sheets" later in this document. 
  3123.     If you choose to distribute the workbook later, when you are ready, click Request Workbook Data.
  3124. Creating a new master workbook
  3125.     Before you start, the Notes database for storing the workbook must be set up. 
  3126.     1.    Open the Notes database where you want to store the 1-2-3 workbook. 
  3127.     2.    Click the Create 1-2-3 Workbook Document button.
  3128.     3.    Enter a title for the master workbook document.
  3129.     4.    Select "Create a new 1-2-3 workbook." 
  3130.     5.    Click OK. 
  3131.     6.    Set up and enter data in the 1-2-3 workbook object. 
  3132.     7.    Click the Notes form outside the 1-2-3 workbook object when you finish creating the master workbook.
  3133.     8.    Close and save the Notes document.
  3134.     You are now ready to distribute the sheets in the master workbook to contributors. See "Distributing sheets" below for information.
  3135. Distributing sheets
  3136.     You distribute sheets to request data from contributors. Distributing sheets assigns them to contributors and makes each distributed sheet a response document under the master document. 
  3137.     1.    Open the Notes document containing the workbook you want to distribute. 
  3138.     2.    Click the Request Workbook Data button. 
  3139.     3.    Select the sheets you want to distribute by dragging sheet names from the "Sheets in workbook" list to the "Sheets to distribute" list. 
  3140.     4.    To choose contributors for each distributed sheet, click in the Contributors list and type a name or click the Addresses button to select names from an address book. 
  3141.         You can specify more than one contributor for each sheet. Separate names with a , (comma). You can also use group names to specify multiple contributors. 
  3142.     5.    (Optional) Select "Only contributor(s) may view distributed sheets" to prevent others from seeing and entering data in the distributed sheets.
  3143.     6.    (Optional) To send e-mail to all contributors, select "Send mail with doclink to contributors," then enter your message in the box. 
  3144.     7.    (Optional) Select "Notify me when contributors have finished" if you want to receive a message when documents are marked "Ready to consolidate" or "Do not consolidate."
  3145.     8.    Click OK, and enter your e-mail password (if prompted).
  3146.     After you close the document, response documents containing the distributed sheets appear beneath the master document, which has the status "Data requested." 
  3147. Details: Distributing sheets
  3148.     When you can distribute sheets
  3149.     You can distribute sheets from a master workbook document that has a status of "Data not yet requested" or "Consolidation completed." If a master workbook document has any other status, the Request Workbook Data button is not available.
  3150.     After you distribute a sheet, you cannot distribute it again until the master workbook document has a status of "Consolidation completed." Consolidation is completed when all distributed sheets have a status of "Consolidated into master" or "Do not consolidate." 
  3151. Choosing a view
  3152.     In the TeamConsolidate database, you can choose from several ways to view the master workbook documents and the distributed sheets, which appear as response documents to the master workbook document.
  3153.     Displaying the TeamConsolidate Navigator
  3154.     You can click the Navigator button to display a row of buttons on the left side of the workbook window that replace the standard Notes navigators. The TeamConsolidate navigator contains these buttons:
  3155.     All Documents -- Displays all documents in the view by originator name 
  3156.     By Status -- Displays all documents by status of master workbooks
  3157.     By Date -- Displays all documents by modification date of master workbooks
  3158.     By Contributor -- Displays distributed sheets by contributor name, but does not display the master workbooks
  3159. Editing a distributed sheet
  3160.     Contributors can edit distributed sheets 
  3161. Editing an embedded object without leaving the application in which it is embedded. Rather, the menu changes to show commands from the server application. You can edit embedded objects in place or out of place.
  3162. in place
  3163.      or 
  3164. Editing an embedded object by opening the server application. You can edit embedded objects in place or out of place.
  3165. out of place
  3166.     . When you open a document containing a distributed sheet, the sheet is activated for in-place editing.
  3167.     Editing the sheet in place
  3168.     1.    In the Notes database, open the document containing the distributed sheet.
  3169.     2.    Make your changes or additions to the sheet.
  3170.     3.    (Optional) Enter a comment in the Remarks field. 
  3171.     4.    Close and save the Notes document. 
  3172.     5.    In the Status of Contributor Document dialog box, make a choice reflecting the status of your work. 
  3173.         Note
  3174.       If you plan to add more changes later, select "In progress."
  3175.     6.    Click Done.
  3176.     Editing the sheet out of place
  3177.     1.    In the Notes database, open the document containing the distributed sheet.
  3178.     2.    Click outside the 1-2-3 workbook object to deactivate it.
  3179.     3.    Click the object to select it. 
  3180.     4.    Choose Workbook - Open. 
  3181. The sheet appears in a full 1-2-3 window. 
  3182.     5.    Make your changes or additions. 
  3183.     6.    Choose File - Exit & Return to close 1-2-3 and go back to the Notes document. 
  3184.     7.    (Optional) Enter a comment in the Remarks field. 
  3185.     8.    Save and close the Notes document. 
  3186.     9.    In the Status of Contributor Document dialog box, make a choice reflecting the status of your work. 
  3187.       If you plan to add more changes later, select "In progress."
  3188.     10.    Click Done.
  3189. Details: Editing a distributed sheet
  3190.     Limitations when editing a distributed sheet
  3191.     When you are editing a distributed sheet, certain 1-2-3 commands and features are unavailable.
  3192.     You cannot use Edit - Go To to go to objects on other sheets. 
  3193.     You cannot create or delete sheets. 
  3194.     You cannot create version groups.
  3195.     You cannot insert or delete rows or columns in a versioned range (unless you created the version in the distributed sheet).
  3196.     You cannot add or change scripts attached to ranges.
  3197.     Editing sheets in place
  3198.     When you edit a sheet 
  3199. Editing an embedded object without leaving the application in which it is embedded. Rather, the menu changes to show commands from the server application. You can edit embedded objects in place or out of place.
  3200.     in place
  3201.     , the File and Window menus contain Lotus Notes commands. File - Save stores the entire Notes document containing the sheet, not just the sheet. 
  3202.     You can end in-place editing by clicking in the Notes document outside of the sheet. To return to editing the sheet, double-click it.
  3203.     The 1-2-3 data is not saved until you save the Notes document. 
  3204.     Editing sheets out of place
  3205.     When you edit the sheet 
  3206. Editing an embedded object by opening the server application. You can edit embedded objects in place or out of place.
  3207. out of place
  3208.     , the File menu contains 1-2-3 commands.
  3209.     Setting the status of your work
  3210.     When you save a distributed sheet, a dialog box requests you to confirm or change the status of the document. You can change the status to "In progress," "Ready to consolidate," or "Do not consolidate."
  3211.     Duplicate range names
  3212.     When you edit a distributed sheet, all range names proposed by Version Manager (for example, Range 1) will include the sheet name as a prefix (by default, a letter). If 1-2-3 detects a duplicate range name while consolidating distributed sheets back into the original workbook, 1-2-3 keeps the range name in the first sheet, but discards the names of any other ranges with the same name.
  3213.     Scripts in distributed sheets
  3214.     If a script is attached to a range in a distributed sheet, the script will not be consolidated. 
  3215.     Embedding additional objects
  3216.     You can embed objects in a distributed sheet and they will be merged back to the master workbook during consolidation. 
  3217. Consolidating distributed sheets
  3218.     After contributors make changes, you can consolidate distributed sheets back into the master workbook.
  3219.     1.    In the Notes database, open the document containing the master workbook. 
  3220.     2.    Click the Consolidate Workbook Data button. 
  3221.     3.    Specify whether Notes will consolidate just those documents marked "Ready to consolidate" and whether contributors' documents will be deleted after consolidation. 
  3222.     4.    Click OK.  
  3223.         You see a message confirming that the distributed documents have been consolidated successfully.
  3224.      5.    (Optional) To save the 1-2-3 workbook document as a 1-2-3 workbook file, click the Detach 1-2-3 Workbook button. 
  3225. Details: Consolidating distributed sheets
  3226.     Replication conflicts in distributed sheets
  3227.     You can consolidate original response documents only. If two people edit the same document at the same time, the second person to save it will create a replication conflict. You must resolve replication conflicts and delete the conflict document before you can consolidate distributed sheets. You can see replication conflict documents only in the view "By Contributor."
  3228.     Controlling which sheets are consolidated
  3229.     If you select "Consolidate only documents marked Ready to consolidate," only those documents with a status of "Ready to consolidate" will be consolidated. If sheets are marked "Do not consolidate," "In progress", or "Data requested," you can consolidate them later, after the contributors change their status. If you don't select "Consolidate only documents marked Ready to consolidate," all documents with a status other than "Do not consolidate" will be consolidated.  
  3230.     If sheets are marked "In progress" and "Consolidate only documents marked Ready to consolidate" is selected, then the master workbook document will get the status of "Partially consolidated." Once the remaining sheets are marked "Ready to consolidate" or "Do not consolidate," you can consolidate again to incorporate the remaining data. Then the status of the master workbook document changes to "Consolidation completed."
  3231.     Deleting contributors' documents
  3232.     If you select "Delete contributors' documents after consolidating," Notes deletes the response documents after consolidation. This, however, does not remove replication conflicts for response documents. 
  3233.     If you choose not to delete contributors' documents, they become read-only documents to prevent changes to sheets that have already been consolidated.  
  3234. O=Lotus Notes
  3235. O=Lotus Notes
  3236. PURSAFO
  3237. |.:#U
  3238. O=Lotus Notes
  3239. CN=Lotus Notes Template Development/O=Lotus Notes
  3240. PURSAFO
  3241. Fde!f^^
  3242. cuP:E_
  3243. $Info
  3244. $Body
  3245. Times New Roman
  3246. Task List
  3247. &Switch To
  3248. About TeamConsolidate
  3249. ?_?__
  3250. `!b`1
  3251. 7`^///?
  3252. ?b___
  3253. `bOOO
  3254. `<b!R
  3255.     What does this database do? 
  3256.     The TeamConsolidate database lets you distribute 1-2-3 workbook sheets to contributors to request data or modifications. After contributors make changes, you can consolidate these sheets back into your original workbook. 
  3257.     For example, suppose you're using 1-2-3 to track expenses on a project involving several departments. You can create a workbook containing a sheet for each department. Using this database, you distribute each sheet to people in each department. They make updates and additions and then you can consolidate the changes into the original workbook. 
  3258.     Who will use this database? 
  3259.     Members of a team who need to distribute or contribute to a spreadsheet. 
  3260.     Access control
  3261.     Very Important:
  3262.      The access level must be Author for all users of this database. This will prevent unauthorized editing in the database and ensure that the feature functions properly. 
  3263.     With Author access, users can create documents, edit documents they create, and edit documents that were assigned (distributed) to them, but they can't edit documents distributed to others. This helps prevent replication conflicts, because users can only edit those documents assigned to them. 
  3264.     You must have Manager access to create or modify the access control list (ACL). Later, you or the designer can refine access to particular views, forms, sections, or fields of a database. 
  3265. O=Lotus Notes
  3266. O=Lotus Notes
  3267. PURSAFO
  3268. |.:#U
  3269. O=Lotus Notes
  3270. CN=Lotus Notes Template Development/O=Lotus Notes
  3271. PURSAFO
  3272. Fde!f^^
  3273. $Info
  3274. $Body
  3275. &Arial
  3276. Form Banner
  3277. wwwwwwwwwwww
  3278. wwwwwwwwwwww
  3279. wwwwwwwwwwww
  3280. wwwwwwwwwwww
  3281. wwwwwwwwwwwwwwwwwwwwwwwww
  3282. wwwwwxwwwwww
  3283. wwwwwxwwwwww
  3284. wxwwppww
  3285. wxwwppww
  3286. wpppwxww
  3287. wpppwxww
  3288. wwwwwxwwwwww
  3289. wwwwwxwwwwww
  3290. wpppwxww
  3291. wpppww
  3292. wwwwww
  3293. wwwwwxwwwwww
  3294. wwwwww
  3295. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  3296. UUUUXwxww
  3297. wpppwxww
  3298. UUUWwxwwwwww
  3299. wwwwwxwwwwwww
  3300. """(]UUU
  3301. """"""""""""""""""""""/
  3302. """""/
  3303. *""""/
  3304.   @  
  3305.  @@ @
  3306.  `@ `
  3307. @ @@ 
  3308. @@@@@
  3309. @`@@`
  3310. ` @` 
  3311. `@@`@
  3312. ``@``
  3313. aaaaaaaa`
  3314. nd If
  3315.       
  3316. mmmmmmmm     ' get the Um
  3317. FormTitleInfoDisplay
  3318. FormTitleDisplay
  3319. Subject
  3320. Title
  3321. O=Lotus Notes
  3322. O=Lotus Notes
  3323. PURSAFO
  3324. |.:#U
  3325. O=Lotus Notes
  3326. CN=Lotus Notes Template Development/O=Lotus Notes
  3327. PURSAFO
  3328. Fde!f^^
  3329. $TITLE
  3330. $Info
  3331. $$Script_O
  3332. $$ScriptName
  3333. $Body
  3334. &Arial
  3335. Response Form
  3336.   @  
  3337.  @@ @
  3338.  `@ `
  3339. @ @@ 
  3340. @@@@@
  3341. @`@@`
  3342. ` @` 
  3343. `@@`@
  3344. ``@``
  3345. mmmmmmmmm
  3346. FormTitleInfoDisplay
  3347. FormTitleDisplay
  3348. WorksheetTitle
  3349. WorksheetTitleDisplay
  3350. O=Lotus Notes
  3351. O=Lotus Notes
  3352. PURSAFO
  3353. |.:#U
  3354. O=Lotus Notes
  3355. CN=Lotus Notes Template Development/O=Lotus Notes
  3356. PURSAFO
  3357. Fde!f^^
  3358. $TITLE
  3359. $Info
  3360. $$ScriptName
  3361. $Body
  3362. GraphicButton1
  3363.  @  @@ @` @
  3364. @@ @@@@@`@@
  3365. `@ `@@`@``@
  3366. Text1Workbook Views
  3367. Button1By Contributor
  3368. Button2By Status
  3369. Button3By Date
  3370. Button4All Documents
  3371. HotspotRectangle1
  3372. All Documents
  3373. HotspotRectangle2
  3374. View by Date
  3375. HotspotRectangle3
  3376. View by Status
  3377. HotspotRectangle4
  3378. View by Contributor
  3379. O=Lotus Notes
  3380. O=Lotus Notes
  3381. PURSAFO
  3382. |.:#U
  3383. O=Lotus Notes
  3384. CN=Lotus Notes Template Development/O=Lotus Notes
  3385. PURSAFO
  3386. Fde!f^^
  3387. o3C)i
  3388. $ViewMapDataset
  3389. $ViewMapLayout
  3390. $37Parent_ID$
  3391. $RefV
  3392.     0S0E
  3393. $34Response_ID
  3394.     0S0E
  3395. WorksheetTitleSheet$29Status
  3396. Temp_Status
  3397. Worksheetstatus
  3398. Temp_Value
  3399. Temp_Status
  3400. Temp_Status
  3401. Temp_Status
  3402.     0R1S2S
  3403. In progress,Ready to consolidate,Do not consolidate,Data requested,Consolidated into master
  3404. Temp_Value
  3405. $17Modification Date
  3406. $16Creation Date
  3407. Create 1-2-3 Workbook Document&
  3408. Navigator
  3409. EnvName
  3410. NavigatorState"
  3411.     1S2S
  3412. EnvName
  3413. EnvName
  3414. Main Navigator
  3415. EnvName
  3416.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  3417. Categori_ze
  3418. _Edit Document
  3419. Send Docu_ment
  3420. _Forward
  3421. _Move To Folder...
  3422. _Remove From Folder$
  3423. O=Lotus Notes
  3424. O=Lotus Notes
  3425. PURSAFO
  3426. |.:#U
  3427. O=Lotus Notes
  3428. CN=Lotus Notes Template Development/O=Lotus Notes
  3429. PURSAFO
  3430. Fde!f^^
  3431. $TITLE
  3432. $Index
  3433. $Formula
  3434. $FormulaClass
  3435. $ViewFormat
  3436. $Comment
  3437. $ACTIONS
  3438. 02/04/97 04:59:31 PM Lotus Notes Template Development/Lotus Notes updated LocalDomainServers
  3439. 02/04/97 04:59:07 PM Lotus Notes Template Development/Lotus Notes deleted Beth Brownholtz/TCGEMINI2
  3440. 09/11/96 02:41:56 PM Beth Brownholtz/CAM/Lotus updated -Default-
  3441. 09/11/96 02:41:52 PM Beth Brownholtz/CAM/Lotus updated [OtherDomainServers]
  3442. 09/11/96 02:41:40 PM Beth Brownholtz/CAM/Lotus added [OtherDomainServers]
  3443. 09/11/96 02:41:33 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  3444. 09/11/96 02:41:29 PM Beth Brownholtz/CAM/Lotus updated [LocalDomainServers]
  3445. 09/11/96 02:41:25 PM Beth Brownholtz/CAM/Lotus added [LocalDomainServers]
  3446. 09/11/96 02:40:11 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  3447. 09/11/96 02:40:04 PM Beth Brownholtz/CAM/Lotus added LocalDomainServers
  3448. 09/11/96 02:39:51 PM Beth Brownholtz/CAM/Lotus updated [-Default-]
  3449. 09/11/96 02:39:40 PM Beth Brownholtz/CAM/Lotus added [-Default-]
  3450. 09/11/96 02:39:28 PM Beth Brownholtz/CAM/Lotus deleted Robin Alvarez/TCGEMINI2
  3451. 09/11/96 02:39:27 PM Beth Brownholtz/CAM/Lotus updated Beth Brownholtz/TCGEMINI2
  3452. 09/11/96 02:39:19 PM Beth Brownholtz/CAM/Lotus added Beth Brownholtz/TCGEMINI2
  3453. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated Robin Alvarez/TCGEMINI2
  3454. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 added Robin Alvarez/TCGEMINI2
  3455. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated -Default-
  3456. -Default-
  3457. [-Default-]
  3458. LocalDomainServers
  3459. [LocalDomainServers]
  3460. [OtherDomainServers]
  3461.