home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999_B.iso / Lotus123 / GERMAN / LOTUS022.DSK / TEAMKONS.NTF (.txt) < prev   
Lotus Notes Database  |  1997-02-14  |  983KB  |  4,596 lines

  1. Team Konsolidierung
  2. BABELDB
  3. #1TeamConsolidate
  4. C:\Gold\teamcons\German\teamcons.ntf
  5. CN=Avril Jordan/OU=DUB/O=Lotus
  6. CN=Lotus Notes Template Development/O=Lotus Notes
  7. Xb2[f
  8. <T>b2
  9. [9a&"
  10. .K[W+l
  11. #qa!w
  12. ##########################################################
  13. ##########################################################
  14. ##########################################################
  15. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  16. z:###############################################
  17. Dokument mit 1-2-3 ArbeitsmappeMain
  18. Form BannerHistory1
  19. BookNameSessionEditorsSessionTimesMain_RemarksMasterStatusNameTitleSourceNameAuthor
  20. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################
  21. TeamConsolidate
  22. Navigator | Main NavigatorG3
  23. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  24. 10B2E31128E4F84870AC5A318F84E878Lotus NotesStdR4Mail
  25. BodySubjectBlindCopyToCopyToSendToDefaultMailSaveOptionsEncryptSignLogoFrom
  26. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################################
  27. HistoryCUA3
  28. BookNameSessionEditorsSessionTimes
  29. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes################################################
  30. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  31. Response Form######################################
  32. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  33. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  34. ##########################################################
  35. ##########################################################
  36. ##########################################################
  37. ##########################################################
  38. ##########################################################
  39. ##########################################################
  40. ##########################################################
  41. ##########################################################
  42. ##########################################################
  43. ##########################################################
  44. ##########################################################
  45. ##########################################################
  46. ##########################################################
  47. ##########################################################
  48. ##########################################################
  49. ##########################################################
  50. ##########################################################
  51. ##########################################################
  52. ##########################################################
  53. ##########################################################
  54. ##########################################################
  55. ##########################################################
  56. BearbeiterSecondary
  57. Response FormHistoryC
  58. BookNameSessionEditorsSessionTimesWorkBookNameParentTitleResponse_RemarkContributorEmbeddingEmbeddingDisplayAreaContributorWorksheetTitleNotifyDistributorForContributorsOnlyDistributorCurrentAuthorRestrictedToFormTitleInfoDisplayWorkbookTitle
  59. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  60. Title
  61. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  62. Form Banner######
  63. ##########################################################
  64. ##########################################################
  65. ##########################################################
  66. ##########################################################
  67. ##########################################################
  68. ##########################################################
  69. ##########################################################
  70. ##########################################################
  71. ##########################################################
  72. ##########################################################
  73. ##########################################################
  74. ##########################################################
  75. .K[W+l
  76. CN=Cathy Pfeiler/O=TCGEMINI2d:\notes\data\teamcons.ntf
  77. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Cathy Pfeiler/O=TCGEMINI2CN=Beth Brownholtz/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusNavigator###########################
  78. ##########################################################
  79. ##########################################################
  80. ##########################################################
  81. ##########################################################
  82. ##########################################################
  83. ##########################################################
  84. ##########################################################
  85. ##########################################################
  86. $Modified
  87.     1S2S3S
  88. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  89.     0SL1S3724
  90. $TITLE
  91. CN=Avril Jordan/OU=DUB/O=Lotus
  92. #########
  93. ##########################################################
  94. ##########################################################
  95. ##########################################################
  96. ##########################################################
  97. ##########################################################
  98. ##########################################################
  99. ##########################################################
  100. ##########################################################
  101. ##########################################################
  102. ##########################################################
  103. ##########################################################
  104. #qa!w
  105. $37$34Y
  106. (Hauptdokument-ID)|ConsolidateButtonB
  107. $37$34WorksheetTitle$38$17$16$Conflict
  108. $RefV
  109.     0S0E
  110.     0S0E
  111. Temp_Status
  112. Worksheetstatus
  113. Temp_Value
  114. Temp_Status
  115. Temp_Status
  116. Temp_Status
  117.     0R1S2S
  118. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  119. Temp_Value
  120. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  121. ###################################
  122. Xb2[f
  123. ##########################################################
  124. ##########################################################
  125. ##########################################################
  126. ##########################################################
  127. ##########################################################
  128. ##########################################################
  129. ##########################################################
  130. ##########################################################
  131. ##########################################################
  132. ##########################################################
  133. ##########################################################
  134. ##########################################################
  135. ##########################################################
  136. ##########################################################
  137. ##########################################################
  138. ##########################################################
  139. $31$33Y
  140. Nach Bearbeiter|View By Contributord
  141. $31$33WorksheetTitle$34$17$16$Conflict
  142. Contributor
  143.     0S0E
  144. WorkbookTitle
  145.     0S0E
  146. Temp_Status
  147. Worksheetstatus
  148. Temp_Value
  149. Temp_Status
  150. Temp_Status
  151. Temp_Status
  152.     0R1S2S
  153. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  154. Temp_Value
  155. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  156. Nach Datum|View By Date
  157.     0S0E
  158. WorksheetTitle"
  159. Title
  160.     3S5S
  161. SessionEditors
  162. Contributor
  163. SessionEditors
  164.     3S4S24S
  165. Temp_Status
  166. Worksheetstatus
  167. StatusX
  168.     1S16S
  169. Temp_Value
  170. Temp_Status
  171. Temp_Status
  172. Temp_Status
  173.     0R1S2S
  174. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  175. Temp_Value
  176. $21$28$26$30$10$Conflict$REF
  177.     L1S1
  178. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  179. ##########################################################
  180. ##########################################################
  181. ##########################################################
  182. ##########################################################
  183. ##########################################################
  184. ##########################################################
  185. ##########################################################
  186. ##########################################################
  187. ##########################################################
  188. ##########################################################
  189. ##########################################################
  190. ##########################################################
  191. ##########################################################
  192. ##########################################################
  193. ##########################################################
  194. ##########################################################
  195. ##########################################################
  196. ##########################################################
  197. ##########################################################
  198. ##########################################################
  199. ##########################################################
  200. ##########################################################
  201. ##########################################################
  202. ##########################################################
  203. ##########################################################
  204. ##########################################################
  205. ##########################################################
  206. ##########################################################
  207. ##########################################################
  208. ##########################################################
  209. ##########################################################
  210. ##########################################################
  211. ##########################################################
  212. ##########################################################
  213. ##########################################################
  214. ##########################################################
  215. ##########################################################
  216. ##########################################################
  217. ##########################################################
  218. ##########################################################
  219. ##########################################################
  220. (Intern Konsolidierung)|(Internal Consolidate)/O
  221.     0S0E
  222. WorksheetTitle
  223. Title
  224.     3S5S
  225. Temp_Status
  226. Worksheetstatus
  227. StatusX
  228.     1S16S
  229. Temp_Value
  230. Temp_Status
  231. Temp_Status
  232. Temp_Status
  233.     0R1S2S
  234. Noch nicht verteilt,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  235. Temp_Value
  236. $16$21$22$Conflict$REF
  237.     L1S1
  238. $16Eindeutige ID
  239.     0S0E
  240. $21TitelH
  241. WorksheetTitle
  242. Title
  243.     3S5S
  244. $22Status*
  245. Temp_Status
  246. Worksheetstatus
  247. StatusX
  248.     1S16S
  249. Temp_Value
  250. Temp_Status
  251. Temp_Status
  252. Temp_Status
  253.     0R1S2S
  254. Noch nicht verteilt,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  255. Temp_Value
  256. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  257. ######
  258. <T>b2
  259. ##########################################################
  260. ##########################################################
  261. ##########################################################
  262. ##########################################################
  263. ##########################################################
  264. ##########################################################
  265. ##########################################################
  266. ##########################################################
  267. ##########################################################
  268. ##########################################################
  269. ##########################################################
  270. ##########################################################
  271. ##########################################################
  272. ##########################################################
  273. ##########################################################
  274. ##########################################################
  275. ##########################################################
  276. ##########################################################
  277. ##########################################################
  278. ##########################################################
  279. ##########################################################
  280. ##########################################################
  281. ##########################################################
  282. ##########################################################
  283. ##########################################################
  284. ##########################################################
  285. ##########################################################
  286. ##########################################################
  287. ##########################################################
  288. ##########################################################
  289. ##########################################################
  290. ##########################################################
  291. ##########################################################
  292. ##########################################################
  293. ##########################################################
  294. ##########################################################
  295. ##########################################################
  296. ##########################################################
  297. ##########################################################
  298. ##########################################################
  299. ##########################################################
  300. ##########################################################
  301. ##########################################################
  302. ##########################################################
  303. ##########################################################
  304. ##########################################################
  305. ##########################################################
  306. ##########################################################
  307. ##########################################################
  308. ##########################################################
  309. ##########################################################
  310. ##########################################################
  311. [9a&"
  312. ##########################################################
  313. ##########################################################
  314. ##########################################################
  315. ##########################################################
  316. ##########################################################
  317. ##########################################################
  318. ##########################################################
  319. ##########################################################
  320. ##########################################################
  321. ##########################################################
  322. ##########################################################
  323. ##########################################################
  324. ##########################################################
  325. ##########################################################
  326. ##########################################################
  327. ##########################################################
  328. ##########################################################
  329. ##########################################################
  330. Alle Dokumente|View by Master Contributor
  331. WorksheetTitle"
  332. Title
  333.     3S5S
  334. SessionEditors
  335. Contributor
  336. SessionEditors
  337.     3S4S24S
  338. Temp_Status
  339. Worksheetstatus
  340. StatusX
  341.     1S16S
  342. Temp_Value
  343. Temp_Status
  344. Temp_Status
  345. Temp_Status
  346.     0R1S2S
  347. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  348. Temp_Value
  349. $12$28$26$31$8$10$Conflict$REF
  350.     L1S1
  351. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  352. ##########################################################
  353. Nach Status|View By Status
  354. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert, Konsolidierung ist abgeschlossen
  355. StatusX
  356. WorksheetTitle"
  357. Title
  358.     3S5S
  359. SessionEditors
  360. Contributor
  361. SessionEditors
  362.     3S4S24S
  363. Temp_Status
  364. Worksheetstatus
  365. Temp_Value
  366. Temp_Status
  367. Temp_Status
  368. Temp_Status
  369.     0R1S2S
  370. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  371. Temp_Value
  372. $27$24$22$26$8$10$Conflict$REF
  373.     L1S1
  374. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  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. O=Lotus Notes
  956. O=Lotus Notes
  957. PURSAFO
  958. |.:#U
  959. O=Lotus Notes
  960. CN=Lotus Notes Template Development/O=Lotus Notes
  961. PURSAFO
  962. Fde!f^^
  963. $ACLDigest
  964. PURSAFO
  965. Times New Roman
  966. TeamKonsolidierung benutzen
  967. ?_?__
  968. `!b`1
  969. 7`^///?
  970. ?b___
  971. `bOOO
  972. `<b!R
  973. r Gestalter
  974.     TeamKonsolidierung besteht aus einer DLL-Datei und einer Notes Datenbankschablone, die Masken mit Scripts enth
  975. lt, die mit der LotusScript Sprache erstellt wurden. Diese Scripts sind verschiedenen Aktionen und Schaltfl
  976. chen zugeordnet. Sie nutzen Typenbibliotheken, Objekte, Methoden und Eigenschaften von 1-2-3. Die Benutzerschnittstelle der TeamKonsolidierung-Datenbank ist in der Datei TCUI10DE.DLL enthalten.
  977. TeamKonsolidierung verwendet Notes Dokumente mit eingebetteten 1-2-3 Arbeitsbl
  978. ttern. Sie k
  979. nnen keine andere Anwendung als 1-2-3 verwenden.
  980.     Zugriffskontrolle
  981. Standardm
  982. ig erhalten alle Benutzer der TeamKonsolidierung-Datenbank die Autor-Zugriffsberechtigung, um unberechtigte 
  983. nderungen der Datenbank zu verhindern und die Funktionst
  984. chtigkeit zu gew
  985. hrleisten. Der Verfasser der Master-Arbeitsmappe mu
  986.  das Master-Dokument erstellen. Nach der Konsolidierung werden die Antwortdokumente auf Lese-Zugriff gesetzt, um weitere 
  987. nderungen zu verhindern.
  988. Der Verfasser kann die Antwortdokumente im Master-Arbeitsmappendokument konsolidieren. Wenn auch andere Benutzer Dokumente konsolidieren m
  989. chten, ben
  990. tigen sie mindestens die Editor-Zugriffsberechtigung.
  991. nderungsm
  992. glichkeiten
  993. Sie k
  994. nnen alle TeamKonsolidierung-Funktionen verwenden, ohne die Masken und Ansichten einer TeamKonsolidierung-Datenbank zu 
  995. ndern, oder bei Bedarf eigene Masken, Ansichten und Dokumente hinzuf
  996. gen. So k
  997. nnen Sie z.B. einen Agenten f
  998. r die Benutzerschnittstelle verwenden, der 
  999. berpr
  1000. ft, ob die verteilten Arbeitsbl
  1001. tter f
  1002. r die Konsolidierung freigegeben sind, und gegebenenfalls den Konsolidierungsproze
  1003.  automatisch startet.
  1004.     Scripts
  1005. Zur Gew
  1006. hrleistung der Funktionalit
  1007. t von TeamKonsolidierung sollten Sie bei der Bearbeitung bestehender Scripts mit Vorsicht vorgehen. Sie k
  1008. nnen jedoch neue Scripts zu den Masken hinzuf
  1009. gen, um je nach Anforderung verschiedene Aufgaben auszuf
  1010. hren. Weitere Informationen zu LotusScript finden Sie in der Dokumentation zu LotusScript.
  1011.     Ansichten
  1012. Sie k
  1013. nnen nach Bedarf Ansichten hinzuf
  1014. gen oder bearbeiten. Die TeamKonsolidierung-Datenbank enth
  1015. lt zwei verborgene Ansichten: (Intern Konsolidierung) und (Hauptdokument-ID). Dabei handelt es sich um erforderliche Ansichten, die nicht gel
  1016. scht oder ge
  1017. ndert werden d
  1018. rfen.
  1019.     Masken
  1020. Die TeamKonsolidierung-Schablone enth
  1021. lt drei Masken: Dokument mit 1-2-3 Arbeitsmappe, Bearbeiter und Memo.
  1022.     Dokument mit 1-2-3 Arbeitsmappe - Diese Maske enth
  1023. lt die Master-Arbeitsmappe.
  1024.     Hinweis:
  1025. ndern Sie nicht die Optionen f
  1026. r das Feld "Status", die f
  1027. r die korrekte Funktion von TeamKonsolidierung erforderlich sind.
  1028.     Bearbeiter - Dabei handelt es sich um die Antwortmaske, die das verteilte Arbeitsblatt enth
  1029. lt. Sie k
  1030. nnen diese Maske bei Bedarf anpassen, z.B. um zu verhindern, da
  1031.  die Arbeitsmappe beim 
  1032. ffnen der Antwortmaske automatisch gestartet wird. 
  1033. ffnen Sie hierf
  1034. r die Bearbeitermaske, w
  1035. hlen Sie in der InfoBox "Eigenschaften" das Register "Starten", und deaktivieren Sie die Option "Starten". 
  1036. ndern Sie nicht die Optionen f
  1037. r das Feld "WorkSheetStatus", die f
  1038. r die korrekte Funktion von TeamKonsolidierung erforderlich sind.
  1039.     Memo - Dies ist die E-Mail-Maske, die in den meisten Notes Datenbanken standardm
  1040. ig verwendet wird.
  1041.     Sie k
  1042. nnen diese Masken bei Bedarf anpassen, indem Sie z.B. zus
  1043. tzliche Felder wie Projektname, F
  1044. lligkeitsdatum und gesch
  1045. tzte Kosten hinzuf
  1046.     Master- und Antwortdokumente kopieren
  1047. Sie k
  1048. nnen Master-Dokumente oder Datenbanken, die lediglich Master-Dokumente enthalten, kopieren, aber Sie sollten nach M
  1049. glichkeit keine Antwortdokumente kopieren. Antwortdokumente sind mit dem Master-Dokument 
  1050. ber das $REF-Feld verkn
  1051. pft. Wenn Sie daher nach dem Verteilen von Arbeitsbl
  1052. ttern Antwortdokumente kopieren, verweisen die kopierten Antwortdokumente auf das Original-Master-Dokument in der Original-Datenbank. Um diesen Effekt zu vermeiden, kopieren Sie die TeamKonsolidierung-Datenbank nicht mit dem Befehl "Datei - Datenbank - Kopieren", und verwenden Sie auch nicht "Bearbeiten - Kopieren" und "Bearbeiten - Einf
  1053. gen", um Antwortdokumente zu kopieren. 
  1054. Wenn Sie z.B. eine Kopie einer Datenbank erstellen und als Schablone f
  1055. r eine neue Datenbank verwenden m
  1056. chten, m
  1057. ssen Sie dies vor der Verteilung der Arbeitsbl
  1058. tter tun.
  1059.     Hinweis:
  1060.      Wenn Sie eine Datenbank replizieren, wird die korrekte Beziehung zwischen Master- und Antwortdokument beibehalten.
  1061.     Replizierungskonflikte
  1062. Wenn Sie versuchen, eine Antwortdokument zu konsolidieren, bei dem ein Replizierungskonflikt besteht, erhalten Sie eine Fehlermeldung. Verwenden Sie die Ansicht "Nach Bearbeiter", um die Dokumente mit Replizierungskonflikten anzuzeigen.
  1063.     Die Dokumente "
  1064. ber diese Datenbank" und "Benutzen dieser Datenbank" bearbeiten
  1065. Geben Sie die 
  1066. nderungen in die Dokumente "
  1067. ber diese Datenbank" und "Benutzen dieser Datenbank" ein. Um diese Dokumente zu bearbeiten, w
  1068. hlen Sie "Gestaltung - Andere".
  1069. r Benutzer
  1070. berblick: Arbeitsmappen mit TeamKonsolidierung verteilen
  1071.     Mit Hilfe der TeamKonsolidierung-Datenbank k
  1072. nnen Sie 1-2-3 Arbeitsbl
  1073. tter an andere Benutzer verteilen und Informationen anfordern. Anschlie
  1074. end werden die Eingaben der Benutzer in Ihrem Originalarbeitsblatt konsolidiert.
  1075. nnen Sie mit 1-2-3 z.B. Projektkosten abteilungs
  1076. bergreifend erfassen. Erstellen Sie hierf
  1077. r eine Arbeitsmappe mit einem Arbeitsblatt f
  1078. r jede Abteilung. Mit Hilfe der Datenbank verteilen Sie jedes Arbeitsblatt an die Mitarbeiter der Abteilungen. Die Mitarbeiter nehmen 
  1079. nderungen und Erg
  1080. nzungen vor, die Sie anschlie
  1081. end in Ihrer Originalarbeitsmappe konsolidieren k
  1082. nnen. Wenn Sie die Arbeitsmappe in einer Notes Datenbank speichern, sind die Informationen jedem Benutzer zug
  1083. nglich selbst Benutzern an verschiedenen Orten, und Sie k
  1084. nnen die im Laufe der Zeit vorgenommenen 
  1085. nderungen verfolgen.
  1086.     So verteilen Sie Arbeitsbl
  1087. tter und konsolidieren 
  1088. nderungen in Ihrem Originaldokument
  1089. Das Verteilen der Arbeitsbl
  1090. tter einer Arbeitsmappe an Bearbeiter umfa
  1091. t einen einzelnen Verfasser und eine beliebige Anzahl von Bearbeitern. Die allgemeine Vorgehensweise wird als n
  1092. chstes aufgef
  1093.     Eine Person, die mit dem Entwurf und der Verwaltung von Notes Datenbanken vertraut ist, richtet eine Notes Datenbank ein, die die Master-Arbeitsmappen und verteilten Arbeitsbl
  1094. tter enth
  1095. lt. F
  1096. r diese Datenbank mu
  1097.  die TeamKonsolidierung-Schablone TEAMKONS.NTF verwendet werden, die mit 1-2-3 geliefert wird.
  1098.     Der Verfasser 
  1099. ffnet die Datenbank, in der die Arbeitsmappe gespeichert werden soll.
  1100.     Der Verfasser w
  1101. hlt in der Datenbank "Erstellen - 1-2-3 Arbeitsmappendokument" und erstellt entweder eine neue Arbeitsmappe oder 
  1102. ffnet eine bestehende Arbeitsmappe.
  1103.     Als n
  1104. chstes weist der Verfasser einzelne Bl
  1105. tter der Arbeitsmappe einem oder mehreren Bearbeitern zu und benachrichtigt die Bearbeiter per E-Mail.
  1106.     Als n
  1107. chstes 
  1108. ffnen die Bearbeiter die Notes Datenbank und bearbeiten das 1-2-3 Arbeitsmappendokument intern. Nachdem die Bearbeiter die Daten hinzugef
  1109. gt haben, markieren sie das Dokument als "Bereit zur Konsolidierung" und speichern es wieder in der Notes Datenbank.
  1110.     Nachdem alle Bearbeiter ihre Dokumente als "Bereit zur Konsolidierung" markiert haben, klickt der Verfasser auf die Schaltfl
  1111. che "Arbeitsmappendaten konsolidieren", um die 
  1112. nderungen der Bearbeiter in der Master-Arbeitsmappe zu konsolidieren.
  1113.     Nachdem die 
  1114. nderungen konsolidiert wurden, kann der Verfasser die Master-Arbeitsmappe als separate 1-2-3 Datei speichern oder die Arbeitsmappe weiter in der Notes Datenbank gespeichert lassen.
  1115. berblick: Master-Arbeitsmappe einrichten
  1116.     Wenn Sie TeamKonsolidierung verwenden, arbeiten Sie mit 1-2-3 in gewohnter Weise. Da Bearbeiter immer nur mit einem einzelnen Arbeitsblatt arbeiten, sind bestimmte Funktionen von 1-2-3 weniger wichtig oder hilfreich, z.B. blatt
  1117. bergreifende Funktionen.
  1118.     Beim Erstellen der Master-Arbeitsmappe und beim Arbeiten mit verteilten Arbeitsbl
  1119. ttern sollten Sie folgende Informationen ber
  1120. cksichtigen.
  1121.     Einzelne Arbeitsbl
  1122. tter einrichten
  1123. Wenn Sie Arbeitsbl
  1124. tter aus einer Arbeitsmappe mit mehreren Arbeitsbl
  1125. ttern verteilen, setzen Sie alle Daten und Grafikobjekte, die an eine bestimmte Person verteilt werden sollen, in ein einzelnes Arbeitsblatt. Wenn eine Arbeitsmappe Makros enth
  1126. lt, sollten diese in einem separaten Arbeitsblatt gespeichert werden.
  1127.     Diagramme, Zeichnungen, Karten und eingebettete OLE-Objekte
  1128. Wenn separate verteilte Arbeitsbl
  1129. tter Diagramme, Zeichnungen, Karten oder eingebettete Objekte mit denselben Namen enthalten, werden die Objekte mit den doppelten Namen bei der Konsolidierung nicht umbenannt. Es gehen keine Objekte oder Daten verloren, um jedoch Verwechslungen zu vermeiden, weisen Sie den Objekten vor dem Verteilen eines Arbeitsblattes Namen zu, anstatt die von 1-2-3 vorgeschlagenen Standardnamen zu akzeptieren.
  1130.     Versionen und Versionsgruppen
  1131. Es wird empfohlen, blatt
  1132. bergreifende Versionen in einem verteilten Arbeitsblatt zu vermeiden. Auch wenn die Bearbeiter Daten in mehreren Arbeitsbl
  1133. ttern benutzen k
  1134. nnen, z.B. bei der Berechnung von Formeln, konsolidiert 1-2-3 nur die 
  1135. nderungen, die in dem einzelnen Arbeitsblatt durchgef
  1136. hrt wurden, das verteilt wurde.
  1137.     Wenn der Verfasser Versionen in der Master-Arbeitsmappe hinzuf
  1138. gt, w
  1139. hrend Arbeitsbl
  1140. tter verteilt werden, gehen die Daten in diesen Versionen bei der Konsolidierung verloren.
  1141.     Versionsgruppen werden in einem verteilten Arbeitsblatt nicht aufgenommen.
  1142.     Scripts
  1143. Sie k
  1144. nnen Scripts hinzuf
  1145. gen, bearbeiten und konsolidieren, die an Grafikobjekte im aktuellen Arbeitsblatt angeh
  1146. ngt sind, jedoch keine anderen Scripts.
  1147.     HINWEIS: 
  1148.     Wenn ein Script an ein Bereichsobjekt in einem verteilten Arbeitsblatt angeh
  1149. ngt ist, wird das Script nicht konsolidiert.
  1150.     Gesperrte Arbeitsmappen
  1151. Sie k
  1152. nnen gesperrte Arbeitsmappen verteilen, bearbeiten und konsolidieren. Die Sperre wird ignoriert, wenn das Arbeitsblatt wieder in der Master-Arbeitsmappe konsolidiert wird.
  1153. wortgesch
  1154. tzte Arbeitsmappen
  1155. Da Sie ein OLE-Objekt nicht mit einem Pa
  1156. wort sch
  1157. tzen k
  1158. nnen, k
  1159. nnen Sie ein Master-Dokument nicht mit einem Pa
  1160. wort sch
  1161. tzen, nachdem es in Notes gespeichert wurde.
  1162. Neue Master-Arbeitsmappe aus vorhandener Arbeitsmappe erstellen
  1163.     Bevor Sie beginnen, mu
  1164.  die Notes Datenbank zur Speicherung der Arbeitsmappe eingerichtet sein.
  1165. ffnen Sie die Notes Datenbank, in der die 1-2-3 Arbeitsmappe gespeichert werden soll.
  1166.     Klicken Sie auf die Schaltfl
  1167. che "1-2-3 Arbeitsmappendokument erstellen".
  1168.     Geben Sie einen Titel f
  1169. r das Master-Arbeitsmappendokument ein.
  1170. hlen Sie "Vorhandene 1-2-3 Arbeitsmappe verwenden", und geben Sie den Dateinamen an.
  1171.     Klicken Sie auf "OK".
  1172. hlen Sie aus, ob jetzt oder sp
  1173. ter Daten f
  1174. r die Arbeitsmappe angefordert werden sollen.
  1175.     Wenn Sie die Arbeitsmappe jetzt verteilen wollen, f
  1176. hren Sie die Schritte in "Arbeitsbl
  1177. tter verteilen" ab Schritt 3 aus.
  1178.     Wenn Sie die Arbeitsmappe sp
  1179. ter verteilen wollen, klicken Sie auf "Arbeitsmappendaten anfordern", sobald Sie bereit sind
  1180. Neue Master-Arbeitsmappe erstellen
  1181.     Bevor Sie beginnen, mu
  1182.  die Notes Datenbank zur Speicherung der Arbeitsmappe eingerichtet sein.
  1183. ffnen Sie die Notes Datenbank, in der die 1-2-3 Arbeitsmappe gespeichert werden soll.
  1184.     Klicken Sie auf die Schaltfl
  1185. che "1-2-3 Arbeitsmappendokument erstellen".
  1186.     Geben Sie einen Titel f
  1187. r das Master-Arbeitsmappendokument ein.
  1188. hlen Sie "Neue 1-2-3 Arbeitsmappe erstellen" aus. 
  1189.     Klicken Sie auf "OK".
  1190.     Konfigurieren Sie das 1-2-3 Arbeitsmappenobjekt, und geben Sie die Daten ein.
  1191.     Klicken Sie auf die Notes Maske au
  1192. erhalb des 1-2-3 Arbeitsmappenobjekts, nachdem Sie die Master-Arbeitsmappe erstellt haben.
  1193.     Schlie
  1194. en und speichern Sie das Notes Dokument.
  1195.     Jetzt k
  1196. nnen Sie die Arbeitsbl
  1197. tter in der Master-Arbeitsmappe an Bearbeiter verteilen. Weitere Informationen finden Sie in diesem Dokument unter "Arbeitsbl
  1198. tter verteilen".
  1199. Arbeitsbl
  1200. tter verteilen
  1201.     Sie verteilen Arbeitsbl
  1202. tter, um Daten von Bearbeitern anzufordern. Beim Verteilen werden die Arbeitsbl
  1203. tter Bearbeitern zugewiesen, und jedes verteilte Arbeitsblatt wird zu einem Antwortdokument unter dem Master-Dokument.
  1204. ffnen Sie das Notes Dokument, das die Arbeitsmappe enth
  1205. lt, die verteilt werden soll.
  1206.     Klicken Sie auf die Schaltfl
  1207. che "Arbeitsmappendaten anfordern".
  1208. hlen Sie die zu verteilenden Arbeitsbl
  1209. tter aus, indem Sie Arbeitsblattnamen aus der Liste "Arbeitsbl
  1210. tter in Arbeitsmappe" in die Liste "Zu verteilende Arbeitsbl
  1211. tter" ziehen.
  1212.     Um Bearbeiter f
  1213. r jedes verteilte Arbeitsblatt zu w
  1214. hlen, klicken Sie auf die Liste "Bearbeiter", und geben Sie einen Namen ein, oder klicken Sie auf die Schaltfl
  1215. che "Adressen", um Namen aus einem Adre
  1216. buch auszuw
  1217. hlen.
  1218. Sie k
  1219. nnen mehr als einen Bearbeiter f
  1220. r jedes Arbeitsblatt angeben. Trennen Sie die Namen mit einem Komma (,). Alternativ k
  1221. nnen Sie auch Gruppennamen verwenden.
  1222.     (Wahlweise) W
  1223. hlen Sie "Nur Bearbeiter d
  1224. rfen verteilte Arbeitsbl
  1225. tter anzeigen" aus, um zu verhindern, da
  1226.  andere Benutzer die verteilten Arbeitsbl
  1227. tter anzeigen und Daten in diese eingeben k
  1228. nnen.
  1229.     (Wahlweise) Um E-Mails an alle Bearbeiter zu senden, w
  1230. hlen Sie "Mail mit Dokumentverkn
  1231. pfung an Bearbeiter senden" aus, und geben Sie dann Ihre Nachricht in das Feld ein.
  1232.     (Wahlweise) W
  1233. hlen Sie "Verfasser benachrichtigen, wenn Bearbeiter fertig sind" aus, wenn Sie eine Nachricht erhalten m
  1234. chten, wenn Dokumente als "Bereit zur Konsolidierung" oder "Nicht konsolidieren" markiert sind.
  1235.     Klicken Sie auf "OK", und geben Sie Ihr E-Mail-Kennwort ein (sofern angefordert).
  1236.     Nachdem Sie das Dokument geschlossen haben, werden Antwortdokumente mit den verteilten Arbeitsbl
  1237. ttern unter dem Master-Dokument mit dem Status "Daten angefordert" angezeigt.
  1238. Details: Arbeitsbl
  1239. tter verteilen
  1240.     Wann k
  1241. nnen Sie Arbeitsbl
  1242. tter verteilen?
  1243.     Sie k
  1244. nnen Arbeitsbl
  1245. tter aus einem Master-Arbeitsmappendokument verteilen, das den Status "Daten noch nicht angefordert" oder "Konsolidierung ist abgeschlossen" hat. Wenn ein Master-Arbeitsmappendokument einen anderen Status hat, ist die Schaltfl
  1246. che "Arbeitsmappendaten anfordern" nicht verf
  1247. gbar.
  1248.     Nachdem Sie ein Arbeitsblatt verteilt haben, k
  1249. nnen Sie es erst wieder verteilen, wenn das Master-Arbeitsmappendokument den Status "Konsolidierung ist abgeschlossen" hat. Die Konsolidierung ist abgeschlossen, wenn alle verteilten Arbeitsbl
  1250. tter den Status "Im Master konsolidiert" oder "Nicht konsolidieren" haben.
  1251. Ansicht ausw
  1252.     In der TeamKonsolidierung-Datenbank k
  1253. nnen Sie unter verschiedenen M
  1254. glichkeiten zur Anzeige der Master-Arbeitsmappendokumente und der verteilten Arbeitsbl
  1255. tter w
  1256. hlen, die als Antwortdokumente auf das Master-Arbeitsmappendokument angezeigt werden.
  1257.     TeamKonsolidierung-Navigator anzeigen
  1258. Sie k
  1259. nnen auf die Schaltfl
  1260. che "Navigator" klicken, um auf der linken Seite des Arbeitsmappenfensters anstelle der Notes Standard-Navigatoren eine Reihe von Schaltfl
  1261. chen anzuzeigen. Der TeamKonsolidierung-Navigator enth
  1262. lt folgende Schaltfl
  1263. chen:
  1264.     Alle Dokumente -- Zeigt alle Dokumente in der Ansicht nach Absendername an.
  1265.     Nach Status -- Zeigt alle Dokumente sortiert nach Status der Master-Arbeitsmappen an.
  1266.     Nach Datum -- Zeigt alle Dokumente sortiert nach 
  1267. nderungsdatum der Master-Arbeitsmappen an.
  1268.     Nach Bearbeiter -- Zeigt verteilte Arbeitsbl
  1269. tter sortiert nach Bearbeiternamen an, zeigt jedoch die Master-Arbeitsmappen nicht an.
  1270. Verteiltes Arbeitsblatt bearbeiten 
  1271.     Bearbeiter k
  1272. nnen verteilte Arbeitsbl
  1273. tter 
  1274. Bearbeiten eines eingebetteten Objekts, ohne die Anwendung, in die das Objekt eingebettet ist, zu verlassen. Statt dessen 
  1275. ndert sich die Men
  1276. leiste und zeigt die Men
  1277. s der Server-Anwendung an. Sie k
  1278. nnen eingebettete Objekte intern oder extern bearbeiten.
  1279.     intern
  1280.      oder 
  1281. Bearbeiten eines eingebetteten Objekts durch 
  1282. ffnen der Server-Anwendung. Sie k
  1283. nnen eingebettete Objekte intern oder extern bearbeiten.
  1284.     extern
  1285.      bearbeiten. Wenn Sie ein Dokument mit einem verteilten Arbeitsblatt 
  1286. ffnen, ist das Arbeitsblatt zur internen Bearbeitung aktiviert.
  1287.     Arbeitsbl
  1288. tter intern bearbeiten
  1289. ffnen Sie das Dokument mit dem verteilten Arbeitsblatt in der Notes Datenbank.
  1290. ndern Sie die Daten in dem Arbeitsblatt, oder f
  1291. gen Sie Daten zu dem Arbeitsblatt hinzu.
  1292.     (Wahlweise) Geben Sie einen Kommentar in das Feld "Anmerkungen" ein.
  1293.     Schlie
  1294. en und speichern Sie das Notes Dokument.
  1295.     Treffen Sie im Dialogfeld "Status des Bearbeiterdokuments" eine Auswahl, die dem Status der Arbeit entspricht.
  1296.     Hinweis:
  1297.      Wenn Sie sp
  1298. ter weitere 
  1299. nderungen vornehmen m
  1300. chten, w
  1301. hlen Sie "In Bearbeitung" aus.
  1302.     Klicken Sie auf "Fertig".
  1303.     Arbeitsbl
  1304. tter extern bearbeiten
  1305. ffnen Sie das Dokument mit dem verteilten Arbeitsblatt in der Notes Datenbank.
  1306.     Klicken Sie au
  1307. erhalb des 1-2-3 Arbeitsmappenobjekts, um dieses zu deaktivieren.
  1308.     Klicken Sie auf das Objekt, um es auszuw
  1309. hlen.
  1310. hlen Sie "Arbeitsmappe - 
  1311. ffnen".
  1312. Das Arbeitsblatt wird in einem vollen 1-2-3 Fenster angezeigt.
  1313. ndern Sie die Daten, oder f
  1314. gen Sie neue Daten hinzu.
  1315. hlen Sie "Datei - Beenden & Zur
  1316. ck", um 1-2-3 zu schlie
  1317. en und zu dem Notes Dokument zur
  1318. ckzugehen.
  1319.     (Wahlweise) Geben Sie einen Kommentar in das Feld "Anmerkungen" ein.
  1320.     Speichern und schlie
  1321. en Sie das Notes Dokument.
  1322.     Treffen Sie im Dialogfeld "Status des Bearbeiterdokuments" eine Auswahl, die dem Status der Arbeit entspricht.
  1323.     Hinweis:
  1324.      Wenn Sie sp
  1325. ter weitere 
  1326. nderungen vornehmen m
  1327. chten, w
  1328. hlen Sie "In Bearbeitung" aus.
  1329.     Klicken Sie auf "Fertig".
  1330. Details: Verteilte Arbeitsbl
  1331. tter bearbeiten
  1332.     Einschr
  1333. nkungen beim Bearbeiten eines verteilten Arbeitsblattes
  1334. Wenn Sie ein verteiltes Arbeitsblatt bearbeiten, sind bestimmte 1-2-3 Befehle und Funktionen nicht verf
  1335. gbar.
  1336.     Sie k
  1337. nnen "Bearbeiten - Gehe zu" nicht benutzen, um zu Objekten in anderen Arbeitsbl
  1338. ttern zu gehen.
  1339.     Sie k
  1340. nnen keine Arbeitsbl
  1341. tter erstellen oder l
  1342. schen.
  1343.     Sie k
  1344. nnen keine Versionsgruppen erstellen.
  1345.     Sie k
  1346. nnen keine Zeilen oder Spalten in einem Versionsbereich einsetzen oder entfernen (es sei denn, Sie haben die Version in dem verteilten Arbeitsblatt erstellt).
  1347.     Sie k
  1348. nnen keine Scripts, die an Bereiche angeh
  1349. ngt sind, hinzuf
  1350. gen oder 
  1351. ndern.
  1352.     Arbeitsbl
  1353. tter intern bearbeiten
  1354. Wenn Sie ein Arbeitsblatt 
  1355. Bearbeiten eines eingebetteten Objekts, ohne die Anwendung, in die das Objekt eingebettet ist, zu verlassen. Statt dessen 
  1356. ndert sich die Men
  1357. leiste und zeigt die Men
  1358. s der Server-Anwendung an. Sie k
  1359. nnen eingebettete Objekte intern oder extern bearbeiten.
  1360.     intern
  1361.      bearbeiten, enthalten die Men
  1362. s "Datei" und "Fenster" Lotus Notes Befehle. Mit "Datei - Speichern" wird das ganze Notes Dokument gespeichert, das das Arbeitsblatt enth
  1363. lt, und nicht einfach nur das Arbeitsblatt.
  1364.     Sie k
  1365. nnen die interne Bearbeitung beenden, indem Sie au
  1366. erhalb des Arbeitsblattes in das Notes Dokument klicken. Um wieder zur Bearbeitung des Arbeitsblattes zur
  1367. ckzugehen, doppelklicken Sie auf das Arbeitsblatt.
  1368.     Die 1-2-3 Daten werden erst gespeichert, wenn Sie das Notes Dokument speichern.
  1369.     Arbeitsbl
  1370. tter extern bearbeiten
  1371. Wenn Sie das Arbeitsblatt 
  1372. Bearbeiten eines eingebetteten Objekts durch 
  1373. ffnen der Server-Anwendung. Sie k
  1374. nnen eingebettete Objekte intern oder extern bearbeiten.
  1375.     extern
  1376.      bearbeiten, enth
  1377. lt das Men
  1378.  "Datei" 1-2-3 Befehle.
  1379.     Status der Arbeit bestimmen
  1380. Wenn Sie ein verteiltes Arbeitsblatt speichern, werden Sie in einem Dialogfeld aufgefordert, den Status des Dokuments zu best
  1381. tigen oder zu 
  1382. ndern. Sie k
  1383. nnen den Status in "In Bearbeitung", "Bereit zur Konsolidierung" oder "Nicht konsolidieren" 
  1384. ndern.
  1385.     Doppelte Bereichsnamen
  1386. Wenn Sie ein verteiltes Arbeitsblatt bearbeiten, enthalten alle vom Versions-Manager vorgeschlagenen Bereichsnamen (z.B. Bereich 1) den Arbeitsblattnamen als Pr
  1387. fix (standardm
  1388. ig ein Buchstabe). Wenn 1-2-3 bei der Konsolidierung verteilter Arbeitsbl
  1389. tter in der Originalarbeitsmappe einen doppelten Bereichsnamen feststellt, beh
  1390. lt 1-2-3 den Bereichsnamen im ersten Arbeitsblatt bei, verwirft jedoch die Namen von anderen Bereichen mit demselben Namen.
  1391.     Scripts in verteilten Arbeitsbl
  1392. ttern
  1393. Wenn ein Script an ein Bereichsobjekt in einem verteilten Arbeitsblatt angeh
  1394. ngt ist, wird das Script nicht konsolidiert.
  1395. tzliche Objekte einbetten
  1396. Sie k
  1397. nnen Objekte in ein verteiltes Arbeitsblatt einbetten. Sie werden bei der Konsolidierung wieder in die Master-Arbeitsmappe 
  1398. bernommen.
  1399. Verteilte Arbeitsbl
  1400. tter konsolidieren
  1401.     Nachdem Bearbeiter 
  1402. nderungen vorgenommen haben, k
  1403. nnen Sie verteilte Arbeitsbl
  1404. tter wieder in der Master-Arbeitsmappe konsolidieren.
  1405. ffnen Sie in der Notes Datenbank das Dokument mit der Master-Arbeitsmappe.
  1406.     Klicken Sie auf die Schaltfl
  1407. che "Arbeitsmappendaten konsolidieren".
  1408.     Geben Sie an, ob Notes nur die Dokumente konsolidieren soll, die als "Bereit zur Konsolidierung" markiert sind, und ob die Dokumente des Bearbeiters nach der Konsolidierung gel
  1409. scht werden sollen.
  1410.     Klicken Sie auf "OK".
  1411. Daraufhin wird mit einer Meldung best
  1412. tigt, da
  1413.  die verteilten Dokumente erfolgreich konsolidiert wurden.
  1414.     (Wahlweise) Um das 1-2-3 Arbeitsmappendokument als 1-2-3 Arbeitsmappendatei zu speichern, klicken Sie auf die Schaltfl
  1415. che "1-2-3 Arbeitsmappe l
  1416. sen".
  1417. Details: Verteilte Arbeitsbl
  1418. tter konsolidieren
  1419.     Replizierungskonflikte in verteilten Arbeitsbl
  1420. ttern
  1421. Sie k
  1422. nnen nur Original-Antwortdokumente konsolidieren. Wenn zwei Benutzer dasselbe Dokument gleichzeitig bearbeiten, erzeugt der zweite Benutzer, der das Dokument speichert, einen Replizierungskonflikt. Sie m
  1423. ssen Replizierungskonflikte aufl
  1424. sen und das Konfliktdokument l
  1425. schen, bevor Sie verteilte Arbeitsbl
  1426. tter konsolidieren k
  1427. nnen.
  1428. fen, welche Arbeitsbl
  1429. tter konsolidiert sind
  1430. Wenn Sie die Option "Nur Dokumente mit dem Status 'Bereit zur Konsolidierung' konsolidieren" nicht ausgew
  1431. hlt haben, werden alle Dokumente konsolidiert, die einen anderen Status als "Nicht konsolidieren" haben. Wenn Sie diese Option ausw
  1432. hlen, werden nur die Dokumente mit dem Status "Bereit zur Konsolidierung" konsolidiert. Wenn die Arbeitsbl
  1433. tter als "Nicht konsolidieren", "In Bearbeitung" oder "Daten angefordert" markiert sind, k
  1434. nnen Sie sie sp
  1435. ter konsolidieren, nachdem der Bearbeiter ihren Status ge
  1436. ndert hat.
  1437.     Wenn Arbeitsbl
  1438. tter als "In Bearbeitung" markiert sind und die Option "Nur Dokumente mit dem Status 'Bereit zur Konsolidierung' konsolidieren" ausgew
  1439. hlt wurde, erh
  1440. lt das Master-Arbeitsmappendokument den Status "Teilweise konsolidiert". Nachdem die restlichen Arbeitsbl
  1441. tter als "Bereit zur Konsolidierung" oder "Nicht konsolidieren" markiert wurden, k
  1442. nnen Sie erneut konsolidieren, um die restlichen Daten einzubeziehen. Danach 
  1443. ndert sich der Status des Master-Arbeitsmappendokuments in "Konsolidierung ist abgeschlossen".
  1444.     Dokumente des Bearbeiters l
  1445. schen
  1446. Wenn Sie "Bearbeiterdokument nach der Konsolidierung l
  1447. schen" ausw
  1448. hlen, l
  1449. scht Notes die Antwortdokumente nach der Konsolidierung. Dadurch werden jedoch Replizierungskonflikte bei Antwortdokumenten nicht aufgehoben.
  1450. Wenn Sie die Dokumente des Bearbeiters nicht l
  1451. schen m
  1452. chten, werden diese zu schreibgesch
  1453. tzten Dokumenten, um 
  1454. nderungen an schon konsolidierten Arbeitsbl
  1455. ttern zu verhindern.
  1456. O=Lotus Notes
  1457. O=Lotus Notes
  1458. PURSAFO
  1459. |.:#U
  1460. O=Lotus Notes
  1461. CN=Lotus Notes Template Development/O=Lotus Notes
  1462. PURSAFO
  1463. Fde!f^^
  1464. $Info
  1465. $Body
  1466. PURSAFO
  1467. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert, Konsolidierung ist abgeschlossen
  1468. StatusX
  1469. $24TitelT
  1470. WorksheetTitle"
  1471. Title
  1472.     3S5S
  1473. $22Bearbeiter
  1474. SessionEditors
  1475. Contributor
  1476. SessionEditors
  1477.     3S4S24S$26Status des Arbeitsblatts
  1478. Temp_Status
  1479. Worksheetstatus
  1480. Temp_Value
  1481. Temp_Status
  1482. Temp_Status
  1483. Temp_Status
  1484.     0R1S2S
  1485. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  1486. Temp_Value
  1487. $8Erstellungsdatum
  1488. nderungsdatum
  1489. 1-2-3 Arbeitsmappendokument erstellen
  1490. Kategori_sieren
  1491. Navigator
  1492. EnvName
  1493. NavigatorState"
  1494.     1S2S
  1495. EnvName
  1496. EnvName
  1497. Main Navigator
  1498. EnvName
  1499.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  1500. Dokument bearbeitenS
  1501. Senden
  1502. _Weiterleiten
  1503. _Verschieben in Ordner...
  1504. _Entfernen aus Ordner...
  1505. O=Lotus Notes
  1506. O=Lotus Notes
  1507. PURSAFO
  1508. |.:#U
  1509. O=Lotus Notes
  1510. CN=Lotus Notes Template Development/O=Lotus Notes
  1511. PURSAFO
  1512. Fde!f^^
  1513. $Title
  1514. $Index
  1515. $Formula
  1516. $FormulaClass
  1517. $ViewFormat
  1518. $Comment
  1519. $ACTIONS
  1520. $31$33WorksheetTitle$34$17$16$Conflict$C1$
  1521. Contributor
  1522.     0S0E
  1523. WorkbookTitle
  1524.     0S0E
  1525. Temp_Status
  1526. Worksheetstatus
  1527. Temp_Value
  1528. Temp_Status
  1529. Temp_Status
  1530. Temp_Status
  1531.     0R1S2S
  1532. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  1533. Temp_Value
  1534. $31$33
  1535. Avril Jordan
  1536. Im Master konsolidiert
  1537. Uiyiy
  1538. Daten angefordert
  1539. Bereit zur Konsolidierung
  1540. StatusX
  1541.     1S16S
  1542. Temp_ValW
  1543. Avril Jordan
  1544. Xb2[f
  1545. [9a&"
  1546. [9a&"
  1547. [9a&"
  1548. [9a&"
  1549. Xb2[f
  1550. *CN=Avril Jordan/OU=DUB/O=Lotus
  1551. (Intern Konsolidierung)|(Internal Consolidate).
  1552. Alle Dokumente|View by Master Contributor
  1553. Dokument mit 1-2-3 ArbeitsmappeMain
  1554. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1555. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1556. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1557. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1558. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1559. BearbeiterSecondary
  1560. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1561. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1562. (Hauptdokument-ID)|ConsolidateButton
  1563. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1564. Nach Bearbeiter|View By Contributor
  1565. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1566. /O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  1567. MemoMemo
  1568. MemoMemo
  1569. (Hauptdokument-ID)|Consolidate
  1570. MemoMemo
  1571. (Hauptdokument-ID)|ConsolidateB
  1572. MemoMemo
  1573. MemoMemo
  1574. (Hauptdokument-ID)|Consolidate
  1575. MemoMemo
  1576. (Hauptdokument-ID)|ConsolidateB
  1577. <T>b2
  1578. *CN=Avril Jordan/OU=DUB/O=Lotus
  1579. $37$34WorksheetTitle$38$17$16$Conflict$C1$
  1580. $RefV
  1581.     0S0E
  1582.     0S0E
  1583. Temp_Status
  1584. Worksheetstatus
  1585. Temp_Value
  1586. Temp_Status
  1587. Temp_Status
  1588. Temp_Status
  1589.     0R1S2S
  1590. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  1591. Temp_Value
  1592. $37$34
  1593. 625808E14B24C6AE8025642E00665B32"
  1594. F07721617123B7018025642E00667B16
  1595. Daten angefordert
  1596. Bereit zur Konsolidierung
  1597. Im Master konsolidiert"
  1598. 0850E6CB057B6F338025643D00324EF0"
  1599. 543CE5EBB3CEA9298025643D0032623E"
  1600. 6228C670CE1983F08025643D003B6CF9"
  1601. 6594366D8AFD374E8025643D003B834F"
  1602. 8B2C0A32DC7CF14E8025643D003BA79F"
  1603. 1CB1747A7DBFF1C28025643D003BB5EC"
  1604. 659F222661395BB08025643D003BE551"
  1605. 76219959B326697F8025643D003BF385"
  1606. 90724B9487992A1A8025643D003F2466"
  1607. 879805F1CAC3CF268025643D003F3B2E
  1608. 0 0 29 33
  1609. Insufficien
  1610.  to display the 
  1611. Avril Jordan
  1612. 13/02/97 19:29:20 Avril Jordan/DUB/Lotus deleted Beth Brownholtz/TCGEMINI2
  1613. 09/11/96 02:41:56 PM Beth Brownholtz/CAM/Lotus updated -Default-
  1614. 09/11/96 02:41:52 PM Beth Brownholtz/CAM/Lotus updated [OtherDomainServers]
  1615. 09/11/96 02:41:40 PM Beth Brownholtz/CAM/Lotus added [OtherDomainServers]
  1616. 09/11/96 02:41:33 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  1617. 09/11/96 02:41:29 PM Beth Brownholtz/CAM/Lotus updated [LocalDomainServers]
  1618. 09/11/96 02:41:25 PM Beth Brownholtz/CAM/Lotus added [LocalDomainServers]
  1619. 09/11/96 02:40:11 PM Beth Brownholtz/CAM/Lotus updated LocalDomainServers
  1620. 09/11/96 02:40:04 PM Beth Brownholtz/CAM/Lotus added LocalDomainServers
  1621. 09/11/96 02:39:51 PM Beth Brownholtz/CAM/Lotus updated [-Default-]
  1622. 09/11/96 02:39:40 PM Beth Brownholtz/CAM/Lotus added [-Default-]
  1623. 09/11/96 02:39:28 PM Beth Brownholtz/CAM/Lotus deleted Robin Alvarez/TCGEMINI2
  1624. 09/11/96 02:39:27 PM Beth Brownholtz/CAM/Lotus updated Beth Brownholtz/TCGEMINI2
  1625. 09/11/96 02:39:19 PM Beth Brownholtz/CAM/Lotus added Beth Brownholtz/TCGEMINI2
  1626. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated Robin Alvarez/TCGEMINI2
  1627. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 added Robin Alvarez/TCGEMINI2
  1628. 09/10/96 12:32:03 PM Robin Alvarez/TCGEMINI2 updated -Default-
  1629. -Default-
  1630. [-Default-]
  1631. LocalDomainServers
  1632. [LocalDomainServers]
  1633. [OtherDomainServers]
  1634. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert, Konsolidierung ist abgeschlossen
  1635. StatusX
  1636. WorksheetTitle"
  1637. Title
  1638.     3S5S
  1639. SessionEditors
  1640. Contributor
  1641. SessionEditors
  1642.     3S4S24S
  1643. Temp_Status
  1644. Worksheetstatus
  1645. Temp_Value
  1646. Temp_Status
  1647. Temp_Status
  1648. Temp_Status
  1649.     0R1S2S
  1650. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  1651. Temp_Value
  1652. $27$24$22$26$8$10$Conflict$REF$C1$
  1653. Avril Jordan
  1654.    A"
  1655. Konsolidierung ist abgeschlossen
  1656. Uiyiy
  1657. Daten angefordert
  1658. Uiuiur Konsolidierung
  1659. Consolidation completed"
  1660. Konsolidierung ist abgeschlossen
  1661. Temp_Sta5
  1662.     0S0E
  1663. WorksheetTitle
  1664. Title
  1665.     3S5S
  1666. Temp_Status
  1667. Worksheetstatus
  1668. StatusX
  1669.     1S16S
  1670. Temp_Value
  1671. Temp_Status
  1672. Temp_Status
  1673. Temp_Status
  1674.     0R1S2S
  1675. Noch nicht verteilt,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Konsolidierung ist abgeschlossen
  1676. Temp_Value
  1677. $16$21$22$Conflict$REF$C1$
  1678. F07721617123B7018025642E00667B16
  1679. Konsolidierung ist abgeschlossen"
  1680. 625808E14B24C6AE8025642E00665B32
  1681. 543CE5EBB3CEA9298025643D0032623E
  1682. Daten angefordert"
  1683. 0850E6CB057B6F338025643D00324EF0
  1684. Bereit zur Konsolidierung"
  1685. 6594366D8AFD374E8025643D003B834F"
  1686. 6228C670CE1983F08025643D003B6CF9
  1687. uiyiy"
  1688. 1CB1747A7DBFF1C28025643D003BB5EC"
  1689. 8B2C0A32DC7CF14E8025643D003BA79F
  1690. 76219959B326697F8025643D003BF385"
  1691. 659F222661395BB08025643D003BE551
  1692. uiui"
  1693. 879805F1CAC3CF268025643D003F3B2E"
  1694. 90724B9487992A1A8025643D003F2466
  1695. %#&*@
  1696. GraphicButton1
  1697.  @  @@ @` @
  1698. @@ @@@@@`@@
  1699. `@ `@@`@``@
  1700. Text1Arbeitsmappen
  1701. Button1Nach Bearbeiter
  1702. Button2Nach Status
  1703. Button3Nach Datum
  1704. Button4Alle DokumenteP
  1705. HotspotRectangle1
  1706. Alle Dokumente
  1707. HotspotRectangle2
  1708. Nach Datum
  1709. HotspotRectangle3
  1710. Nach Status
  1711. HotspotRectangle4
  1712. Nach Bearbeiter
  1713. O=Lotus Notes
  1714. O=Lotus Notes
  1715. PURSAFO
  1716. |.:#U
  1717. O=Lotus Notes
  1718. CN=Lotus Notes Template Development/O=Lotus Notes
  1719. PURSAFO
  1720. Fde!f^^
  1721. {/BZgX
  1722. $ViewMapDataset
  1723. $ViewMapLayout
  1724. PURSAFO
  1725. *CN=Avril Jordan/OU=DUB/O=Lotus
  1726.  Konsolidierung ist abgeschlossen
  1727. [9a&"
  1728. dierung ist abgeschlossen
  1729. [9a&"
  1730. CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus*
  1731.  Konsolidierung ist abgeschlossen
  1732. Daten angefordert
  1733. [9a&"
  1734.  Konsolidierung ist abgeschlossen
  1735. [9a&"
  1736.  Konsolidierung ist abgeschlossen
  1737. [9a&"
  1738.     0S0E
  1739. WorksheetTitle"
  1740. Title
  1741.     3S5S
  1742. SessionEditors
  1743. Contributor
  1744. SessionEditors
  1745.     3S4S24S
  1746. Temp_Status
  1747. Worksheetstatus
  1748. StatusX
  1749.     1S16S
  1750. Temp_Value
  1751. Temp_Status
  1752. Temp_Status
  1753. Temp_Status
  1754.     0R1S2S
  1755. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  1756. Temp_Value
  1757. $21$28$26$30$10$Conflict$REF$C1$
  1758. Avril Jordan
  1759. Im Master konsolidiert
  1760. Konsolidierung ist abgeschlossen
  1761. Uiyiy
  1762. Bereit zur Konsolidierung
  1763. Daten angefordert
  1764. Daten noch nicht angefordert
  1765.     0SL1S
  1766. Times New Roman
  1767. VersionOpt|
  1768.     6S7S9S14S
  1769. $VersionOpt
  1770.     0R1S2S3S
  1771. SavedOnce
  1772.     0R1S2S3S
  1773. PostedDate(
  1774.     0R1S2S3S
  1775. DeliveredDate
  1776.     0R1S2S3S
  1777. $AutoEditMode
  1778.     0R1S2S3S
  1779. MailSaveOptions
  1780.     0R1S2S3S
  1781. VersionOpt
  1782.     0R4S
  1783. Neues Memo
  1784. Subject
  1785. Subject
  1786. Subject
  1787.     4S6S12S13S14S15S17S21S23S25S26S28S
  1788. '++LotusScript Development Environment:2:5:(Options):0:74
  1789. Option Public
  1790. %INCLUDE "lsconst.lss"
  1791. '++LotusScript Development Environment:2:5:(Forward):0:1
  1792. Declare Sub InstantiateObjectVariables(source)
  1793. Declare Sub SaveDialog(SavedDoc)
  1794. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1795. Dim w As NotesUIWorkspace
  1796. Dim s As NotesSession
  1797. Dim db As NotesDatabase
  1798. Dim note As NotesDocument
  1799. Dim newnote As NotesDocument
  1800. Dim Action As Variant
  1801. Dim DoNotClose As Variant
  1802. Dim ContinueSave As Variant
  1803. Dim NewDocument As Variant
  1804. '++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
  1805. Sub InstantiateObjectVariables(source)
  1806.      
  1807.      Set w = New NotesUIWorkspace
  1808.      Set s = New NotesSession
  1809.      Set db = s.CurrentDatabase
  1810.      Set note = source.document
  1811.      source.AutoReload = False
  1812.      
  1813. End Sub
  1814. '++LotusScript Development Environment:2:2:SaveDialog:1:8
  1815. Sub SaveDialog(SavedDoc)
  1816.      
  1817.      SavePrompt = Messagebox("Wollen Sie speichern? " & SavedDoc & "?", MB_YESNOCANCEL, "Speichern " & SavedDoc) 
  1818.      Select Case SavePrompt
  1819.      Case IDCANCEL
  1820.           note.MailOptions = "0"
  1821.           DoNotClose = True
  1822.           ContinueSave = False
  1823.           Exit Sub
  1824.      Case IDNO
  1825.           note.SaveOptions = "0"
  1826.           Exit Sub
  1827.      Case IDYES
  1828.           note.SaveOptions = "1"
  1829.      End Select
  1830.      
  1831. End Sub
  1832. Memo'++LotusScript Development Environment:2:5:(Options):0:66
  1833. '++LotusScript Development Environment:2:5:(Forward):0:1
  1834. Declare Sub Postopen(Source As Notesuidocument)
  1835. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1836. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1837. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1838. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1839. Private Sub BindEvents(Byval Objectname_ As String)
  1840.      Static Source As NOTESUIDOCUMENT
  1841.      Set Source = Bind(Objectname_)
  1842.      On Event Postopen From Source Call Postopen
  1843.      On Event Querysave From Source Call Querysave
  1844.      On Event Queryclose From Source Call Queryclose
  1845. End Sub
  1846. '++LotusScript Development Environment:2:2:Postopen:1:12
  1847. Sub Postopen(Source As Notesuidocument)
  1848.      
  1849.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  1850.      
  1851.      If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) And source.EditMode = False Then
  1852.           Exit Sub  
  1853.      Else
  1854.           If source.InPreviewPane Then
  1855.                Exit Sub
  1856.           Else
  1857.                source.EditMode = True
  1858.           End If
  1859.      End If
  1860.      
  1861.      If source.IsNewDoc Then
  1862.           NewDocument = True
  1863.           EditType = s.GetEnvironmentValue("MailStEd")
  1864. 'EditType 1 = CreateStationery          
  1865.           If EditType = "1" Then
  1866.                note.tmpAction = "SaveAsStationery"
  1867.                note.IsMailStationery = 1
  1868.                Call s.SetEnvironmentVar("MailStEd", "0")
  1869.                note.MailOptions = "0"
  1870.                note.SaveOptions = "1"
  1871.                source.Reload
  1872.                source.RefreshHideFormulas
  1873.           Else
  1874.                'If note.HasItem("ForwardedFrom") Then Call note.ReplaceItemValue("$RefOptions", "1") 
  1875.           End If
  1876.      Else
  1877.           NewDocument = False
  1878.           If note.HasItem("IsMailStationery") Then
  1879.                EditType = s.GetEnvironmentValue("MailStEd")
  1880. 'EditType 2 = EditStationery
  1881.                If EditType = "2" Then 
  1882.                     Call s.SetEnvironmentVar("MailStEd", "0")
  1883.                     note.MailOptions = "0"
  1884.                     note.SaveOptions = "1"
  1885.                Else
  1886. 'Create a doc from Stationery
  1887.                     note.RemoveItem("IsMailStationery")
  1888.                     note.RemoveItem("MailStationeryName")
  1889.                     Call note.ReplaceItemValue("$VersionOpt", "6")              
  1890.                End If
  1891.           Else
  1892.                EditType = s.GetEnvironmentValue("MailStEd")
  1893. 'EditType 5 = EditNewCopy               
  1894.                If EditType = "5" Then 
  1895.                     Call note.ReplaceItemValue("$VersionOpt", "6")
  1896.                     note.tmpAction = "ConvertNewDoc"
  1897.                     Call s.SetEnvironmentVar("MailStEd", "0")
  1898.                     source.reload
  1899.                     source.save
  1900.                End If
  1901.           End If
  1902.           source.Reload
  1903.           source.RefreshHideFormulas
  1904.      End If 
  1905.      
  1906. End Sub
  1907. '++LotusScript Development Environment:2:2:Querysave:1:12
  1908. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1909.      
  1910.      DoNotClose = False
  1911.      
  1912.      If note Is Nothing Then Call InstantiateObjectVariables(source)
  1913.      
  1914. 'Remove these because they are explicitly set in this event     
  1915.      note.RemoveItem("MailOptions")
  1916.      note.RemoveItem("SaveOptions")
  1917.      
  1918.      Action = note.tmpAction
  1919.      
  1920.      If note.HasItem("IsMailStationery") Then
  1921.           If Action(0) <> "RenameStationery" Then
  1922.                ContinueSave = True
  1923.                Call SaveDialog("Vorlage")
  1924.                If ContinueSave = False Then
  1925.                     Continue = False
  1926.                     Exit Sub
  1927.                End If
  1928.           End If
  1929.      End If
  1930.      
  1931.      Select Case Action(0)
  1932.      Case "SaveAsStationery"
  1933.           sName = Inputbox$("Wie wollen Sie diese Vorlage benennen?", "Als Vorlage speichern", "-Unbenannt-")
  1934.           If sName = "" Then
  1935.                note.MailOptions = "0"
  1936.                note.RemoveItem("tmpAction")
  1937.                DoNotClose = True
  1938.                Continue = False
  1939.                Exit Sub
  1940.           End If
  1941.           If NewDocument Then
  1942.                note.IsMailStationery = 1
  1943.                note.MailStationeryName = sName
  1944.                note.MailOptions = "0"
  1945.                note.SaveOptions = "1"
  1946.           Else
  1947.                note.SaveOptions = "0"
  1948.                Set newnote = New NotesDocument(db)
  1949.                Call note.CopyAllItems(newnote)
  1950.                ItemList = newnote.Items
  1951.                Forall i In ItemList
  1952.                     If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
  1953.                End Forall
  1954.                newnote.IsMailStationery = 1
  1955.                newnote.MailStationeryName = sName              
  1956.                newnote.Form = "Memo"
  1957.                newnote.RemoveItem("PostedDate")
  1958.                newnote.RemoveItem("DeliveredDate")
  1959.                newnote.Save True, True
  1960.                w.ViewRefresh
  1961.           End If
  1962.           Messagebox "Diese Nachricht ist als Vorlage in dem Ordner Entw
  1963. rfe gespeichert worden. Bei jedem 
  1964. ffnen der Vorlage wird eine neue Nachricht erstellt. ", 0, "Als Vorlage speichern"
  1965.      Case "RenameStationery"
  1966.           MailStationeryName = note.MailStationeryName
  1967.           sName = Inputbox$("Wie wollen Sie diese Vorlage benennen?", "Als Vorlage speichern", MailStationeryName(0))
  1968.           If sName = "" Then
  1969.                note.MailOptions = "0"
  1970.                note.RemoveItem("tmpAction")
  1971.                DoNotClose = True
  1972.                Continue = False
  1973.                Exit Sub
  1974.           End If
  1975.           note.MailStationeryName = sName
  1976.           note.MailOptions = "0"
  1977.           note.SaveOptions = "1"
  1978.      Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
  1979.           note.MailOptions = "0"
  1980.           note.SaveOptions = "1"
  1981.      Case "Send"
  1982.           note.MailOptions = "0"
  1983.           note.SaveOptions = "0"
  1984.      Case "Mailing"
  1985. 'We do not want to do anything if mailing is in process (like from the Send button)
  1986.      Case "ConvertToTask"
  1987.           note.RemoveItem("DeliveredDate")
  1988.           note.RemoveItem("PostedDate")
  1989.           note.SendTo = ""
  1990.           note.CopyTo = ""
  1991.           note.SaveOptions ="1"
  1992.           note.MailOptions = "0"
  1993.           note.Form = "Task"
  1994.           note.AssignState = 0
  1995.           note.ExcludeFromView = "D"
  1996.           Call note.ReplaceItemValue("_ViewIcon", 168)
  1997.      Case Else
  1998. 'If this is a message that was not written by you we do not present the mail dialog          
  1999.           If note.From(0) <> s.UserName Then
  2000.                note.MailOptions = "0"
  2001.                note.SaveOptions = "1"
  2002.                ContinueSave = True
  2003.                Call SaveDialog("Document")
  2004.                If ContinueSave = False Then
  2005.                     Continue = False
  2006.                     Exit Sub
  2007.                End If
  2008.           End If
  2009.      End Select
  2010.      
  2011.      note.RemoveItem("tmpAction")
  2012.      If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
  2013.      
  2014.      source.Reload
  2015.      
  2016. End Sub
  2017. '++LotusScript Development Environment:2:2:Queryclose:1:12
  2018. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2019.      
  2020.      If DoNotClose Then
  2021.           DoNotClose = False
  2022.           Continue = False
  2023.      End If
  2024.      
  2025. End Sub
  2026.     Always Hidden: 
  2027. FromPerson memo is from.
  2028. DefaultLogo
  2029. StdNotesLtrGateway
  2030.     4S9S13S16S18SLogoPerson memo is from.
  2031.     0S0E
  2032.     0S0E
  2033. Encrypt
  2034. MailSaveOptions
  2035.     1S2S3S
  2036. MailSaveOptions
  2037. DefaultMailSaveOptions
  2038.     Von:    
  2039. FromDomain
  2040. FromDomain
  2041. FromDomain
  2042. FromDomain
  2043.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  2044. FromName
  2045.     0RR1S2S6S
  2046. FromStops
  2047.     0R1S2S6S
  2048. FromName
  2049. FromStops
  2050. FromStops
  2051. FromStops
  2052.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
  2053.      am 
  2054. PostedDateh
  2055. PostedDate
  2056.     7S9S
  2057. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  2058. StdNotesLtr16
  2059.     3S4S6S8S
  2060. tmpDate
  2061.     4S5S6S8S
  2062.     Von:    
  2063. FromDomain
  2064. FromDomain
  2065. FromDomain
  2066. FromDomain
  2067.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  2068. FromName
  2069.     0RR1S2S6S
  2070. FromStops
  2071.     0R1S2S6S
  2072. FromName
  2073. FromStops
  2074. FromStops
  2075. FromStops
  2076.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_NoLogo
  2077.      am 
  2078. PostedDateh
  2079. PostedDate
  2080.     7S9S
  2081. tmpDisplayDate_NoLogoUhrzeit/Datum, zu der das Memo erstellt oder gesendet wurde.
  2082. ReplyDate
  2083. ReplyTo
  2084.     1S2S3S4S5S6S
  2085. Bitte antworten
  2086. ReplyTo
  2087. ReplyTo
  2088. ReplyDate
  2089.  von 
  2090. ReplyDate
  2091.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  2092. Mit: 
  2093. SendTo
  2094. CopyTo
  2095.   cc:  
  2096. CopyTo
  2097.     1S2S8S13S14S2E17S18S21S22S28S31S
  2098.     An:    
  2099. SendTo}
  2100.     0S0E
  2101. SendToListe der Personen, an die das Memo (Original) zu senden ist.
  2102.     cc:    
  2103. CopyTo}
  2104.     0S0E
  2105. CopyToListe der Personen, an die eine Kopie zu senden ist.
  2106. DeliveredDate
  2107. BlindCopyTo
  2108. (bcc: 
  2109. BlindCopyTo
  2110.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  2111.     bcc:    
  2112. BlindCopyTo
  2113.     0S0E
  2114. BlindCopyToListe der Personen, an die eine Blindkopie zu senden ist.
  2115.     Thema:    
  2116. PhoneCaller
  2117. Anruf: 
  2118. PhoneCaller
  2119. Subject
  2120.     7S8S9S11SSubjectThema des Memos.
  2121. PostedDate
  2122. SenderTag
  2123. Moods
  2124.     3S4S5S6S8S9S10S11S14S16S
  2125.     $CONTENT(BEGIN)
  2126.     $CONTENT(END)
  2127. Dokument bearbeiten
  2128. Weiterleiten 
  2129.     0S0E
  2130. Neues Memo.
  2131.     0S0E
  2132. schen
  2133.     0S0E
  2134. _Verschieben in Ordner...
  2135. Zustellinformation...
  2136. DeliveryInfo
  2137. Zustellinformation
  2138.     4S5S6S7S8S9S10S12S
  2139. _Weiterleiten
  2140. Antworten
  2141. Reply
  2142.     0S0E
  2143. Antworten mit Protokoll
  2144. Antworten mit Protokoll
  2145. Dieses Dokument ist nicht vollst
  2146. ndig.
  2147.     4S8S10S13S
  2148. Reply with history
  2149. Adresse... 
  2150.     0S0E
  2151. PostedDateh
  2152.     5S6S7S8S
  2153. Schlie
  2154.     0S0E
  2155. IsMailStationeryh
  2156. PostedDateh
  2157.     6S7S
  2158. Als Entwurf speichern
  2159. tmpAction
  2160. SaveAsDraft
  2161.     1S2S3S
  2162. IsMailStationeryh
  2163. PostedDateh
  2164.     4S5S
  2165. Sichern und ablegenl
  2166.     7S9S
  2167. tmpAction
  2168. SaveAndFile
  2169.     0R1S2S3S
  2170. IsMailStationeryh
  2171. PostedDateY
  2172. PostedDateh
  2173.     4S5S9S10S16S17S18S19S
  2174. Senden
  2175. PromptValue
  2176. DefaultMailSaveOptions
  2177. Speichern wenn gesendet
  2178. chten Sie eine Kopie des Memos speichern?
  2179. DefaultMailSaveOptions
  2180.     1S2S5S6S8S14S17S
  2181. SaveOptions
  2182. PromptValue
  2183. SaveOptions
  2184. PromptValue
  2185.     0R1S2S5S6S9S14S
  2186. tmpAction
  2187. DefaultMailSaveOptions
  2188. Mailing
  2189.     0R1S2S3S6S7S9S11S
  2190.     0R7S9S
  2191. tmpAction
  2192. SaveOptions
  2193. SendAndFile
  2194.     0RR1S2S3S6S7S9S11S
  2195.     0R7S9S
  2196. PostedDateh
  2197. IsMailStationeryh
  2198.     5S6S7S8S10S11S
  2199. Senden und ablegen...
  2200.     4S11S13S19S
  2201.     0RR7S9S
  2202.     0RR7S9S
  2203. tmpAction
  2204. SendAndFile
  2205.     0RR1S2S3S
  2206.     0R7S9S
  2207. PostedDateh
  2208. IsMailStationeryh
  2209.     5S6S7S8S10S11S
  2210. Zustelloptionen...
  2211. DeliveryOptions
  2212. Zustelloptionen
  2213.     4S8S
  2214. _ViewIcon
  2215. SenderTag
  2216. SenderTag
  2217. SenderTag
  2218. SenderTag
  2219. SenderTag
  2220. SenderTag
  2221. SenderTag
  2222. SenderTag
  2223. SenderTag
  2224. SenderTag
  2225. SenderTag
  2226.     0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
  2227. PostedDateh
  2228.     5S6S7S8S
  2229. Spezielle Optionen...
  2230. ReplyDate
  2231. ReplyDate
  2232.     1S2S3S
  2233. ReplyTo
  2234. ReplyTo
  2235.     0R1S2S3S
  2236. (Advanced Options)
  2237. Spezielle Optionen
  2238.     0R6S10S13S15S
  2239. tmpDisplayReplyInfo
  2240. Bitte antworten
  2241. ReplyTo
  2242. ReplyTo
  2243. ReplyDate
  2244.  von 
  2245. ReplyDate
  2246.     0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
  2247. DueDateTime
  2248. ReplyDate
  2249. ReplyDate
  2250.     0R1S2S3S6S7S9S11S
  2251. PostedDateh
  2252.     5S6S7S8S
  2253. Als Vorlage speichern...n
  2254. tmpAction
  2255. SaveAsStationery
  2256.     1S2S3S
  2257. IsMailStationeryh
  2258.     0S0E
  2259. In Task konvertieren
  2260. ReplyDate
  2261. Kann nicht in Task konvertiert werden.
  2262. Sie k
  2263. nnen diese Nachricht nicht in eine Task konvertieren, weil Sie bereits mit einem Termin versehen ist. .
  2264.     3S4S6S12S18S
  2265. tmpAction
  2266. ConvertNewDoc
  2267. Unavailable
  2268.     0R1S2S3S7S9S
  2269.     0R4S9S13S
  2270.     0R4S
  2271. _Entfernen aus Ordner...
  2272. Kategori_sieren
  2273. Senden
  2274. O=Lotus Notes
  2275. O=Lotus Notes
  2276. PURSAFO
  2277. |.:#U
  2278. O=Lotus Notes
  2279. CN=Lotus Notes Template Development/O=Lotus Notes
  2280. PURSAFO
  2281. Fde!f^^
  2282. $Title
  2283. $Info
  2284. $WindowTitle
  2285. $Script
  2286. $$Script_O
  2287. $$ScriptName
  2288. $$FormScript
  2289. $$$FormScript_O
  2290. $Body
  2291. $ACTIONS
  2292. $37Hauptdokument_ID$
  2293. $RefV
  2294.     0S0E
  2295. $34Antwort_ID
  2296.     0S0E
  2297. WorksheetTitleArbeitsblatt$38Status
  2298. Temp_Status
  2299. Worksheetstatus
  2300. Temp_Value
  2301. Temp_Status
  2302. Temp_Status
  2303. Temp_Status
  2304.     0R1S2S
  2305. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  2306. Temp_Value
  2307. nderungsdatum
  2308. $16Erstellungsdatum
  2309. 1-2-3 Arbeitsmappendokument erstellenX&
  2310. NavigatorXH
  2311. EnvName
  2312. NavigatorState"
  2313.     1S2S
  2314. EnvName
  2315. EnvName
  2316. Main Navigator
  2317. EnvName
  2318.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2319. Kategori_sierenX
  2320. Dokument bearbeitenX
  2321. Senden
  2322. _WeiterleitenX
  2323. _Verschieben in Ordner...X
  2324. _Entfernen aus Ordner...
  2325. O=Lotus Notes
  2326. O=Lotus Notes
  2327. PURSAFO
  2328. |.:#U
  2329. O=Lotus Notes
  2330. CN=Lotus Notes Template Development/O=Lotus Notes
  2331. PURSAFO
  2332. Fde!f^^
  2333. x2.g`
  2334. $Index
  2335. $FormulaClass
  2336. $Formula
  2337. $ViewFormat
  2338. $ACTIONS
  2339.     0S0E
  2340. $28TitelT
  2341. WorksheetTitle"
  2342. Title
  2343.     3S5S
  2344. $26Bearbeiter
  2345. SessionEditors
  2346. Contributor
  2347. SessionEditors
  2348.     3S4S24S$30Status(
  2349. Temp_Status
  2350. Worksheetstatus
  2351. StatusX
  2352.     1S16S
  2353. Temp_Value
  2354. Temp_Status
  2355. Temp_Status
  2356. Temp_Status
  2357.     0R1S2S
  2358. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  2359. Temp_Value
  2360. nderungsdatum
  2361. 1-2-3 Arbeitsmappendokument erstelleno&
  2362. Kategori_sieren
  2363. Navigator
  2364. EnvName
  2365. NavigatorState"
  2366.     1S2S
  2367. EnvName
  2368. EnvName
  2369. Main Navigator
  2370. EnvName
  2371.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2372. Dokument bearbeiten
  2373. Senden
  2374. _Weiterleitenu
  2375. _Verschieben in Ordner...
  2376. _Entfernen aus Ordner...
  2377. O=Lotus Notes
  2378. O=Lotus Notes
  2379. PURSAFO
  2380. |.:#U
  2381. O=Lotus Notes
  2382. CN=Lotus Notes Template Development/O=Lotus Notes
  2383. PURSAFO
  2384. Fde!f^^
  2385. #+5X.g
  2386. $Title
  2387. $Index
  2388. $Formula
  2389. $FormulaClass
  2390. $ViewFormat
  2391. $Comment
  2392. $ACTIONS
  2393. Dokument erstellen...
  2394. Kategori_sieren
  2395. Navigator
  2396. Main Navigator
  2397.     0S0E
  2398. Standardordner2
  2399. Main Navigator
  2400.     0S0E
  2401. Dokument bearbeiten
  2402. Senden
  2403. _Weiterleiten
  2404. _Verschieben in Ordner...
  2405. _Entfernen aus Ordner...    
  2406. O=Lotus Notes
  2407. O=Lotus Notes
  2408. PURSAFO
  2409. |.:#U
  2410. O=Lotus Notes
  2411. CN=Lotus Notes Template Development/O=Lotus Notes
  2412. PURSAFO
  2413. Fde!f^^
  2414. $Title
  2415. $Index
  2416. $Formula
  2417. $FormulaClass
  2418. $ViewFormat
  2419. $Comment
  2420. $ACTIONS
  2421. $31Editor6
  2422. Contributor
  2423.     0S0E
  2424. $33Arbeitsmappe.
  2425. WorkbookTitle
  2426.     0S0E
  2427. WorksheetTitleArbeitsblatt$34Status
  2428. Temp_Status
  2429. Worksheetstatus
  2430. Temp_Value
  2431. Temp_Status
  2432. Temp_Status
  2433. Temp_Status
  2434.     0R1S2S
  2435. In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  2436. Temp_Value
  2437. nderungsdatum
  2438. $16Erstellungsdatum
  2439. 1-2-3 Arbeitsmappendokument erstellenX&
  2440. NavigatorXH
  2441. EnvName
  2442. NavigatorState"
  2443.     1S2S
  2444. EnvName
  2445. EnvName
  2446. Main Navigator
  2447. EnvName
  2448.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2449. Kategori_sierenX
  2450. Dokument bearbeitenX
  2451. Senden
  2452. _WeiterleitenX
  2453. _Verschieben in Ordner...X
  2454. _Entfernen aus Ordner...
  2455. O=Lotus Notes
  2456. O=Lotus Notes
  2457. PURSAFO
  2458. |.:#U
  2459. O=Lotus Notes
  2460. CN=Lotus Notes Template Development/O=Lotus Notes
  2461. PURSAFO
  2462. Fde!f^^
  2463. $Index
  2464. $FormulaClass
  2465. $Formula
  2466. $ViewFormat
  2467. $ACTIONS
  2468. $28TitelT
  2469. WorksheetTitle"
  2470. Title
  2471.     3S5S
  2472. $26Bearbeiter
  2473. SessionEditors
  2474. Contributor
  2475. SessionEditors
  2476.     3S4S24S$31Status(
  2477. Temp_Status
  2478. Worksheetstatus
  2479. StatusX
  2480.     1S16S
  2481. Temp_Value
  2482. Temp_Status
  2483. Temp_Status
  2484. Temp_Status
  2485.     0R1S2S
  2486. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  2487. Temp_Value
  2488. $8Erstellungsdatum
  2489. nderungsdatum
  2490. 1-2-3 Arbeitsmappendokument erstellenP&
  2491. NavigatorlH
  2492. EnvName
  2493. NavigatorState"
  2494.     1S2S
  2495. EnvName
  2496. EnvName
  2497. Main Navigator
  2498. EnvName
  2499.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  2500. Kategori_sieren_
  2501. Dokument bearbeitenT
  2502. Senden
  2503. _Weiterleiten
  2504. _Verschieben in Ordner...m
  2505. _Entfernen aus Ordner...
  2506. O=Lotus Notes
  2507. O=Lotus Notes
  2508. PURSAFO
  2509. |.:#U
  2510. O=Lotus Notes
  2511. CN=Lotus Notes Template Development/O=Lotus Notes
  2512. PURSAFO
  2513. Fde!f^^
  2514. B]2H6
  2515. $Title
  2516. $Index
  2517. $Formula
  2518. $FormulaClass
  2519. $ViewFormat
  2520. $Comment
  2521. $ACTIONS
  2522. &Arial
  2523. Form Banner
  2524. wwwwwwwwwwww
  2525. wwwwwwwwwwww
  2526. wwwwwwwwwwww
  2527. wwwwwwwwwwww
  2528. wwwwwwwwwwwwwwwwwwwwwwwww
  2529. wwwwwxwwwwww
  2530. wwwwwxwwwwww
  2531. wxwwppww
  2532. wxwwppww
  2533. wpppwxww
  2534. wpppwxww
  2535. wwwwwxwwwwww
  2536. wwwwwxwwwwww
  2537. wpppwxww
  2538. wpppww
  2539. wwwwww
  2540. wwwwwxwwwwww
  2541. wwwwww
  2542. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  2543. UUUUXwxww
  2544. wpppwxww
  2545. UUUWwxwwwwww
  2546. wwwwwxwwwwwww
  2547. """(]UUU
  2548. """"""""""""""""""""""/
  2549. """""/
  2550. *""""/
  2551.   @  
  2552.  @@ @
  2553.  `@ `
  2554. @ @@ 
  2555. @@@@@
  2556. @`@@`
  2557. ` @` 
  2558. `@@`@
  2559. ``@``
  2560. aaaaaaaa`
  2561. nd If
  2562.       
  2563. mmmmmmmm     ' get the Um
  2564. FormTitleInfoDisplay
  2565. FormTitleDisplay
  2566. Subject
  2567. TitleX
  2568. O=Lotus Notes
  2569. O=Lotus Notes
  2570. PURSAFO
  2571. |.:#U
  2572. O=Lotus Notes
  2573. CN=Lotus Notes Template Development/O=Lotus Notes
  2574. PURSAFO
  2575. Fde!f^^
  2576. Yg&B    z
  2577. o#~&t
  2578. $Info
  2579. $$Script_O
  2580. $$ScriptName
  2581. $Body
  2582. PURSAFO
  2583. History'++LotusScript Development Environment:2:5:(Options):0:66
  2584. '++LotusScript Development Environment:2:5:(Forward):0:1
  2585. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2586. Declare Sub Initialize
  2587. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2588. Dim addToFields As Integer
  2589. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2590. Private Sub BindEvents(Byval Objectname_ As String)
  2591.      Static Source As NOTESUIDOCUMENT
  2592.      Set Source = Bind(Objectname_)
  2593.      On Event Querysave From Source Call Querysave
  2594. End Sub
  2595. '++LotusScript Development Environment:2:2:Querysave:1:12
  2596. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2597.      
  2598. REM This script will update the SessionTimes and SessionEditors field with a new element after each edit session.
  2599.      
  2600.      Dim session As New NotesSession        
  2601.      Dim workspace As New NotesUIWorkspace
  2602.      Dim uiDoc As NotesUIDocument
  2603.      Dim currentDoc As NotesDocument
  2604.      Dim dateField As NotesItem
  2605.      Dim nameListItem As NotesItem    
  2606.      
  2607.      Set uiDoc = workspace.CurrentDocument
  2608.      Set currentDoc = uiDoc.Document
  2609.      
  2610.      REM Append the "SessionEditors" field with the current editor of the document.
  2611.      
  2612.      Set nameListItem  = currentDoc.GetFirstItem( "SessionEditors" )         
  2613.      Set dateField        = currentDoc.GetFirstItem( "SessionTimes" )
  2614.      
  2615.      nameArray             = nameListItem.Values
  2616.      dateArray              = dateField.Values
  2617.      
  2618.      If addToFields And (Not uiDoc.IsNewDoc) Then
  2619.           Redim Preserve nameArray(Ubound(nameArray) + 1)
  2620.           Redim Preserve dateArray(Ubound(dateArray) + 1)
  2621.      End If
  2622.      
  2623.      nameArray(Ubound(nameArray)) = session.UserName
  2624.      dateArray(Ubound(dateArray)) = Now
  2625.      
  2626.      If Not uiDoc.IsNewDoc Then
  2627.           nameListItem.Values = nameArray
  2628.           dateField.Values = dateArray
  2629.      End If
  2630.      
  2631.      addToFields = False
  2632.      
  2633. End Sub
  2634. '++LotusScript Development Environment:2:2:Initialize:1:10
  2635. Sub Initialize
  2636.      addToFields = True
  2637. End Sub
  2638. nderungsprotokoll des Arbeitsblatts
  2639. nderungsprotokoll der Arbeitsmappe
  2640.     0S0E
  2641. istory
  2642. Hidden Always
  2643. SessionTimes
  2644. Gets list of editors, including the current editor  from the CurrentEditor field.
  2645. SessionEditors
  2646. Gets list of editors, including the current editor  from the CurrentEditor field.
  2647. Quelldatei der Arbeitsmappe:
  2648.        
  2649. SourceName
  2650. BookName
  2651. Erstellt von 
  2652. ndert von 
  2653. SessionEditorsj
  2654. SessionEditors
  2655.  am "
  2656. SessionTimesT
  2657. Sonntag
  2658. Montag
  2659. Dienstag
  2660. Mittwoch
  2661. Donnerstag
  2662. Freitag
  2663. Samstag
  2664. SessionTimesP
  2665. SessionTimesO
  2666. Januar
  2667. Februar
  2668. April
  2669. August
  2670. September
  2671. Oktober
  2672. November
  2673. Dezember
  2674. SessionTimesN
  2675.  um "
  2676. SessionTimes
  2677.     20S21R62R70S71S72R105S106S130S131S132S133RR140S141R142S143SCommentHistory
  2678. * * * ENDE DES DOKUMENTS * * *
  2679. O=Lotus Notes
  2680. O=Lotus Notes
  2681. PURSAFO
  2682. |.:#U
  2683. O=Lotus Notes
  2684. CN=Lotus Notes Template Development/O=Lotus Notes
  2685. PURSAFO
  2686. Fde!f^^
  2687. $Title
  2688. $Info
  2689. $$Script_O
  2690. $$ScriptName
  2691. $$FormScript
  2692. $$$FormScript_O
  2693. $Body
  2694. &Arial
  2695. Response Form
  2696.   @  
  2697.  @@ @
  2698.  `@ `
  2699. @ @@ 
  2700. @@@@@
  2701. @`@@`
  2702. ` @` 
  2703. `@@`@
  2704. ``@``
  2705. mmmmmmmmm
  2706. FormTitleInfoDisplay
  2707. FormTitleDisplay
  2708. WorksheetTitle
  2709. WorksheetTitleDisplayX
  2710. O=Lotus Notes
  2711. O=Lotus Notes
  2712. PURSAFO
  2713. |.:#U
  2714. O=Lotus Notes
  2715. CN=Lotus Notes Template Development/O=Lotus Notes
  2716. PURSAFO
  2717. Fde!f^^
  2718. /GF54
  2719. $Info
  2720. $$ScriptName
  2721. $Body
  2722. Times New Roman
  2723. (Schlie
  2724. en Sie dieses Fenster, um die Datenbank zu sehen.)
  2725. ber TeamKonsolidierung
  2726. ?_?__
  2727. `!b`1
  2728. 7`^///?
  2729. ?b___
  2730. `bOOO
  2731. `<b!R
  2732.     Wozu wird diese Datenbank verwendet?
  2733. Mit Hilfe der TeamKonsolidierung-Datenbank k
  2734. nnen Sie 1-2-3 Arbeitsbl
  2735. tter an andere Benutzer verteilen und Informationen anfordern. Anschlie
  2736. end werden die Eingaben der Benutzer in Ihrem Originalarbeitsblatt konsolidiert.
  2737. nnen Sie mit 1-2-3 z.B. Projektkosten abteilungs
  2738. bergreifend erfassen. Erstellen Sie hierf
  2739. r eine Arbeitsmappe mit einem Arbeitsblatt f
  2740. r jede Abteilung. Mit Hilfe der Datenbank verteilen Sie jedes Arbeitsblatt an die Mitarbeiter der Abteilungen. Die Mitarbeiter nehmen 
  2741. nderungen und Erg
  2742. nzungen vor, die Sie anschlie
  2743. end in Ihrer Originalarbeitsmappe konsolidieren k
  2744. nnen.
  2745.     Wer verwendet diese Datenbank?
  2746. Mitglieder eines Teams, die Daten zu einem Arbeitsblatt hinzuf
  2747. gen und verteilen.
  2748.     Zugriffskontrolle
  2749.     Wichtig:
  2750.      Alle Benutzer dieser Datenbank m
  2751. ssen 
  2752. ber die Autor-Zugriffsberechtigung verf
  2753. gen. Dadurch wird der nicht-autorisierte Zugriff auf die Datenbank verhindert und optimale Funktionalit
  2754. t gew
  2755. hrleistet.
  2756.     Benutzer, die 
  2757. ber die Autor-Zugriffsberechtigung verf
  2758. gen, k
  2759. nnen Dokumente erstellen und eigene sowie die ihnen zugewiesenen Dokumente bearbeiten. Sie k
  2760. nnen jedoch keine Dokumente bearbeiten, die an andere Benutzer verteilt wurden. Dadurch werden Replizierungskonflikte vermieden. 
  2761.     Sie m
  2762. ssen 
  2763. ber die Manager-Zugriffsberechtigung verf
  2764. gen, um die Zugriffskontrolliste (ZKL) erstellen bzw. bearbeiten zu k
  2765. nnen. Wenn Sie eine ZKL erstellen, k
  2766. nnen Sie bzw. der Entwickler die Zugriffsrechte f
  2767. r bestimmte Ansichten, Masken, Abschnitte und Felder einer Datenbank definieren.
  2768. O=Lotus Notes
  2769. O=Lotus Notes
  2770. PURSAFO
  2771. |.:#U
  2772. O=Lotus Notes
  2773. CN=Lotus Notes Template Development/O=Lotus Notes
  2774. PURSAFO
  2775. Fde!f^^
  2776. ik~h6
  2777. $Info
  2778. $Body
  2779. PURSAFO
  2780. Dokument mit 1-2-3 ArbeitsmappeMain
  2781. BearbeiterSecondary
  2782. (Hauptdokument-ID)|ConsolidateButton
  2783. Nach Bearbeiter|View By Contributor
  2784. (Intern Konsolidierung)|(Internal Consolidate)
  2785. Alle Dokumente|View by Master Contributor
  2786. ntributor
  2787. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril 
  2788. Dokument mit 1-2-3 ArbeitsmappeMain
  2789. Alle Dokumente|View by Master Contributor
  2790. Dokume
  2791. ierung)|(Internal Consolidate)
  2792. Dokument mit 1-2-3 ArbeitsmappeMain
  2793. (Intern Konsolidientri
  2794. Dokument mit 1-2-3 Arbeits
  2795. Dokument mit 1-2-3 ArbeitsmappeMain
  2796. BearbeiterSecondary
  2797. (Hauptdokument-ID)|ConsolidateButton
  2798. Nach Bearbeiter|View By Contributor
  2799. (Intern Konsolidierung)|(Internal Consolidate)
  2800. Alle Dokumente|View by Master Contributor
  2801. ntributor
  2802. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril 
  2803. Dokument mit 1-2-3 ArbeitsmappeMain
  2804. Alle Dokumente|View by Master Contributor
  2805. Dokume
  2806. ierung)|(Internal Consolidate)
  2807. Dokument mit 1-2-3 ArbeitsmappeMain
  2808. (Intern Konsolidientri
  2809. Dokument mit 1-2-3 Arbeits
  2810. Dokument mit 1-2-3 ArbeitsmappeMain
  2811. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2812. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2813. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2814. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2815. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2816. BearbeiterSecondary
  2817. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2818. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2819. (Hauptdokument-ID)|ConsolidateButton
  2820. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2821. Nach Bearbeiter|View By Contributor
  2822. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2823. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2824. (Intern Konsolidierung)|(Internal Consolidate)
  2825. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2826. Alle Dokumente|View by Master Contributor
  2827. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2828. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2829. MemoMemo
  2830. MemoMemo
  2831. (Hauptdokument-ID)|Consolidate
  2832. MemoMemo
  2833. (Hauptdokument-ID)|ConsolidateB
  2834. MemoMemo
  2835. MemoMemo
  2836. (Hauptdokument-ID)|Consolidate
  2837. MemoMemo
  2838. (Hauptdokument-ID)|ConsolidateB
  2839. Alle Dokumente|View by Master Contributor
  2840. Dokument mit 1-2-3 ArbeitsmappeMain
  2841. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2842. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2843. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2844. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2845. CN=Cathy Pfeiler/O=TCGEMINI2CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2846. BearbeiterSecondary
  2847. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2848. CN=Cathy Pfeiler/OU=CAM/O=LotusCN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2849. (Hauptdokument-ID)|ConsolidateButton
  2850. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2851. Nach Bearbeiter|View By Contributor
  2852. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2853. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2854. CN=Avril Jordan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  2855. MemoMemo
  2856. MemoMemo
  2857. (Hauptdokument-ID)|Consolidate
  2858. MemoMemo
  2859. (Hauptdokument-ID)|ConsolidateB
  2860. MemoMemo
  2861. MemoMemo
  2862. (Hauptdokument-ID)|Consolidate
  2863. MemoMemo
  2864. (Hauptdokument-ID)|ConsolidateB
  2865. $Modified
  2866.     1S2S3S
  2867. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  2868.     0SL1S
  2869. $TITLE
  2870. CN=Avril Jordan/OU=DUB/O=Lotus
  2871. Nach Datum|View By Date
  2872. Nach Status|View By Status
  2873. Form Banner
  2874. CUA3    
  2875. History
  2876. Response Form
  2877. Navigator
  2878. TeamConsolidate
  2879. Navigator | Main Navigator
  2880. Copy Of Main Navigator
  2881. Copy Of Memo
  2882. StdR4Mail
  2883. x$FormulaClass$Collation$Formula$ViewFormat$Collation1$Collation2$Class$ViewMapLayout$ViewMapDatasetIconBitmap$TemplateModTime$TemplateServerName$TemplateFileName$FlagsNo>
  2884. WorksheetTitle"
  2885. Title
  2886.     3S5S
  2887. SessionEditors
  2888. Contributor
  2889. SessionEditors
  2890.     3S4S24S
  2891. Temp_Status
  2892. Worksheetstatus
  2893. StatusX
  2894.     1S16S
  2895. Temp_Value
  2896. Temp_Status
  2897. Temp_Status
  2898. Temp_Status
  2899.     0R1S2S
  2900. Daten noch nicht angefordert,Daten angefordert,Teilweise konsolidiert,Konsolidierung ist abgeschlossen,In Bearbeitung,Bereit zur Konsolidierung,Nicht konsolidieren,Daten angefordert,Im Master konsolidiert
  2901. Temp_Value
  2902. $12$28$26$31$8$10$Conflict$REF$C1$
  2903. Avril Jordan
  2904. Im Master konsolidiert
  2905. Konsolidierung ist abgeschlossen
  2906. Uiyiy
  2907. Daten noch nicht angefordert
  2908. Daten angefordert
  2909. Bereit zur Konsolidierung
  2910. 898##############################
  2911. ##########################################################
  2912.     0SL1S
  2913. *CN=Avril Jordan/OU=DUB/O=Lotus
  2914. *CN=Avril Jordan/OU=DUB/O=Lotus
  2915. 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$ViewContainerDontShowWarningMasterNameCategoriesDocumentCommentsRevisionCommentsLastEditorSizeInPagesDocumentClassSizeInCharactersSizeInKDateLastRevisionDateNumberOfEditsEditingTimePageTitles$FILE$OLEOBJINFOForm$RevisionsWORKSHEETSTATUS$REF$Comment$$XMB$Licensee
  2916. Avril Jordan
  2917. #qa!w
  2918. *CN=Avril Jordan/OU=DUB/O=Lotus
  2919. *CN=Avril Jordan/OU=DUB/O=LotusCN=Avril Jordan/OU=DUB/O=Lotus
  2920. EmbeddingDisplayArea
  2921. WorkbookTitle
  2922. NoCache
  2923. (Intern Konsolidierung)
  2924. $RefV
  2925.  - Arbeitsblatt "
  2926. WorksheetTitle"
  2927.     24S25S26S
  2928. &Arial
  2929. '++LotusScript Development Environment:2:5:(Options):0:66
  2930. Option Public
  2931. '++LotusScript Development Environment:2:5:(Forward):0:1
  2932. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2933. ' UI entry point
  2934. ' * * *  ---> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  2935. Const  UIDLL_NAME =   "tcui10de.dll"
  2936. ' get  is the status of the contribution
  2937. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  2938. '-- * * *  strings to translate * * * 
  2939. Const MSG_OPENING_123 =  "1-2-3 Objekt 
  2940. ffnen"
  2941. Const MSG_LOTUS_TITLE  = "Lotus 1-2-3 97"
  2942. ' for composing email to Originator
  2943. Const MSG_SHEET = "Arbeitsblatt"
  2944. Const MSG_READYTOCONS = "wurde als ""Bereit zur Konsolidierung""markiert."
  2945. Const MSG_BLANK = " "
  2946. Const MSG_IN = "in"
  2947. Const MSG_MARKED = "wurde als ""Bereit zur Konsolidierung"" markiert."
  2948. ' user sees this when clicking on doclink
  2949. Const DOCLINK_TEXT =         "Diese Verkn
  2950. pfung f
  2951. hrt Sie zum Arbeitsblatt.   "                        
  2952. Const MSG_FYI  = "Zur Information:  "
  2953. Const MSG_NO_EMAIL =  " konnte jetzt nicht 
  2954. ber E-Mail benachrichtigt werden."
  2955. ' -- * * * end strings to translate * * * 
  2956. ' Form names
  2957. Const MEMO_FORM = "Memo"
  2958. ' these values match the values defined in Main/Globals (the master document). They should not be changed
  2959. Const STATUS_IN_PROGRESS = "1"
  2960. Const STATUS_READY_CONS = "2"
  2961. Const STATUS_DONT_CONS = "3"
  2962. Const STATUS_DATA_REQUESTED = "101"
  2963.  Secondary'++LotusScript Development Environment:2:5:(Options):0:66
  2964. '++LotusScript Development Environment:2:5:(Forward):0:1
  2965. Declare Sub Terminate
  2966. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2967. Declare Sub Initialize
  2968. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2969. Declare Sub Postopen(Source As Notesuidocument)
  2970. Declare Function GetSheetStatus As Long
  2971. Declare Sub SendMailToDistributor
  2972. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2973. Dim DocWasSaved As Integer
  2974. Dim UIDoc As NotesUIDocument
  2975. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2976. Private Sub BindEvents(Byval Objectname_ As String)
  2977.      Static Source As NOTESUIDOCUMENT
  2978.      Set Source = Bind(Objectname_)
  2979.      On Event Queryclose From Source Call Queryclose
  2980.      On Event Querysave From Source Call Querysave
  2981.      On Event Postopen From Source Call Postopen
  2982. End Sub
  2983. '++LotusScript Development Environment:2:2:Terminate:1:10
  2984. Sub Terminate
  2985.      
  2986.      Dim workSpace As New NotesUIWorkspace
  2987.      Dim thisDoc As Notesdocument
  2988.      
  2989.      
  2990.      ' if the document was saved, then put up a status dialog
  2991.      If DocWasSaved Then
  2992.           
  2993.           Set thisDoc = UIDoc.Document
  2994.           
  2995.           ' get sheet status from user
  2996.           Dim status As Long
  2997.           status = GetSheetStatus
  2998.           
  2999.           ' should we notify the distributor if the sheet is complete
  3000.           If thisDoc.NotifyDistributor(0) = 1 Then
  3001.                If Cstr(status) = STATUS_READY_CONS Then
  3002.                     SendMailToDistributor   
  3003.                End If
  3004.                
  3005.           End If
  3006.           
  3007.           ' re-save the document
  3008.           thisDoc.Save True, True
  3009.           
  3010.           'update the view
  3011.           workSpace.ViewRefresh
  3012.           
  3013.      End If
  3014.      
  3015. End Sub
  3016. '++LotusScript Development Environment:2:2:Queryclose:1:12
  3017. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  3018.      
  3019. End Sub
  3020. '++LotusScript Development Environment:2:2:Initialize:1:10
  3021. Sub Initialize
  3022.      
  3023. End Sub
  3024. '++LotusScript Development Environment:2:2:Querysave:1:12
  3025. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  3026.      
  3027.      DocWasSaved = True
  3028.      Set UIDoc = Source
  3029.      
  3030. End Sub
  3031. '++LotusScript Development Environment:2:2:Postopen:1:12
  3032. Sub Postopen(Source As Notesuidocument)
  3033.      
  3034.      ' inform the user (in the status window) that we are opening the 1-2-3 embedding 
  3035.      Print MSG_OPENING_123 
  3036.      
  3037. End Sub
  3038. '++LotusScript Development Environment:2:1:GetSheetStatus:1:8
  3039. Function GetSheetStatus As Long
  3040.      
  3041.      Dim hInst As Long
  3042.      Dim thisDoc As NotesDocument
  3043.      Dim status As Long
  3044.      
  3045.      ' get handle to LotusScript instance
  3046.      hInst = Lsi_info(4)
  3047.      
  3048.      Set thisDoc = UIDoc.Document
  3049.      
  3050.      ' get the existing status, convert it from a string
  3051.      status = Clng(thisDoc.WorkSheetStatus(0))
  3052.      
  3053.      ' if the status is "data requested" then default the dialog to "in progress"
  3054.      If status = Clng(STATUS_DATA_REQUESTED) Then
  3055.           status = Clng(STATUS_IN_PROGRESS)
  3056.      End If
  3057.      
  3058.      ' put up the UI to get the status, the dialog will default to the status passed in
  3059.      GetCollectionStatus hInst, status
  3060.      
  3061.      ' add the status back into the document
  3062.      thisDoc.WorkSheetStatus = Cstr(status)
  3063.      
  3064.      GetSheetStatus = status
  3065.      
  3066. End Function
  3067. '++LotusScript Development Environment:2:2:SendMailToDistributor:1:8
  3068. Sub SendMailToDistributor
  3069.      
  3070.      On Error Goto handler
  3071.      
  3072.      
  3073.      Dim thisDoc As NotesDocument
  3074.      Set thisDoc = UIDoc.Document
  3075.      
  3076.      Dim mailDoc As NotesDocument
  3077.      Set mailDoc = New NotesDocument(thisDoc.ParentDatabase)
  3078.      
  3079.      mailDoc.Form = MEMO_FORM 
  3080.      
  3081.      Set RTItem = New NotesRichTextItem( mailDoc, "Body" )
  3082.      
  3083.      Dim subjectString As String
  3084.      Dim titleString As String
  3085.      
  3086.      '!!! - eabtodo -  make this more efficient by using copyitem calls instead of . notation
  3087.      titleString = thisDoc.WorksheetTitle(0)
  3088.      
  3089.      '  subject = Sheet thisDoc.WorksheetTiltle marked Ready to consolidate"
  3090.      ' subjectString = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  3091.      
  3092.      mailDoc.Subject = MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_READYTOCONS
  3093.      mailDoc.SendTo = thisDoc.Distributor(0)
  3094.      
  3095.      Dim linkMessage As String
  3096.      linkMessage = thisDoc.Main_Title(0) + "." + titleString
  3097.      
  3098.      RTItem.AppendText MSG_SHEET + MSG_BLANK + titleString + MSG_BLANK + MSG_IN + MSG_BLANK + _
  3099.      thisDoc.Main_Title(0) + MSG_BLANK + MSG_MARKED
  3100.      
  3101.      RTItem.AddNewLine 2
  3102.      RTItem.AppendText DOCLINK_TEXT 
  3103.      RTItem.AppendDocLink thisDoc, linkMessage      
  3104.      
  3105.      On Error Goto SendError
  3106.      Call mailDoc.Send (False)
  3107.      
  3108.      Goto Done
  3109.      
  3110. handler:
  3111.      Msgbox MSG_ERROR  & Error$    
  3112.      'Resume Next
  3113.      Exit Sub
  3114.      
  3115. SendError:
  3116.      Messagebox MSG_FYI & thisDoc.Distributor(0) & MSG_NO_EMAIL, MB_OK + MB_ICONINFORMATION, MSG_LOTUS_TITLE
  3117.      Exit Sub
  3118.      
  3119. Done:
  3120.      
  3121. End Sub
  3122. Hidden
  3123. WorkbookTitle
  3124. WorkbookTitle
  3125. WorkbookTitle
  3126. NoCache
  3127. (Intern Konsolidierung)
  3128. $RefV
  3129.     0S0E
  3130. FormTitleInfoDisplay
  3131. RestrictedTo
  3132.     0S0E
  3133. RestrictedToOptioanally lists who has read access to the document.
  3134. CurrentAuthor
  3135. CurrentAuthorList who can currently edit the document.
  3136. Distributor
  3137.     0S0E
  3138. DistributorVerfasser der verteilten Arbeitsmappe
  3139. ForContributorsOnly
  3140.     0S0E
  3141. ForContributorsOnlyDokument ist auf Bearbeiter beschr
  3142. NotifyDistributor
  3143.     0S0E
  3144. NotifyDistributorVerfasser benachrichtigen, wenn die Arbeit mit diesem Arbeitsblatt abgeschlossen ist
  3145. WorksheetTitle
  3146. WorksheetTitle
  3147. Response Form
  3148.   @  
  3149.  @@ @
  3150.  `@ `
  3151. @ @@ 
  3152. @@@@@
  3153. @`@@`
  3154. ` @` 
  3155. `@@`@
  3156. ``@``
  3157. FormTitleInfoDisplay
  3158. FormTitleDisplay
  3159. WorksheetTitle
  3160. WorksheetTitleDisplay
  3161. Zugewiesen an:
  3162. Contributor
  3163.     0S0E
  3164. Contributor
  3165. CreateDate
  3166. CreateTime
  3167. Status des Arbeitblatts:
  3168. WorkSheetStatus
  3169.     4S6S
  3170. WorkSheetStatus
  3171. In Bearbeitung | 1Bereit zur Konsolidierung | 2Nicht konsolidieren | 3Daten angefordert | 101Konsolidierung abgebrochen | 102
  3172. Bearbeiter-Arbeitsblatt
  3173.       
  3174. EmbeddingDisplayArea
  3175.       
  3176. ContributorEmbedding
  3177. Anmerkungen
  3178. Response_Remark
  3179. Informationen zur Arbeitsmappe
  3180. Titel:
  3181. FormTitleInfoDisplay
  3182. ParentTitle
  3183. Quelle der Arbeitsmappe:
  3184.        
  3185. WorkBookNameh
  3186. WorkBookName
  3187. SourceName
  3188.     0S0E
  3189. WorkBookName
  3190. Status der Arbeitsmappe:
  3191. NoCache
  3192. (Intern Konsolidierung)
  3193. $RefV
  3194.     0S0E
  3195. WorkBookStatus
  3196. History
  3197. nderungsprotokoll des Arbeitsblatts
  3198. nderungsprotokoll der Arbeitsmappe
  3199.     0S0E
  3200.  History
  3201. Hidden Always
  3202. SessionTimes
  3203. Gets list of editors, including the current editor  from the CurrentEditor field.
  3204. SessionEditors
  3205. Gets list of editors, including the current editor  from the CurrentEditor field.
  3206. Quelldatei der Arbeitsmappe:       
  3207. SourceName
  3208. BookName
  3209. Erstellt von 
  3210. ndert von 
  3211. SessionEditorsj
  3212. SessionEditors
  3213.  am "
  3214. SessionTimesT
  3215. Sonntag
  3216. Montag
  3217. Dienstag
  3218. Mittwoch
  3219. Donnerstag
  3220. Freitag
  3221. Samstag
  3222. SessionTimesP
  3223. SessionTimesO
  3224. Januar
  3225. Februar
  3226. April
  3227. August
  3228. September
  3229. Oktober
  3230. November
  3231. Dezember
  3232. SessionTimesN
  3233.  um "
  3234. SessionTimes
  3235.     20S21R62R70S71S72R105S106S130S131S132S133RR140S141R142S143SCommentHistory
  3236. * * * ENDE DES DOKUMENTS * * *
  3237. Kategori_sierene
  3238. Dokument bearbeiteng
  3239. Senden
  3240. _Weiterleiten
  3241. _Verschieben in Ordner...r
  3242. _Entfernen aus Ordner...
  3243. Fertig'++LotusScript Development Environment:2:5:(Options):0:66
  3244. '++LotusScript Development Environment:2:5:(Forward):0:1
  3245. Declare Sub Click(Source As Button)
  3246. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3247. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3248. Private Sub BindEvents(Byval Objectname_ As String)
  3249.      Static Source As BUTTON
  3250.      Set Source = Bind(Objectname_)
  3251.      On Event Click From Source Call Click
  3252. End Sub
  3253. '++LotusScript Development Environment:2:2:Click:1:12
  3254. Sub Click(Source As Button)
  3255.      
  3256.      Dim workSpace As New NotesUIWorkspace
  3257.      Dim UIDoc As NotesUIDocument
  3258.      
  3259.      Set UIDoc = workSpace.CurrentDocument
  3260.      
  3261.      ' close the document, Notes will prompt for whether to save or not
  3262.      UIDoc.Close
  3263.      
  3264. End Sub
  3265. O=Lotus Notes
  3266. O=Lotus Notes
  3267. PURSAFO
  3268. |.:#U
  3269. O=Lotus Notes
  3270. CN=Lotus Notes Template Development/O=Lotus Notes
  3271. PURSAFO
  3272. Fde!f^^
  3273. ~`q|r
  3274. $Title
  3275. $AUTOLAUNCH
  3276. $Info
  3277. $WindowTitle
  3278. $Script
  3279. $$Script_O
  3280. $$ScriptName
  3281. $$FormScript
  3282. $$$FormScript_O
  3283. $Body
  3284. $ACTIONS
  3285. $SCRIPTOBJ_6
  3286. Neue Arbeitsmappe von  
  3287. Title
  3288.  von 
  3289.  mit 
  3290.  (Keine Antworten)
  3291.  (1 Antwort)
  3292.  (% Antworten)
  3293.     4S5S6S10S14S15S17S21S23S24S25S26S30S32S
  3294. &Arial
  3295. '++LotusScript Development Environment:2:5:(Options):0:74
  3296. Option Public
  3297. '++LotusScript Development Environment:2:5:(Forward):0:1
  3298. Declare Public Type Assignment
  3299. Declare Public Type Request
  3300. Declare Function DoRequestAction ()
  3301. Declare Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  3302. Declare Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  3303. Declare Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  3304. Declare Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  3305. Declare Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  3306. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3307. ' UI entry points    
  3308. ' * * * --> Note to translators: need to change UIDLL_NAME to match the dll name for each country
  3309. Const  UIDLL_NAME =   "tcui10de.dll"
  3310. ' collect which kind of documents?
  3311. Declare Public Function GetConsolidateInfo Lib UIDLL_NAME  Alias "GetConsolidateInfo"  (Byval hInst As Long, pbCompleteOnly As Long, pbDeleteContributions As Long) As Long
  3312. ' share now or later
  3313. Declare Public Function ShareDocument Lib UIDLL_NAME  Alias "ShareDocument" (Byval hInst As Long) As Long
  3314. ' get  is the status of the contribution
  3315. Declare Public Function GetCollectionStatus  Lib UIDLL_NAME  Alias "GetCollectionStatus"  (Byval hInst As Long, pCollectionStatus  As Long) As Long
  3316. ' which spreadsheet to use, existing or new
  3317. Declare Public Function BrowseForSpreadSheet  Lib UIDLL_NAME  Alias "BrowseForSpreadSheet"  (Byval hInst As Long, pFilename As String,  _
  3318. pNewOrExsisting As Long,  pTitle As String ) As Long
  3319. ' assign worksheets to users
  3320. Declare Public Function AssignWorkSheet   Lib UIDLL_NAME  Alias "AssignWorkSheet"  _ 
  3321. (Byval hInst As Long, pSheetList As Any, pAssignmentList As Any, pNotifyAssigned As Long, pAccessFlag As Long, pMailMessage As String, pNotifyDistrib As Long ) As Long
  3322. ' distributed workbook warning
  3323. Declare Public Function DistributeWarning   Lib UIDLL_NAME  Alias "DistributeWarning"  (Byval hInst As Long, pShowAgain As Long) As Long
  3324. ' -- constants
  3325. ' * * * these constant values should not be changed * * * 
  3326. Const EXISTING_FILE = 1
  3327. Const NEW_FILE = 2
  3328. Const DISTRIBUTE_NOW = 1
  3329. Const DISTRIBUTE_LATER = 2
  3330. Const CANCEL = 0
  3331. Const SUCCESS = 1
  3332. Const FAILURE = 2
  3333. Const STATUS_IN_PROGRESS = "1"
  3334. Const STATUS_READY_CONS = "2"
  3335. Const STATUS_DONT_CONS = "3"
  3336. Const STATUS_DATA_REQUESTED = "101"
  3337. Const STATUS_CONS_IN_MASTER = "102"
  3338. Const NOTIFICATION_PENDING =  "1"
  3339. Const CONTRIBUTOR_NOTIFIED =  "2"
  3340. Const UPDATE_IN_PROGRESS =  "1"
  3341. Const UPDATE_COMPLETE = "4"
  3342. Const IGNORE = "5"
  3343. Const CONSOLIDATED_INTO_MASTER = "6"
  3344. Const NOT_YET_DISTRIBUTED =  "1"
  3345. Const MASTER_DISTRIBUTED = "2"
  3346. Const PARTIALLY_CONSOLIDATED = "3"
  3347. Const CONSOLIDATION_COMPLETE =  "4"
  3348. Const CONVERT_TO_ARRAY = 1
  3349. Const CONVERT_TO_TEXTLIST = 2
  3350. ' -- error codes
  3351. Const WORKBOOK_PASSWORDED      =  257                       ' 0x101
  3352. Const COLLECT_PAGE_NOT_FOUND   =  258                       ' 0x102
  3353. ' -- Strings
  3354. ' -- Form names 
  3355. Const CONTRIBUTOR_FORM = "Secondary"
  3356. Const CONTRIBUTOR_FORM_ALIAS = "Bearbeiter"
  3357. Const MASTER_FORM = "Main"
  3358. Const MEMO_FORM = "Memo"
  3359. ' -- View names
  3360. Const CONSOLIDATE_VIEW = "(Intern Konsolidierung)"
  3361. ' -- * * * Strings to be translated * * *
  3362. Const MAIL_SUBJECT = "Ihnen wurde folgendes Arbeitsblatt zugewiesen  --> "                               ' header for the subject of the mail with doc link
  3363. Const DOCLINK_TEXT = "Diese Verkn
  3364. pfung f
  3365. hrt Sie zu dem Ihnen zugewiesenen Arbeitsblatt.   "                        ' user sees this when clicking on doclink
  3366. Const MSG_ERROR = "Fehler: "
  3367. Const MSG_LOTUS_TITLE          =              "Lotus 1-2-3 97"
  3368. Const MSG_SHARING_WORKBOOK = "1-2-3 Arbeitsmappe gemeinsam nutzen."
  3369. Const MSG_REQUEST_COMPLETE =        "1-2-3 hat die Arbeitsbl
  3370. tter verteilt."
  3371. Const MSG_DISTRIB_PASSWORDED =    "Arbeitsbl
  3372. tter einer pa
  3373. wortgesch
  3374. tzten Master-Arbeitsmappe k
  3375. nnen nicht verteilt werden."
  3376. Const MSG_EDIT_PASSWORDED       =    " Dieses verteilte Arbeitsblatt kann nicht bearbeitet werden, weil die Master-Arbeitsmappe durch ein Pa
  3377. wort gesch
  3378. tzt ist."
  3379. Const MSG_DISTRIBUTING_SHEET    = "Verteilen des Arbeitsblatts " 
  3380. Const MSG_FYI  = "Zur Information:  "
  3381. Const MSG_NO_EMAIL =  " konnte jetzt nicht 
  3382. ber E-Mail benachrichtigt werden."
  3383. ' consolidate complete message.  Used in Consolidate/Click
  3384. Const  MSG_CONSOLIDATE =  |Konsolidierung ist abgeschlossen|
  3385. Const MSG_DBLCLICK = |Doppelklicken Sie auf die eingebettete Arbeitsmappe, um die Ergebnisse zu sehen.|
  3386. Const MSG_REPLICATION_CONFLICT = "Konsolidierung kann nicht durchgef
  3387. hrt werden, solange Replizierungskonflikte bei verteilten Dokumenten vorhanden sind."
  3388. Const MSG_CONSOLIDATE_ERROR = "Fehler bei der Konsolidierung. "
  3389. Const MSG_CONSOLIDATING_SHEET = "Konsolidieren der Arbeitsmappe "
  3390. Const MSG_CONSOLIDATE_VIEW_NOT_FOUND = "Konsolidierung kann nicht abgeschlossen werden: Ansicht ""Intern Konsolidierung"" nicht gefunden"
  3391. Const MSG_CONSOLIDATE_IDS_NOT_FOUND = "Konsolidierung kann nicht abgeschlossen werden. Interner Fehler: Note-IDs stimmen in der Ansicht nicht 
  3392. berein."
  3393. Const MSG_CANNOT_OPEN_WRKBOOK = "Die 1-2-3 Arbeitsmappe konnte nicht aktiviert werden. Schlie
  3394. en Sie das Notes Dokument, 
  3395. ffnen Sie es wieder, und versuchen Sie es erneut."
  3396. ' -- * * * End Strings to be translated * * *
  3397. ' --- Data structures
  3398. Public Type Assignment
  3399.      sheetName   As String    ' name of sheet
  3400.      assignedTo  As String     ' names of user(s) 
  3401.      sheetObject As Long  ' handle to 1-2-3 sheet
  3402. End Type 
  3403. Public Type Request
  3404.      sendMail  As Long        ' send email?
  3405.      closedACL As Long      ' acl set to contributor or everyone
  3406.      message   As String       ' message to include in email
  3407.      notifyDistrib As Long      ' notify distributor on completion?
  3408. End Type
  3409. ' -- Global variables
  3410. Dim DB As NotesDatabase
  3411. Dim UIDoc As NotesUIDocument
  3412. Dim hInst As Long
  3413. Dim hWorkBook As Variant
  3414. '++LotusScript Development Environment:2:1:DoRequestAction:4:8
  3415. ' this is a subroutine that implements all the "RequestWorkbook Data" action
  3416. ' but by having it in a subroutine, it can be invoked via the action and by PostOpen
  3417. Function DoRequestAction ()
  3418.      
  3419.      On Error Goto handler
  3420.      
  3421.  '     -- Declarations --          
  3422.      Dim workSpace As New NotesUIWorkspace
  3423.      Dim result As Integer
  3424.      
  3425.      Dim thisDoc As NotesDocument    
  3426.      Set UIDoc = workSpace.CurrentDocument
  3427.      Set thisDoc = UIDoc.Document
  3428.      
  3429.       ' force a save of the document, so the 1-2-3 object get saved before we ask for its list of sheets
  3430.      ' because the user could have activated it before doing the Request and didn't save it yet
  3431.      UIDoc.Save
  3432.      
  3433.      Dim Session As New NotesSession
  3434.      Set DB = Session.CurrentDatabase
  3435.      
  3436.      ' get handle to LotusScript instance
  3437.      hInst = Lsi_info(4)
  3438.      
  3439. ' Get the handle to the Master spreadsheet
  3440.      
  3441.      Set embedObj = GetMasterEmbeddedObject (thisDoc)
  3442.      
  3443.      If Isempty(hWorkBook) Then         
  3444.           Set hWorkBook = UIDoc.GetObject("Master 123 Object")
  3445.           ' activate the Master spreadsheet, hidden
  3446.        '   Set hWorkBook = embedObj.Activate (False)  
  3447.      End If
  3448.      
  3449.  ' make sure we got back a valid handle
  3450.      If Datatype(hWorkBook) <> 9 Then
  3451.           Msgbox MSG_CANNOT_OPEN_WRKBOOK 
  3452.           Goto Done
  3453.      End If
  3454.      
  3455.      
  3456.  ' Ask it for a list of sheets 
  3457.      Dim i As Integer
  3458.      Dim sheetList (256) As String
  3459.      Dim assignmentList(256) As Assignment
  3460.      Dim requestInfo As Request    
  3461.      
  3462.      i = 0
  3463.      Forall sheet In hWorkBook.Sheets 
  3464.           Dim sheetName As String        
  3465.           
  3466.           ' put unhidden sheets in the list
  3467.           If Not sheet.issheethidden Then
  3468.                sheetList(i) = sheet.Name             
  3469.                i = i + 1
  3470.           End If
  3471.           
  3472.      End Forall
  3473.      
  3474.  ' call the UI, which asks the user for the mapping of sheets --> users
  3475.      result = AssignWorksheet (hInst, sheetList, assignmentList, requestInfo.sendMail, requestInfo.closedACL, requestInfo.message, requestInfo.notifyDistrib)
  3476.      
  3477.      ' user cancelled from assign worksheet UI, clear out handle to 1-2-3 workbook. this way if they hit the request button again
  3478.      ' before closing the Notes document, everything will work OK.
  3479.      If result = CANCEL Then
  3480.           hWorkBook = Empty
  3481.           Goto Done
  3482.      Else
  3483.           
  3484.           Forall assigned In assignmentList
  3485.                
  3486.                ' we're done when there are no more sheets
  3487.                If assigned.sheetName = "" Then
  3488.                     Exit Forall
  3489.                     
  3490.                Else
  3491.                     ' distribute each sheet
  3492.                     Call Distribute (hWorkBook, assigned, requestInfo,  DB, thisDoc)
  3493.                     
  3494.                End If
  3495.           End Forall
  3496.           
  3497.           ' inform the user that the request operation is complete
  3498.           Msgbox MSG_REQUEST_COMPLETE, 0 + 64, MSG_LOTUS_TITLE 
  3499.      End If
  3500.      
  3501.      
  3502. JustStatus: 
  3503.      ' change the status of the master document now that it has been distributed
  3504.      ' put the document into edit mode, otherwise we can't update the status
  3505.      If UIDoc.EditMode = False Then
  3506.           UIDoc.EditMode = True
  3507.      End If
  3508.      
  3509.      hWorkBook = Empty
  3510.      thisDoc.Status =  MASTER_DISTRIBUTED
  3511.      thisDoc.Save True, False
  3512.      
  3513.      UIDoc.Reload   
  3514.      UIDoc.RefreshHideFormulas
  3515.      UIDoc.Save
  3516.      
  3517.      ' refresh the view so it gets the new documents and status changes
  3518.      workSpace.ViewRefresh
  3519.      
  3520.      UIDoc.Close
  3521.      Exit Function
  3522.      
  3523. handler:
  3524.      Msgbox MSG_ERROR  & Error$    
  3525.      Goto Done
  3526.      
  3527. Done:
  3528.      
  3529. End Function 
  3530. '++LotusScript Development Environment:2:2:Distribute:1:8
  3531. Sub Distribute (hWorkBook As Variant, assign As Assignment, requestInfo As Request, parentDB As NotesDatabase, thisDoc As NotesDocument)
  3532.      On Error Goto handler
  3533.      
  3534. ' -- Declarations --          
  3535.      
  3536.      Dim newResponse As New NotesDocument (parentDB)
  3537.      Dim convertedArray  As Variant 
  3538.      Dim contributor As NotesItem
  3539.      Dim currAuthor As NotesItem
  3540.      Dim canName As Variant
  3541.      Dim contributorOnly As NotesItem
  3542.      
  3543.       ' notify the user that we are distributing sheet X 
  3544.      Print MSG_DISTRIBUTING_SHEET ;  assign.sheetName
  3545.      
  3546.      newResponse.Form = CONTRIBUTOR_FORM
  3547.      newResponse.WorksheetTitle = assign.sheetName
  3548.      newResponse.WorkbookTitle = thisDoc.Title
  3549.      newResponse.SourceName = thisDoc.SourceName
  3550.      
  3551.      ' convert the list from the ui (comma delimitted) to an array
  3552.      convertedArray = StringConvert (assign.assignedTo,  CONVERT_TO_ARRAY)
  3553.      
  3554.      Set contributor = New NotesItem(newResponse, "Contributor", convertedArray, NAMES)    
  3555.      contributor.IsSummary = True                                    ' so it shows up in a view
  3556.      
  3557.       ' now convert all the name(s) in the contributor field to canonical
  3558.      canName = Evaluate("@Name([Canonicalize];Contributor)", newResponse)
  3559.      newResponse.ReplaceItemValue "Contributor", canName
  3560.      
  3561.      ' first New the current author item to get its AUTHORS flag set, just doing the copy doesn't do it
  3562.      ' assign the contributor(s)
  3563.      Set currAuthor = New NotesItem(newResponse, "CurrentAuthor", canName, AUTHORS)
  3564.      
  3565.      ' then add the distributor as having author acess as well, otherwise they won't even be able to save the document
  3566.      currAuthor.AppendToTextList (thisDoc.Author(0))
  3567.      
  3568.      ' keep track of who created this document
  3569.      Dim distributor As NotesItem
  3570.      Set distributor = New NotesItem(newResponse, "Distributor", thisDoc.Author, NAMES)
  3571.      distributor.IsSummary =True
  3572.      
  3573.      ' should the distributor be notified when the user has completed work on this sheet?
  3574.      newResponse.NotifyDistributor = requestInfo.notifyDistrib 
  3575.      
  3576.      newResponse.WorkSheetStatus  = STATUS_DATA_REQUESTED 
  3577.      
  3578.      ' make a response doc of the current doc
  3579.      newResponse.MakeResponse thisDoc
  3580.      
  3581.       ' by design of the ACL, contributors have Author access to their documents, others can read them only.
  3582.      ' if the distributor wanted a closed ACL, then no one else can read the contributor documents either.
  3583.      newResponse.ForContributorsOnly = requestInfo.closedACL
  3584.      
  3585.      If requestInfo.closedACL = 1 Then
  3586.           ' put contributors names in the readers field, that will define them as who can read the document
  3587.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", newResponse.Contributor, READERS)
  3588.           
  3589.           ' add the distributor so s/he can read the document too
  3590.           contributorOnly.Appendtotextlist thisDoc.Author
  3591.           
  3592.      Else
  3593.           ' not restricted, put a * in the readers field, without this there are disappearing response documents in the view
  3594.           Set contributorOnly = New NotesItem(newResponse, "RestrictedTo", "*", READERS)
  3595.           contributorOnly.IsSummary = True                        
  3596.      End If
  3597.      
  3598.      ' create the contributor embedding from a new 1-2-3 workbook
  3599.      Set RTItem = New NotesRichTextItem( newResponse, "ContributorEmbedding")
  3600.      Dim ContribEmbedObj As NotesEmbeddedObject
  3601.      Dim hContributor As Variant
  3602.      
  3603.      Set ContribEmbedObj = RTItem.EmbedObject( EMBED_OBJECT, "Lotus123.Workbook", "", assign.sheetName)
  3604.      
  3605.      ' save the new response document
  3606.      newResponse.Save True, False
  3607.      
  3608.     ' activate the contributor spreadsheet, hidden
  3609.      Set hContributor = ContribEmbedObj.Activate (False)   'activate hidden
  3610.      
  3611.     ' distribute sheetName into the new contributor embedding
  3612.     ' 1-2-3 will automatically close the document
  3613.      hWorkBook.Distribute assign.sheetName,  hContributor.Name             
  3614.      
  3615.      ' save the new response document
  3616.      newResponse.save True, False
  3617.      
  3618.      ' make the contributor a reader of the Master document, they need at least reader access 
  3619.      'or otherwise we won't be able to make this work
  3620.      Dim docReaders As notesitem
  3621.      If thisDoc.DocReaders(0) = "*" Then
  3622.           thisDoc.DocReaders =  ""                           ' just clear it out so appendtotextlist will work the first time
  3623.      End If
  3624.      
  3625.      Set docReaders  = thisDoc.GetFirstItem("DocReaders")
  3626.      Forall contribNames In Contributor.Values              
  3627.           docReaders.Appendtotextlist( contribNames)
  3628.      End Forall
  3629.      
  3630.      ' save the reader field changes to the master document
  3631.      thisDoc.Save True, False
  3632. %END REM
  3633.      
  3634.  ' send an email to the assignees
  3635.      
  3636.      ' if the user wants email sent, then compose one and mail a doc link to this new response
  3637.      If requestInfo.sendMail = 1 Then Goto SendTheMail Else Goto Done
  3638.      
  3639. SendTheMail:
  3640.      Call SendMailWithDocLink(thisDoc, newResponse, assign, requestInfo)
  3641.      Goto Done
  3642.      
  3643. handler:
  3644.      Msgbox MSG_ERROR & Error$    
  3645.      Resume Next
  3646.      
  3647. Done:   
  3648.      
  3649. End Sub
  3650. '++LotusScript Development Environment:2:2:SendMailWithDocLink:1:8
  3651. Sub SendMailWithDocLink (parentDoc As NotesDocument, linkDoc As NotesDocument, assigned As Assignment, requestInfo As Request)
  3652.      
  3653.      On Error Goto handler
  3654.      
  3655.      Dim newDoc As NotesDocument
  3656.      Dim subjectString As String
  3657.      Dim titleString As String
  3658.      Dim contribItem As NotesItem
  3659.      Dim linkMessage As String
  3660.      
  3661.      Set newDoc = New NotesDocument(linkDoc.ParentDatabase)
  3662.      newDoc.Form = MEMO_FORM 
  3663.      Set BodyItem = New NotesRichTextItem( newDoc, "Body" )
  3664.      
  3665.      subjectString = parentDoc.Title(0)
  3666.      titleString = linkDoc.WorkSheetTitle(0)
  3667.      newDoc.Subject = MAIL_SUBJECT + titleString
  3668.      
  3669.      ' cc: distributor?
  3670.      ' newDoc.CopyTo = parentDoc.Author
  3671.      
  3672.      ' send the mail to all of the contributor(s)
  3673.      Set contribItem = linkDoc.GetFirstItem("Contributor")
  3674.      newDoc.CopyItem contribItem, "SendTo"
  3675.      
  3676.      ' compose the doc link popup
  3677.      linkMessage = subjectString + "." + titleString
  3678.      
  3679.      ' compose the body of the email
  3680.      BodyItem.AppendText requestInfo.message
  3681.      BodyItem.AddNewLine 2
  3682.      BodyItem.AppendText DOCLINK_TEXT 
  3683.      BodyItem.AppendDocLink linkDoc, linkMessage      
  3684.      
  3685.      ' send it out
  3686.      Call newDoc.Send (False)
  3687.      
  3688.      Goto Done
  3689.      
  3690. handler:
  3691.      Msgbox MSG_ERROR  & Error$    
  3692.      'Resume Next
  3693.      Exit Sub
  3694.      
  3695.      
  3696. Done:
  3697.      
  3698. End Sub
  3699. '++LotusScript Development Environment:2:1:StringConvert:1:8
  3700. Public Function StringConvert(Byval InitialString As String, ConvertType As Integer) As Variant
  3701.      
  3702.      Const QUOTE = """"
  3703.      Const SEMICOLON = ";"
  3704.      Const COMMA = ","
  3705.      Const COLON = " : "
  3706.      Const BLANK = " "
  3707.      Const RESIZE_UNIT = 20
  3708.      
  3709.      Dim SingleChar As String, MaxStrLen As Integer, LastCharInString As String
  3710.      
  3711.      If InitialString = "" Then          'if the incoming string is an empty string then
  3712.           StringConvert = InitialString    'return back the empty string
  3713.           Goto Done
  3714.      End If
  3715.      
  3716.      Select Case ConvertType
  3717.      Case CONVERT_TO_TEXTLIST:
  3718.           
  3719.           Dim TheFinalString As String
  3720.           
  3721.           'if string is not empty below statements will perform conversion
  3722.           
  3723.           MaxStrLen = Len(InitialString)          'length of the incoming string 
  3724.           TheFinalString = QUOTE                 'Insert quote to begining of string 
  3725.           
  3726.           For StrIndex = 1 To MaxStrLen
  3727.                
  3728.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  3729.                
  3730.                ' comma or semicolon denote the end of one string
  3731.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  3732.                     
  3733.                     TheFinalString = TheFinalString & QUOTE & COLON & QUOTE   'concatenate quote and colon to string if condition met
  3734.                     LastCharInString = QUOTE 
  3735.                     
  3736.                Else
  3737.                     
  3738.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  3739.                     If SingleChar = BLANK And LastCharInString = QUOTE Then
  3740.                          Goto NextChar
  3741.                     Else
  3742.                          
  3743.                          TheFinalString = TheFinalString & SingleChar    'concatenate one char at a time
  3744.                          LastCharInString = SingleChar
  3745.                     End If    
  3746.                     
  3747.                End If
  3748.                
  3749. NextChar:
  3750.           Next StrIndex
  3751.           
  3752.           If ConvertType = CONVERT_TO_TEXTLIST Then
  3753.                
  3754.                TheFinalString = TheFinalString & QUOTE         'Close the final quote
  3755.           End If        
  3756.           
  3757.           
  3758.           StringConvert  = TheFinalString
  3759.           
  3760.           
  3761.      Case CONVERT_TO_ARRAY:
  3762.           
  3763.           Redim FinalString(RESIZE_UNIT) As String
  3764.           Dim i, currentBounds  As Integer
  3765.           currentBounds = RESIZE_UNIT 
  3766.           i = 0
  3767.           
  3768.           MaxStrLen = Len(InitialString)    'length of the incoming string 
  3769.           
  3770.           For StrIndex = 1 To MaxStrLen
  3771.                
  3772.                SingleChar = Mid$(InitialString, StrIndex, 1)   'extract one character of InitalString at a time
  3773.                
  3774.                     ' comma or semicolon denote the end of one string
  3775.                If (SingleChar = SEMICOLON) Or (SingleChar = COMMA) Then
  3776.                     
  3777.                     i = i + 1                                           ' for array, bump to next element
  3778.                     
  3779.                     ' if we have reached the end of the allocated array, resize by another chunk
  3780.                     If i  > currentBounds Then
  3781.                          currentBounds = currentBounds + RESIZE_UNIT 
  3782.                          Redim Preserve FinalString(currentBounds) As String
  3783.                     End If
  3784.                     LastCharInString = COMMA
  3785.                     
  3786.                Else
  3787.                     
  3788.                     ' skip leading spaces (trailing ones are harder and aren't coded here)
  3789.                     If SingleChar = BLANK And LastCharInString = COMMA Then
  3790.                          Goto ToNextChar
  3791.                     Else
  3792.                          FinalString(i) = FinalString(i) & SingleChar    'concatenate one char at a time
  3793.                          LastCharInString = SingleChar
  3794.                     End If    
  3795.                     
  3796.                End If
  3797.                
  3798. ToNextChar:
  3799.           Next StrIndex                          ' for loop
  3800.           
  3801.           ' trim the array to just what was needed
  3802.           Redim Preserve FinalString(i) As String
  3803.           
  3804.           StringConvert  = FinalString
  3805.           
  3806.      End Select
  3807.      
  3808. Done:
  3809.      
  3810. End Function            'end of StringConvert
  3811. '++LotusScript Development Environment:2:1:ActivateMaster:2:8
  3812. ' activate the master embedded object, hidden; returns a handle to the running object
  3813. Function ActivateMaster(thisUIDoc As NotesUIDocument) As Variant
  3814.      
  3815.      Dim hMaster As Variant
  3816.      
  3817.      Dim thisDoc As NotesDocument
  3818.      Set thisDoc = thisUIDoc.Document
  3819.      
  3820.      
  3821.      Dim embedObject As NotesEmbeddedObject
  3822.      Set embedObject =  GetMasterEmbeddedObject(thisDoc)
  3823.      Set hMaster = embedObject.Activate (False)
  3824.      Set ActivateMaster = hMaster
  3825.      
  3826. End Function
  3827. '++LotusScript Development Environment:2:1:GetMasterEmbeddedObject:2:8
  3828. ' returns the Notes embedded object for the Master embedding
  3829. Function GetMasterEmbeddedObject (thisDoc As NotesDocument) As NotesEmbeddedObject
  3830.      
  3831.      Dim MasterWorkBook As NotesRichTextItem
  3832.      Dim MasterItem As Variant
  3833.      Dim embedObj As NotesEmbeddedObject
  3834.      Dim embedName As NotesItem
  3835.      
  3836.      Set embedName = thisDoc.GetFirstItem("MasterName")
  3837.      Set MasterItem =  thisDoc.GetFirstItem("Master")
  3838.      Set MasterWorkBook = MasterItem
  3839.      
  3840.      Set embedObj = MasterWorkBook.GetEmbeddedObject(embedName.Text)
  3841.      
  3842.      Set GetMasterEmbeddedObject = embedObj
  3843.      
  3844. End Function
  3845. }8##1
  3846. Contributor
  3847.     0S0E
  3848.  Main'++LotusScript Development Environment:2:5:(Options):0:66
  3849. '++LotusScript Development Environment:2:5:(Forward):0:1
  3850. Declare Sub Postopen(Source As Notesuidocument)
  3851. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3852. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3853. Private Sub BindEvents(Byval Objectname_ As String)
  3854.      Static Source As NOTESUIDOCUMENT
  3855.      Set Source = Bind(Objectname_)
  3856.      On Event Postopen From Source Call Postopen
  3857. End Sub
  3858. '++LotusScript Development Environment:2:2:Postopen:1:12
  3859. Sub Postopen(Source As Notesuidocument)
  3860.      
  3861. ' -- Declarations --      
  3862.      Dim newOrExisting As Long
  3863.      Dim result As Long    
  3864.      Dim Session As New NotesSession
  3865.      Dim theTitle As String
  3866.      
  3867.      Set DB = Session.CurrentDatabase
  3868.      Set UIDoc = source
  3869.      Dim Doc As New NotesDocument(DB)
  3870.      Set Doc = Source.Document
  3871.      
  3872.      ' Only do all the create processing when the document is new
  3873.      If Doc.ISNEWNOTE Then
  3874.           
  3875.           ' get handle to LotusScript instance, needed to pass to all UI calls
  3876.           hInst = Lsi_info(4)
  3877.           
  3878.           ' declare a new field to track whether they want to see the if you edit this warning which 
  3879.            ' is put up on subsequent opens ot this document
  3880.           Dim  DontShowWarning As New NotesItem(Doc, "DontShowWarning", 0)
  3881.           
  3882.           Set RTItem = New NotesRichTextItem( Doc, "Master")
  3883.           Dim EmbObj As NotesEmbeddedObject                        
  3884.           
  3885.           Dim workbookName As String
  3886.           Dim masterName As New NotesItem (Doc, "MasterName", "Master 123 Object")
  3887.           
  3888.           ' get the kind of workbook to embed (new or existing)
  3889.           result = BrowseForSpreadSheet (hInst, workbookName, newOrExisting, theTitle)
  3890.           If result = CANCEL Then
  3891.                ' the user is cancelling the creation of the shared workbook:
  3892.                ' close this document and get out. Note:  it was never saved so we don't have to delete it
  3893.                UIDoc.Close
  3894.                Goto Done
  3895.                
  3896.           Else 
  3897.                ' navigate to the field where we will embed the 1-2-3 object
  3898.                UIDoc.GotoField "Master"
  3899.                
  3900.                ' populate the title field
  3901.                Doc.Title = theTitle
  3902.                
  3903.                ' embedding an existing file
  3904.                If newOrExisting = EXISTING_FILE Then  
  3905.                     
  3906.                     ' save off the filename of the workbook we are creating from
  3907.                     Doc.SourceName = workbookName
  3908.                     
  3909.                     ' create the embedding
  3910.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "", workbookName)
  3911.                     
  3912.                     ' for embedding from file, must call GetObject to actually get a handle to the object
  3913.                     Set hWorkBook = UIDoc.GetObject(masterName.Text)
  3914.                     
  3915.                     ' in case of some kind of timeout, keep trying until we get the handle
  3916. tryAgain:
  3917. '                    If Datatype (hWorkBook)  <> 9 Then
  3918.                     ' datatype 13 is IUnknown, datatype 9 is Ole object and nothing
  3919.                     If Datatype (hWorkBook)  = 13 Then
  3920.                          Set hWorkBook = UIDoc.GetObject(masterName.Text)
  3921.                          Goto tryAgain
  3922.                     End If
  3923.                     
  3924.                     ' let the user know what's happening
  3925.                     Print MSG_SHARING_WORKBOOK 
  3926.                     
  3927.                     ' ask 1-2-3 if this document is OK to share
  3928.                     result = hWorkBook.CreateAsShared
  3929.                     
  3930.                     If result <> SUCCESS Then
  3931.                          
  3932.                          ' can't share password-protected workbooks
  3933.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  3934.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  3935.                               ' remove workbook embedding
  3936.                               doc.RemoveItem("Master")
  3937.                               UIDoc.Close 
  3938.                               Exit Sub
  3939.                          End If
  3940.                          
  3941.                     End If      ' if SUCCESS
  3942.                     
  3943.        '             UIDoc.Save
  3944.                     
  3945.                      ' now that the master workbook is embedded, ask the user if they want to distribute now or later
  3946.                     result = ShareDocument(hInst) 
  3947.                     If result = DISTRIBUTE_NOW Then
  3948.                          ' go to it
  3949.                          result = DoRequestAction()
  3950.                     End If
  3951.                     
  3952.                Else
  3953.                     
  3954.                     ' embeddjng  a NEW 1-2-3 object
  3955.                     Set hWorkBook = UIDoc.CreateObject(masterName.Text, "Lotus123.Workbook")
  3956.                     
  3957.                      ' ask 1-2-3 if this document is OK to share 
  3958.                     result = hWorkBook.CreateAsShared
  3959.                     
  3960.                     If result <> SUCCESS Then
  3961.                          If result = Hex(WORKBOOK_PASSWORDED) Then
  3962.                               Messagebox  MSG_DISTRIB_PASSWORDED , MB_OK,  MSG_LOTUS_TITLE
  3963.                               ' remove workbook embedding
  3964.                               doc.RemoveItem("Master")
  3965.                               UIDoc.Close
  3966.                               Exit Sub
  3967.                          End If
  3968.                     End If    ' if SUCCESS
  3969.                     
  3970.         '            doc.Save True, False
  3971.                     
  3972.                End If      ' test for create from new or existing workbook
  3973.                
  3974.           End If      ' user hit OK out of select workbook UI
  3975.           
  3976.           ' get the UI sync'ed up with the backend
  3977.           Doc.Save True, False
  3978.           UIDoc.Reload   
  3979.           
  3980.           ' recompute all fields and save it out
  3981.           UIDoc.Refresh
  3982.           UIDoc.Save
  3983.           
  3984.           hWorkBook = empty
  3985.           
  3986.      End If        ' if this is a new document
  3987.      
  3988. Done:
  3989.      
  3990. End Sub
  3991. -,    #}
  3992. -,    ##
  3993. -,    ##
  3994. -,    #}
  3995. '++LotusScript Development Environment:2:5:(Options):0:66
  3996. '++LotusScript Development Environment:2:5:(Forward):0:1
  3997. Declare Sub Initialize
  3998. Declare Sub Entering(Source As Field)
  3999. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4000. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4001. Private Sub BindEvents(Byval Objectname_ As String)
  4002.      Static Source As FIELD
  4003.      Set Source = Bind(Objectname_)
  4004.      On Event Entering From Source Call Entering
  4005. End Sub
  4006. '++LotusScript Development Environment:2:2:Initialize:1:10
  4007. Sub Initialize
  4008.      
  4009. End Sub
  4010. '++LotusScript Development Environment:2:2:Entering:1:12
  4011. Sub Entering(Source As Field)
  4012.      
  4013.      If UIDoc.EditMode = True Then
  4014.           Dim Doc As New NotesDocument(DB)
  4015.           Set Doc = UIDoc.Document
  4016.           
  4017.           ' warn the user that editting this document is risky after its been distributed
  4018.           If doc.Status(0) = MASTER_DISTRIBUTED Then
  4019.                If doc.DontShowWarning(0) = 0 Then
  4020.                     Dim show As Long
  4021.                     show = doc.DontShowWarning(0)
  4022.                     result = DistributeWarning (hInst, show)
  4023.                     doc.DontShowWarning = show
  4024.                     doc.Save  True, False       ' write it out?
  4025.                End If
  4026.           End If
  4027.      End If
  4028.      
  4029. End Sub
  4030. Section Heading
  4031. TeamKonsolidierung einer 1-2-3 Arbeitsmappe
  4032. FormTitleInfoDisplay
  4033. Author
  4034. SourceNameh
  4035. SourceName
  4036. Neue 1-2-3 Arbeitsmappe
  4037.     0S0E
  4038. SourceName
  4039. Form Banner
  4040. wwwwwwwwwwww
  4041. wwwwwwwwwwww
  4042. wwwwwwwwwwww
  4043. wwwwwwwwwwww
  4044. wwwwwwwwwwwwwwwwwwwwwwwww
  4045. wwwwwxwwwwww
  4046. wwwwwxwwwwww
  4047. wxwwppww
  4048. wxwwppww
  4049. wpppwxww
  4050. wpppwxww
  4051. wwwwwxwwwwww
  4052. wwwwwxwwwwww
  4053. wpppwxww
  4054. wpppww
  4055. wwwwww
  4056. wwwwwxwwwwww
  4057. wwwwww
  4058. UUUUUUUUUUUUUUUUUUUUUUUUUUWw
  4059. UUUUXwxww
  4060. wpppwxww
  4061. UUUWwxwwwwww
  4062. wwwwwxwwwwwww
  4063. """(]UUU
  4064. """"""""""""""""""""""/
  4065. """""/
  4066. *""""/
  4067. Author
  4068. SourceName
  4069.     0S0E
  4070. FormTitleInfoDisplay
  4071. FormTitleDisplay
  4072. Subject
  4073. Title
  4074. Regular Style
  4075. Erstellt von:
  4076. AUTHOR
  4077.     0S0E
  4078. CreateDate
  4079. CreatedTime
  4080. Status:
  4081. Status
  4082.     0S0E
  4083. Status
  4084. Daten noch nicht angefordert | 1Daten angefordert | 2Teilweise konsolidiert | 3Konsolidierung ist abgeschlossen | 4
  4085. Arbeitsmappe
  4086. Regular Style
  4087.            
  4088. Master
  4089. Anmerkungen
  4090. Main_Remarks
  4091. History
  4092. nderungsprotokoll des Arbeitsblatts
  4093. nderungsprotokoll der Arbeitsmappe
  4094.     0S0E
  4095.  History
  4096. Hidden Always
  4097. SessionTimes
  4098. Gets list of editors, including the current editor  from the CurrentEditor field.
  4099. SessionEditors
  4100. Gets list of editors, including the current editor  from the CurrentEditor field.
  4101. Quelldatei der Arbeitsmappe:       
  4102. SourceName
  4103. BookName
  4104. Erstellt von 
  4105. ndert von 
  4106. SessionEditorsj
  4107. SessionEditors
  4108.  am "
  4109. SessionTimesT
  4110. Sonntag
  4111. Montag
  4112. Dienstag
  4113. Mittwoch
  4114. Donnerstag
  4115. Freitag
  4116. Samstag
  4117. SessionTimesO
  4118. Januar
  4119. Februar
  4120. April
  4121. August
  4122. September
  4123. Oktober
  4124. November
  4125. Dezember
  4126. SessionTimesP
  4127. SessionTimesN
  4128.  um "
  4129. SessionTimes
  4130.     20S21R62R95S96S120S121S122S123R130S131S132S133R140S141R142S143SCommentHistory
  4131. * * * ENDE DES DOKUMENTS * * *
  4132. Hidden
  4133. Kategori_sieren
  4134. Dokument bearbeitene
  4135. Senden
  4136. _Weiterleiten
  4137. _Verschieben in Ordner...t
  4138. _Entfernen aus Ordner...
  4139. Arbeitsmappendaten anfordern'++LotusScript Development Environment:2:5:(Options):0:66
  4140. '++LotusScript Development Environment:2:5:(Forward):0:1
  4141. Declare Sub Click(Source As Button)
  4142. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4143. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4144. Private Sub BindEvents(Byval Objectname_ As String)
  4145.      Static Source As BUTTON
  4146.      Set Source = Bind(Objectname_)
  4147.      On Event Click From Source Call Click
  4148. End Sub
  4149. '++LotusScript Development Environment:2:2:Click:1:12
  4150. Sub Click(Source As Button)
  4151.      
  4152.      ' Request data for this master document
  4153.      
  4154.      ' call request action sub to do all the work
  4155.      DoRequestAction
  4156.      
  4157. End Sub
  4158. Status
  4159.     1S2S
  4160. Arbeitsmappendaten erneut anfordern
  4161. '++LotusScript Development Environment:2:5:(Options):0:66
  4162. '++LotusScript Development Environment:2:5:(Forward):0:1
  4163. Declare Sub Click(Source As Button)
  4164. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4165. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4166. Private Sub BindEvents(Byval Objectname_ As String)
  4167.      Static Source As BUTTON
  4168.      Set Source = Bind(Objectname_)
  4169.      On Event Click From Source Call Click
  4170. End Sub
  4171. '++LotusScript Development Environment:2:2:Click:1:12
  4172. Sub Click(Source As Button)
  4173.      
  4174.      ' Re-request data for this master document
  4175.      
  4176.       ' call request action sub to do all the work
  4177.      DoRequestAction
  4178.      
  4179. End Sub
  4180. Status
  4181.     1S2S
  4182. Arbeitsmappendaten konsolidieren'++LotusScript Development Environment:2:5:(Options):0:66
  4183. '++LotusScript Development Environment:2:5:(Forward):0:1
  4184. Declare Sub Click(Source As Button)
  4185. Declare Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  4186. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4187. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4188. Private Sub BindEvents(Byval Objectname_ As String)
  4189.      Static Source As BUTTON
  4190.      Set Source = Bind(Objectname_)
  4191.      On Event Click From Source Call Click
  4192. End Sub
  4193. '++LotusScript Development Environment:2:2:Click:1:12
  4194. Sub Click(Source As Button)
  4195.      
  4196.  ' all logic for whether this button should be available or not is done
  4197.  ' in the formula for when to hide the button
  4198.      
  4199.      On Error Goto handler
  4200.      
  4201.  '     -- Declarations --          
  4202.      Dim workSpace As New NotesUIWorkspace
  4203.      Dim result As Integer
  4204.      
  4205.      Dim thisDoc As NotesDocument    
  4206.      Set UIDoc = workSpace.CurrentDocument
  4207.      Set thisDoc = UIDoc.Document
  4208.      
  4209.      Dim responseDoc As NotesDocument
  4210.      Dim view As NotesView    
  4211.      Dim Session As New NotesSession
  4212.      Dim DB As NotesDatabase
  4213.      Dim thisDocInView As NotesDocument
  4214.      Dim done As Integer
  4215.      Dim deleteThisDoc  As Integer
  4216.      
  4217.      Dim totalResponses As Integer
  4218.      Dim totalInProgress As Integer
  4219.      Dim totalCompleted As Integer
  4220.      Dim totalDontConsolidate As Integer
  4221.      
  4222.      Set DB = Session.CurrentDatabase
  4223.      
  4224.      ' see if this document can be consolidated; the function puts up the error if there is one
  4225.      Set view = PrepareForConsolidate(thisDoc, thisDocInView)
  4226.      If view Is Nothing Then
  4227.           Goto Finished
  4228.      End If 
  4229.      
  4230.      ' ask the user which responses they want to consolidate
  4231.      Dim collectStatusStr As String
  4232.      Dim  deleteResponses As Long
  4233.      Dim collectStatus As Long
  4234.      
  4235.      deleteResponses = False
  4236.      collectStatus = True
  4237.      
  4238.      result = GetConsolidateInfo(LSInstance, collectStatus, deleteResponses)
  4239.      collectStatusStr = Cstr(collectStatus)
  4240.      If result = CANCEL Then
  4241.           Goto Finished
  4242.      End If
  4243.      
  4244.      Dim embedName As NotesItem
  4245.      Set embedName = thisDoc.GetFirstItem("MasterName")
  4246.      
  4247.      ' put the document in edit mode, otherwise no changes could be saved to it
  4248.      If UIDoc.EditMode <> True Then
  4249.           UIDoc.EditMode = True
  4250.      End If
  4251.      
  4252.       ' activate the Master spreadsheet, hidden, using the UI document will give better results
  4253.      ' in case the object has already been activated
  4254.      Set hWorkBook = UIDoc.GetObject(embedName.Text)
  4255.      
  4256.      ' start searching for children 
  4257.      Set responseDoc = view.GetChild(thisDocInView)
  4258.      
  4259.      deleteThisDoc = False
  4260.      
  4261.      ' loop through all the children, consolidating only those that meet the user's criteria 
  4262.      While ( Not (responseDoc Is Nothing) And Not done)
  4263.           
  4264.           If  responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  4265.                If collectStatus = 1 Then
  4266.                     If responseDoc.WorkSheetStatus(0) = STATUS_READY_CONS Then
  4267.                          Goto Collect
  4268.                     Else
  4269.                          Goto GoToNext
  4270.                     End If 
  4271.                Else
  4272.                     ' skip do not consolidates and consolidate completed responses
  4273.                     If responseDoc.WorkSheetStatus(0) = STATUS_DONT_CONS Or responseDoc.WorkSheetStatus(0) = STATUS_CONS_IN_MASTER Then
  4274.                          Goto GoToNext
  4275.                     Else
  4276.                          Goto Collect
  4277.                     End If         
  4278.                     
  4279.                End If      
  4280.                
  4281. Collect:
  4282.                'collect the contributor document into this one
  4283.                Print MSG_CONSOLIDATING_SHEET & responseDoc.WorksheetTitle(0)
  4284.                
  4285.                result = hWorkBook.Collect(responseDoc.WorksheetTitle(0), 1)
  4286.                
  4287.                If result = SUCCESS Then
  4288.                     
  4289.                     ' activate the response document's embedding, this will complete the collect operation for this response
  4290.                     Dim WorkSheet As NotesRichTextItem
  4291.                     Dim hWorkSheet As Variant
  4292.                     Dim Item As Variant
  4293.                     Dim WorkSheetEmbedObj As NotesEmbeddedObject
  4294.                     
  4295.                     Set Item =  responseDoc.GetFirstItem("ContributorEmbedding")
  4296.                     Set WorkSheet = Item
  4297.                     
  4298.                     Set WorkSheetEmbedObj = WorkSheet.GetEmbeddedObject(responseDoc.WorksheetTitle(0))
  4299.                     
  4300.                     ' if an error happened while activating the embedding, we'll get a 4005 back
  4301.                     On Error 4005 Goto CantGetHandle
  4302.                     
  4303.                     ' activate the worksheet, hidden
  4304.                     Set hWorkSheet = WorkSheetEmbedObj.Activate (False)  
  4305.                     
  4306.                     If ErrorOnCollect Then
  4307.                          ErrorOnCollect = False
  4308.                          Goto GoToNext             ' skip the rest for this document, it failed, but we want to keep going
  4309.                     End If
  4310.                     
  4311.                     ' remove author access from contributor(s), make the distributor have author access
  4312.                     responseDoc.ReplaceItemValue "CurrentAuthor", responseDoc.Distributor(0)
  4313.                     
  4314.                     ' remove author access from contributor(s), and then make the distributor have author access
  4315.                     responseDoc.RemoveItem("CurrentAuthor")
  4316.                     Dim currAuthor As NotesItem
  4317.                     Dim distributor As NotesItem 
  4318.                     Set distributor = responseDoc.GetFirstItem("Distributor")
  4319.                     Set currAuthor = responseDoc.CopyItem (distributor, "CurrentAuthor")
  4320.                     
  4321.                     ' leave the contributors with read access to their work
  4322.                     ' if the contributors weren't assigned reader access during distribution, then put them on now
  4323.                     If responseDoc.ForContributorsOnly(0)  <> 1 Then
  4324.                          Dim restrictedTo As NotesItem
  4325.                          Set restrictedTo  = responseDoc.GetFirstItem("RestrictedTo")
  4326.                          Dim contributor As NotesItem
  4327.                          Set contributor = responseDoc.GetFirstItem("Contributor")
  4328.                          Forall contribNames In contributor.Values
  4329.                               restrictedTo.Appendtotextlist( contribNames)
  4330.                          End Forall
  4331.                     End If
  4332.                     
  4333.                     responseDoc.WorkSheetStatus = STATUS_CONS_IN_MASTER 
  4334.                     responseDoc.Save True, False
  4335.                     
  4336.                     ' delete response if user requested it (do a delayed delete, otherwise we couldn't use 'responseDoc' anymore
  4337.                     If deleteResponses = 1 Then
  4338.                          deleteThisDoc = True
  4339.                     End If
  4340.                     
  4341.                Else                         
  4342.                     Print MSG_CONSOLIDATE_ERROR  + responseDoc.WorkSheetTitle(0)
  4343.                End If        ' error on collect
  4344.                
  4345.           End If     ' the correct form
  4346.           
  4347. GoToNext:
  4348.           
  4349.           ' count the number of response documents, used for setting status below
  4350.           totalResponses = totalResponses + 1
  4351.           
  4352.           Select Case responseDoc.WorkSheetStatus(0)
  4353.                
  4354.           Case STATUS_CONS_IN_MASTER:
  4355.                totalCompleted = totalCompleted + 1
  4356.                
  4357.           Case STATUS_IN_PROGRESS:
  4358.                totalInProgress = totalInProgress + 1
  4359.                
  4360.           Case STATUS_DONT_CONS:
  4361.                totalDontConsolidate = totalDontConsolidate + 1
  4362.                
  4363.           End Select
  4364.           
  4365.           ' go on to the next response; save the previous one in case it needs to be deleted
  4366.           Dim prevResponse As NotesDocument
  4367.           Set prevResponse = responseDoc
  4368.           Set responseDoc = view.GetNextSibling(responseDoc)
  4369.           
  4370.           If deleteThisDoc = True Then
  4371.                Call prevResponse.Remove (True)                 
  4372.                deleteThisDoc = False
  4373.           End If
  4374.           
  4375.      Wend     ' while more response documents
  4376.      
  4377.      ' now that we are done witht the collect, let 1-2-3 know it
  4378.      hWorkBook.CollectComplete
  4379.      
  4380.      ' change the status for the master document, as long as we processed at least one response
  4381.      ' otherwise, just leave the status what it was when we came in
  4382.      If totalResponses Then
  4383.           If totalCompleted = totalResponses Then
  4384.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  4385.           Elseif totalInProgress Then
  4386.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  4387. '          Elseif totalDontConsolidate Then              
  4388.           Elseif totalDontConsolidate And  ((totalDontConsolidate + totalCompleted) = totalResponses) Then
  4389.  '              thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  4390.                thisDoc.Status = CONSOLIDATION_COMPLETE         
  4391.           Else
  4392.                thisDoc.Status =  PARTIALLY_CONSOLIDATED         
  4393.           End If
  4394.      End If
  4395.      
  4396.      thisDoc.Save True, False
  4397.      UIDoc.RefreshHideFormulas
  4398.      UIDoc.Save
  4399.      workSpace.ViewRefresh
  4400.      
  4401.       ' inform the user that the consolidation is complete, and tell them to double click on the embedding to see the results
  4402.      ' this is due to a limitation of the Notes script classes which will not update the rendering of the embedding
  4403.      Dim str1 As String
  4404.      Dim str2 As String
  4405.      
  4406.      str1 = MSG_CONSOLIDATE
  4407.      str2 = MSG_DBLCLICK
  4408.      
  4409.      Msgbox str1 & Chr(13) & Chr(13) & str2, 0 + 64,  MSG_LOTUS_TITLE
  4410.      
  4411.      hWorkBook = empty
  4412.      Goto Finished
  4413.      
  4414. CantGetHandle:
  4415.      ' error happened when activating the response embedding to collect it
  4416.      ErrorOnCollect = True
  4417.      Print MSG_CONSOLIDATE_ERROR  & responseDoc.WorksheetTitle(0)
  4418.      hWorkSheet = empty
  4419.      Resume Next
  4420.      
  4421. handler:
  4422.      Msgbox MSG_ERROR & Error$    
  4423.      Goto Finished
  4424.      
  4425. Finished:
  4426.      
  4427. End Sub
  4428. '++LotusScript Development Environment:2:1:PrepareForConsolidate:4:8
  4429. ' prepare this document for consolidate, including making sure there are no replication conflicts
  4430. ' if there are then we will disallow the consolidate
  4431. Function PrepareForConsolidate (thisDoc As NotesDocument, thisDocInView As NotesDocument) As NotesView
  4432.      
  4433.      Dim view As NotesView
  4434.      Dim responseDoc As NotesDocument
  4435.      
  4436.      ' get the view for conslidating; it must exist
  4437.      Set view = DB.GetView(CONSOLIDATE_VIEW ) 
  4438.      If view Is Nothing Then
  4439.           Messagebox MSG_CONSOLIDATE_VIEW_NOT_FOUND 
  4440.           Goto ErrorDone
  4441.      End If
  4442.      
  4443.      ' search for the document in the view that matches this one; set up the key for searching 
  4444.      ' Note: the order of the keys corresponds to the columns in the view
  4445.      Dim theId As String
  4446.      theId = thisDoc.UniversalID
  4447.      
  4448.      Set thisDocInView = view.GetDocumentByKey(theId)
  4449.      
  4450.      ' make sure the document found _is_ the right one
  4451.      If Strcompare(thisDocInView.UniversalID, thisDoc.UniversalID) <> 0 Then
  4452.           Messagebox MSG_CONSOLIDATE_IDS_NOT_FOUND 
  4453.           Goto ErrorDone
  4454.      Else 
  4455.           
  4456.           ' consolidate is only legal if there are no replication conflicts in any of the children
  4457.           Set responseDoc = view.GetChild(thisDocInView)
  4458.           
  4459.           While ( Not (responseDoc Is Nothing) And Not done)
  4460.                
  4461.                If responseDoc.Form(0) = CONTRIBUTOR_FORM Then
  4462.                     
  4463.                    ' make sure there are no replication conflicts below this one
  4464.                     Dim replicationDoc As NotesDocument
  4465.                     Set replicationDoc = view.GetChild (responseDoc)
  4466.                     
  4467.                     If Not (replicationDoc Is Nothing)  Then
  4468.                          
  4469.                          If replicationDoc.HasItem("$Conflict") Then
  4470.                               
  4471.                               If replicationDoc.Form(0) = CONTRIBUTOR_FORM Then
  4472.                                    Messagebox MSG_REPLICATION_CONFLICT
  4473.                                    Set view = Nothing
  4474.                                    Goto Done
  4475.                               End If 
  4476.                               
  4477.                          End If  ' has conflict
  4478.                          
  4479.                     End If  ' replication doc
  4480.                Else
  4481.                     
  4482.                     If responseDoc.Form(0) = MASTER_FORM  And responseDoc.HasItem("$Conflict") Then
  4483.                          Messagebox MSG_REPLICATION_CONFLICT
  4484.                          Set view = Nothing
  4485.                          Goto Done 
  4486.                     End If
  4487.                End If   ' contributor doc   
  4488.                
  4489.                ' go on to the next response
  4490.                Set responseDoc = view.GetNextSibling(responseDoc)
  4491.                
  4492.           Wend
  4493.           
  4494.      End If
  4495.      
  4496. Done:
  4497.      ' reset the view back to the document we are consolidating into
  4498.      Set view = DB.GetView(CONSOLIDATE_VIEW) 
  4499.      Set thisDocInView = view.GetDocumentByKey(theId)
  4500.      
  4501. ErrorDone:     
  4502.      Set PrepareForConsolidate = view
  4503.      
  4504. End Function
  4505. Status
  4506. NoCache
  4507. ConsolidateButton
  4508. Bereit zur Konsolidierung
  4509. In Bearbeitung
  4510.     0S0E
  4511. 1-2-3 Arbeitsmappe l
  4512. sen...
  4513. '++LotusScript Development Environment:2:5:(Options):0:66
  4514. '++LotusScript Development Environment:2:5:(Forward):0:1
  4515. Declare Sub Click(Source As Button)
  4516. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4517. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4518. Private Sub BindEvents(Byval Objectname_ As String)
  4519.      Static Source As BUTTON
  4520.      Set Source = Bind(Objectname_)
  4521.      On Event Click From Source Call Click
  4522. End Sub
  4523. '++LotusScript Development Environment:2:2:Click:1:12
  4524. Sub Click(Source As Button)
  4525.      
  4526.      Dim workSpace As New NotesUIWorkspace
  4527.      Dim hWorkBook As Variant
  4528.      Dim result As Integer
  4529.      Dim embedObject As NotesEmbeddedObject
  4530.      Dim item As Variant
  4531.      Dim MasterWorkBookItem As NotesRichTextItem
  4532.      Dim embedName As NotesItem
  4533.      Dim thisDoc As NotesDocument    
  4534.      
  4535.      Set UIDoc = workSpace.CurrentDocument
  4536.      Set thisDoc = UIDoc.Document
  4537.      
  4538.      ' force a save of the document, so the 1-2-3 object get saved before we try to save it 
  4539.      UIDoc.Save
  4540.      
  4541.      ' get a handle to the embedding
  4542.      Set hWorkBook = UIDoc.GetObject ("Master 123 Object")
  4543.      
  4544.      ' save it out to a file (puts up File SaveAs dialog)
  4545.      result = hWorkBook.SaveToFile()
  4546.      
  4547.      
  4548.      ' old code
  4549.      ' get to the 1-2-3 workbook
  4550. '     Set embedName = thisDoc.GetFirstItem("MasterName")
  4551. '    Set item =  thisDoc.GetFirstItem("Master")
  4552. '     Set MasterWorkBookItem = item
  4553. '     Set embedObject = MasterWorkBookItem.GetEmbeddedObject(embedName.Text)
  4554.      
  4555.      ' activate the 1-2-3 workbook
  4556. '     Set hWorkBook = embedObject.Activate (False)
  4557. '     Set  hWorkBook = Nothing
  4558.      
  4559.      
  4560. End Sub
  4561. Status
  4562.     1S2S2E
  4563. P    P    $
  4564. O=Lotus Notes
  4565. O=Lotus Notes
  4566. PURSAFO
  4567. |.:#U
  4568. O=Lotus Notes
  4569. CN=Lotus Notes Template Development/O=Lotus Notes
  4570. PURSAFO
  4571. Fde!f^^
  4572. ru@Al
  4573. $SCRIPTOBJ_10
  4574. $Title
  4575. $Info
  4576. $WindowTitle
  4577. $Script
  4578. $$Script_O
  4579. $$ScriptName
  4580. $$FormScript
  4581. $$$FormScript_O
  4582. $$Master
  4583. $Master_O
  4584. $Body
  4585. $ACTIONS
  4586. $SCRIPTOBJ_6
  4587. $SCRIPTOBJ_7
  4588. $SCRIPTOBJ_8
  4589. $SCRIPTOBJ_9
  4590. tmpDate
  4591.     4S5S6S8S
  4592. ReplyDate
  4593. ReplyTo
  4594.     1S2S3S4S5S6S
  4595. Avril Jordan-Basic
  4596.