home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999_B.iso / Lotus123 / FRENCH / LOTUS022.DSK / TEAMCONS.NTF (.txt) < prev   
Lotus Notes Database  |  1997-02-13  |  836KB  |  4,802 lines

  1. TeamConsolidate
  2. BABELDB
  3. #1TeamConsolidate
  4. C:\Gold\teamcons\french\teamcons.ntf
  5. FOLDER_DIRECTORY_OBJECT
  6. CN=Avril Jordan/OU=DUB/O=Lotus
  7. CN=Lotus Notes Template Development/O=Lotus Notes
  8. MxaPz
  9. .K[W+l
  10. 1`mY~
  11. ##########################################################
  12. ##########################################################
  13. ##########################################################
  14. Document avec classeur 1-2-3Main
  15. Form BannerHistory1
  16. BookNameSessionEditorsSessionTimesMain_RemarksMasterStatusNameTitleSourceNameAuthor
  17. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################
  18. $37$34Y
  19. (ID document parent)|ConsolidateButtonB
  20. $37$34WorksheetTitle$38$17$16$Conflict
  21. $RefV
  22.     0S0E
  23.     0S0E
  24. Temp_Status
  25. Worksheetstatus
  26. Temp_Value
  27. Temp_Status
  28. Temp_Status
  29. Temp_Status
  30.     0R1S2S
  31. En cours,Pr
  32. t pour consolidation,Ne pas consolider,Donn
  33. es demand
  34. es,Consolid
  35.  dans le document ma
  36. Temp_Value
  37. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  38. #################################
  39. moMemoMemo
  40. BodySubjectBlindCopyToCopyToSendToDefaultMailSaveOptionsEncryptSignLogoFrom
  41. CN=Brian McGauran/OU=DUB/O=LotusLotus NotesCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes9150A8276C8CC72D0FD19B994E875116Lotus NotesStdR4Mail################################################
  42. HistoryCUA3
  43. BookNameSessionEditorsSessionTimes
  44. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes################################################
  45. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  46. Response Form######################################
  47. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  48. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  49. ##########################################################
  50. ##########################################################
  51. ##########################################################
  52. ##########################################################
  53. ##########################################################
  54. ##########################################################
  55. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(
  56. ###############################################
  57. ##########################################################
  58. ##########################################################
  59. ##########################################################
  60. ##########################################################
  61. ##########################################################
  62. ##########################################################
  63. ##########################################################
  64. ##########################################################
  65. ##########################################################
  66. ##########################################################
  67. ##########################################################
  68. TeamConsolidate
  69. Navigateur principal | Main NavigatorG3
  70. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  71. ##########################################################
  72. ##########################################################
  73. ##########################################################
  74. Title
  75. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  76. Form Banner######
  77. ##########################################################
  78. ##########################################################
  79. ##########################################################
  80. ##########################################################
  81. ##########################################################
  82. ##########################################################
  83. ##########################################################
  84. ##########################################################
  85. ##########################################################
  86. ##########################################################
  87. ##########################################################
  88. ##########################################################
  89. .K[W+l
  90. CN=Cathy Pfeiler/O=TCGEMINI2d:\notes\data\teamcons.ntf
  91. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Cathy Pfeiler/O=TCGEMINI2CN=Beth Brownholtz/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusNavigateur principal################
  92. ##########################################################
  93. ##########################################################
  94. ##########################################################
  95. ##########################################################
  96. ##########################################################
  97. ##########################################################
  98. ##########################################################
  99. ##########################################################
  100. 1`mY~
  101. $Modified
  102.     1S2S3S
  103. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  104.     0SL1S3724
  105. $TITLE
  106. CN=Avril Jordan/OU=DUB/O=Lotus
  107. #########
  108. ##########################################################
  109. ##########################################################
  110. ##########################################################
  111. ##########################################################
  112. ##########################################################
  113. $31$33Y
  114. Par collaborateur|View By Contributord
  115. $31$33WorksheetTitle$34$17$16$Conflict
  116. Contributor
  117.     0S0E
  118. WorkbookTitle
  119.     0S0E
  120. Temp_Status
  121. Worksheetstatus
  122. Temp_Value
  123. Temp_Status
  124. Temp_Status
  125. Temp_Status
  126.     0R1S2S
  127. En cours,Pr
  128. t pour consolidation,Ne pas consolider,Donn
  129. es demand
  130. es,Consolid
  131.  dans le document ma
  132. Temp_Value
  133. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  134. CollaborateurSecondary
  135. Response FormHistoryC
  136. BookNameSessionEditorsSessionTimesWorkBookNameParentTitleResponse_RemarkContributorEmbeddingEmbeddingDisplayAreaContributorWorksheetTitleNotifyDistributorForContributorsOnlyDistributorCurrentAuthorRestrictedToFormTitleInfoDisplayWorkbookTitle
  137. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  138. ##########################################################
  139. ##########################################################
  140. ##########################################################
  141. ##########################################################
  142. ##########################################################
  143. Par date|View By Date
  144.     0S0E
  145. WorksheetTitle"
  146. Title
  147.     3S5S
  148. SessionEditors
  149. Contributor
  150. SessionEditors
  151.     3S4S24S
  152. Temp_Status
  153. Worksheetstatus
  154. StatusX
  155.     1S16S
  156. Temp_Value
  157. Temp_Status
  158. Temp_Status
  159. Temp_Status
  160.     0R1S2S
  161. es non encore demand
  162. es,Donn
  163. es demand
  164. es,Partiellement consolid
  165. ,Consolidation termin
  166. e,En cours,Pr
  167. t pour consolidation,Ne pas consolider,Donn
  168. es demand
  169. es,Consolid
  170.  dans le document ma
  171. Temp_Value
  172. $21$28$26$30$10$Conflict$REF
  173.     L1S1
  174. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  175. MxaPz
  176. (Consolidation interne)|(Internal Consolidate)
  177. $16$21$22$Conflict$REF
  178.     0S0E
  179. WorksheetTitle
  180. Title
  181.     3S5S
  182. Temp_Status
  183. Worksheetstatus
  184. StatusX
  185.     1S16S
  186. Temp_Value
  187. Temp_Status
  188. Temp_Status
  189. Temp_Status
  190.     0R1S2S
  191. Pas encore diffus
  192. ,Donn
  193. es demand
  194. es,Partiellement consolid
  195. ,Consolidation termin
  196. e,En cours,Pr
  197. t pour consolidation,Ne pas consolider,Donn
  198. es demand
  199. es,Consolidation termin
  200. Temp_Value
  201. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  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. ##########################################################
  231. ##########################################################
  232. ##########################################################
  233. ##########################################################
  234. tat|View By Status
  235. es non encore demand
  236. es,Donn
  237. es demand
  238. es,Partiellement consolid
  239. ,Consolidation termin
  240. StatusX
  241. WorksheetTitle"
  242. Title
  243.     3S5S
  244. SessionEditors
  245. Contributor
  246. SessionEditors
  247.     3S4S24S
  248. Temp_Status
  249. Worksheetstatus
  250. Temp_Value
  251. Temp_Status
  252. Temp_Status
  253. Temp_Status
  254.     0R1S2S
  255. En cours,Pr
  256. t pour consolidation,Ne pas consolider,Donn
  257. es demand
  258. es,Consolidation termin
  259. Temp_Value
  260. $27$24$22$26$8$10$Conflict$REF
  261.     L1S1
  262. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  263. ######################
  264. Tous les documents|View by Master Contributor
  265. WorksheetTitle"
  266. Title
  267.     3S5S
  268. SessionEditors
  269. Contributor
  270. SessionEditors
  271.     3S4S24S
  272. Temp_Status
  273. Worksheetstatus
  274. StatusX
  275.     1S16S
  276. Temp_Value
  277. Temp_Status
  278. Temp_Status
  279. Temp_Status
  280.     0R1S2S
  281. es non encore demand
  282. es,Donn
  283. es demand
  284. es,Partiellement consolid
  285. ,Consolidation termin
  286. e,En cours,Pr
  287. t pour consolidation,Ne pas consolider,Donn
  288. es demand
  289. es,Consolid
  290.  dans le document ma
  291. Temp_Value
  292. $12$28$26$31$8$10$Conflict$REF
  293.     L1S1
  294. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  295. ##########################################################
  296. ##########################################################
  297. ##########################################################
  298. ##########################################################
  299. ##########################################################
  300. ##########################################################
  301. ##########################################################
  302. ##########################################################
  303. ##########################################################
  304. ##########################################################
  305. ##########################################################
  306. ##########################################################
  307. ##########################################################
  308. ##########################################################
  309. ##########################################################
  310. ##########################################################
  311. ##########################################################
  312. ##########################################################
  313. ##########################################################
  314. ##########################################################
  315. ##########################################################
  316. ##########################################################
  317. ##########################################################
  318. ##########################################################
  319. ##########################################################
  320. ##########################################################
  321. ##########################################################
  322. ##########################################################
  323. ##########################################################
  324. ##########################################################
  325. ##########################################################
  326. ##########################################################
  327. ##########################################################
  328. ##########################################################
  329. ##########################################################
  330. ##########################################################
  331. ##########################################################
  332. ##########################################################
  333. ##########################################################
  334. ##########################################################
  335. ##########################################################
  336. ##########################################################
  337. ##########################################################
  338. ##########################################################
  339. ##########################################################
  340. ##########################################################
  341. ##########################################################
  342. ##########################################################
  343. ##########################################################
  344. ##########################################################
  345. ##########################################################
  346. ##########################################################
  347. ##########################################################
  348. ##########################################################
  349. ##########################################################
  350. ##########################################################
  351. ##########################################################
  352. ##########################################################
  353. ##########################################################
  354. ##########################################################
  355. ##########################################################
  356. ##########################################################
  357. ##########################################################
  358. ##########################################################
  359. ##########################################################
  360. ##########################################################
  361. ##########################################################
  362. ##########################################################
  363. ##########################################################
  364. ##########################################################
  365. ##########################################################
  366. ##########################################################
  367. ##########################################################
  368. ##########################################################
  369. ##########################################################
  370. ##########################################################
  371. ##########################################################
  372. ##########################################################
  373. ##########################################################
  374. ##########################################################
  375. ##########################################################
  376. ##########################################################
  377. ##########################################################
  378. ##########################################################
  379. ##########################################################
  380. ##########################################################
  381. ##########################################################
  382. ##########################################################
  383. ##########################################################
  384. ##########################################################
  385. ##########################################################
  386. ##########################################################
  387. ##########################################################
  388. ##########################################################
  389. ##########################################################
  390. ##########################################################
  391. ##########################################################
  392. ##########################################################
  393. ##########################################################
  394. ##########################################################
  395. ##########################################################
  396. ##########################################################
  397. ##########################################################
  398. ##########################################################
  399. ##########################################################
  400. ##########################################################
  401. ##########################################################
  402. ##########################################################
  403. ##########################################################
  404. ##########################################################
  405. ##########################################################
  406. ##########################################################
  407. ##########################################################
  408. ##########################################################
  409. ##########################################################
  410. ##########################################################
  411. ##########################################################
  412. ##########################################################
  413. ##########################################################
  414. ##########################################################
  415. ##########################################################
  416. ##########################################################
  417. ##########################################################
  418. ##########################################################
  419. ##########################################################
  420. ##########################################################
  421. ##########################################################
  422. ##########################################################
  423. ##########################################################
  424. ##########################################################
  425. ##########################################################
  426. ##########################################################
  427. ##########################################################
  428. ##########################################################
  429. ##########################################################
  430. ##########################################################
  431. ##########################################################
  432. ##########################################################
  433. ##########################################################
  434. ##########################################################
  435. ##########################################################
  436. ##########################################################
  437. ##########################################################
  438. ##########################################################
  439. ##########################################################
  440. ##########################################################
  441. ##########################################################
  442. ##########################################################
  443. ##########################################################
  444. ##########################################################
  445. ##########################################################
  446. ##########################################################
  447. ##########################################################
  448. ##########################################################
  449. ##########################################################
  450. ##########################################################
  451. ##########################################################
  452. ##########################################################
  453. ##########################################################
  454. ##########################################################
  455. ##########################################################
  456. ##########################################################
  457. ##########################################################
  458. ##########################################################
  459. ##########################################################
  460. ##########################################################
  461. ##########################################################
  462. ##########################################################
  463. ##########################################################
  464. ##########################################################
  465. ##########################################################
  466. ##########################################################
  467. ##########################################################
  468. ##########################################################
  469. ##########################################################
  470. ##########################################################
  471. ##########################################################
  472. ##########################################################
  473. ##########################################################
  474. ##########################################################
  475. ##########################################################
  476. ##########################################################
  477. ##########################################################
  478. ##########################################################
  479. ##########################################################
  480. ##########################################################
  481. ##########################################################
  482. ##########################################################
  483. ##########################################################
  484. ##########################################################
  485. ##########################################################
  486. ##########################################################
  487. ##########################################################
  488. ##########################################################
  489. ##########################################################
  490. ##########################################################
  491. ##########################################################
  492. ##########################################################
  493. ##########################################################
  494. ##########################################################
  495. ##########################################################
  496. ##########################################################
  497. ##########################################################
  498. ##########################################################
  499. ##########################################################
  500. ##########################################################
  501. ##########################################################
  502. ##########################################################
  503. ##########################################################
  504. ##########################################################
  505. ##########################################################
  506. ##########################################################
  507. ##########################################################
  508. ##########################################################
  509. ##########################################################
  510. ##########################################################
  511. ##########################################################
  512. ##########################################################
  513. ##########################################################
  514. ##########################################################
  515. ##########################################################
  516. ##########################################################
  517. ##########################################################
  518. ##########################################################
  519. ##########################################################
  520. ##########################################################
  521. ##########################################################
  522. ##########################################################
  523. ##########################################################
  524. ##########################################################
  525. ##########################################################
  526. ##########################################################
  527. ##########################################################
  528. ##########################################################
  529. ##########################################################
  530. ##########################################################
  531. ##########################################################
  532. ##########################################################
  533. ##########################################################
  534. ##########################################################
  535. ##########################################################
  536. ##########################################################
  537. ##########################################################
  538. ##########################################################
  539. ##########################################################
  540. ##########################################################
  541. ##########################################################
  542. ##########################################################
  543. ##########################################################
  544. ##########################################################
  545. ##########################################################
  546. ##########################################################
  547. ##########################################################
  548. ##########################################################
  549. ##########################################################
  550. ##########################################################
  551. ##########################################################
  552. ##########################################################
  553. ##########################################################
  554. ##########################################################
  555. ##########################################################
  556. ##########################################################
  557. ##########################################################
  558. ##########################################################
  559. ##########################################################
  560. ##########################################################
  561. ##########################################################
  562. ##########################################################
  563. ##########################################################
  564. ##########################################################
  565. ##########################################################
  566. ##########################################################
  567. ##########################################################
  568. ##########################################################
  569. ##########################################################
  570. ##########################################################
  571. ##########################################################
  572. ##########################################################
  573. ##########################################################
  574. ##########################################################
  575. ##########################################################
  576. ##########################################################
  577. ##########################################################
  578. ##########################################################
  579. ##########################################################
  580. ##########################################################
  581. ##########################################################
  582. ##########################################################
  583. ##########################################################
  584. ##########################################################
  585. ##########################################################
  586. ##########################################################
  587. ##########################################################
  588. ##########################################################
  589. ##########################################################
  590. ##########################################################
  591. ##########################################################
  592. ##########################################################
  593. ##########################################################
  594. ##########################################################
  595. ##########################################################
  596. ##########################################################
  597. ##########################################################
  598. ##########################################################
  599. ##########################################################
  600. ##########################################################
  601. ##########################################################
  602. ##########################################################
  603. ##########################################################
  604. ##########################################################
  605. ##########################################################
  606. ##########################################################
  607. ##########################################################
  608. ##########################################################
  609. ##########################################################
  610. ##########################################################
  611. ##########################################################
  612. ##########################################################
  613. ##########################################################
  614. ##########################################################
  615. ##########################################################
  616. ##########################################################
  617. ##########################################################
  618. ##########################################################
  619. ##########################################################
  620. ##########################################################
  621. ##########################################################
  622. ##########################################################
  623. ##########################################################
  624. ##########################################################
  625. ##########################################################
  626. ##########################################################
  627. ##########################################################
  628. ##########################################################
  629. ##########################################################
  630. ##########################################################
  631. ##########################################################
  632. ##########################################################
  633. ##########################################################
  634. ##########################################################
  635. ##########################################################
  636. ##########################################################
  637. ##########################################################
  638. ##########################################################
  639. ##########################################################
  640. ##########################################################
  641. ##########################################################
  642. ##########################################################
  643. ##########################################################
  644. ##########################################################
  645. ##########################################################
  646. ##########################################################
  647. ##########################################################
  648. ##########################################################
  649. ##########################################################
  650. ##########################################################
  651. ##########################################################
  652. ##########################################################
  653. ##########################################################
  654. ##########################################################
  655. ##########################################################
  656. ##########################################################
  657. ##########################################################
  658. ##########################################################
  659. ##########################################################
  660. ##########################################################
  661. ##########################################################
  662. ##########################################################
  663. ##########################################################
  664. ##########################################################
  665. ##########################################################
  666. ##########################################################
  667. ##########################################################
  668. ##########################################################
  669. ##########################################################
  670. ##########################################################
  671. ##########################################################
  672. ##########################################################
  673. ##########################################################
  674. ##########################################################
  675. ##########################################################
  676. ##########################################################
  677. ##########################################################
  678. ##########################################################
  679. ##########################################################
  680. ##########################################################
  681. ##########################################################
  682. ##########################################################
  683. ##########################################################
  684. ##########################################################
  685. ##########################################################
  686. ##########################################################
  687. ##########################################################
  688. ##########################################################
  689. ##########################################################
  690. ##########################################################
  691. ##########################################################
  692. ##########################################################
  693. ##########################################################
  694. ##########################################################
  695. ##########################################################
  696. ##########################################################
  697. ##########################################################
  698. ##########################################################
  699. ##########################################################
  700. ##########################################################
  701. ##########################################################
  702. ##########################################################
  703. ##########################################################
  704. ##########################################################
  705. ##########################################################
  706. ##########################################################
  707. ##########################################################
  708. ##########################################################
  709. ##########################################################
  710. ##########################################################
  711. ##########################################################
  712. ##########################################################
  713. ##########################################################
  714. ##########################################################
  715. ##########################################################
  716. ##########################################################
  717. ##########################################################
  718. ##########################################################
  719. ##########################################################
  720. ##########################################################
  721. ##########################################################
  722. ##########################################################
  723. ##########################################################
  724. ##########################################################
  725. ##########################################################
  726. ##########################################################
  727. ##########################################################
  728. ##########################################################
  729. ##########################################################
  730. ##########################################################
  731. ##########################################################
  732. ##########################################################
  733. ##########################################################
  734. ##########################################################
  735. ##########################################################
  736. ##########################################################
  737. ##########################################################
  738. ##########################################################
  739. ##########################################################
  740. ##########################################################
  741. ##########################################################
  742. ##########################################################
  743. ##########################################################
  744. ##########################################################
  745. ##########################################################
  746. ##########################################################
  747. ##########################################################
  748. ##########################################################
  749. ##########################################################
  750. ##########################################################
  751. ##########################################################
  752. ##########################################################
  753. ##########################################################
  754. ##########################################################
  755. ##########################################################
  756. ##########################################################
  757. ##########################################################
  758. ##########################################################
  759. ##########################################################
  760. ##########################################################
  761. ##########################################################
  762. ##########################################################
  763. ##########################################################
  764. ##########################################################
  765. ##########################################################
  766. ##########################################################
  767. ##########################################################
  768. ##########################################################
  769. ##########################################################
  770. ##########################################################
  771. ##########################################################
  772. ##########################################################
  773. ##########################################################
  774. ##########################################################
  775. ##########################################################
  776. ##########################################################
  777. ##########################################################
  778. ##########################################################
  779. ##########################################################
  780. ##########################################################
  781. ##########################################################
  782. ##########################################################
  783. ##########################################################
  784. ##########################################################
  785. ##########################################################
  786. ##########################################################
  787. ##########################################################
  788. ##########################################################
  789. ##########################################################
  790. ##########################################################
  791. ##########################################################
  792. ##########################################################
  793. ##########################################################
  794. ##########################################################
  795. ##########################################################
  796. ##########################################################
  797. ##########################################################
  798. ##########################################################
  799. ##########################################################
  800. ##########################################################
  801. ##########################################################
  802. ##########################################################
  803. ##########################################################
  804. ##########################################################
  805. ##########################################################
  806. ##########################################################
  807. ##########################################################
  808. ##########################################################
  809. ##########################################################
  810. ##########################################################
  811. ##########################################################
  812. ##########################################################
  813. ##########################################################
  814. ##########################################################
  815. ##########################################################
  816. ##########################################################
  817. ##########################################################
  818. ##########################################################
  819. ##########################################################
  820. ##########################################################
  821. ##########################################################
  822. ##########################################################
  823. ##########################################################
  824. ##########################################################
  825. ##########################################################
  826. ##########################################################
  827. ##########################################################
  828. ##########################################################
  829. ##########################################################
  830. ##########################################################
  831. ##########################################################
  832. ##########################################################
  833. ##########################################################
  834. ##########################################################
  835. ##########################################################
  836. ##########################################################
  837. ##########################################################
  838. ##########################################################
  839. ##########################################################
  840. ##########################################################
  841. ##########################################################
  842. ##########################################################
  843. ##########################################################
  844. ##########################################################
  845. ##########################################################
  846. ##########################################################
  847. ##########################################################
  848. ##########################################################
  849. ##########################################################
  850. ##########################################################
  851. ##########################################################
  852. ##########################################################
  853. ##########################################################
  854. ##########################################################
  855. ##########################################################
  856. ##########################################################
  857. ##########################################################
  858. ##########################################################
  859. ##########################################################
  860. ##########################################################
  861. ##########################################################
  862. ##########################################################
  863. ##########################################################
  864. ##########################################################
  865. ##########################################################
  866. ##########################################################
  867. ##########################################################
  868. ##########################################################
  869. ##########################################################
  870. ##########################################################
  871. ##########################################################
  872. ##########################################################
  873. ##########################################################
  874. ##########################################################
  875. ##########################################################
  876. ##########################################################
  877. ##########################################################
  878. ##########################################################
  879. ##########################################################
  880. ##########################################################
  881. ##########################################################
  882. ##########################################################
  883. ##########################################################
  884. ##########################################################
  885. ##########################################################
  886. ##########################################################
  887. ##########################################################
  888. ##########################################################
  889. ##########################################################
  890. ##########################################################
  891. ##########################################################
  892. ##########################################################
  893. ##########################################################
  894. ##########################################################
  895. ##########################################################
  896. ##########################################################
  897. ##########################################################
  898. ##########################################################
  899. ##########################################################
  900. ##########################################################
  901. ##########################################################
  902. ##########################################################
  903. ##########################################################
  904. ##########################################################
  905. ##########################################################
  906. ##########################################################
  907. ##########################################################
  908. ##########################################################
  909. ##########################################################
  910. ##########################################################
  911. ##########################################################
  912. ##########################################################
  913. ##########################################################
  914. ##########################################################
  915. ##########################################################
  916. ##########################################################
  917. ##########################################################
  918. ##########################################################
  919. ##########################################################
  920. ##########################################################
  921. ##########################################################
  922. ##########################################################
  923. ##########################################################
  924. ##########################################################
  925. ##########################################################
  926. ##########################################################
  927. ##########################################################
  928. ##########################################################
  929. ##########################################################
  930. ##########################################################
  931. ##########################################################
  932. ##########################################################
  933. ##########################################################
  934. ##########################################################
  935. ##########################################################
  936. ##########################################################
  937. ##########################################################
  938. ##########################################################
  939. ##########################################################
  940. ##########################################################
  941. ##########################################################
  942. ##########################################################
  943. ##########################################################
  944. ##########################################################
  945. ##########################################################
  946. ##########################################################
  947. ##########################################################
  948. ##########################################################
  949. ##########################################################
  950. ##########################################################
  951. ##########################################################
  952. ##########################################################
  953. ##########################################################
  954. ##########################################################
  955. ##########################################################
  956. ##########################################################
  957. ##########################################################
  958. ##########################################################
  959. ##########################################################
  960. ##########################################################
  961. ##########################################################
  962. ##########################################################
  963. ##########################################################
  964. ##########################################################
  965. ##########################################################
  966. ##########################################################
  967. ##########################################################
  968. ##########################################################
  969. ##########################################################
  970. ##########################################################
  971. ##########################################################
  972. ##########################################################
  973. ##########################################################
  974. ##########################################################
  975. ##########################################################
  976. ##########################################################
  977. ##########################################################
  978. ##########################################################
  979. ##########################################################
  980. ##########################################################
  981. ##########################################################
  982. ##########################################################
  983. ##########################################################
  984. ##########################################################
  985. ##########################################################
  986. ##########################################################
  987. ##########################################################
  988. ##########################################################
  989. ##########################################################
  990. ##########################################################
  991. ##########################################################
  992. ##########################################################
  993. ##########################################################
  994. ##########################################################
  995. ##########################################################
  996. ##########################################################
  997. O=Lotus Notes
  998. O=Lotus Notes
  999. PURSAFO
  1000. |.:#U
  1001. O=Lotus Notes
  1002. CN=Lotus Notes Template Development/O=Lotus Notes
  1003. PURSAFO
  1004. Fde!f^^
  1005. $ACLDigest
  1006. PURSAFO
  1007. 05/02/97 15:54:08 Avril Jordan/DUB/Lotus deleted Beth Brownholtz/TCGEMINI2
  1008. 09/11/96 02:41:56 PM Beth Brownholtz/CAM/Lotus updated -Default-
  1009. 09/11/96 02:41:52 PM Beth Brownholtz/CAM/Lotus updated [OtherDomainServers]
  1010. 09/11/96 02:41:40 PM Beth Brownholtz/CAM/Lotus added [OtherDomainServers]
  1011. 09/11/96 02:41:33 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  1012. 09/11/96 02:41:29 PM Beth Brownholtz/CAM/Lotus updated [LocalDomainServers]
  1013. 09/11/96 02:41:25 PM Beth Brownholtz/CAM/Lotus added [LocalDomainServers]
  1014. 09/11/96 02:40:11 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  1015. 09/11/96 02:40:04 PM Beth Brownholtz/CAM/Lotus added LocalDomainServers
  1016. 09/11/96 02:39:51 PM Beth Brownholtz/CAM/Lotus updated [-Default-]
  1017. 09/11/96 02:39:40 PM Beth Brownholtz/CAM/Lotus added [-Default-]
  1018. 09/11/96 02:39:28 PM Beth Brownholtz/CAM/Lotus deleted Robin Alvarez/TCGEMINI2
  1019. 09/11/96 02:39:27 PM Beth Brownholtz/CAM/Lotus updated Beth Brownholtz/TCGEMINI2
  1020. 09/11/96 02:39:19 PM Beth Brownholtz/CAM/Lotus added Beth Brownholtz/TCGEMINI2
  1021. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated Robin Alvarez/TCGEMINI2
  1022. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 added Robin Alvarez/TCGEMINI2
  1023. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated -Default-
  1024. -Default-
  1025. [-Default-]
  1026. LocalDomainServers
  1027. [LocalDomainServers]
  1028. [OtherDomainServers]
  1029. Nouveau classeur par  
  1030. Title
  1031.  par 
  1032.  avec "
  1033.  (Aucune r
  1034. ponse)
  1035.  (1 R
  1036. ponse)
  1037.  (% R
  1038. ponses)
  1039.     4S5S6S10S14S15S17S21S23S24S25S26S30S32S
  1040. &Arial
  1041. '++LotusScript Development Environment:2:5:(Options):0:74
  1042. Option Public
  1043. '++LotusScript Development Environment:2:5:(Forward):0:1
  1044. Declare Public Type Assignment
  1045. Declare Public Type Request
  1046. Declare Function DoRequestAction ()
  1047. Declare Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  1048. Declare Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  1049. Declare Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  1050. Declare Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  1051. Declare Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  1052. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1053. ' UI entry points    
  1054. ' * * * --> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  1055. Const  UIDLL_NAME =   "tcui10fr.dll"
  1056. ' collect which kind of documents?
  1057. Declare Public Function GetConsolidateInfo Lib UIDLL_NAME  Alias "GetConsolidateInfo"  (Byval hInst As Long, pbCompleteOnly As Long, pbDeleteContributions As Long) As Long
  1058. ' share now or later
  1059. Declare Public Function ShareDocument Lib UIDLL_NAME  Alias "ShareDocument" (Byval hInst As Long) As Long
  1060. ' get  is the status of the contribution
  1061. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  1062. ' which spreadsheet to use, existing or new
  1063. Declare Public Function BrowseForSpreadSheet  Lib UIDLL_NAME  Alias "BrowseForSpreadSheet"  (Byval hInst As Long, pFilename As String,  _
  1064. pNewOrExsisting As Long,  pTitle As String ) As Long
  1065. ' assign worksheets to users
  1066. Declare Public Function AssignWorkSheet   Lib UIDLL_NAME  Alias "AssignWorkSheet"  _ 
  1067. (Byval hInst As Long, pSheetList As Any, pAssignmentList As Any, pNotifyAssigned As Long, pAccessFlag As Long, pMailMessage As String, pNotifyDistrib As Long ) As Long
  1068. ' distributed workbook warning
  1069. Declare Public Function DistributeWarning   Lib UIDLL_NAME  Alias "DistributeWarning"  (Byval hInst As Long, pShowAgain As Long) As Long
  1070. ' -- constants
  1071. ' * * * these constant values should not be changed * * * 
  1072. Const EXISTING_FILE = 1
  1073. Const NEW_FILE = 2
  1074. Const DISTRIBUTE_NOW = 1
  1075. Const DISTRIBUTE_LATER = 2
  1076. Const CANCEL = 0
  1077. Const SUCCESS = 1
  1078. Const FAILURE = 2
  1079. Const STATUS_IN_PROGRESS = "1"
  1080. Const STATUS_READY_CONS = "2"
  1081. Const STATUS_DONT_CONS = "3"
  1082. Const STATUS_DATA_REQUESTED = "101"
  1083. Const STATUS_CONS_IN_MASTER = "102"
  1084. Const NOTIFICATION_PENDING =  "1"
  1085. Const CONTRIBUTOR_NOTIFIED =  "2"
  1086. Const UPDATE_IN_PROGRESS =  "1"
  1087. Const UPDATE_COMPLETE = "4"
  1088. Const IGNORE = "5"
  1089. Const CONSOLIDATED_INTO_MASTER = "6"
  1090. Const NOT_YET_DISTRIBUTED =  "1"
  1091. Const MASTER_DISTRIBUTED = "2"
  1092. Const PARTIALLY_CONSOLIDATED = "3"
  1093. Const CONSOLIDATION_COMPLETE =  "4"
  1094. Const CONVERT_TO_ARRAY = 1
  1095. Const CONVERT_TO_TEXTLIST = 2
  1096. ' -- error codes
  1097. Const WORKBOOK_PASSWORDED      =  257                       ' 0x101
  1098. Const COLLECT_PAGE_NOT_FOUND   =  258                       ' 0x102
  1099. ' -- Strings
  1100. ' -- Form names 
  1101. Const CONTRIBUTOR_FORM = "Secondary"
  1102. Const CONTRIBUTOR_FORM_ALIAS = "Collaborateur"
  1103. Const MASTER_FORM = "Main"
  1104. Const MEMO_FORM = "Memo"
  1105. ' -- View names
  1106. Const CONSOLIDATE_VIEW = "(Consolidation interne)"
  1107. ' -- * * * Strings to be translated * * *
  1108. Const MAIL_SUBJECT = "La feuille suivante vous a 
  1109.  affect
  1110. e --> "                               ' header for the subject of the mail with doc link
  1111. Const DOCLINK_TEXT = "Cette liaison vous conduit 
  1112.  la feuille qui vous est affect
  1113. e.   "                        ' user sees this when clicking on doclink
  1114. Const MSG_ERROR = "Erreur: "
  1115. Const MSG_LOTUS_TITLE          =              "Lotus 1-2-3 97"
  1116. Const MSG_SHARING_WORKBOOK = "Partage de classeur 1-2-3."
  1117. Const MSG_REQUEST_COMPLETE =        "Les feuilles ont 
  1118.  diffus
  1119. es par 1-2-3."
  1120. Const MSG_DISTRIB_PASSWORDED =    "Impossible de diffuser les feuilles d'un classeur ma
  1121. tre prot
  1122.  par un mot de passe."
  1123. Const MSG_EDIT_PASSWORDED       =    " Cette feuille diffus
  1124. e ne peut pas 
  1125. tre modifi
  1126. e car le classeur ma
  1127. tre dont elle provient est prot
  1128.  par un mot de passe."
  1129. Const MSG_DISTRIBUTING_SHEET    = "Diffusion de feuille " 
  1130. Const MSG_FYI  = "Pour information:  "
  1131. Const MSG_NO_EMAIL =  " n'a pas pu 
  1132. tre notifi
  1133.  par messagerie 
  1134. lectronique."
  1135. ' consolidate complete message.  Used in Consolidate/Click
  1136. Const  MSG_CONSOLIDATE =  |Consolidation termin
  1137. Const MSG_DBLCLICK = |Cliquez deux fois sur le classeur incorpor
  1138.  pour afficher les r
  1139. sultats.|
  1140. Const MSG_REPLICATION_CONFLICT = "Consolidation impossible en cas de conflits de r
  1141. plication de documents diffus
  1142. Const MSG_CONSOLIDATE_ERROR = "Erreur lors de la consolidation "
  1143. Const MSG_CONSOLIDATING_SHEET = "Consolidation de feuille "
  1144. Const MSG_CONSOLIDATE_VIEW_NOT_FOUND = "Impossible d'achever la consolidation : vue ""Consolidation interne"" introuvable."
  1145. Const MSG_CONSOLIDATE_IDS_NOT_FOUND = "Impossible d'achever la consolidation : erreur interne, les ID de note ne correspondent pas dans la vue."
  1146. Const MSG_CANNOT_OPEN_WRKBOOK = "Le classeur 1-2-3 n'a n'a pu 
  1147. tre activ
  1148. . Fermez le document Notes document, r
  1149. ouvrez-le et renouvelez l'op
  1150. ration."
  1151. ' -- * * * End Strings to be translated * * *
  1152. ' --- Data structures
  1153. Public Type Assignment
  1154.      sheetName   As String    ' name of sheet
  1155.      assignedTo  As String     ' names of user(s) 
  1156.      sheetObject As Long  ' handle to 1-2-3 sheet
  1157. End Type 
  1158. Public Type Request
  1159.      sendMail  As Long        ' send email?
  1160.      closedACL As Long      ' acl set to contributor or everyone
  1161.      message   As String       ' message to include in email
  1162.      notifyDistrib As Long      ' notify distributor on completion?
  1163. End Type
  1164. ' -- Global variables
  1165. Dim DB As NotesDatabase
  1166. Dim UIDoc As NotesUIDocument
  1167. Dim hInst As Long
  1168. Dim hWorkBook As Variant
  1169. '++LotusScript Development Environment:2:1:DoRequestAction:4:8
  1170. ' this is a subroutine that implements all the "RequestWorkbook Data" action
  1171. ' but by having it in a subroutine, it can be invoked via the action and by PostOpen
  1172. Function DoRequestAction ()
  1173.      
  1174.      On Error Goto handler
  1175.      
  1176.  '     -- Declarations --          
  1177.      Dim workSpace As New NotesUIWorkspace
  1178.      Dim result As Integer
  1179.      
  1180.      Dim thisDoc As NotesDocument    
  1181.      Set UIDoc = workSpace.CurrentDocument
  1182.      Set thisDoc = UIDoc.Document
  1183.      
  1184.       ' force a save of the document, so the 1-2-3 object get saved before we ask for its list of sheets
  1185.      ' because the user could have activated it before doing the Request and didn't save it yet
  1186.      UIDoc.Save
  1187.      
  1188.      Dim Session As New NotesSession
  1189.      Set DB = Session.CurrentDatabase
  1190.      
  1191.      ' get handle to LotusScript instance
  1192.      hInst = Lsi_info(4)
  1193.      
  1194. ' Get the handle to the Master spreadsheet
  1195.      
  1196.      Set embedObj = GetMasterEmbeddedObject (thisDoc)
  1197.      
  1198.      If Isempty(hWorkBook) Then         
  1199.           Set hWorkBook = UIDoc.GetObject("Master 123 Object")
  1200.           ' activate the Master spreadsheet, hidden
  1201.        '   Set hWorkBook = embedObj.Activate (False)  
  1202.      End If
  1203.      
  1204.  ' make sure we got back a valid handle
  1205.      If Datatype(hWorkBook) <> 9 Then
  1206.           Msgbox MSG_CANNOT_OPEN_WRKBOOK 
  1207.           Goto Done
  1208.      End If
  1209.      
  1210.      
  1211.  ' Ask it for a list of sheets 
  1212.      Dim i As Integer
  1213.      Dim sheetList (256) As String
  1214.      Dim assignmentList(256) As Assignment
  1215.      Dim requestInfo As Request    
  1216.      
  1217.      i = 0
  1218.      Forall sheet In hWorkBook.Sheets 
  1219.           Dim sheetName As String        
  1220.           
  1221.           ' put unhidden sheets in the list
  1222.           If Not sheet.issheethidden Then
  1223.                sheetList(i) = sheet.Name             
  1224.                i = i + 1
  1225.           End If
  1226.           
  1227.      End Forall
  1228.      
  1229.  ' call the UI, which asks the user for the mapping of sheets --> users
  1230.      result = AssignWorksheet (hInst, sheetList, assignmentList, requestInfo.sendMail, requestInfo.closedACL, requestInfo.message, requestInfo.notifyDistrib)
  1231.      
  1232.      ' user cancelled from assign worksheet UI, clear out handle to 1-2-3 workbook. this way if they hit the request button again
  1233.      ' before closing the Notes document, everything will work OK.
  1234.      If result = CANCEL Then
  1235.           hWorkBook = Empty
  1236.           Goto Done
  1237.      Else
  1238.           
  1239.           Forall assigned In assignmentList
  1240.                
  1241.                ' we're done when there are no more sheets
  1242.                If assigned.sheetName = "" Then
  1243.                     Exit Forall
  1244.                     
  1245.                Else
  1246.                     ' distribute each sheet
  1247.                     Call Distribute (hWorkBook, assigned, requestInfo,  DB, thisDoc)
  1248.                     
  1249.                End If
  1250.           End Forall
  1251.           
  1252.           ' inform the user that the request operation is complete
  1253.           Msgbox MSG_REQUEST_COMPLETE, 0 + 64, MSG_LOTUS_TITLE 
  1254.      End If
  1255.      
  1256.      
  1257. JustStatus: 
  1258.      ' change the status of the master document now that it has been distributed
  1259.      ' put the document into edit mode, otherwise we can't update the status
  1260.      If UIDoc.EditMode = False Then
  1261.           UIDoc.EditMode = True
  1262.      End If
  1263.      
  1264.      hWorkBook = Empty
  1265.      thisDoc.Status =  MASTER_DISTRIBUTED
  1266.      thisDoc.Save True, False
  1267.      
  1268.      UIDoc.Reload   
  1269.      UIDoc.RefreshHideFormulas
  1270.      UIDoc.Save
  1271.      
  1272.      ' refresh the view so it gets the new documents and status changes
  1273.      workSpace.ViewRefresh
  1274.      
  1275.      UIDoc.Close
  1276.      Exit Function
  1277.      
  1278. handler:
  1279.      Msgbox MSG_ERROR  & Error$    
  1280.      Goto Done
  1281.      
  1282. Done:
  1283.      
  1284. End Function 
  1285. '++LotusScript Development Environment:2:2:Distribute:1:8
  1286. Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  1287.      On Error Goto handler
  1288.      
  1289. ' -- Declarations --          
  1290.      
  1291.      Dim newResponse As New NotesDocument (parentDB)
  1292.      Dim convertedArray  As Variant 
  1293.      Dim contributor As NotesItem
  1294.      Dim currAuthor As NotesItem
  1295.      Dim canName As Variant
  1296.      Dim contributorOnly As NotesItem
  1297.      
  1298.       ' notify the user that we are distributing sheet X 
  1299.      Print MSG_DISTRIBUTING_SHEET ;  assign.sheetName
  1300.      
  1301.      newResponse.Form = CONTRIBUTOR_FORM
  1302.      newResponse.WorksheetTitle = assign.sheetName
  1303.      newResponse.WorkbookTitle = thisDoc.Title
  1304.      newResponse.SourceName = thisDoc.SourceName
  1305.      
  1306.      ' convert the list from the ui (comma delimitted) to an array
  1307.      convertedArray = StringConvert (assign.assignedTo,  CONVERT_TO_ARRAY)
  1308.      
  1309.      Set contributor = New NotesItem(newResponse, "Contributor", convertedArray, NAMES)    
  1310.      contributor.IsSummary = True                                    ' so it shows up in a view
  1311.      
  1312.       ' now convert all the name(s) in the contributor field to canonical
  1313.      canName = Evaluate("@Name([Canonicalize];Contributor)", newResponse)
  1314.      newResponse.ReplaceItemValue "Contributor", canName
  1315.      
  1316.      ' first New the current author item to get its AUTHORS flag set, just doing the copy doesn't do it
  1317.      ' assign the contributor(s)
  1318.      Set currAuthor = New NotesItem(newResponse, "CurrentAuthor", canName, AUTHORS)
  1319.      
  1320.      ' then add the distributor as having author acess as well, otherwise they won't even be able to save the document
  1321.      currAuthor.AppendToTextList (thisDoc.Author(0))
  1322.      
  1323.      ' keep track of who created this document
  1324.      Dim distributor As NotesItem
  1325.      Set distributor = New NotesItem(newResponse, "Distributor", thisDoc.Author, NAMES)
  1326.      distributor.IsSummary =True
  1327.      
  1328.      ' should the distributor be notified when the user has completed work on this sheet?
  1329.      newResponse.NotifyDistributor = requestInfo.notifyDistrib 
  1330.      
  1331.      newResponse.WorkSheetStatus  = STATUS_DATA_REQUESTED 
  1332.      
  1333.      ' make a response doc of the current doc
  1334.      newResponse.MakeResponse thisDoc
  1335.      
  1336.       ' by design of the ACL, contributors have Author access to their documents, others can read them only.
  1337.      ' if the distributor wanted a closed ACL, then no one else can read the contributor documents either.
  1338.      newResponse.ForContributorsOnly = requestInfo.closedACL
  1339.      
  1340.      If requestInfo.closedACL = 1 Then
  1341.           ' put contributors names in the readers field, that will define them as who can read the document
  1342.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", newResponse.Contributor, READERS)
  1343.           
  1344.           ' add the distributor so s/he can read the document too
  1345.           contributorOnly.Appendtotextlist thisDoc.Author
  1346.           
  1347.      Else
  1348.           ' not restricted, put a * in the readers field, without this there are disappearing response documents in the view
  1349.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", "*", READERS)
  1350.           contributorOnly.IsSummary = True                        
  1351.      End If
  1352.      
  1353.      ' create the contributor embedding from a new 1-2-3 workbook
  1354.      Set RTItem = New NotesRichTextItem( newResponse, "ContributorEmbedding")
  1355.      Dim ContribEmbedObj As NotesEmbeddedObject
  1356.      Dim hContributor As Variant
  1357.      
  1358.      Set ContribEmbedObj = RTItem.EmbedObject( EMBED_OBJECT, "Lotus123.Workbook", "", assign.sheetName)
  1359.      
  1360.      ' save the new response document
  1361.      newResponse.Save True, False
  1362.      
  1363.     ' activate the contributor spreadsheet, hidden
  1364.      Set hContributor = ContribEmbedObj.Activate (False)   'activate hidden
  1365.      
  1366.     ' distribute sheetName into the new contributor embedding
  1367.     ' 1-2-3 will automatically close the document
  1368.      hWorkBook.Distribute assign.sheetName,  hContributor.Name             
  1369.      
  1370.      ' save the new response document
  1371.      newResponse.save True, False
  1372.      
  1373.      ' make the contributor a reader of the Master document, they need at least reader access 
  1374.      'or otherwise we won't be able to make this work
  1375.      Dim docReaders As notesitem
  1376.      If thisDoc.DocReaders(0) = "*" Then
  1377.           thisDoc.DocReaders =  ""                           ' just clear it out so appendtotextlist will work the first time
  1378.      End If
  1379.      
  1380.      Set docReaders  = thisDoc.GetFirstItem("DocReaders")
  1381.      Forall contribNames In Contributor.Values              
  1382.           docReaders.Appendtotextlist( contribNames)
  1383.      End Forall
  1384.      
  1385.      ' save the reader field changes to the master document
  1386.      thisDoc.Save True, False
  1387. %END REM
  1388.      
  1389.  ' send an email to the assignees
  1390.      
  1391.      ' if the user wants email sent, then compose one and mail a doc link to this new response
  1392.      If requestInfo.sendMail = 1 Then Goto SendTheMail Else Goto Done
  1393.      
  1394. SendTheMail:
  1395.      Call SendMailWithDocLink(thisDoc, newResponse, assign, requestInfo)
  1396.      Goto Done
  1397.      
  1398. handler:
  1399.      Msgbox MSG_ERROR & Error$    
  1400.      Resume Next
  1401.      
  1402. Done:   
  1403.      
  1404. End Sub
  1405. '++LotusScript Development Environment:2:2:SendMailWithDocLink:1:8
  1406. Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  1407.      
  1408.      On Error Goto handler
  1409.      
  1410.      Dim newDoc As NotesDocument
  1411.      Dim subjectString As String
  1412.      Dim titleString As String
  1413.      Dim contribItem As NotesItem
  1414.      Dim linkMessage As String
  1415.      
  1416.      Set newDoc = New NotesDocument(linkDoc.ParentDatabase)
  1417.      newDoc.Form = MEMO_FORM 
  1418.      Set BodyItem = New NotesRichTextItem( newDoc, "Body" )
  1419.      
  1420.      subjectString = parentDoc.Title(0)
  1421.      titleString = linkDoc.WorkSheetTitle(0)
  1422.      newDoc.Subject = MAIL_SUBJECT + titleString
  1423.      
  1424.      ' cc: distributor?
  1425.      ' newDoc.CopyTo = parentDoc.Author
  1426.      
  1427.      ' send the mail to all of the contributor(s)
  1428.      Set contribItem = linkDoc.GetFirstItem("Contributor")
  1429.      newDoc.CopyItem contribItem, "SendTo"
  1430.      
  1431.      ' compose the doc link popup
  1432.      linkMessage = subjectString + "." + titleString
  1433.      
  1434.      ' compose the body of the email
  1435.      BodyItem.AppendText requestInfo.message
  1436.      BodyItem.AddNewLine 2
  1437.      BodyItem.AppendText DOCLINK_TEXT 
  1438.      BodyItem.AppendDocLink linkDoc, linkMessage      
  1439.      
  1440.      ' send it out
  1441.      Call newDoc.Send (False)
  1442.      
  1443.      Goto Done
  1444.      
  1445. handler:
  1446.      Msgbox MSG_ERROR  & Error$    
  1447.      'Resume Next
  1448.      Exit Sub
  1449.      
  1450.      
  1451. Done:
  1452.      
  1453. End Sub
  1454. '++LotusScript Development Environment:2:1:StringConvert:1:8
  1455. Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  1456.      
  1457.      Const QUOTE = """"
  1458.      Const SEMICOLON = ";"
  1459.      Const COMMA = ","
  1460.      Const COLON = " : "
  1461.      Const BLANK = " "
  1462.      Const RESIZE_UNIT = 20
  1463.      
  1464.      Dim SingleChar As String, MaxStrLen As Integer, LastCharInString As String
  1465.      
  1466.      If InitialString = "" Then          'if the incoming string is an empty string then
  1467.           StringConvert = InitialString    'return back the empty string
  1468.           Goto Done
  1469.      End If
  1470.      
  1471.      Select Case ConvertType
  1472.      Case CONVERT_TO_TEXTLIST:
  1473.           
  1474.           Dim TheFinalString As String
  1475.           
  1476.           'if string is not empty below statements will perform conversion
  1477.           
  1478.           MaxStrLen = Len(InitialString)          'length of the incoming string 
  1479.           TheFinalString = QUOTE                 'Insert quote to begining of string 
  1480.           
  1481.           For StrIndex = 1 To MaxStrLen
  1482.                
  1483.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  1484.                
  1485.                ' comma or semicolon denote the end of one string
  1486.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  1487.                     
  1488.                     TheFinalString = TheFinalString & QUOTE & COLON & QUOTE   'concatenate quote and colon to string if condition met
  1489.                     LastCharInString = QUOTE 
  1490.                     
  1491.                Else
  1492.                     
  1493.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  1494.                     If SingleChar = BLANK And LastCharInString = QUOTE Then
  1495.                          Goto NextChar
  1496.                     Else
  1497.                          
  1498.                          TheFinalString = TheFinalString & SingleChar    'concatenate one char at a time
  1499.                          LastCharInString = SingleChar
  1500.                     End If    
  1501.                     
  1502.                End If
  1503.                
  1504. NextChar:
  1505.           Next StrIndex
  1506.           
  1507.           If ConvertType = CONVERT_TO_TEXTLIST Then
  1508.                
  1509.                TheFinalString = TheFinalString & QUOTE         'Close the final quote
  1510.           End If        
  1511.           
  1512.           
  1513.           StringConvert  = TheFinalString
  1514.           
  1515.           
  1516.      Case CONVERT_TO_ARRAY:
  1517.           
  1518.           Redim FinalString(RESIZE_UNIT) As String
  1519.           Dim i, currentBounds  As Integer
  1520.           currentBounds = RESIZE_UNIT 
  1521.           i = 0
  1522.           
  1523.           MaxStrLen = Len(InitialString)    'length of the incoming string 
  1524.           
  1525.           For StrIndex = 1 To MaxStrLen
  1526.                
  1527.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  1528.                
  1529.                     ' comma or semicolon denote the end of one string
  1530.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  1531.                     
  1532.                     i = i + 1                                           ' for array, bump to next element
  1533.                     
  1534.                     ' if we have reached the end of the allocated array, resize by another chunk
  1535.                     If i  > currentBounds Then
  1536.                          currentBounds = currentBounds + RESIZE_UNIT 
  1537.                          Redim Preserve FinalString(currentBounds) As String
  1538.                     End If
  1539.                     LastCharInString = COMMA
  1540.                     
  1541.                Else
  1542.                     
  1543.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  1544.                     If SingleChar = BLANK And LastCharInString = COMMA Then
  1545.                          Goto ToNextChar
  1546.                     Else
  1547.                          FinalString(i) = FinalString(i) & SingleChar    'concatenate one char at a time
  1548.                          LastCharInString = SingleChar
  1549.                     End If    
  1550.                     
  1551.                End If
  1552.                
  1553. ToNextChar:
  1554.           Next StrIndex                          ' for loop
  1555.           
  1556.           ' trim the array to just what was needed
  1557.           Redim Preserve FinalString(i) As String
  1558.           
  1559.           StringConvert  = FinalString
  1560.           
  1561.      End Select
  1562.      
  1563. Done:
  1564.      
  1565. End Function            'end of StringConvert
  1566. '++LotusScript Development Environment:2:1:ActivateMaster:2:8
  1567. ' activate the master embedded object, hidden; returns a handle to the running object
  1568. Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  1569.      
  1570.      Dim hMaster As Variant
  1571.      
  1572.      Dim thisDoc As NotesDocument
  1573.      Set thisDoc = thisUIDoc.Document
  1574.      
  1575.      
  1576.      Dim embedObject As NotesEmbeddedObject
  1577.      Set embedObject =  GetMasterEmbeddedObject(thisDoc)
  1578.      Set hMaster = embedObject.Activate (False)
  1579.      Set ActivateMaster = hMaster
  1580.      
  1581. End Function
  1582. '++LotusScript Development Environment:2:1:GetMasterEmbeddedObject:2:8
  1583. ' returns the Notes embedded object for the Master embedding
  1584. Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  1585.      
  1586.      Dim MasterWorkBook As NotesRichTextItem
  1587.      Dim MasterItem As Variant
  1588.      Dim embedObj As NotesEmbeddedObject
  1589.      Dim embedName As NotesItem
  1590.      
  1591.      Set embedName = thisDoc.GetFirstItem("MasterName")
  1592.      Set MasterItem =  thisDoc.GetFirstItem("Master")
  1593.      Set MasterWorkBook = MasterItem
  1594.      
  1595.      Set embedObj = MasterWorkBook.GetEmbeddedObject(embedName.Text)
  1596.      
  1597.      Set GetMasterEmbeddedObject = embedObj
  1598.      
  1599. End Function
  1600. },"#1
  1601. Contributor
  1602.     0S0E
  1603.  Main'++LotusScript Development Environment:2:5:(Options):0:66
  1604. '++LotusScript Development Environment:2:5:(Forward):0:1
  1605. Declare Sub Postopen(Source As Notesuidocument)
  1606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1607. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1608. Private Sub BindEvents(Byval Objectname_ As String)
  1609.      Static Source As NOTESUIDOCUMENT
  1610.      Set Source = Bind(Objectname_)
  1611.      On Event Postopen From Source Call Postopen
  1612. End Sub
  1613. '++LotusScript Development Environment:2:2:Postopen:1:12
  1614. Sub Postopen(Source As Notesuidocument)
  1615.      
  1616. ' -- Declarations --      
  1617.      Dim newOrExisting As Long
  1618.      Dim result As Long    
  1619.      Dim Session As New NotesSession
  1620.      Dim theTitle As String
  1621.      
  1622.      Set DB = Session.CurrentDatabase
  1623.      Set UIDoc = source
  1624.      Dim Doc As New NotesDocument(DB)
  1625.      Set Doc = Source.Document
  1626.      
  1627.      ' Only do all the create processing when the document is new
  1628.      If Doc.ISNEWNOTE Then
  1629.           
  1630.           ' get handle to LotusScript instance, needed to pass to all UI calls
  1631.           hInst = Lsi_info(4)
  1632.           
  1633.           ' declare a new field to track whether they want to see the if you edit this warning which 
  1634.            ' is put up on subsequent opens ot this document
  1635.           Dim  DontShowWarning As New NotesItem(Doc, "DontShowWarning", 0)
  1636.           
  1637.           Set RTItem = New NotesRichTextItem( Doc, "Master")
  1638.           Dim EmbObj As NotesEmbeddedObject                        
  1639.           
  1640.           Dim workbookName As String
  1641.           Dim masterName As New NotesItem (Doc, "MasterName", "Master 123 Object")
  1642.           
  1643.           ' get the kind of workbook to embed (new or existing)
  1644.           result = BrowseForSpreadSheet (hInst, workbookName, newOrExisting, theTitle)
  1645.           If result = CANCEL Then
  1646.                ' the user is cancelling the creation of the shared workbook:
  1647.                ' close this document and get out. Note:  it was never saved so we don't have to delete it
  1648.                UIDoc.Close
  1649.                Goto Done
  1650.                
  1651.           Else 
  1652.                ' navigate to the field where we will embed the 1-2-3 object
  1653.                UIDoc.GotoField "Master"
  1654.                
  1655.                ' populate the title field
  1656.                Doc.Title = theTitle
  1657.                
  1658.                ' embedding an existing file
  1659.                If newOrExisting = EXISTING_FILE Then  
  1660.                     
  1661.                     ' save off the filename of the workbook we are creating from
  1662.                     Doc.SourceName = workbookName
  1663.                     
  1664.                     ' create the embedding
  1665.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "", workbookName)
  1666.                     
  1667.                     ' for embedding from file, must call GetObject to actually get a handle to the object
  1668.                     Set hWorkBook = UIDoc.GetObject(masterName.Text)
  1669.                     
  1670.                     ' in case of some kind of timeout, keep trying until we get the handle
  1671. tryAgain:
  1672. '                    If Datatype (hWorkBook)  <> 9 Then
  1673.                     ' datatype 13 is IUnknown, datatype 9 is Ole object and nothing
  1674.                     If Datatype (hWorkBook)  = 13 Then
  1675.                          Set hWorkBook = UIDoc.GetObject(masterName.Text)
  1676.                          Goto tryAgain
  1677.                     End If
  1678.                     
  1679.                     ' let the user know what's happening
  1680.                     Print MSG_SHARING_WORKBOOK 
  1681.                     
  1682.                     ' ask 1-2-3 if this document is OK to share
  1683.                     result = hWorkBook.CreateAsShared
  1684.                     
  1685.                     If result <> SUCCESS Then
  1686.                          
  1687.                          ' can't share password-protected workbooks
  1688.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  1689.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  1690.                               ' remove workbook embedding
  1691.                               doc.RemoveItem("Master")
  1692.                               UIDoc.Close 
  1693.                               Exit Sub
  1694.                          End If
  1695.                          
  1696.                     End If      ' if SUCCESS
  1697.                     
  1698.        '             UIDoc.Save
  1699.                     
  1700.                      ' now that the master workbook is embedded, ask the user if they want to distribute now or later
  1701.                     result = ShareDocument(hInst) 
  1702.                     If result = DISTRIBUTE_NOW Then
  1703.                          ' go to it
  1704.                          result = DoRequestAction()
  1705.                     End If
  1706.                     
  1707.                Else
  1708.                     
  1709.                     ' embeddjng  a NEW 1-2-3 object
  1710.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "Lotus123.Workbook")
  1711.                     
  1712.                      ' ask 1-2-3 if this document is OK to share 
  1713.                     result = hWorkBook.CreateAsShared
  1714.                     
  1715.                     If result <> SUCCESS Then
  1716.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  1717.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  1718.                               ' remove workbook embedding
  1719.                               doc.RemoveItem("Master")
  1720.                               UIDoc.Close
  1721.                               Exit Sub
  1722.                          End If
  1723.                     End If    ' if SUCCESS
  1724.                     
  1725.         '            doc.Save True, False
  1726.                     
  1727.                End If      ' test for create from new or existing workbook
  1728.                
  1729.           End If      ' user hit OK out of select workbook UI
  1730.           
  1731.           ' get the UI sync'ed up with the backend
  1732.           Doc.Save True, False
  1733.           UIDoc.Reload   
  1734.           
  1735.           ' recompute all fields and save it out
  1736.           UIDoc.Refresh
  1737.           UIDoc.Save
  1738.           
  1739.           hWorkBook = empty
  1740.           
  1741.      End If        ' if this is a new document
  1742.      
  1743. Done:
  1744.      
  1745. End Sub
  1746. -,    #}
  1747. -,    ##
  1748. -,    ##
  1749. -,    #}
  1750. '++LotusScript Development Environment:2:5:(Options):0:66
  1751. '++LotusScript Development Environment:2:5:(Forward):0:1
  1752. Declare Sub Initialize
  1753. Declare Sub Entering(Source As Field)
  1754. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1755. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1756. Private Sub BindEvents(Byval Objectname_ As String)
  1757.      Static Source As FIELD
  1758.      Set Source = Bind(Objectname_)
  1759.      On Event Entering From Source Call Entering
  1760. End Sub
  1761. '++LotusScript Development Environment:2:2:Initialize:1:10
  1762. Sub Initialize
  1763.      
  1764. End Sub
  1765. '++LotusScript Development Environment:2:2:Entering:1:12
  1766. Sub Entering(Source As Field)
  1767.      
  1768.      If UIDoc.EditMode = True Then
  1769.           Dim Doc As New NotesDocument(DB)
  1770.           Set Doc = UIDoc.Document
  1771.           
  1772.           ' warn the user that editting this document is risky after its been distributed
  1773.           If doc.Status(0) = MASTER_DISTRIBUTED Then
  1774.                If doc.DontShowWarning(0) = 0 Then
  1775.                     Dim show As Long
  1776.                     show = doc.DontShowWarning(0)
  1777.                     result = DistributeWarning (hInst, show)
  1778.                     doc.DontShowWarning = show
  1779.                     doc.Save  True, False       ' write it out?
  1780.                End If
  1781.           End If
  1782.      End If
  1783.      
  1784. End Sub
  1785. Section Heading
  1786. TeamConsolidation d'un classeur 1-2-3
  1787. FormTitleInfoDisplay
  1788. Author
  1789. SourceNameh
  1790. SourceName
  1791. Nouveau classeur 1-2-3
  1792.     0S0E
  1793. SourceName
  1794. Form Banner
  1795. wwwwwwwwwwww
  1796. wwwwwwwwwwww
  1797. wwwwwwwwwwww
  1798. wwwwwwwwwwww
  1799. wwwwwwwwwwwwwwwwwwwwwwwww
  1800. wwwwwxwwwwww
  1801. wwwwwxwwwwww
  1802. wxwwppww
  1803. wxwwppww
  1804. wpppwxww
  1805. wpppwxww
  1806. wwwwwxwwwwww
  1807. wwwwwxwwwwww
  1808. wpppwxww
  1809. wpppww
  1810. wwwwww
  1811. wwwwwxwwwwww
  1812. wwwwww
  1813. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  1814. UUUUXwxww
  1815. wpppwxww
  1816. UUUWwxwwwwww
  1817. wwwwwxwwwwwww
  1818. """(]UUU
  1819. """"""""""""""""""""""/
  1820. """""/
  1821. *""""/
  1822. SourceNameh
  1823.     0S0E
  1824.     0S0E
  1825.     0S0E
  1826. FormTitleInfoDisplay
  1827. FormTitleDisplay
  1828. Subject
  1829. Title
  1830. Regular Style
  1831.  par :
  1832. AUTHOR
  1833.     0S0E
  1834. CreateDate
  1835. CreatedTime
  1836. Etat:
  1837. Status
  1838.     0S0E
  1839. Status
  1840. es non encore demand
  1841. es | 1Donn
  1842. es demand
  1843. es | 2Partiellement consolid
  1844.  | 3Consolidation termin
  1845. e | 4
  1846. Classeur
  1847. Regular Style
  1848.            
  1849. Master
  1850. Remarques
  1851. Main_Remarks
  1852. History
  1853. Historique de la feuille
  1854. Historique du classeur
  1855.     0S0E
  1856. Historique
  1857. Hidden Always
  1858. SessionTimes
  1859. Recherche la liste d'
  1860. diteurs, y compris l'
  1861. diteur actuel, dans le champ CurrentEditor.
  1862. SessionEditors
  1863. Recherche la liste d'
  1864. diteurs, y compris l'
  1865. diteur actuel, dans le champ CurrentEditor.
  1866. Fichier source du classeur:       
  1867. SourceName
  1868. BookName
  1869.  par  
  1870. Modifi
  1871.  par 
  1872. SessionEditorsj
  1873. SessionEditors
  1874.  le "
  1875. SessionTimesT
  1876. dimanche
  1877. lundi
  1878. mardi
  1879. mercredi
  1880. jeudi
  1881. vendredi
  1882. samedi
  1883. SessionTimesO
  1884. janvier
  1885. vrier
  1886. avril
  1887. juillet
  1888. septembre
  1889. octobre
  1890. novembre
  1891. cembre
  1892. SessionTimesP
  1893. SessionTimesN
  1894. SessionTimes
  1895.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  1896. * * * FIN DU DOCUMENT * * *
  1897. Hidden
  1898. gori_ser
  1899. Modifier document
  1900. Envoyer
  1901. _Faire suivre
  1902. _Ajouter au dossier...
  1903. _Retirer du dossier...
  1904. Demander donn
  1905. es du classeur'++LotusScript Development Environment:2:5:(Options):0:66
  1906. '++LotusScript Development Environment:2:5:(Forward):0:1
  1907. Declare Sub Click(Source As Button)
  1908. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1909. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1910. Private Sub BindEvents(Byval Objectname_ As String)
  1911.      Static Source As BUTTON
  1912.      Set Source = Bind(Objectname_)
  1913.      On Event Click From Source Call Click
  1914. End Sub
  1915. '++LotusScript Development Environment:2:2:Click:1:12
  1916. Sub Click(Source As Button)
  1917.      
  1918.      ' Request data for this master document
  1919.      
  1920.      ' call request action sub to do all the work
  1921.      DoRequestAction
  1922.      
  1923. End Sub
  1924. Status
  1925.     1S2S
  1926. Demander 
  1927.  nouveau les donn
  1928. es du classeur'++LotusScript Development Environment:2:5:(Options):0:66
  1929. '++LotusScript Development Environment:2:5:(Forward):0:1
  1930. Declare Sub Click(Source As Button)
  1931. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1932. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1933. Private Sub BindEvents(Byval Objectname_ As String)
  1934.      Static Source As BUTTON
  1935.      Set Source = Bind(Objectname_)
  1936.      On Event Click From Source Call Click
  1937. End Sub
  1938. '++LotusScript Development Environment:2:2:Click:1:12
  1939. Sub Click(Source As Button)
  1940.      
  1941.      ' Re-request data for this master document
  1942.      
  1943.       ' call request action sub to do all the work
  1944.      DoRequestAction
  1945.      
  1946. End Sub
  1947. Status
  1948.     1S2S
  1949. Consolider donn
  1950. es du classeur'++LotusScript Development Environment:2:5:(Options):0:66
  1951. '++LotusScript Development Environment:2:5:(Forward):0:1
  1952. Declare Sub Click(Source As Button)
  1953. Declare Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  1954. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1955. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1956. Private Sub BindEvents(Byval Objectname_ As String)
  1957.      Static Source As BUTTON
  1958.      Set Source = Bind(Objectname_)
  1959.      On Event Click From Source Call Click
  1960. End Sub
  1961. '++LotusScript Development Environment:2:2:Click:1:12
  1962. Sub Click(Source As Button)
  1963.      
  1964.  ' all logic for whether this button should be available or not is done
  1965.  ' in the formula for when to hide the button
  1966.      
  1967.      On Error Goto handler
  1968.      
  1969.  '     -- Declarations --          
  1970.      Dim workSpace As New NotesUIWorkspace
  1971.      Dim result As Integer
  1972.      
  1973.      Dim thisDoc As NotesDocument    
  1974.      Set UIDoc = workSpace.CurrentDocument
  1975.      Set thisDoc = UIDoc.Document
  1976.      
  1977.      Dim responseDoc As NotesDocument
  1978.      Dim view As NotesView    
  1979.      Dim Session As New NotesSession
  1980.      Dim DB As NotesDatabase
  1981.      Dim thisDocInView As NotesDocument
  1982.      Dim done As Integer
  1983.      Dim deleteThisDoc  As Integer
  1984.      
  1985.      Dim totalResponses As Integer
  1986.      Dim totalInProgress As Integer
  1987.      Dim totalCompleted As Integer
  1988.      Dim totalDontConsolidate As Integer
  1989.      
  1990.      Set DB = Session.CurrentDatabase
  1991.      
  1992.      ' see if this document can be consolidated; the function puts up the error if there is one
  1993.      Set view = PrepareForConsolidate(thisDoc, thisDocInView)
  1994.      If view Is Nothing Then
  1995.           Goto Finished
  1996.      End If 
  1997.      
  1998.      ' ask the user which responses they want to consolidate
  1999.      Dim collectStatusStr As String
  2000.      Dim  deleteResponses As Long
  2001.      Dim collectStatus As Long
  2002.      
  2003.      deleteResponses = False
  2004.      collectStatus = True
  2005.      
  2006.      result = GetConsolidateInfo(LSInstance, collectStatus, deleteResponses)
  2007.      collectStatusStr = Cstr(collectStatus)
  2008.      If result = CANCEL Then
  2009.           Goto Finished
  2010.      End If
  2011.      
  2012.      Dim embedName As NotesItem
  2013.      Set embedName = thisDoc.GetFirstItem("MasterName")
  2014.      
  2015.      ' put the document in edit mode, otherwise no changes could be saved to it
  2016.      If UIDoc.EditMode <> True Then
  2017.           UIDoc.EditMode = True
  2018.      End If
  2019.      
  2020.       ' activate the Master spreadsheet, hidden, using the UI document will give better results
  2021.      ' in case the object has already been activated
  2022.      Set hWorkBook = UIDoc.GetObject(embedName.Text)
  2023.      
  2024.      ' start searching for children 
  2025.      Set responseDoc = view.GetChild(thisDocInView)
  2026.      
  2027.      deleteThisDoc = False
  2028.      
  2029.      ' loop through all the children, consolidating only those that meet the user's criteria 
  2030.      While ( Not (responseDoc Is Nothing) And Not done)
  2031.           
  2032.           If  responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  2033.                If collectStatus = 1 Then
  2034.                     If responseDoc.WorkSheetStatus(0) = STATUS_READY_CONS Then
  2035.                          Goto Collect
  2036.                     Else
  2037.                          Goto GoToNext
  2038.                     End If 
  2039.                Else
  2040.                     ' skip do not consolidates and consolidate completed responses
  2041.                     If responseDoc.WorkSheetStatus(0) = STATUS_DONT_CONS Or responseDoc.WorkSheetStatus(0) = STATUS_CONS_IN_MASTER Then
  2042.                          Goto GoToNext
  2043.                     Else
  2044.                          Goto Collect
  2045.                     End If         
  2046.                     
  2047.                End If      
  2048.                
  2049. Collect:
  2050.                'collect the contributor document into this one
  2051.                Print MSG_CONSOLIDATING_SHEET & responseDoc.WorksheetTitle(0)
  2052.                
  2053.                result = hWorkBook.Collect(responseDoc.WorksheetTitle(0), 1)
  2054.                
  2055.                If result = SUCCESS Then
  2056.                     
  2057.                     ' activate the response document's embedding, this will complete the collect operation for this response
  2058.                     Dim WorkSheet As NotesRichTextItem
  2059.                     Dim hWorkSheet As Variant
  2060.                     Dim Item As Variant
  2061.                     Dim WorkSheetEmbedObj As NotesEmbeddedObject
  2062.                     
  2063.                     Set Item =  responseDoc.GetFirstItem("ContributorEmbedding")
  2064.                     Set WorkSheet = Item
  2065.                     
  2066.                     Set WorkSheetEmbedObj = WorkSheet.GetEmbeddedObject(responseDoc.WorksheetTitle(0))
  2067.                     
  2068.                     ' if an error happened while activating the embedding, we'll get a 4005 back
  2069.                     On Error 4005 Goto CantGetHandle
  2070.                     
  2071.                     ' activate the worksheet, hidden
  2072.                     Set hWorkSheet = WorkSheetEmbedObj.Activate (False)  
  2073.                     
  2074.                     If ErrorOnCollect Then
  2075.                          ErrorOnCollect = False
  2076.                          Goto GoToNext             ' skip the rest for this document, it failed, but we want to keep going
  2077.                     End If
  2078.                     
  2079.                     ' remove author access from contributor(s), make the distributor have author access
  2080.                     responseDoc.ReplaceItemValue "CurrentAuthor", responseDoc.Distributor(0)
  2081.                     
  2082.                     ' remove author access from contributor(s), and then make the distributor have author access
  2083.                     responseDoc.RemoveItem("CurrentAuthor")
  2084.                     Dim currAuthor As NotesItem
  2085.                     Dim distributor As NotesItem 
  2086.                     Set distributor = responseDoc.GetFirstItem("Distributor")
  2087.                     Set currAuthor = responseDoc.CopyItem (distributor, "CurrentAuthor")
  2088.                     
  2089.                     ' leave the contributors with read access to their work
  2090.                     ' if the contributors weren't assigned reader access during distribution, then put them on now
  2091.                     If responseDoc.ForContributorsOnly(0)  <> 1 Then
  2092.                          Dim restrictedTo As NotesItem
  2093.                          Set restrictedTo  = responseDoc.GetFirstItem("RestrictedTo")
  2094.                          Dim contributor As NotesItem
  2095.                          Set contributor = responseDoc.GetFirstItem("Contributor")
  2096.                          Forall contribNames In contributor.Values
  2097.                               restrictedTo.Appendtotextlist( contribNames)
  2098.                          End Forall
  2099.                     End If
  2100.                     
  2101.                     responseDoc.WorkSheetStatus = STATUS_CONS_IN_MASTER 
  2102.                     responseDoc.Save True, False
  2103.                     
  2104.                     ' delete response if user requested it (do a delayed delete, otherwise we couldn't use 'responseDoc' anymore
  2105.                     If deleteResponses = 1 Then
  2106.                          deleteThisDoc = True
  2107.                     End If
  2108.                     
  2109.                Else                         
  2110.                     Print MSG_CONSOLIDATE_ERROR  + responseDoc.WorkSheetTitle(0)
  2111.                End If        ' error on collect
  2112.                
  2113.           End If     ' the correct form
  2114.           
  2115. GoToNext:
  2116.           
  2117.           ' count the number of response documents, used for setting status below
  2118.           totalResponses = totalResponses + 1
  2119.           
  2120.           Select Case responseDoc.WorkSheetStatus(0)
  2121.                
  2122.           Case STATUS_CONS_IN_MASTER:
  2123.                totalCompleted = totalCompleted + 1
  2124.                
  2125.           Case STATUS_IN_PROGRESS:
  2126.                totalInProgress = totalInProgress + 1
  2127.                
  2128.           Case STATUS_DONT_CONS:
  2129.                totalDontConsolidate = totalDontConsolidate + 1
  2130.                
  2131.           End Select
  2132.           
  2133.           ' go on to the next response; save the previous one in case it needs to be deleted
  2134.           Dim prevResponse As NotesDocument
  2135.           Set prevResponse = responseDoc
  2136.           Set responseDoc = view.GetNextSibling(responseDoc)
  2137.           
  2138.           If deleteThisDoc = True Then
  2139.                Call prevResponse.Remove (True)                 
  2140.                deleteThisDoc = False
  2141.           End If
  2142.           
  2143.      Wend     ' while more response documents
  2144.      
  2145.      ' now that we are done witht the collect, let 1-2-3 know it
  2146.      hWorkBook.CollectComplete
  2147.      
  2148.      ' change the status for the master document, as long as we processed at least one response
  2149.      ' otherwise, just leave the status what it was when we came in
  2150.      If totalResponses Then
  2151.           If totalCompleted = totalResponses Then
  2152.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  2153.           Elseif totalInProgress Then
  2154.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  2155. '          Elseif totalDontConsolidate Then              
  2156.           Elseif totalDontConsolidate And  ((totalDontConsolidate + totalCompleted) = totalResponses) Then
  2157.  '              thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  2158.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  2159.           Else
  2160.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  2161.           End If
  2162.      End If
  2163.      
  2164.      thisDoc.Save True, False
  2165.      UIDoc.RefreshHideFormulas
  2166.      UIDoc.Save
  2167.      workSpace.ViewRefresh
  2168.      
  2169.       ' inform the user that the consolidation is complete, and tell them to double click on the embedding to see the results
  2170.      ' this is due to a limitation of the Notes script classes which will not update the rendering of the embedding
  2171.      Dim str1 As String
  2172.      Dim str2 As String
  2173.      
  2174.      str1 = MSG_CONSOLIDATE
  2175.      str2 = MSG_DBLCLICK
  2176.      
  2177.      Msgbox str1 & Chr(13) & Chr(13) & str2, 0 + 64,  MSG_LOTUS_TITLE
  2178.      
  2179.      hWorkBook = empty
  2180.      Goto Finished
  2181.      
  2182. CantGetHandle:
  2183.      ' error happened when activating the response embedding to collect it
  2184.      ErrorOnCollect = True
  2185.      Print MSG_CONSOLIDATE_ERROR  & responseDoc.WorksheetTitle(0)
  2186.      hWorkSheet = empty
  2187.      Resume Next
  2188.      
  2189. handler:
  2190.      Msgbox MSG_ERROR & Error$    
  2191.      Goto Finished
  2192.      
  2193. Finished:
  2194.      
  2195. End Sub
  2196. '++LotusScript Development Environment:2:1:PrepareForConsolidate:4:8
  2197. ' prepare this document for consolidate, including making sure there are no replication conflicts
  2198. ' if there are then we will disallow the consolidate
  2199. Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  2200.      
  2201.      Dim view As NotesView
  2202.      Dim responseDoc As NotesDocument
  2203.      
  2204.      ' get the view for conslidating; it must exist
  2205.      Set view = DB.GetView(CONSOLIDATE_VIEW ) 
  2206.      If view Is Nothing Then
  2207.           Messagebox MSG_CONSOLIDATE_VIEW_NOT_FOUND 
  2208.           Goto ErrorDone
  2209.      End If
  2210.      
  2211.      ' search for the document in the view that matches this one; set up the key for searching 
  2212.      ' Note: the order of the keys corresponds to the columns in the view
  2213.      Dim theId As String
  2214.      theId = thisDoc.UniversalID
  2215.      
  2216.      Set thisDocInView = view.GetDocumentByKey(theId)
  2217.      
  2218.      ' make sure the document found _is_ the right one
  2219.      If Strcompare(thisDocInView.UniversalID, thisDoc.UniversalID) <> 0 Then
  2220.           Messagebox MSG_CONSOLIDATE_IDS_NOT_FOUND 
  2221.           Goto ErrorDone
  2222.      Else 
  2223.           
  2224.           ' consolidate is only legal if there are no replication conflicts in any of the children
  2225.           Set responseDoc = view.GetChild(thisDocInView)
  2226.           
  2227.           While ( Not (responseDoc Is Nothing) And Not done)
  2228.                
  2229.                If responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  2230.                     
  2231.                    ' make sure there are no replication conflicts below this one
  2232.                     Dim replicationDoc As NotesDocument
  2233.                     Set replicationDoc = view.GetChild (responseDoc)
  2234.                     
  2235.                     If Not (replicationDoc Is Nothing)  Then
  2236.                          
  2237.                          If replicationDoc.HasItem("$Conflict") Then
  2238.                               
  2239.                               If replicationDoc.Form(0) = CONTRIBUTOR_FORM Then
  2240.                                    Messagebox MSG_REPLICATION_CONFLICT
  2241.                                    Set view = Nothing
  2242.                                    Goto Done
  2243.                               End If 
  2244.                               
  2245.                          End If  ' has conflict
  2246.                          
  2247.                     End If  ' replication doc
  2248.                Else
  2249.                     
  2250.                     If responseDoc.Form(0) = MASTER_FORM  And responseDoc.HasItem("$Conflict") Then
  2251.                          Messagebox MSG_REPLICATION_CONFLICT
  2252.                          Set view = Nothing
  2253.                          Goto Done 
  2254.                     End If
  2255.                End If   ' contributor doc   
  2256.                
  2257.                ' go on to the next response
  2258.                Set responseDoc = view.GetNextSibling(responseDoc)
  2259.                
  2260.           Wend
  2261.           
  2262.      End If
  2263.      
  2264. Done:
  2265.      ' reset the view back to the document we are consolidating into
  2266.      Set view = DB.GetView(CONSOLIDATE_VIEW) 
  2267.      Set thisDocInView = view.GetDocumentByKey(theId)
  2268.      
  2269. ErrorDone:     
  2270.      Set PrepareForConsolidate = view
  2271.      
  2272. End Function
  2273. Status
  2274. NoCache
  2275. ConsolidateButton
  2276. t pour consolidation
  2277. En cours
  2278.     0S0E
  2279. tacher classeur 1-2-3...'++LotusScript Development Environment:2:5:(Options):0:66
  2280. '++LotusScript Development Environment:2:5:(Forward):0:1
  2281. Declare Sub Click(Source As Button)
  2282. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2283. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2284. Private Sub BindEvents(Byval Objectname_ As String)
  2285.      Static Source As BUTTON
  2286.      Set Source = Bind(Objectname_)
  2287.      On Event Click From Source Call Click
  2288. End Sub
  2289. '++LotusScript Development Environment:2:2:Click:1:12
  2290. Sub Click(Source As Button)
  2291.      
  2292.      Dim workSpace As New NotesUIWorkspace
  2293.      Dim hWorkBook As Variant
  2294.      Dim result As Integer
  2295.      Dim embedObject As NotesEmbeddedObject
  2296.      Dim item As Variant
  2297.      Dim MasterWorkBookItem As NotesRichTextItem
  2298.      Dim embedName As NotesItem
  2299.      Dim thisDoc As NotesDocument    
  2300.      
  2301.      Set UIDoc = workSpace.CurrentDocument
  2302.      Set thisDoc = UIDoc.Document
  2303.      
  2304.      ' force a save of the document, so the 1-2-3 object get saved before we try to save it 
  2305.      UIDoc.Save
  2306.      
  2307.      ' get a handle to the embedding
  2308.      Set hWorkBook = UIDoc.GetObject ("Master 123 Object")
  2309.      
  2310.      ' save it out to a file (puts up File SaveAs dialog)
  2311.      result = hWorkBook.SaveToFile()
  2312.      
  2313.      
  2314.      ' old code
  2315.      ' get to the 1-2-3 workbook
  2316. '     Set embedName = thisDoc.GetFirstItem("MasterName")
  2317. '    Set item =  thisDoc.GetFirstItem("Master")
  2318. '     Set MasterWorkBookItem = item
  2319. '     Set embedObject = MasterWorkBookItem.GetEmbeddedObject(embedName.Text)
  2320.      
  2321.      ' activate the 1-2-3 workbook
  2322. '     Set hWorkBook = embedObject.Activate (False)
  2323. '     Set  hWorkBook = Nothing
  2324.      
  2325.      
  2326. End Sub
  2327. Status
  2328.     1S2S2E
  2329. P    P    $
  2330. O=Lotus Notes
  2331. O=Lotus Notes
  2332. PURSAFO
  2333. |.:#U
  2334. O=Lotus Notes
  2335. CN=Lotus Notes Template Development/O=Lotus Notes
  2336. PURSAFO
  2337. Fde!f^^
  2338. AL\vtq2
  2339. 8l]6(=
  2340. $SCRIPTOBJ_10
  2341. $Title
  2342. $Info
  2343. $WindowTitle
  2344. $Script
  2345. $$Script_O
  2346. $$ScriptName
  2347. $$FormScript
  2348. $$$FormScript_O
  2349. $$Master
  2350. $Master_O
  2351. $Body
  2352. $ACTIONS
  2353. $SCRIPTOBJ_6
  2354. $SCRIPTOBJ_7
  2355. $SCRIPTOBJ_8
  2356. $SCRIPTOBJ_9
  2357. es non encore demand
  2358. $37ID_parent$
  2359. $RefV
  2360.     0S0E
  2361. $34ID_r
  2362. ponse
  2363.     0S0E
  2364. WorksheetTitleFeuille$38Etat 
  2365. Temp_Status
  2366. Worksheetstatus
  2367. Temp_Value
  2368. Temp_Status
  2369. Temp_Status
  2370. Temp_Status
  2371.     0R1S2S
  2372. En cours,Pr
  2373. t pour consolidation,Ne pas consolider,Donn
  2374. es demand
  2375. es,Consolid
  2376.  dans le document ma
  2377. Temp_Value
  2378. $17Date de modification
  2379. $16Date de cr
  2380. ation
  2381. er un document classeur 1-2-3&
  2382. NavigateurH
  2383. EnvName
  2384. NavigatorState"
  2385.     1S2S
  2386. EnvName
  2387. EnvName
  2388. Main Navigator
  2389. EnvName
  2390.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2391. gori_ser
  2392. Modifier documentX
  2393. EnvoyerX
  2394. _Faire suivreX
  2395. _Ajouter au dossier...
  2396. _Retirer du dossier...
  2397. O=Lotus Notes
  2398. O=Lotus Notes
  2399. PURSAFO
  2400. |.:#U
  2401. O=Lotus Notes
  2402. CN=Lotus Notes Template Development/O=Lotus Notes
  2403. PURSAFO
  2404. Fde!f^^
  2405. $Index
  2406. $FormulaClass
  2407. $Formula
  2408. $ViewFormat
  2409. $ACTIONS
  2410.     0S0E
  2411. $28Titre T
  2412. WorksheetTitle"
  2413. Title
  2414.     3S5S
  2415. $26Contributor
  2416. SessionEditors
  2417. Contributor
  2418. SessionEditors
  2419.     3S4S24S$30Etat  
  2420. Temp_Status
  2421. Worksheetstatus
  2422. StatusX
  2423.     1S16S
  2424. Temp_Value
  2425. Temp_Status
  2426. Temp_Status
  2427. Temp_Status
  2428.     0R1S2S
  2429. es non encore demand
  2430. es,Donn
  2431. es demand
  2432. es,Partiellement consolid
  2433. ,Consolidation termin
  2434. e,En cours,Pr
  2435. t pour consolidation,Ne pas consolider,Donn
  2436. es demand
  2437. es,Consolid
  2438.  dans le document ma
  2439. Temp_Value
  2440. $10Date de modification
  2441. er un document classeur 1-2-3&
  2442. gori_ser
  2443. NavigateurH
  2444. EnvName
  2445. NavigatorState"
  2446.     1S2S
  2447. EnvName
  2448. EnvName
  2449. Main Navigator
  2450. EnvName
  2451.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2452. Modifier document
  2453. Envoyer?
  2454. _Faire suivre
  2455. _Ajouter au dossier...
  2456. _Retirer du dossier...
  2457. O=Lotus Notes
  2458. O=Lotus Notes
  2459. PURSAFO
  2460. |.:#U
  2461. O=Lotus Notes
  2462. CN=Lotus Notes Template Development/O=Lotus Notes
  2463. PURSAFO
  2464. Fde!f^^
  2465. $Title
  2466. $Index
  2467. $Formula
  2468. $FormulaClass
  2469. $ViewFormat
  2470. $Comment
  2471. $ACTIONS
  2472. $16ID unique
  2473.     0S0E
  2474. $21Titre H
  2475. WorksheetTitle
  2476. Title
  2477.     3S5S
  2478. $22Etat 
  2479. Temp_Status
  2480. Worksheetstatus
  2481. StatusX
  2482.     1S16S
  2483. Temp_Value
  2484. Temp_Status
  2485. Temp_Status
  2486. Temp_Status
  2487.     0R1S2S
  2488. Pas encore diffus
  2489. ,Donn
  2490. es demand
  2491. es,Partiellement consolid
  2492. ,Consolidation termin
  2493. e,En cours,Pr
  2494. t pour consolidation,Ne pas consolider,Donn
  2495. es demand
  2496. es,Consolidation termin
  2497. Temp_Value
  2498. er document...X&
  2499. gori_ser
  2500. Navigateur8
  2501. Main Navigator
  2502.     0S0E
  2503. Dossiers standardX2
  2504. Main Navigator
  2505.     0S0E
  2506. Modifier documentX
  2507. EnvoyerX
  2508. _Faire suivreX
  2509. _Ajouter au dossier...
  2510. _Retirer du dossier...    
  2511. O=Lotus Notes
  2512. O=Lotus Notes
  2513. PURSAFO
  2514. |.:#U
  2515. O=Lotus Notes
  2516. CN=Lotus Notes Template Development/O=Lotus Notes
  2517. PURSAFO
  2518. Fde!f^^
  2519. $Index
  2520. $FormulaClass
  2521. $Formula
  2522. $ViewFormat
  2523. $ACTIONS
  2524. $31Editeur6
  2525. Contributor
  2526.     0S0E
  2527. $33Classeur.
  2528. WorkbookTitle
  2529.     0S0E
  2530. WorksheetTitleFeuille$34Etat 
  2531. Temp_Status
  2532. Worksheetstatus
  2533. Temp_Value
  2534. Temp_Status
  2535. Temp_Status
  2536. Temp_Status
  2537.     0R1S2S
  2538. En cours,Pr
  2539. t pour consolidation,Ne pas consolider,Donn
  2540. es demand
  2541. es,Consolid
  2542.  dans le document ma
  2543. Temp_Value
  2544. $17Date de modification
  2545. $16Date de cr
  2546. ation
  2547. er un document classeur 1-2-3&
  2548. NavigateurH
  2549. EnvName
  2550. NavigatorState"
  2551.     1S2S
  2552. EnvName
  2553. EnvName
  2554. Main Navigator
  2555. EnvName
  2556.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2557. gori_ser
  2558. Modifier documentX
  2559. EnvoyerX
  2560. _Faire suivreX
  2561. _Ajouter au dossier...
  2562. _Retirer du dossier...
  2563. O=Lotus Notes
  2564. O=Lotus Notes
  2565. PURSAFO
  2566. |.:#U
  2567. O=Lotus Notes
  2568. CN=Lotus Notes Template Development/O=Lotus Notes
  2569. PURSAFO
  2570. Fde!f^^
  2571. -{&h`
  2572. $Index
  2573. $FormulaClass
  2574. $Formula
  2575. $ViewFormat
  2576. $ACTIONS
  2577. $28Titre T
  2578. WorksheetTitle"
  2579. Title
  2580.     3S5S
  2581. $26Contributor(s)
  2582. SessionEditors
  2583. Contributor
  2584. SessionEditors
  2585.     3S4S24S$31Etat  
  2586. Temp_Status
  2587. Worksheetstatus
  2588. StatusX
  2589.     1S16S
  2590. Temp_Value
  2591. Temp_Status
  2592. Temp_Status
  2593. Temp_Status
  2594.     0R1S2S
  2595. es non encore demand
  2596. es,Donn
  2597. es demand
  2598. es,Partiellement consolid
  2599. ,Consolidation termin
  2600. e,En cours,Pr
  2601. t pour consolidation,Ne pas consolider,Donn
  2602. es demand
  2603. es,Consolid
  2604.  dans le document ma
  2605. Temp_Value
  2606. $8Date de cr
  2607. ation
  2608. $10Date de modification
  2609. er un document classeur 1-2-3&
  2610. NavigateurH
  2611. EnvName
  2612. NavigatorState"
  2613.     1S2S
  2614. EnvName
  2615. EnvName
  2616. Main Navigator
  2617. EnvName
  2618.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2619. gori_ser
  2620. Modifier document
  2621. Envoyerg
  2622. _Faire suivre
  2623. _Ajouter au dossier...
  2624. _Retirer du dossier...
  2625. O=Lotus Notes
  2626. O=Lotus Notes
  2627. PURSAFO
  2628. |.:#U
  2629. O=Lotus Notes
  2630. CN=Lotus Notes Template Development/O=Lotus Notes
  2631. PURSAFO
  2632. Fde!f^^
  2633. $Title
  2634. $Index
  2635. $Formula
  2636. $FormulaClass
  2637. $ViewFormat
  2638. $Comment
  2639. $ACTIONS
  2640. es non encore demand
  2641. es,Donn
  2642. es demand
  2643. es,Partiellement consolid
  2644. ,Consolidation termin
  2645. StatusX
  2646. $24Titre T
  2647. WorksheetTitle"
  2648. Title
  2649.     3S5S
  2650. $22Contributor
  2651. SessionEditors
  2652. Contributor
  2653. SessionEditors
  2654.     3S4S24S$26Etat de la feuille 
  2655. Temp_Status
  2656. Worksheetstatus
  2657. Temp_Value
  2658. Temp_Status
  2659. Temp_Status
  2660. Temp_Status
  2661.     0R1S2S
  2662. En cours,Pr
  2663. t pour consolidation,Ne pas consolider,Donn
  2664. es demand
  2665. es,Consolidation termin
  2666. Temp_Value
  2667. $8Date de cr
  2668. ation
  2669. $10Date de modification
  2670. er un document classeur 1-2-3&
  2671. gori_ser
  2672. NavigateurH
  2673. EnvName
  2674. NavigatorState"
  2675.     1S2S
  2676. EnvName
  2677. EnvName
  2678. Main Navigator
  2679. EnvName
  2680.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2681. Modifier document
  2682. Envoyer(
  2683. _Faire suivre
  2684. _Ajouter au dossier...
  2685. _Retirer du dossier...
  2686. O=Lotus Notes
  2687. O=Lotus Notes
  2688. PURSAFO
  2689. |.:#U
  2690. O=Lotus Notes
  2691. CN=Lotus Notes Template Development/O=Lotus Notes
  2692. PURSAFO
  2693. Fde!f^^
  2694. jjrv4
  2695. $Title
  2696. $Index
  2697. $Formula
  2698. $FormulaClass
  2699. $ViewFormat
  2700. $Comment
  2701. $ACTIONS
  2702. &Arial
  2703. Form Banner
  2704. wwwwwwwwwwww
  2705. wwwwwwwwwwww
  2706. wwwwwwwwwwww
  2707. wwwwwwwwwwww
  2708. wwwwwwwwwwwwwwwwwwwwwwwww
  2709. wwwwwxwwwwww
  2710. wwwwwxwwwwww
  2711. wxwwppww
  2712. wxwwppww
  2713. wpppwxww
  2714. wpppwxww
  2715. wwwwwxwwwwww
  2716. wwwwwxwwwwww
  2717. wpppwxww
  2718. wpppww
  2719. wwwwww
  2720. wwwwwxwwwwww
  2721. wwwwww
  2722. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  2723. UUUUXwxww
  2724. wpppwxww
  2725. UUUWwxwwwwww
  2726. wwwwwxwwwwwww
  2727. """(]UUU
  2728. """"""""""""""""""""""/
  2729. """""/
  2730. *""""/
  2731.   @  
  2732.  @@ @
  2733.  `@ `
  2734. @ @@ 
  2735. @@@@@
  2736. @`@@`
  2737. ` @` 
  2738. `@@`@
  2739. ``@``
  2740. aaaaaaaa`
  2741. nd If
  2742.       
  2743. mmmmmmmm     ' get the Um
  2744. FormTitleInfoDisplay
  2745. FormTitleDisplay
  2746. Subject
  2747. TitleX
  2748. O=Lotus Notes
  2749. O=Lotus Notes
  2750. PURSAFO
  2751. |.:#U
  2752. O=Lotus Notes
  2753. CN=Lotus Notes Template Development/O=Lotus Notes
  2754. PURSAFO
  2755. Fde!f^^
  2756. Yg&B    z
  2757. $Info
  2758. $$Script_O
  2759. $$ScriptName
  2760. $Body
  2761. PURSAFO
  2762. History'++LotusScript Development Environment:2:5:(Options):0:66
  2763. '++LotusScript Development Environment:2:5:(Forward):0:1
  2764. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2765. Declare Sub Initialize
  2766. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2767. Dim addToFields As Integer
  2768. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2769. Private Sub BindEvents(Byval Objectname_ As String)
  2770.      Static Source As NOTESUIDOCUMENT
  2771.      Set Source = Bind(Objectname_)
  2772.      On Event Querysave From Source Call Querysave
  2773. End Sub
  2774. '++LotusScript Development Environment:2:2:Querysave:1:12
  2775. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2776.      
  2777. REM This script will update the SessionTimes and SessionEditors field with a new element after each edit session.
  2778.      
  2779.      Dim session As New NotesSession        
  2780.      Dim workspace As New NotesUIWorkspace
  2781.      Dim uiDoc As NotesUIDocument
  2782.      Dim currentDoc As NotesDocument
  2783.      Dim dateField As NotesItem
  2784.      Dim nameListItem As NotesItem    
  2785.      
  2786.      Set uiDoc = workspace.CurrentDocument
  2787.      Set currentDoc = uiDoc.Document
  2788.      
  2789.      REM Append the "SessionEditors" field with the current editor of the document.
  2790.      
  2791.      Set nameListItem  = currentDoc.GetFirstItem( "SessionEditors" )         
  2792.      Set dateField        = currentDoc.GetFirstItem( "SessionTimes" )
  2793.      
  2794.      nameArray             = nameListItem.Values
  2795.      dateArray              = dateField.Values
  2796.      
  2797.      If addToFields And (Not uiDoc.IsNewDoc) Then
  2798.           Redim Preserve nameArray(Ubound(nameArray) + 1)
  2799.           Redim Preserve dateArray(Ubound(dateArray) + 1)
  2800.      End If
  2801.      
  2802.      nameArray(Ubound(nameArray)) = session.UserName
  2803.      dateArray(Ubound(dateArray)) = Now
  2804.      
  2805.      If Not uiDoc.IsNewDoc Then
  2806.           nameListItem.Values = nameArray
  2807.           dateField.Values = dateArray
  2808.      End If
  2809.      
  2810.      addToFields = False
  2811.      
  2812. End Sub
  2813. '++LotusScript Development Environment:2:2:Initialize:1:10
  2814. Sub Initialize
  2815.      addToFields = True
  2816. End Sub
  2817. Historique de la feuille
  2818. Historique du classeur
  2819.     0S0E
  2820. Historique
  2821. Hidden Always
  2822. SessionTimes
  2823. Recherche la liste d'
  2824. diteurs, y compris l'
  2825. diteur actuel, dans le champ CurrentEditor.
  2826. SessionEditors
  2827. Recherche la liste d'
  2828. diteurs, y compris l'
  2829. diteur actuel, dans le champ CurrentEditor.
  2830. Fichier source du classeur:
  2831.        
  2832. SourceName
  2833. BookName
  2834.  par  
  2835. Modifi
  2836.  par 
  2837. SessionEditorsj
  2838. SessionEditors
  2839.  le "
  2840. SessionTimesT
  2841. dimanche
  2842. lundi
  2843. mardi
  2844. mercredi
  2845. jeudi
  2846. vendredi
  2847. samedi
  2848. SessionTimesP
  2849. SessionTimesO
  2850. janvier
  2851. vrier
  2852. avril
  2853. juillet
  2854. septembre
  2855. octobre
  2856. novembre
  2857. cembre
  2858. SessionTimesN
  2859. SessionTimes
  2860.     20S21R62R69S70S71S72R105S106S130S131S132S133RR140S141R142S143S
  2861. CommentHistory
  2862. * * * FIN DU DOCUMENT * * *
  2863. O=Lotus Notes
  2864. O=Lotus Notes
  2865. PURSAFO
  2866. |.:#U
  2867. O=Lotus Notes
  2868. CN=Lotus Notes Template Development/O=Lotus Notes
  2869. PURSAFO
  2870. Fde!f^^
  2871. $Title
  2872. $Info
  2873. $$Script_O
  2874. $$ScriptName
  2875. $$FormScript
  2876. $$$FormScript_O
  2877. $Body
  2878. &Arial
  2879. Response Form
  2880.   @  
  2881.  @@ @
  2882.  `@ `
  2883. @ @@ 
  2884. @@@@@
  2885. @`@@`
  2886. ` @` 
  2887. `@@`@
  2888. ``@``
  2889. mmmmmmmmm
  2890. FormTitleInfoDisplay
  2891. FormTitleDisplay
  2892. WorksheetTitle
  2893. WorksheetTitleDisplayX
  2894. O=Lotus Notes
  2895. O=Lotus Notes
  2896. PURSAFO
  2897. |.:#U
  2898. O=Lotus Notes
  2899. CN=Lotus Notes Template Development/O=Lotus Notes
  2900. PURSAFO
  2901. Fde!f^^
  2902. $Info
  2903. $$ScriptName
  2904. $Body
  2905. $37$34WorksheetTitle$38$17$16$Conflict$C1$
  2906. $RefV
  2907.     0S0E
  2908.     0S0E
  2909. Temp_Status
  2910. Worksheetstatus
  2911. Temp_Value
  2912. Temp_Status
  2913. Temp_Status
  2914. Temp_Status
  2915.     0R1S2S
  2916. En cours,Pr
  2917. t pour consolidation,Ne pas consolider,Donn
  2918. es demand
  2919. es,Consolid
  2920.  dans le document ma
  2921. Temp_Value
  2922. $37$34
  2923. 9315208E4A9833B980256434005FC89D"
  2924. 02E01F1EFF81D1C080256434005FE40E
  2925. es demand
  2926. t pour consolidation"
  2927. 93CF1F7A2F4ED08B80256437003DD5AE"
  2928. 438526D9E421E43780256437003DFB51=
  2929. ge$ACLDigest$Signature$UpdatedBy$Fonts$$FormPostOpenAction$TypeIconExpireDateReplyDateComposedDate$Info$Flags$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OFromLogoSignEncryptDefaultMailSaveOptionsSendToCopyToBlindCopyToSubjectbody$Fields$Title$Body$WindowTitle$ACTIONSCreateTime$AUTOLAUNCHWORKBOOKTITLEFormTitleInfoDisplayRestrictedToCurrentAuthorDistributorForContributorsOnlyNotifyDistributorWorksheetTitleContributorEmbeddingDisplayAreaContributorEmbeddingResponse_RemarkParentTitleWorkbookNameSessionTimesSessionEditorsBookName$SCRIPTOBJ_6$SubForms$SCRIPTOBJ_10CreatedTime$ConflictAction$$Master$Master_OAuthorSourceNameTitleNameStatusMasterMain_Remarks$SCRIPTOBJ_7$SCRIPTOBJ_8$SCRIPTOBJ_9$Index$FormulaClass$Collation$Formula$ViewFormat$Collation1$Collation2$Class$ViewMapLayout$ViewMapDatasetIconBitmap$TemplateModTime$TemplateServerName$TemplateFileName$FlagsNoRefresh$DefaultNavigator$DesignVersion$Version$Collection$ViewContainer$Comment$$XMB$LicenseeDontShowWarningMasterNameCategoriesDocumentCommentsRevisionCommentsLastEditorSizeInPagesDocumentClassSizeInCharactersSizeInKDateLastRevisionDateNumberOfEditsEditingTimePageTitles$FILE$OLEOBJINFOForm$RevisionsWORKSHEETSTATUS$REF
  2930. $16$21$22$Conflict$REF$C1$
  2931.     0S0E
  2932. WorksheetTitle
  2933. Title
  2934.     3S5S
  2935. Temp_Status
  2936. Worksheetstatus
  2937. StatusX
  2938.     1S16S
  2939. Temp_Value
  2940. Temp_Status
  2941. Temp_Status
  2942. Temp_Status
  2943.     0R1S2S
  2944. Pas encore diffus
  2945. ,Donn
  2946. es demand
  2947. es,Partiellement consolid
  2948. ,Consolidation termin
  2949. e,En cours,Pr
  2950. t pour consolidation,Ne pas consolider,Donn
  2951. es demand
  2952. es,Consolidation termin
  2953. Temp_Value
  2954. 9315208E4A9833B980256434005FC89D
  2955. es demand
  2956. 02E01F1EFF81D1C080256434005FE40E
  2957. t pour consolidation
  2958. Consolidation termin
  2959. Times New Roman
  2960. (Fermez cette fen
  2961. tre pour afficher la base de documents.)
  2962. A propos de TeamConsolidation
  2963. ?_?__
  2964. `!b`1
  2965. 7`^///?
  2966. ?b___
  2967. `bOOO
  2968. `<b!R
  2969. le de cette base de documents
  2970. La base de documents TeamConsolidation vous permet de distribuer les feuilles d'un classeur 1-2-3 
  2971.  vos collaborateurs afin de les soumettre 
  2972.  leur approbation. Une fois que les collaborateurs ont apport
  2973.  les modifications n
  2974. cessaires, vous pouvez consolider les feuilles dans votre classeur original. 
  2975.     Supposons que vous utilisez 1-2-3 pour suivre les d
  2976. penses relatives 
  2977.  un projet impliquant plusieurs services. Vous pouvez cr
  2978. er un classeur contenant une feuille par service. Vous pouvez ensuite diffuser chaque feuille aux personnes int
  2979. es, via cette base de documents. Une fois qu'elles ont effectu
  2980.  les mises 
  2981.  jour et ajouts n
  2982. cessaires, vous pouvez consolider les modifications dans le classeur original.
  2983.     A qui est destin
  2984. e cette base de documents ? 
  2985. Cette base est destin
  2986. e aux membres d'une 
  2987. quipe devant diffuser une feuille de calcul ou participer 
  2988. laboration de cette derni
  2989.     Contr
  2990. le des acc
  2991. s important
  2992.      : Tous les utilisateurs de cette base doivent disposer du niveau d'acc
  2993. s Auteur, afin d'
  2994. viter que la base ne soit modifi
  2995. e par des personnes non autoris
  2996. es et de garantir le bon fonctionnement des op
  2997. rations.
  2998.     Ce droit d'acc
  2999. s permet aux utilisateurs de cr
  3000. er des documents et de modifier des documents qu'ils ont cr
  3001. s ou qui leur ont 
  3002.  affect
  3003. s (transmis) ; ils ne sont toutefois pas autoris
  3004.  modifier des documents diffus
  3005.  d'autres utilisateurs, ceci afin d'
  3006. viter les conflits de r
  3007. plication.
  3008.     Pour pouvoir cr
  3009. er ou modifier la liste de contr
  3010. le d'acc
  3011. s (LCA), vous devez disposer du niveau d'acc
  3012. s Gestionnaire. Une fois que vous avez cr
  3013.  une liste LCA, vous, ou le concepteur, pouvez d
  3014. limiter l'acc
  3015.  des vues, masques, sections ou champs particuliers d'une base de documents. 
  3016. O=Lotus Notes
  3017. O=Lotus Notes
  3018. PURSAFO
  3019. |.:#U
  3020. O=Lotus Notes
  3021. CN=Lotus Notes Template Development/O=Lotus Notes
  3022. PURSAFO
  3023. Fde!f^^
  3024. B#|eD
  3025. $Info
  3026. $Body
  3027. PURSAFO
  3028. Times New Roman
  3029. Utilisation deTeamConsolidation
  3030. ?_?__
  3031. `!b`1
  3032. 7`^///?
  3033. ?b___
  3034. `bOOO
  3035. `<b!R
  3036. Pour les concepteurs
  3037.     TeamConsolidation utilise une .DLL et un mod
  3038. le de base de documents Notes, dont les masques contiennent des scripts cr
  3039.  l'aide du langage LotusScript. Ces scripts sont associ
  3040.  diff
  3041. rentes op
  3042. rations et diff
  3043. rents boutons et utilisent les biblioth
  3044. ques de polices, les objets, les m
  3045. thodes et les propri
  3046. s d'1-2-3. La .DLL TCUI10EN.DLL constitue l'interface utilisateur de la base TeamConsolidation.
  3047. TeamConsolidation utilise des documents Notes contenant des feuilles 1-2-3 incorpor
  3048. es sous forme d'objet. Vous ne pouvez remplacer 1-2-3 par une autre application.
  3049.     Contr
  3050. le des acc
  3051. Par d
  3052. faut, tous les utilisateurs de la base TeamConsolidation re
  3053. oivent un niveau d'acc
  3054. s Auteur, afin d'
  3055. viter que la base ne soit modifi
  3056. e par des personnes non autoris
  3057. es et de garantir le bon fonctionnement des op
  3058. rations. La personne ayant 
  3059. mis le classeur ma
  3060. tre doit cr
  3061. er le document ma
  3062. tre. Une fois la consolidation effectu
  3063. e, les droits d'acc
  3064. s des documents de r
  3065. ponse sont d
  3066. finis sur le niveau d'acc
  3067. s Lecteur afin d'
  3068. viter toute modification ult
  3069. rieure. 
  3070. metteur peut consolider les documents de r
  3071. ponse dans le classeur ma
  3072. tre, mais pour que d'autres utilisateurs puissent proc
  3073.  la consolidation, ils doivent disposer au minimum du niveau d'acc
  3074. s Editeur.
  3075.     Modifications possibles
  3076. Vous pouvez utiliser toutes les fonctions TeamConsolidation, mais vous ne pouvez pas modifier les masques et les vues d'une base TeamConsolidation. Vous pouvez cependant ajouter des masques, des vues et des documents en fonction de vos besoins. Vous pouvez par exemple modifier l'interface utilisateur de fa
  3077.  ce qu'un agent puisse v
  3078. rifier si les feuilles diffus
  3079. es portent la mention Pr
  3080. t pour consolidation et lancer, dans ce cas, la consolidation automatiquement. 
  3081.     Scripts
  3082. Lorsque vous modifiez des scripts existants, veillez 
  3083.  ne pas endommager les fonctionnalit
  3084. s de base de TeamConsolidation. Vous pouvez cependant ajouter dans les masques de nouveaux scripts permettant d'effectuer diverses op
  3085. rations adapt
  3086.  vos besoins. Pour plus d'informations sur LotusScript, consultez votre documentationScript. 
  3087.     Vues
  3088. Vous pouvez ajouter ou modifier des vues comme bon vous semble. La base TeamConsolidation comprend toutefois deux vues masqu
  3089. es obligatoires (Consolidation interne) et (ID Parent) qui ne doivent en aucun cas 
  3090. tre supprim
  3091. es ou modifi
  3092.     Masques
  3093. Le mod
  3094. le TeamConsolidation comprend trois masques : Document avec classeur 1-2-3, Collaborateur et M
  3095.     Document avec classeur 1-2-3 : il s'agit du masque contenant le classeur ma
  3096. tre. 
  3097.     Remarque
  3098.        Ne modifiez pas les valeurs du champ Etat ; elles sont indispensables au bon fonctionnement de TeamConsolidation. 
  3099.     Collaborateur : il s'agit du masque de r
  3100. ponse contenant la feuille diffus
  3101. e. Vous pouvez le personnaliser selon vos besoins. Vous pouvez par exemple le modifier de fa
  3102.  ce que le classeur incorpor
  3103.  ne soit pas lanc
  3104.  automatiquement 
  3105.  l'ouverture d'un document de r
  3106. ponse. Ouvrez pour cela le masque Collaborateur, placez-vous sur l'onglet Lancer dans la bo
  3107. te Info du masque et d
  3108. lectionnez "Lancer sur place". Ne modifiez pas les options du champ Etat de la feuille, pour le bon fonctionnement de TeamConsolidation. 
  3109. mo : il s'agit du masque de messagerie 
  3110. lectronique standard utilis
  3111.  pour la plupart des bases de documents  Notes. 
  3112.     Vous pouvez personnaliser ces masques selon vos besoins. Vous pouvez par exemple ajouter des champs r
  3113. s au nom de projet, aux dates d'
  3114. ance ou aux estimations de co
  3115.     Copie des documents ma
  3116. tre et des documents de r
  3117. ponse
  3118. Vous pouvez copier les documents ma
  3119. tre ou les bases de documents contenant uniquement des documents ma
  3120. tre, mais 
  3121. vitez de copier les documents de r
  3122. ponse. Ces derniers sont en effet li
  3123.  leur document ma
  3124. tre via le champ $REF. Une fois que vous avez diffus
  3125.  les feuilles, toutes les copies de document de r
  3126. ponse se rapportent au document ma
  3127. tre original dans la base originale. 
  3128.     Pour 
  3129. viter tout risque de confusion, n'utilisez pas l'option de copie de base de documents dans le menu Fichier pour copier une base TeamConsolidation contenant des documents de r
  3130. ponse. Choisissez plut
  3131. t Edition - Copier et Edition - Coller. 
  3132.     Si vous voulez copier une base de documents afin de l'utiliser par exemple comme base mod
  3133. le pour une nouvelle base, effectuez cette op
  3134. ration avant de diffuser les feuilles. 
  3135.     Remarque
  3136.        Si vous r
  3137. pliquez la base, le lien ad
  3138. quat sera pr
  3139.  entre le document de r
  3140. ponse et le document ma
  3141. tre. 
  3142.     Conflits de r
  3143. plication
  3144. Si vous essayez de consolider un document de r
  3145. ponse qui pr
  3146. sente un conflit de r
  3147. plication, vous obtenez un message d'erreur. Pour afficher les documents pr
  3148. sentant ce type de conflit, choisissez la vue "Par collaborateur".
  3149.     Modification des documents "Pr
  3150. sentation de la base" et "Utilisation de la base"
  3151. Modifiez les documents "Pr
  3152. sentation de la base" et "Utilisation de la base" afin qu'ils refl
  3153. tent les modifications apport
  3154. es. Pour ce faire, choisissez Conception - Autre.
  3155. Pour les utilisateurs
  3156. ralit
  3157. s : diffusion de classeurs avec TeamConsolidation
  3158.     TeamConsolidation vous permet de diffuser les feuilles d'un classeur dans une base de documents Lotus Notes de fa
  3159.  ce que vos collaborateurs puissent les r
  3160. viser et les modifier. Une fois les modifications apport
  3161. es, vous pouvez r
  3162. rer ces feuilles dans votre classeur original par consolidation. 
  3163.     Supposons que vous utilisez 1-2-3 pour suivre les d
  3164. penses relatives 
  3165.  un projet impliquant plusieurs d
  3166. partements. Vous pouvez cr
  3167. er un classeur contenant une feuille par d
  3168. partement. Vous pouvez ensuite diffuser chaque feuille aux personnes int
  3169. es, via cette base de documents. Une fois qu'elles ont effectu
  3170.  les mises 
  3171.  jour et ajouts n
  3172. cessaires, vous pouvez consolider les modifications dans le classeur original. L'enregistrement du classeur dans une base Notes permet 
  3173.  tous les utilisateurs d'acc
  3174. der aux informations, quel que soit leur emplacement, et vous permet de suivre les modifications apport
  3175. es au fur et 
  3176.  mesure.
  3177.     Diffusion des feuilles et consolidation des modifications dans votre document original
  3178. La diffusion des feuilles d'un classeur est effectu
  3179. e par un seul exp
  3180. diteur, qui transmet le document 
  3181.  un certain nombre de collaborateurs. La proc
  3182. dure de diffusion est r
  3183. e ci-apr
  3184.     Une base de documents Notes contenant les classeurs ma
  3185. tre et les feuilles distribu
  3186. es est cr
  3187. e par une personne ma
  3188. trisant la conception et l'administration de bases Notes. Cette base doit utiliser le mod
  3189. le TeamConsolidation TEAMCONS.NTF, fourni avec 1-2-3. 
  3190.     L'exp
  3191. diteur ouvre la base Notes dans laquelle le classeur sera enregistr
  3192.     Il choisit la s
  3193. quence de commandes Cr
  3194. ation - Document classeur 1-2-3, puis cr
  3195. e un classeur ou ouvre un classeur existant.
  3196.     Il attribue ensuite des feuilles individuelles 
  3197.  un ou plusieurs collaborateurs, qu'il informe via messagerie 
  3198. lectronique.
  3199.     Les collaborateurs ouvrent la base Notes, modifient les feuilles diffus
  3200. es qui leur correspondent, puis marquent les documents comme 
  3201. tant pr
  3202. ts pour consolidation et les enregistrent dans la base Notes.
  3203.     Une fois que tous les documents portent la mention "Pr
  3204. t pour consolidation", l'exp
  3205. diteur clique sur le bouton Consolidation des donn
  3206. es du classeur afin de regrouper les modifications des collaborateurs dans le classeur ma
  3207.     Une fois les modifications consolid
  3208. es, l'exp
  3209. diteur peut enregistrer le classeur ma
  3210. tre sous un fichier 1-2-3 distinct ou conserver le classeur dans la base Notes.
  3211. ralit
  3212. s : configuration du classeur ma
  3213.     Lorsque vous utilisez TeamConsolidation, vous continuez 
  3214.  travailler normalement avec 1-2-3. Etant donn
  3215.  que les collaborateurs travaillent sur une seule feuille 
  3216.  la fois, certaines fonctions d'1-2-3 sont moins utiles, comme par exemple les fonctions ex
  3217. es sur plusieurs feuilles. 
  3218.     Voici quelques conseils utiles pour la cr
  3219. ation du classeur ma
  3220. tre et l'utilisation des feuilles diffus
  3221. ation de chaque feuille
  3222. Lorsque vous diffusez les feuilles d'un classeur comportant plusieurs feuilles, placez toutes les donn
  3223. es et les objets graphiques 
  3224.  diffuser 
  3225.  une seule personne sur une m
  3226. me feuille. Si un classeur contient des macros, il est pr
  3227. rable de les placer sur une feuille s
  3228.     Graphiques, dessins, cartes et objets OLE incorpor
  3229. Si, lors de la consolidation, des feuilles diffus
  3230. es contiennent des graphiques, des dessins, des cartes ou des objets incorpor
  3231. s portant le m
  3232. me nom, les doublons ne seront pas renomm
  3233. s. Aucun objet ni aucune donn
  3234. e ne seront perdues, mais pour 
  3235. viter toute confusion, avant de diffuser une feuille, attribuez aux objets un nom particulier au lieu d'accepter les noms par d
  3236. faut propos
  3237. s par 1-2-3.
  3238.     Versions et groupes de versions
  3239. Il est conseill
  3240.  de ne pas ins
  3241. rer de versions multifeuille dans une feuille diffus
  3242. me si les collaborateurs peuvent utiliser les donn
  3243. es de plusieurs feuilles, par exemple pour le calcul de formules, 1-2-3 consolide uniquement les modifications apport
  3244.  la feuille qui a 
  3245.  diffus
  3246.     Si l'exp
  3247. diteur ajoute des versions dans le classeur ma
  3248. tre lors de la diffusion de feuilles, les donn
  3249. es de ces versions seront perdues lors de la consolidation.
  3250.     Les groupes de versions ne sont pas inclus dans une feuille diffus
  3251.     Scripts
  3252. Vous pouvez ajouter, modifier et consolider uniquement les scripts qui sont rattach
  3253. s aux objets graphiques sur la feuille actuelle.
  3254.     Remarque 
  3255.       Si un script est rattach
  3256.  un champ d'une feuille diffus
  3257. e, il ne sera pas consolid
  3258.     Verrouillage des classeurs
  3259. Vous pouvez diffuser, modifier et consolider les classeurs verrouill
  3260. s. Lors de la consolidation de la feuille dans le classeur ma
  3261. tre, le verrou n'est pas pris en compte.
  3262.     Protection des classeurs par mot de passe
  3263. Etant que vous ne pouvez prot
  3264. ger par mot de passe un objet OLE, vous ne pouvez pas prot
  3265. ger un classeur une fois que vous l'avez plac
  3266.  dans Notes.
  3267. ation d'un classeur ma
  3268.  partir d'un classeur existant
  3269.     Dans un premier temps, vous devez configurer la base de documents Notes dans laquelle le classeur doit 
  3270. tre enregistr
  3271.      Ouvrez la base de documents Notes o
  3272.  vous souhaitez enregistrer le classeur 1-2-3. 
  3273.     Cliquez sur le bouton Cr
  3274. ation de document avec classeur 1-2-3.
  3275.     Entrez le titre du document classeur ma
  3276. lectionnez "Utiliser un classeur 1-2-3 existant" et indiquez le nom du fichier. 
  3277.     Cliquez sur OK. 
  3278.     Indiquez si vous pr
  3279. rez demander maintenant ou ult
  3280. rieurement des donn
  3281. es pour ce classeur.
  3282.     Si vous choisissez de diffuser le classeur maintenant, suivez la proc
  3283. dure "Diffusion de feuilles" ci-apr
  3284.  partir de l'
  3285. tape 3. 
  3286.     Si vous pr
  3287. rez diff
  3288. rer cette op
  3289. ration, cliquez sur l'option Demander donn
  3290. es du classeur au moment opportun.
  3291. ation d'un classeur ma
  3292.     Dans un premier temps, vous devez configurer la base de documents Notes dans laquelle le classeur doit 
  3293. tre enregistr
  3294.     uvrez la base de documents Notes o
  3295.  vous souhaitez enregistrer le classeur 1-2-3. 
  3296.     Cliquez sur le bouton Cr
  3297. ation de document avec classeur 1-2-3.
  3298.     Entrez le titre du document classeur ma
  3299. lectionnez "Cr
  3300. er un nouveau classeur 1-2-3". 
  3301.     Cliquez sur OK. 
  3302.     Configurez et entrez les donn
  3303. es appropri
  3304. es dans l'objet classeur 1-2-3. 
  3305.     Une fois le classeur ma
  3306. tre cr
  3307. , cliquez sur le masque Notes en dehors de l'objet classeur 1-2-3.
  3308.     Fermez et enregistrez le document Notes.
  3309.     Vous pouvez 
  3310. sent distribuer les feuille du classeur ma
  3311. tre aux diff
  3312. rents collaborateurs. Pour en savoir plus, reportez-vous 
  3313.  "Diffusion de feuilles" ci-apr
  3314. Diffusion de feuilles
  3315.     La diffusion de feuilles sert 
  3316.  recueillir des informations aupr
  3317. s de vos collaborateurs. Chaque  feuille est affect
  3318. e aux diff
  3319. rents collaborateurs et constitue un document de r
  3320. ponse inclus sous le document ma
  3321. tre. 
  3322.     Ouvrez le document Notes contenant le classeur 
  3323.  diffuser. 
  3324.     Cliquez sur le bouton Demander donn
  3325. es du classeur. 
  3326. lectionnez les feuilles 
  3327.  diffuser en faisant glisser leur nom de la liste "Feuilles du classeur" vers la liste "Feuilles  diffuser". 
  3328.     Pour choisir le collaborateur 
  3329.  qui sera affect
  3330. e chaque feuille diffus
  3331. e, cliquez sur la liste Collaborateurs et entrez un nom ou cliquez sur le bouton Adresses pour s
  3332. lectionner les noms dans un carnet d'adresses. 
  3333. Vous pouvez affecter une feuille 
  3334.  plusieurs collaborateurs. Dans ce cas, s
  3335. parez les noms par une virgule. Vous pouvez 
  3336. galement regrouper plusieurs collaborateurs sous un m
  3337. me nom. 
  3338.     (Facultatif) Afin d'emp
  3339. cher les autres utilisateurs de visualiser et modifier les feuilles diffus
  3340. es, s
  3341. lectionnez l'option permettant de r
  3342. server cette op
  3343. ration aux collaborateurs".
  3344.     (Facultatif) Pour envoyer un message 
  3345. lectronique avec un LienDoc 
  3346.  tous les collaborateurs, s
  3347. lectionnez l'option correspondante puis entrez votre message dans la zone de texte. 
  3348.     (Facultatif) Si vous souhaitez 
  3349. tre averti lorsque les collaborateurs ont termin
  3350.  et que les documents portent la mention "Pr
  3351. t pour consolidation" ou "Ne pas consolider", s
  3352. lectionnez l'option correspondante.
  3353.     Cliquez sur OK et entrez le mot de passe de la messagerie 
  3354. lectronique, si vous y 
  3355. tes invit
  3356.     Une fois que vous avez referm
  3357.  le document, les documents de r
  3358. ponse contenant les feuilles diffus
  3359. es s'affichent sous le document ma
  3360. tre, qui porte la mention "Donn
  3361. es demand
  3362. es". 
  3363. tails : diffusion de feuilles
  3364.     When you can distribute sheets
  3365.     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.
  3366.     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."
  3367. lection d'une vue
  3368.     La base TeamConsolidation offre diff
  3369. rentes fa
  3370. ons d'afficher les documents classeur ma
  3371. tre et les feuilles diffus
  3372. es, qui apparaissent sous forme de documents de r
  3373. ponse du document classeur ma
  3374.     Affichage du Navigateur TeamConsolidation
  3375. Vous pouvez cliquer sur le bouton Navigateur pour afficher 
  3376.  gauche de la fen
  3377. tre du classeur une rang
  3378. e de boutons rempla
  3379. ant les navigateurs standard Notes. Le navigateur TeamConsolidation comprend les boutons suivants :
  3380.     Tous documents -- Affiche tous les documents de la vue class
  3381. s par nom de collaborateur 
  3382.     Par 
  3383. tat -- Affiche tous les documents class
  3384. s par 
  3385. tat des classeurs ma
  3386.     Par date -- Affiche tous les documents class
  3387. s par date de modification des classeurs ma
  3388.     Par collaborateur -- Affiche les feuilles diffus
  3389. es, class
  3390. es par nom de collaborateur, mais n'affiche pas les classeurs ma
  3391. Modification d'une feuille diffus
  3392.     Les collaborateurs peuvent modifier les feuilles diffus
  3393. Modification d'un objet incorpor
  3394.  sans quitter l'application dans laquelle il est incorpor
  3395. . Le menu affiche de nouvelles commandes correspondant 
  3396.  l'application serveur. Vous pouvez modifier les objets incorpor
  3397. s sur place ou hors place.
  3398.     sur place
  3399.      ou 
  3400. Modification d'un objet incorpor
  3401.  via l'ouverture de l'application serveur. Vous pouvez modifier les objets incorpor
  3402. s sur place ou hors place.
  3403.     hors place
  3404.     . Lorsque vous ouvrez un document contenant une feuille diffus
  3405. e, cette derni
  3406. re est activ
  3407. e de fa
  3408. tre  modifi
  3409. e sur place.
  3410.     Modification de la feuille sur place
  3411.     Dans la base de documents Notes, ouvrez le document contenant la feuille diffus
  3412.     Apportez les modifications ou ajouts de votre choix.
  3413.     (Facultatif) Entrez un commentaire dans le champ Remarques. 
  3414.     Enregistrez et fermez le document Notes. 
  3415.     Dans la bo
  3416. te de dialogue Etat du document du collaborateur, cochez l'option correspondant 
  3417. tat de votre travail.
  3418.     Remarque  
  3419.      Si vous pr
  3420. voyez d'apporter d'autres modifications ult
  3421. rieurement, s
  3422. lectionnez "En cours".
  3423.     Cliquez sur Terminer.
  3424.     Modification de la feuille hors place
  3425.     Dans la base de documents Notes, ouvrez le document contenant la feuille diffus
  3426.     Cliquez en dehors de l'objet classeur 1-2-3 pour le d
  3427. sactiver.
  3428.     Cliquez sur l'objet pour le s
  3429. lectionner. 
  3430.     Choisissez Classeur - Ouvrir. 
  3431. La feuille s'affiche dans une fen
  3432. tre 1-2-3 plein 
  3433. cran. 
  3434.     Apportez les modifications ou ajouts de votre choix. 
  3435.     Choisissez Fichier - Quitter et revenir pour fermer 1-2-3 et retourner dans le document Notes. 
  3436.     (Facultatif) Entrez un commentaire dans le champ Remarques. 
  3437.     Enregistrez et fermez le document Notes. 
  3438.     Dans la bo
  3439. te de dialogue Etat du document du collaborateur, cochez l'option correspondant 
  3440. tat de votre travail.
  3441.     Remarque 
  3442.       Si vous pr
  3443. voyez d'apporter d'autres modifications ult
  3444. rieurement, s
  3445. lectionnez "En cours".
  3446.     Cliquez sur Terminer.
  3447. tails : modification d'une feuille diffus
  3448.     Limites li
  3449.  la modification d'une feuille diffus
  3450. Lorsque vous modifiez une feuille diffus
  3451. e, certaines commandes et fonctions 1-2-3 ne sont pas disponibles.
  3452.     L'option Edition - Aller 
  3453.  ne permet pas d'atteindre des objets situ
  3454. s sur d'autres feuilles.
  3455.     Vous ne pouvez pas cr
  3456. er ni supprimer des feuilles. 
  3457.     Vous ne pouvez pas cr
  3458. er de groupes de versions. 
  3459.     Vous ne pouvez pas ins
  3460. rer ni supprimer des lignes ou des colonnes dans un champ de versions (sauf si vous avez cr
  3461.  la version dans la feuille diffus
  3462.     Vous ne pouvez pas ajouter ni modifier des scripts rattach
  3463.  des champs.
  3464.     Modification de feuilles sur place
  3465. Lorsque vous modifiez une feuille 
  3466. Modification d'un objet incorpor
  3467.  sans quitter l'application dans laquelle il est incorpor
  3468. . Le menu affiche de nouvelles commandes correspondant 
  3469.  l'application serveur. Vous pouvez modifier les objets incorpor
  3470. s sur place ou hors place.
  3471.     sur place
  3472.     , les menus Fichier et Fen
  3473. tre contiennent des commandes Lotus Notes. Fichier - Enregistrer permet d'enregistrer le document Notes complet contenant la feuille, et pas uniquement la feuille. 
  3474. Pour interrompre la modification sur place, cliquez sur le document Notes en dehors de la feuille. Pour reprendre la modification, cliquez deux fois sur la feuille.
  3475. Les donn
  3476. es 1-2-3 seront enregistr
  3477. es uniquement une fois que vous avez enregistr
  3478.  le document Notes. 
  3479.     Modification de feuilles hors place
  3480. Lorsque vous modifiez la feuille 
  3481. Modification d'un objet incorpor
  3482.  via l'ouverture de l'application serveur. Vous pouvez modifier les objets incorpor
  3483. s sur place ou hors place.
  3484.     hors place
  3485.     , le menu Fichier inclut des commandes 1-2-3.
  3486. finition de l'
  3487. tat de votre travail
  3488. Lorsque vous enregistrez une feuille diffus
  3489. e, une bo
  3490. te de dialogue vous invite 
  3491.  confirmer ou modifier l'
  3492. tat du document. Vous pouvez indiquer l'
  3493. tat "En cours," "Pr
  3494. t pour consolidation" ou "Ne pas consolider".
  3495.     Duplication des noms de champ
  3496. Lorsque vous modifiez une feuille diffus
  3497. e, tous les noms de champ propos
  3498. s par le Gestionnaire de versions (comme par exemple Champ 1) commencent par le nom de la feuille (par d
  3499. faut, une lettre). Si 1-2-3 d
  3500. tecte un doublon lors de la consolidation des feuilles diffus
  3501. es dans le classeur d'origine, 1-2-3 conserve le nom de champ dans la premi
  3502. re feuille, mais ne consolide pas les autres champs portant le m
  3503. me nom.
  3504.     Scripts ins
  3505. s dans des feuilles diffus
  3506. Si un script est rattach
  3507.  un champ dans une feuille diffus
  3508. e, il ne sera pas consolid
  3509.     Incorporation d'objets suppl
  3510. mentaires
  3511. Si vous incorporez des objets dans une feuille diffus
  3512. e, ils seront fusionn
  3513. s dans le classeur ma
  3514. tre lors de la consolidation.
  3515. Consolidation des feuilles diffus
  3516.     Une fois que les collaborateurs ont apport
  3517.  des modifications, vous pouvez regrouper les feuilles diffus
  3518. es dans le classeur ma
  3519.     Dans la base de documents Notes, ouvrez le document contenant le classeur ma
  3520.     Cliquez sur le bouton Consolidation des donn
  3521. es du classeur. 
  3522.     Indiquez si Notes doit consolider uniquement les documents "Pr
  3523. t pour consolidation" et si les documents des collaborateurs seront supprim
  3524. s une fois la consolidation termin
  3525.     Cliquez sur OK.  
  3526. Un message s'affiche pour confirmer que les documents diffus
  3527. s ont 
  3528.  consolid
  3529.     (Facultatif) Pour enregistrer le document classeur 1-2-3 sous un fichier classeur 1-2-3, cliquez sur le bouton D
  3530. tacher classeur 1-2-3. 
  3531. tails : consolidation des feuilles diffus
  3532.     Conflits de r
  3533. plication dans les feuilles diffus
  3534. Vous pouvez uniquement consolider des documents de r
  3535. ponse originaux. Si deux personnes modifient le m
  3536. me document en m
  3537. me temps, la seconde personne qui enregistre ce document g
  3538. re un conflit de r
  3539. plication. Vous devez r
  3540. soudre ce type de conflits et supprimer le document incrimin
  3541.  pour pouvoir consolider les feuilles diffus
  3542. es. Vous pouvez visualiser les documents ayant g
  3543.  des conflits de r
  3544. plication uniquement si vous vous placez dans la vue "Par collaborateur".
  3545. lection des feuilles 
  3546.  consolider
  3547. Si vous s
  3548. lectionnez "Consolider seulement les documents Pr
  3549. t pour consolidation", seuls les documents ayant l'
  3550. tat "Pr
  3551. t pour consolidation" seront trait
  3552. s. Si des feuilles portent la mention "Ne pas consolider", "En cours" ou "Donn
  3553. es demand
  3554. es", vous pourrez les consolider ult
  3555. rieurement, une fois que les collaborateurs auront modifi
  3556. tat de ces feuilles. Si vous ne s
  3557. lectionnez pas "Consolider seulement les documents Pr
  3558. t pour consolidation", tous les documents n'affichant pas l'
  3559. tat "Ne pas consolider" seront trait
  3560.     Si des feuilles portent la mention "En cours" et que l'option "Consolider seulement les documents Pr
  3561. t pour consolidation" est s
  3562. lectionn
  3563. e, le classeur ma
  3564. tre affichera l'
  3565. tat "Consolid
  3566.  partiellement". Une fois que les autres feuilles portent la mention "Pr
  3567. t pour consolidation" ou "Ne pas consolider", vous pouvez renouveler l'op
  3568. ration afin d'incorporer les autres donn
  3569. es. L'
  3570. tat du classeur ma
  3571. tre est alors remplac
  3572.  par "Consolidation termin
  3573.     Suppression des documents des collaborateurs
  3574. Si vous s
  3575. lectionnez "Supprimer les documents apr
  3576. s la consolidation", Notes supprime les documents de r
  3577. ponse une fois la consolidation termin
  3578. e. Vous ne supprimez cependant pas les conflits de r
  3579. plication portant sur les documents de r
  3580. ponse.
  3581.     Si vous choisissez de ne pas supprimer les documents des collaborateurs, ils passent en mode lecture seule de fa
  3582.  ce que vous ne puissiez pas modifier des feuilles ayant d
  3583.  consolid
  3584. O=Lotus Notes
  3585. O=Lotus Notes
  3586. PURSAFO
  3587. |.:#U
  3588. O=Lotus Notes
  3589. CN=Lotus Notes Template Development/O=Lotus Notes
  3590. PURSAFO
  3591. Fde!f^^
  3592. $Info
  3593. $Body
  3594. PURSAFO
  3595. (ID document parent)|ConsolidateButton.
  3596. (Consolidation interne)|(Internal Consolidate).
  3597. MxaPz
  3598. Par collaborateur|View By Contributor
  3599. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3600. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=Lotus
  3601. Tous les documents|View by Master Contributor
  3602. moMemoMemo
  3603. CN=Brian McGauran/OU=DUB/O=LotusLotus NotesCN=Avril Jordan/OU=DUB/O=Lotus
  3604. Navigateur principal | Main Navigator
  3605. CollaborateurSecondary.
  3606. Document avec classeur 1-2-3Main.
  3607. Navigateur principal | Main Navigator
  3608. Document avec classeur 1-2-3Main
  3609. CollaborateurSecondary
  3610. collaborateur|View By Contributor
  3611. (ID document parent)|ConsolidateButton
  3612. (Consolidation interne)|(Internal Consolidate)
  3613. rincipal | Main Navigator
  3614. CollaborateurSecondary
  3615. gator
  3616. (ID document p
  3617. Document avec classeur 1-2-3Main
  3618. CollaborateurSecondary
  3619. collaborateur|View By Contributor
  3620. (ID document parent)|ConsolidateButton
  3621. (Consolidation interne)|(Internal Consolidate)
  3622. rincipal | Main Navigator
  3623. CollaborateurSecondary
  3624. gator
  3625. (ID document parent)|ConsolidateButton
  3626. (Consolidation interne)|(Internal Consolidate)
  3627. Par collaborateur|View By Contributor
  3628. Tous les documents|View by Master Contributor
  3629. moMemoMemo
  3630. Navigateur principal | Main Navigator
  3631. CollaborateurSecondary
  3632. Document avec classeur 1-2-3Main
  3633. Navigateur principal | Main Navigator
  3634.  Main Navigator
  3635. ocuments|View 
  3636. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=Lotus
  3637.  | Main Navigator
  3638. CollaborateurSecondary.
  3639. Tous les documents|View by Master 
  3640. CollaborateurSec%
  3641. CollaborateurSecondary.
  3642. nsolidate)
  3643. Par collaborateur|View By Contributor
  3644. $Modified
  3645.     1S2S3S
  3646. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  3647.     0SL1S
  3648. $TITLE
  3649. CN=Avril Jordan/OU=DUB/O=Lotus
  3650. Par date|View By Date
  3651. tat|View By Status
  3652. Form Banner
  3653. CUA3    
  3654. History
  3655. Response Form
  3656. Navigateur principal
  3657. TeamConsolidate
  3658. StdR4Mail
  3659. Copy Of Main Navigator$
  3660. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  3661.     0SL1S
  3662.     0S0E
  3663. WorksheetTitle"
  3664. Title
  3665.     3S5S
  3666. SessionEditors
  3667. Contributor
  3668. SessionEditors
  3669.     3S4S24S
  3670. Temp_Status
  3671. Worksheetstatus
  3672. StatusX
  3673.     1S16S
  3674. Temp_Value
  3675. Temp_Status
  3676. Temp_Status
  3677. Temp_Status
  3678.     0R1S2S
  3679. es non encore demand
  3680. es,Donn
  3681. es demand
  3682. es,Partiellement consolid
  3683. ,Consolidation termin
  3684. e,En cours,Pr
  3685. t pour consolidation,Ne pas consolider,Donn
  3686. es demand
  3687. es,Consolid
  3688.  dans le document ma
  3689. Temp_Value
  3690. $21$28$26$30$10$Conflict$REF$C1$
  3691. Avril Jordan
  3692. es demand
  3693. Tutuy
  3694. es non encore demand
  3695. Avril Jordan
  3696. CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus*
  3697. $31$33WorksheetTitle$34$17$16$Conflict$C1$
  3698. Contributor
  3699.     0S0E
  3700. WorkbookTitle
  3701.     0S0E
  3702. Temp_Status
  3703. Worksheetstatus
  3704. Temp_Value
  3705. Temp_Status
  3706. Temp_Status
  3707. Temp_Status
  3708.     0R1S2S
  3709. En cours,Pr
  3710. t pour consolidation,Ne pas consolider,Donn
  3711. es demand
  3712. es,Consolid
  3713.  dans le document ma
  3714. Temp_Value
  3715. $31$33
  3716. Avril Jordan
  3717. es demand
  3718. esment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  3719.     0SL1SSg
  3720. PURSAFO
  3721. TeamConsolidate
  3722. Navigateur principal | Main Navigator
  3723. CN=Avril Jordan/OU=DUB/O=LotusG3
  3724. PURSAFO
  3725. es non encore demand
  3726. es,Donn
  3727. es demand
  3728. es,Partiellement consolid
  3729. ,Consolidation termin
  3730. StatusX
  3731. WorksheetTitle"
  3732. Title
  3733.     3S5S
  3734. SessionEditors
  3735. Contributor
  3736. SessionEditors
  3737.     3S4S24S
  3738. Temp_Status
  3739. Worksheetstatus
  3740. Temp_Value
  3741. Temp_Status
  3742. Temp_Status
  3743. Temp_Status
  3744.     0R1S2S
  3745. En cours,Pr
  3746. t pour consolidation,Ne pas consolider,Donn
  3747. es demand
  3748. es,Consolidation termin
  3749. Temp_Value
  3750. $27$24$22$26$8$10$Conflict$REF$C1$
  3751. es non encore demand
  3752. Tutuy
  3753. Avril Jordan
  3754. Temp_Status
  3755. *CN=Avril Jordan/OU=DUB/O=LotusCN=
  3756. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/
  3757. Avril Jordan
  3758. Avril Jo
  3759. LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3760. Lotus
  3761. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=
  3762. ril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3763. Lotus
  3764. l Jordan
  3765. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3766. Lotus
  3767. l Jordan
  3768. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3769. Lotus
  3770. WorksheetTitle"
  3771. Title
  3772.     3S5S
  3773. SessionEditors
  3774. Contributor
  3775. SessionEditors
  3776.     3S4S24S
  3777. Temp_Status
  3778. Worksheetstatus
  3779. StatusX
  3780.     1S16S
  3781. Temp_Value
  3782. Temp_Status
  3783. Temp_Status
  3784. Temp_Status
  3785.     0R1S2S
  3786. es non encore demand
  3787. es,Donn
  3788. es demand
  3789. es,Partiellement consolid
  3790. ,Consolidation termin
  3791. e,En cours,Pr
  3792. t pour consolidation,Ne pas consolider,Donn
  3793. es demand
  3794. es,Consolid
  3795.  dans le document ma
  3796. Temp_Value
  3797. $12$28$26$31$8$10$Conflict$REF$C1$
  3798. Avril Jordan
  3799. es demand
  3800. t pour consolidation
  3801. Consolidation termin
  3802. es non encore demand
  3803. Tutuy
  3804.     3S4S24S
  3805. Temp_Status
  3806. Worksheetstatus
  3807. StatusX
  3808. Temp_Status
  3809. GraphicButton1
  3810.  @  @@ @` @
  3811. @@ @@@@@`@@
  3812. `@ `@@`@``@
  3813. Text1Vues de classeur#
  3814. Button1Par collaborateur
  3815. Button2Par 
  3816. Button3Par date#
  3817. Button4Tous les documents#
  3818. HotspotRectangle1#
  3819. HotspotRectangle2#
  3820. Par date
  3821. HotspotRectangle3#
  3822. HotspotRectangle4
  3823. View by Contributor
  3824. O=Lotus Notes
  3825. O=Lotus Notes
  3826. PURSAFO
  3827. |.:#U
  3828. O=Lotus Notes
  3829. CN=Lotus Notes Template Development/O=Lotus Notes
  3830. PURSAFO
  3831. Fde!f^^
  3832. $ViewMapDataset
  3833. $ViewMapLayout
  3834. PURSAFO
  3835. (ID document parent)|ConsolidateButton
  3836. (Consolidation interne)|(Internal Consolidate)
  3837. Par collaborateur|View By Contributor
  3838. Tous les documents|View by Master Contributor
  3839. moMemoMemo
  3840. Navigateur principal | Main Navigator
  3841. CollaborateurSecondary
  3842. Document avec classeur 1-2-3Main
  3843. Navigateur principal | Main Navigator
  3844.  Main Navigator
  3845. ocuments|View 
  3846. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=Lotus
  3847.  | Main Navigator
  3848. CollaborateurSecondary.
  3849. Tous les documents|View by Master 
  3850. CollaborateurSec%
  3851. CollaborateurSecondary.
  3852. nsolidate)
  3853. Par collaborateur|View By Contributor
  3854. collaborateur|View By Co3d%
  3855. Document avec classeur 1-2-3Main
  3856. CollaborateurSecondary
  3857. collaborateur|View By Contributor
  3858. (ID document parent)|ConsolidateButton
  3859. (Consolidation interne)|(Internal Consolidate)
  3860. rincipal | Main Navigator
  3861. CollaborateurSecondary
  3862. gator
  3863. CollaborateurSecondary
  3864. orateurSecondary
  3865. Navigateur principal | Main Navigator
  3866.  Main Navigator
  3867. ocuments|View 
  3868. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=Lotus
  3869.  | Main Navigator
  3870. CollaborateurSecondary.
  3871. Tous les documents|View by Master 
  3872. CollaborateurSec%
  3873. CollaborateurSecondary.
  3874. CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus*
  3875. O=LotusCN=Avril Jordan/OU=DUB/O=Lotu
  3876. *CN=Avril Jordan/OU=DUB/O=Lotus
  3877. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3878. Lotus
  3879. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  3880. Lotus
  3881. EmbeddingDisplayArea
  3882. WorkbookTitle
  3883. NoCache
  3884. (Consolidation interne)
  3885. $RefV
  3886.  - Feuille 
  3887. WorksheetTitle"
  3888.     24S25S26S
  3889. &Arial
  3890. '++LotusScript Development Environment:2:5:(Options):0:66
  3891. Option Public
  3892. '++LotusScript Development Environment:2:5:(Forward):0:1
  3893. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3894. ' UI entry point
  3895. ' * * *  ---> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  3896. Const  UIDLL_NAME =   "tcui10fr.dll"
  3897. ' get  is the status of the contribution
  3898. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  3899. '-- * * *  strings to translate * * * 
  3900. Const MSG_OPENING_123 =  "Ouverture de l'objet 1-2-3"
  3901. Const MSG_LOTUS_TITLE  = "Lotus 1-2-3 97"
  3902. ' for composing email to Originator
  3903. Const MSG_SHEET = "Feuille"
  3904. Const MSG_READYTOCONS = "marqu
  3905. t pour consolidation."
  3906. Const MSG_BLANK = " "
  3907. Const MSG_IN = "dans"
  3908. Const MSG_MARKED = "marqu
  3909. t pour consolidation."
  3910. ' user sees this when clicking on doclink
  3911. Const DOCLINK_TEXT =         "Cette liaison vous conduit 
  3912.  la feuille.   "                        
  3913. Const MSG_FYI  = "Pour information:  "
  3914. Const MSG_NO_EMAIL =  " n'a pas pu 
  3915. tre notifi
  3916.  par messagerie 
  3917. lectronique."
  3918. ' -- * * * end strings to translate * * * 
  3919. ' Form names
  3920. Const MEMO_FORM = "Memo"
  3921. ' these values match the values defined in Main/Globals (the master document). They should not be changed
  3922. Const STATUS_IN_PROGRESS = "1"
  3923. Const STATUS_READY_CONS = "2"
  3924. Const STATUS_DONT_CONS = "3"
  3925. Const STATUS_DATA_REQUESTED = "101"
  3926.  Secondary'++LotusScript Development Environment:2:5:(Options):0:66
  3927. '++LotusScript Development Environment:2:5:(Forward):0:1
  3928. Declare Sub Terminate
  3929. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3930. Declare Sub Initialize
  3931. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3932. Declare Sub Postopen(Source As Notesuidocument)
  3933. Declare Function GetSheetStatus As Long
  3934. Declare Sub SendMailToDistributor
  3935. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3936. Dim DocWasSaved As Integer
  3937. Dim UIDoc As NotesUIDocument
  3938. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3939. Private Sub BindEvents(Byval Objectname_ As String)
  3940.      Static Source As NOTESUIDOCUMENT
  3941.      Set Source = Bind(Objectname_)
  3942.      On Event Queryclose From Source Call Queryclose
  3943.      On Event Querysave From Source Call Querysave
  3944.      On Event Postopen From Source Call Postopen
  3945. End Sub
  3946. '++LotusScript Development Environment:2:2:Terminate:1:10
  3947. Sub Terminate
  3948.      
  3949.      Dim workSpace As New NotesUIWorkspace
  3950.      Dim thisDoc As Notesdocument
  3951.      
  3952.      
  3953.      ' if the document was saved, then put up a status dialog
  3954.      If DocWasSaved Then
  3955.           
  3956.           Set thisDoc = UIDoc.Document
  3957.           
  3958.           ' get sheet status from user
  3959.           Dim status As Long
  3960.           status = GetSheetStatus
  3961.           
  3962.           ' should we notify the distributor if the sheet is complete
  3963.           If thisDoc.NotifyDistributor(0) = 1 Then
  3964.                If Cstr(status) = STATUS_READY_CONS Then
  3965.                     SendMailToDistributor   
  3966.                End If
  3967.                
  3968.           End If
  3969.           
  3970.           ' re-save the document
  3971.           thisDoc.Save True, True
  3972.           
  3973.           'update the view
  3974.           workSpace.ViewRefresh
  3975.           
  3976.      End If
  3977.      
  3978. End Sub
  3979. '++LotusScript Development Environment:2:2:Queryclose:1:12
  3980. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3981.      
  3982. End Sub
  3983. '++LotusScript Development Environment:2:2:Initialize:1:10
  3984. Sub Initialize
  3985.      
  3986. End Sub
  3987. '++LotusScript Development Environment:2:2:Querysave:1:12
  3988. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3989.      
  3990.      DocWasSaved = True
  3991.      Set UIDoc = Source
  3992.      
  3993. End Sub
  3994. '++LotusScript Development Environment:2:2:Postopen:1:12
  3995. Sub Postopen(Source As Notesuidocument)
  3996.      
  3997.      ' inform the user (in the status window) that we are opening the 1-2-3 embedding 
  3998.      Print MSG_OPENING_123 
  3999.      
  4000. End Sub
  4001. '++LotusScript Development Environment:2:1:GetSheetStatus:1:8
  4002. Function GetSheetStatus As Long
  4003.      
  4004.      Dim hInst As Long
  4005.      Dim thisDoc As NotesDocument
  4006.      Dim status As Long
  4007.      
  4008.      ' get handle to LotusScript instance
  4009.      hInst = Lsi_info(4)
  4010.      
  4011.      Set thisDoc = UIDoc.Document
  4012.      
  4013.      ' get the existing status, convert it from a string
  4014.      status = Clng(thisDoc.WorkSheetStatus(0))
  4015.      
  4016.      ' if the status is "data requested" then default the dialog to "in progress"
  4017.      If status = Clng(STATUS_DATA_REQUESTED) Then
  4018.           status = Clng(STATUS_IN_PROGRESS)
  4019.      End If
  4020.      
  4021.      ' put up the UI to get the status, the dialog will default to the status passed in
  4022.      GetCollectionStatus hInst, status
  4023.      
  4024.      ' add the status back into the document
  4025.      thisDoc.WorkSheetStatus = Cstr(status)
  4026.      
  4027.      GetSheetStatus = status
  4028.      
  4029. End Function
  4030. '++LotusScript Development Environment:2:2:SendMailToDistributor:1:8
  4031. Sub SendMailToDistributor
  4032.      
  4033.      On Error Goto handler
  4034.      
  4035.      
  4036.      Dim thisDoc As NotesDocument
  4037.      Set thisDoc = UIDoc.Document
  4038.      
  4039.      Dim mailDoc As NotesDocument
  4040.      Set mailDoc = New NotesDocument(thisDoc.ParentDatabase)
  4041.      
  4042.      mailDoc.Form = MEMO_FORM 
  4043.      
  4044.      Set RTItem = New NotesRichTextItem( mailDoc, "Body" )
  4045.      
  4046.      Dim subjectString As String
  4047.      Dim titleString As String
  4048.      
  4049.      '!!! - eabtodo -  make this more efficient by using copyitem calls instead of . notation
  4050.      titleString = thisDoc.WorksheetTitle(0)
  4051.      
  4052.      '  subject = Sheet thisDoc.WorksheetTiltle marked Ready to consolidate"
  4053.      ' subjectString = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  4054.      
  4055.      mailDoc.Subject = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  4056.      mailDoc.SendTo = thisDoc.Distributor(0)
  4057.      
  4058.      Dim linkMessage As String
  4059.      linkMessage = thisDoc.Main_Title(0) + "." + titleString
  4060.      
  4061.      RTItem.AppendText MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_IN + MSG_BLANK + _
  4062.      thisDoc.Main_Title(0) + MSG_BLANK + MSG_MARKED
  4063.      
  4064.      RTItem.AddNewLine 2
  4065.      RTItem.AppendText DOCLINK_TEXT 
  4066.      RTItem.AppendDocLink thisDoc, linkMessage      
  4067.      
  4068.      On Error Goto SendError
  4069.      Call mailDoc.Send (False)
  4070.      
  4071.      Goto Done
  4072.      
  4073. handler:
  4074.      Msgbox MSG_ERROR  & Error$    
  4075.      'Resume Next
  4076.      Exit Sub
  4077.      
  4078. SendError:
  4079.      Messagebox MSG_FYI & thisDoc.Distributor(0) & MSG_NO_EMAIL, MB_OK + MB_ICONINFORMATION, MSG_LOTUS_TITLE
  4080.      Exit Sub
  4081.      
  4082. Done:
  4083.      
  4084. End Sub
  4085. Hidden
  4086. WorkbookTitle
  4087. WorkbookTitle
  4088. WorkbookTitle
  4089. NoCache
  4090. (Consolidation interne)
  4091. $RefV
  4092.     0S0E
  4093. FormTitleInfoDisplay
  4094. RestrictedTo
  4095.     0S0E
  4096. RestrictedToR
  4097. pertorie qui a un acc
  4098. s en lecture au document (facultatif).
  4099. CurrentAuthor
  4100. CurrentAuthorR
  4101. pertorie les 
  4102. diteurs actuellement autoris
  4103.  modifier le document.
  4104. Distributor
  4105.     0S0E
  4106. DistributorL'auteur de la diffusion
  4107. ForContributorsOnly
  4108.     0S0E
  4109. ForContributorsOnlyDocument restreint aux collaborateurs seulement
  4110. NotifyDistributor
  4111.     0S0E
  4112. NotifyDistributorNotifier l'exp
  4113. diteur quand le travail sur cette feuille est termin
  4114. WorksheetTitle
  4115. WorksheetTitle
  4116. Response Form
  4117.   @  
  4118.  @@ @
  4119.  `@ `
  4120. @ @@ 
  4121. @@@@@
  4122. @`@@`
  4123. ` @` 
  4124. `@@`@
  4125. ``@``
  4126. t:2:2:Initialize
  4127. (Source As Field
  4128. FormTitleInfoDisplay
  4129. FormTitleDisplay
  4130. WorksheetTitle
  4131. WorksheetTitleDisplay
  4132. Affect
  4133. Contributor
  4134.     0S0E
  4135. Contributor
  4136. CreateDate
  4137. CreateTime
  4138. Etat de la feuille:
  4139. WorkSheetStatus
  4140.     4S6S
  4141. WorkSheetStatus
  4142. En cours | 1Pr
  4143. t pour consolidation | 2Ne pas consolider | 3Donn
  4144. es demand
  4145. es | 101Consolidation annul
  4146. e | 102
  4147. Feuille du collaborateur
  4148.       
  4149. EmbeddingDisplayArea
  4150.       
  4151. ContributorEmbedding
  4152. Remarques
  4153. Response_Remark
  4154. Informations de classeur
  4155. Titre :
  4156. FormTitleInfoDisplay
  4157. ParentTitle
  4158. Source du classeur :
  4159.               
  4160. WorkBookNameh
  4161. WorkBookName
  4162. SourceName
  4163.     0S0E
  4164. WorkBookName
  4165. Etat du classeur :
  4166. NoCache
  4167. (Consolidation interne)
  4168. $RefV
  4169.     0S0E
  4170. WorkBookStatus
  4171. History
  4172. Historique de la feuille
  4173. Historique du classeur
  4174.     0S0E
  4175. Historique
  4176. Hidden Always
  4177. SessionTimes
  4178. Recherche la liste d'
  4179. diteurs, y compris l'
  4180. diteur actuel, dans le champ CurrentEditor.
  4181. SessionEditors
  4182. Recherche la liste d'
  4183. diteurs, y compris l'
  4184. diteur actuel, dans le champ CurrentEditor.
  4185. Fichier source du classeur:       
  4186. SourceName
  4187. BookName
  4188.  par  
  4189. Modifi
  4190.  par 
  4191. SessionEditorsj
  4192. SessionEditors
  4193.  le "
  4194. SessionTimesT
  4195. dimanche
  4196. lundi
  4197. mardi
  4198. mercredi
  4199. jeudi
  4200. vendredi
  4201. samedi
  4202. SessionTimesO
  4203. janvier
  4204. vrier
  4205. avril
  4206. juillet
  4207. septembre
  4208. octobre
  4209. novembre
  4210. cembre
  4211. SessionTimesP
  4212. SessionTimesN
  4213. SessionTimes
  4214.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  4215. * * * FIN DU DOCUMENT * * *
  4216. gori_ser
  4217. Modifier document
  4218. Envoyer
  4219. _Faire suivre
  4220. _Ajouter au dossier...
  4221. _Retirer du dossier...
  4222. Terminer'++LotusScript Development Environment:2:5:(Options):0:66
  4223. '++LotusScript Development Environment:2:5:(Forward):0:1
  4224. Declare Sub Click(Source As Button)
  4225. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4226. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4227. Private Sub BindEvents(Byval Objectname_ As String)
  4228.      Static Source As BUTTON
  4229.      Set Source = Bind(Objectname_)
  4230.      On Event Click From Source Call Click
  4231. End Sub
  4232. '++LotusScript Development Environment:2:2:Click:1:12
  4233. Sub Click(Source As Button)
  4234.      
  4235.      Dim workSpace As New NotesUIWorkspace
  4236.      Dim UIDoc As NotesUIDocument
  4237.      
  4238.      Set UIDoc = workSpace.CurrentDocument
  4239.      
  4240.      ' close the document, Notes will prompt for whether to save or not
  4241.      UIDoc.Close
  4242.      
  4243. End Sub
  4244. O=Lotus Notes
  4245. O=Lotus Notes
  4246. PURSAFO
  4247. |.:#U
  4248. O=Lotus Notes
  4249. CN=Lotus Notes Template Development/O=Lotus Notes
  4250. PURSAFO
  4251. Fde!f^^
  4252. $Title
  4253. $AUTOLAUNCH
  4254. $Info
  4255. $WindowTitle
  4256. $Script
  4257. $$Script_O
  4258. $$ScriptName
  4259. $$FormScript
  4260. $$$FormScript_O
  4261. $Body
  4262. $ACTIONS
  4263. $SCRIPTOBJ_6
  4264. Times New Roman
  4265. VersionOpt|
  4266.     6S7S9S14S
  4267. $VersionOpt
  4268.     0R1S2S3S
  4269. SavedOnce
  4270.     0R1S2S3S
  4271. PostedDate(
  4272.     0R1S2S3S
  4273. DeliveredDate
  4274.     0R1S2S3S
  4275. $AutoEditMode
  4276.     0R1S2S3S
  4277. MailSaveOptions
  4278.     0R1S2S3S
  4279. VersionOpt
  4280.     0R4S
  4281. Nouveau m
  4282. Subject
  4283. Subject
  4284. Subject
  4285.     4S6S12S13S14S15S17S21S23S25S26S28S
  4286. '++LotusScript Development Environment:2:5:(Options):0:74
  4287. Option Public
  4288. %INCLUDE "lsconst.lss"
  4289. '++LotusScript Development Environment:2:5:(Forward):0:1
  4290. Declare Sub InstantiateObjectVariables(source)
  4291. Declare Sub SaveDialog(SavedDoc)
  4292. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4293. Dim w As NotesUIWorkspace
  4294. Dim s As NotesSession
  4295. Dim db As NotesDatabase
  4296. Dim note As NotesDocument
  4297. Dim newnote As NotesDocument
  4298. Dim Action As Variant
  4299. Dim DoNotClose As Variant
  4300. Dim ContinueSave As Variant
  4301. Dim NewDocument As Variant
  4302. '++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
  4303. Sub InstantiateObjectVariables(source)
  4304.      
  4305.      Set w = New NotesUIWorkspace
  4306.      Set s = New NotesSession
  4307.      Set db = s.CurrentDatabase
  4308.      Set note = source.document
  4309.      source.AutoReload = False
  4310.      
  4311. End Sub
  4312. '++LotusScript Development Environment:2:2:SaveDialog:1:8
  4313. Sub SaveDialog(SavedDoc)
  4314.      
  4315.      SavePrompt = Messagebox("Voulez-vous enregistrer ce " & SavedDoc & "?", MB_YESNOCANCEL, "Enregistrer " & SavedDoc) 
  4316.      Select Case SavePrompt
  4317.      Case IDCANCEL
  4318.           note.MailOptions = "0"
  4319.           DoNotClose = True
  4320.           ContinueSave = False
  4321.           Exit Sub
  4322.      Case IDNO
  4323.           note.SaveOptions = "0"
  4324.           Exit Sub
  4325.      Case IDYES
  4326.           note.SaveOptions = "1"
  4327.      End Select
  4328.      
  4329. End Sub
  4330. }H    Ih
  4331.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  4332. '++LotusScript Development Environment:2:5:(Forward):0:1
  4333. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4334. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4335. Declare Sub Postopen(Source As Notesuidocument)     
  4336. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4337. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4338. Private Sub BindEvents(Byval Objectname_ As String)
  4339.      Static Source As NOTESUIDOCUMENT
  4340.      Set Source = Bind(Objectname_)
  4341.      On Event Querysave From Source Call Querysave
  4342.      On Event Queryclose From Source Call Queryclose
  4343.      On Event Postopen From Source Call Postopen
  4344. End Sub
  4345. '++LotusScript Development Environment:2:2:Querysave:1:12
  4346. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4347.      
  4348.      DoNotClose = False
  4349.      
  4350.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  4351.      
  4352. 'Remove these because they are explicitly set in this event     
  4353.      note.RemoveItem("MailOptions")
  4354.      note.RemoveItem("SaveOptions")
  4355.      
  4356.      Action = note.tmpAction
  4357.      
  4358.      If note.HasItem("IsMailStationery") Then
  4359.           If Action(0) <> "RenameStationery" Then
  4360.                ContinueSave = True
  4361.                Call SaveDialog("Version finale")
  4362.                If ContinueSave = False Then
  4363.                     Continue = False
  4364.                     Exit Sub
  4365.                End If
  4366.           End If
  4367.      End If
  4368.      
  4369.      Select Case Action(0)
  4370.      Case "SaveAsStationery"
  4371.           sName = Inputbox$("Quel nom voulez-vous donner 
  4372.  cette version finale ?", "Enregistrer comme version finale", "-Sans titre-")
  4373.           If sName = "" Then
  4374.                note.MailOptions = "0"
  4375.                note.RemoveItem("tmpAction")
  4376.                DoNotClose = True
  4377.                Continue = False
  4378.                Exit Sub
  4379.           End If
  4380.           If NewDocument Then
  4381.                note.IsMailStationery = 1
  4382.                note.MailStationeryName = sName
  4383.                note.MailOptions = "0"
  4384.                note.SaveOptions = "1"
  4385.           Else
  4386.                note.SaveOptions = "0"
  4387.                Set newnote = New NotesDocument(db)
  4388.                Call note.CopyAllItems(newnote)
  4389.                ItemList = newnote.Items
  4390.                Forall i In ItemList
  4391.                     If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
  4392.                End Forall
  4393.                newnote.IsMailStationery = 1
  4394.                newnote.MailStationeryName = sName              
  4395.                newnote.Form = "Memo"
  4396.                newnote.RemoveItem("PostedDate")
  4397.                newnote.RemoveItem("DeliveredDate")
  4398.                newnote.Save True, True
  4399.                w.ViewRefresh
  4400.           End If
  4401.           Messagebox "Ce message a 
  4402.  enregistr
  4403.  comme version finale dans votre dossier Brouillons. Un nouveau message sera cr
  4404.  chaque fois que vous ouvrez cette version finale.", 0, "Enregistrer comme version finale"
  4405.      Case "RenameStationery"
  4406.           MailStationeryName = note.MailStationeryName
  4407.           sName = Inputbox$("Quel nom voulez-vous donner 
  4408.  cette version finale ?", "Enregistrer comme version finale", MailStationeryName(0))
  4409.           If sName = "" Then
  4410.                note.MailOptions = "0"
  4411.                note.RemoveItem("tmpAction")
  4412.                DoNotClose = True
  4413.                Continue = False
  4414.                Exit Sub
  4415.           End If
  4416.           note.MailStationeryName = sName
  4417.           note.MailOptions = "0"
  4418.           note.SaveOptions = "1"
  4419.      Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
  4420.           note.MailOptions = "0"
  4421.           note.SaveOptions = "1"
  4422.      Case "Send"
  4423.           note.MailOptions = "0"
  4424.           note.SaveOptions = "0"
  4425.      Case "Mailing"
  4426. 'We do not want to do anything if mailing is in process (like from the Send button)
  4427.      Case "ConvertToTask"
  4428.           note.RemoveItem("DeliveredDate")
  4429.           note.RemoveItem("PostedDate")
  4430.           note.SendTo = ""
  4431.           note.CopyTo = ""
  4432.           note.SaveOptions ="1"
  4433.           note.MailOptions = "0"
  4434.           note.Form = "Task"
  4435.           note.AssignState = 0
  4436.           note.ExcludeFromView = "D"
  4437.           Call note.ReplaceItemValue("_ViewIcon", 168)
  4438.      Case Else
  4439. 'If this is a message that was not written by you we do not present the mail dialog          
  4440.           If note.From(0) <> s.UserName Then
  4441.                note.MailOptions = "0"
  4442.                note.SaveOptions = "1"
  4443.                ContinueSave = True
  4444.                Call SaveDialog("Document")
  4445.                If ContinueSave = False Then
  4446.                     Continue = False
  4447.                     Exit Sub
  4448.                End If
  4449.           End If
  4450.      End Select
  4451.      
  4452.      note.RemoveItem("tmpAction")
  4453.      If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
  4454.      
  4455.      source.Reload
  4456.      
  4457. End Sub
  4458. '++LotusScript Development Environment:2:2:Queryclose:1:12
  4459. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4460.      
  4461.      If DoNotClose Then
  4462.           DoNotClose = False
  4463.           Continue = False
  4464.      End If
  4465.      
  4466. End Sub
  4467. '++LotusScript Development Environment:2:2:Postopen:1:12
  4468. Sub Postopen(Source As Notesuidocument)     
  4469.      
  4470.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  4471.      
  4472.      If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) And source.EditMode = False Then
  4473.           Exit Sub  
  4474.      Else
  4475.           If source.InPreviewPane Then
  4476.                Exit Sub
  4477.           Else
  4478.                source.EditMode = True
  4479.           End If
  4480.      End If
  4481.      
  4482.      If source.IsNewDoc Then
  4483.           NewDocument = True
  4484.           EditType = s.GetEnvironmentValue("MailStEd")
  4485. 'EditType 1 = CreateStationery          
  4486.           If EditType = "1" Then
  4487.                note.tmpAction = "SaveAsStationery"
  4488.                note.IsMailStationery = 1
  4489.                Call s.SetEnvironmentVar("MailStEd", "0")
  4490.                note.MailOptions = "0"
  4491.                note.SaveOptions = "1"
  4492.                source.Reload
  4493.                source.RefreshHideFormulas
  4494.           Else
  4495.                'If note.HasItem("ForwardedFrom") Then Call note.ReplaceItemValue("$RefOptions", "1") 
  4496.           End If
  4497.      Else
  4498.           NewDocument = False
  4499.           If note.HasItem("IsMailStationery") Then
  4500.                EditType = s.GetEnvironmentValue("MailStEd")
  4501. 'EditType 2 = EditStationery
  4502.                If EditType = "2" Then 
  4503.                     Call s.SetEnvironmentVar("MailStEd", "0")
  4504.                     note.MailOptions = "0"
  4505.                     note.SaveOptions = "1"
  4506.                Else
  4507. 'Create a doc from Stationery
  4508.                     note.RemoveItem("IsMailStationery")
  4509.                     note.RemoveItem("MailStationeryName")
  4510.                     Call note.ReplaceItemValue("$VersionOpt", "6")              
  4511.                End If
  4512.           Else
  4513.                EditType = s.GetEnvironmentValue("MailStEd")
  4514. 'EditType 5 = EditNewCopy               
  4515.                If EditType = "5" Then 
  4516.                     Call note.ReplaceItemValue("$VersionOpt", "6")
  4517.                     note.tmpAction = "ConvertNewDoc"
  4518.                     Call s.SetEnvironmentVar("MailStEd", "0")
  4519.                     source.reload
  4520.                     source.save
  4521.                End If
  4522.           End If
  4523.           source.Reload
  4524.           source.RefreshHideFormulas
  4525.      End If 
  4526.      
  4527. End Sub
  4528. Q0    }|
  4529. Q<    }|
  4530. QT    }`    
  4531. ,`    }(
  4532. ,`    }(
  4533. ,`    }(
  4534.     Always Hidden: 
  4535. FromPerson memo is from.
  4536. DefaultLogo
  4537. StdNotesLtrGateway
  4538.     4S9S13S16S18SLogoPerson memo is from.
  4539.     0S0E
  4540.     0S0E
  4541. Encrypt
  4542. MailSaveOptions
  4543.     1S2S3S
  4544. MailSaveOptions
  4545. DefaultMailSaveOptions
  4546.     De :    
  4547. FromDomain
  4548. FromDomain
  4549. FromDomain
  4550. FromDomain
  4551.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  4552. FromName
  4553.     0RR1S2S6S
  4554. FromStops
  4555.     0R1S2S6S
  4556. FromName
  4557. FromStops
  4558. FromStops
  4559. FromStops
  4560.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
  4561.      le 
  4562. PostedDateh
  4563. PostedDate
  4564.     7S9S
  4565. tmpDisplayDate_PreviewHeure/date de cr
  4566. ation ou d'envoi du m
  4567. StdNotesLtr16
  4568.     3S4S6S8S
  4569. tmpDate
  4570.     4S5S6S8S
  4571.     De :    
  4572. FromDomain
  4573. FromDomain
  4574. FromDomain
  4575. FromDomain
  4576.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  4577. FromName
  4578.     0RR1S2S6S
  4579. FromStops
  4580.     0R1S2S6S
  4581. FromName
  4582. FromStops
  4583. FromStops
  4584. FromStops
  4585.     0RRR1S2S3S4S10S13S17S20S
  4586. tmpDisplayFrom_NoLogo
  4587.      le 
  4588. PostedDateh
  4589. PostedDate
  4590.     7S9S
  4591. tmpDisplayDate_NoLogoHeure/date de cr
  4592. ation ou d'envoi du m
  4593. ReplyDate
  4594. ReplyTo
  4595.     1S2S3S4S5S6S
  4596. Veuillez r
  4597. pondre
  4598. ReplyTo
  4599. ReplyTo
  4600. ReplyDate
  4601. ReplyDate
  4602.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo8
  4603. Vers: 
  4604. SendTo
  4605. CopyTo
  4606.   cc:  
  4607. CopyTo
  4608.     1S2S8S13S14S2E17S18S21S22S28S31S
  4609.     Pour :    t
  4610. SendTo}
  4611.     0S0E
  4612. SendToListe des premiers destinataires du m
  4613.     cc :    p
  4614. CopyTo}
  4615.     0S0E
  4616. CopyToListe des destinataires d'une copie du m
  4617. DeliveredDate
  4618. BlindCopyTo
  4619. (ccc: 
  4620. BlindCopyTo
  4621.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  4622.     ccc :    
  4623. BlindCopyTo
  4624.     0S0E
  4625. BlindCopyToListe des destinataires secrets de copies de m
  4626.     Objet :    
  4627. PhoneCaller
  4628. Appel t
  4629. phonique : 
  4630. PhoneCaller
  4631. Subject
  4632.     7S8S9S11SSubjectObjet du m
  4633. PostedDate
  4634. SenderTag
  4635. Moods
  4636.     3S4S5S6S8S9S10S11S14S16S
  4637.     $CONTENT(BEGIN)
  4638.     $CONTENT(END)
  4639. Modifier documentS
  4640. Faire suivre 
  4641.     0S0E
  4642. Nouveau m
  4643.     0S0E
  4644. Supprimer
  4645.     0S0E
  4646. _Ajouter au dossier...
  4647. Informations sur la distribution...G
  4648. DeliveryInfo
  4649. Informations sur la distribution
  4650.     4S5S6S7S8S9S10S12S
  4651. _Faire suivret
  4652. pondre4
  4653. Reply
  4654.     0S0E
  4655. pondre avec historique
  4656. pondre avec historique
  4657. Ce document est tronqu
  4658.     4S8S10S13S
  4659. Reply with history
  4660. Adresser...
  4661.     0S0E
  4662. PostedDateh
  4663.     5S6S7S8S
  4664. Fermer 
  4665.     0S0E
  4666. IsMailStationeryh
  4667. PostedDateh
  4668.     6S7S
  4669. Enregistrer comme projetj
  4670. tmpAction
  4671. SaveAsDraft
  4672.     1S2S3S
  4673. IsMailStationeryh
  4674. PostedDateh
  4675.     4S5S
  4676. Enregistrer et archiver
  4677.     7S9S
  4678. tmpAction
  4679. SaveAndFile
  4680.     0R1S2S3S
  4681. IsMailStationeryh
  4682. PostedDateY
  4683. PostedDateh
  4684.     4S5S9S10S16S17S18S19S
  4685. Envoyer
  4686. PromptValue
  4687. DefaultMailSaveOptions
  4688. Enregistrer 
  4689.  l'envoi
  4690. Voulez-vous enregistrer une copie de ce m
  4691. DefaultMailSaveOptions
  4692.     1S2S5S6S8S14S17S
  4693. SaveOptions
  4694. PromptValue
  4695. SaveOptions
  4696. PromptValue
  4697.     0RR1S2S5S6S9S14S
  4698. tmpAction
  4699. DefaultMailSaveOptions
  4700. Mailing
  4701.     0RR1S2S3S6S7S9S11S
  4702.     0RR7S9S
  4703. tmpAction
  4704. SaveOptions
  4705. SendAndFile
  4706.     0RR1S2S3S6S7S9S11S
  4707.     0R7S9S
  4708. PostedDateh
  4709. IsMailStationeryh
  4710.     5S6S7S8S10S11S
  4711. Envoyer et archiver...V
  4712.     4S11S13S19S
  4713.     0RR7S9S
  4714.     0RR7S9S
  4715. tmpAction
  4716. SendAndFile
  4717.     0RR1S2S3S
  4718.     0R7S9S
  4719. PostedDateh
  4720. IsMailStationeryh
  4721.     5S6S7S8S10S11S
  4722. Options de distribution...
  4723. DeliveryOptions
  4724. Options de distribution
  4725.     4S8S
  4726. _ViewIcon
  4727. SenderTag
  4728. SenderTag
  4729. SenderTag
  4730. SenderTag
  4731. SenderTag
  4732. SenderTag
  4733. SenderTag
  4734. SenderTag
  4735. SenderTag
  4736. SenderTag
  4737. SenderTag
  4738.     0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
  4739. PostedDateh
  4740.     5S6S7S8S
  4741. Options sp
  4742. ciales...<
  4743. ReplyDate
  4744. ReplyDate
  4745.     1S2S3S
  4746. ReplyTo
  4747. ReplyTo
  4748.     0R1S2S3S
  4749. (Advanced Options)
  4750. Options sp
  4751. ciales
  4752.     0R6S10S13S15S
  4753. tmpDisplayReplyInfo
  4754. Veuillez r
  4755. pondre
  4756. ReplyTo
  4757. ReplyTo
  4758. ReplyDate
  4759. ReplyDate
  4760.     0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
  4761. DueDateTime
  4762. ReplyDate
  4763. ReplyDate
  4764.     0R1S2S3S6S7S9S11S
  4765. PostedDateh
  4766.     5S6S7S8S
  4767. Enregistrer comme version finale...
  4768. tmpAction
  4769. SaveAsStationery
  4770.     1S2S3S
  4771. IsMailStationeryh
  4772.     0S0E
  4773. Convertir en t
  4774. ReplyDate
  4775. Impossible de convertir en t
  4776. Vous ne pouvez pas convertir ce message en t
  4777. che car une date de fin lui est d
  4778.  impartie.
  4779.     3S4S6S12S18S
  4780. tmpAction
  4781. ConvertNewDoc
  4782. Unavailable
  4783.     0R1S2S3S7S9S
  4784.     0R4S9S13S
  4785.     0R4S
  4786. _Retirer du dossier...
  4787. gori_ser
  4788. EEnvoyer
  4789. O=Lotus Notes
  4790. O=Lotus Notes
  4791. PURSAFO
  4792. |.:#U
  4793. O=Lotus Notes
  4794. CN=Lotus Notes Template Development/O=Lotus Notes
  4795. PURSAFO
  4796. Fde!f^^
  4797. $Title
  4798. $Info
  4799. $WindowTitle
  4800. $Body
  4801. $ACTIONS
  4802.