Computerworld 2000 May

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

/ Computerworld 2000 May / Computerworld_2000-05_cd.bin / LOTUS / Files / 3_mobis / ORGANIZ.NSF (.txt) < prev

Wrap

Lotus Notes Database | 2000-05-04 | 868KB | 9,165 lines

Organiza struktura #24DOC 5.0 Organiza struktura O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment &Arial CE $profile_007(setup)_ &Arial CE &Arial CE < < ( 7pFg> bf%A0 fZ|j= y+Y[yj= j;2a=1 &Arial CE &Arial CE CN=Ladislav Oliva/O=ARSYSTEM/C=CZCN=Ladislav Oliva/O=ARSYSTEM/C=CZ :,9cQ tTjt3 ]SuXX ;I[J3 &Arial CE &Arial CE &Arial CE &Arial CE 02.05.2000 10:39:11 Ludek Slouf/ARSYSTEM/CZ - aktualizace -Default- 02.05.2000 10:39:02 Ludek Slouf/ARSYSTEM/CZ - odstran BUBO/ARSYSTEM/CZ 02.05.2000 10:39:01 Ludek Slouf/ARSYSTEM/CZ - odstran Ludek Slouf/ARSYSTEM/CZ 02.05.2000 10:38:59 Ludek Slouf/ARSYSTEM/CZ - aktualizace -Default- 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - p BUBO/ARSYSTEM/CZ 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - p Ludek Slouf/ARSYSTEM/CZ 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [Archive] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [PersonalEditor] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [LoginEditor] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [PhoneEditor] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [BasicEditor] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [AccessEditor] 02.05.2000 10:37:06 Ludek Slouf/ARSYSTEM/CZ - aktualizace role [Setup] Setup AccessEditor BasicEditor PhoneEditor LoginEditor PersonalEditor Archive -Default- CN=Ludek Slouf/O=ARSYSTEM/C=CZ ################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### :,9cQ CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### 7pFg> CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZ####################################################### tTjt3 va syst mu\Smazat profil CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3 ######### bf%A0 CN=Ludek Slouf/O=ARSYSTEM/C=CZOSPrivates34Q1###### Nastaven modulu|Setup CN=Adrian Weissgarber/O=ARSYSTEM/C=CZf3 ########################################################## va syst mu\Aktualizace loga CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3 ###### CN=Ludek Slouf/O=ARSYSTEM/C=CZ################################################# CN=Adrian Weissgarber/O=ARSYSTEM/C=CZStringHandlings34Q1########################################################## CN=Ludek Slouf/O=ARSYSTEM/C=CZ################################################# ]SuXX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=WEISSGARBER/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZProfilesHandlings34Q1############################ CN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ############### CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ########## CN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ############### CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZAdrian WeissgarberCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZErrorHandlings34Q1############################ CreateGroup ECN=BUBO/O=ARSYSTEM/C=CZ5 CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3S ########################################################## CN=Ludek Slouf/O=ARSYSTEM/C=CZ################################################# CN=Ludek Slouf/O=ARSYSTEM/C=CZ(CopyFce)003 ################################ va syst mu\Vytvo skupin v AB CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3 CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZLicenceHandlings34Q1#################################################### CN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ############### CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZDatabase Scriptt34Q1######################## CN=Ladislav Oliva/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZR############################################## CN=WORM/O=ARSYSTEM/C=CZCN=Slavomir Belko/O=ARSYSTEM/C=CZCN=WORM/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=WORM/O=ARSYSTEM/C=CZCN=Slavomir Belko/O=ARSYSTEM/C=CZCN=WORM/O=ARSYSTEM/C=CZCN=Slavomir Belko/O=ARSYSTEM/C=CZCN=WORM/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Dana Bittnerova/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZc:\lotus\notes\data\organiz.ntf UUUUU UUUUU UUUUU FolderscscsRnt######################################################## kolen |skoleni CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ, NazSkoleni NazSkoleni 0S0E prijmeni jmeno 0S0E DatSkoleni DatSkoleni NazSkoleni$4$6DatSkoleniDatPlatnosti$Conflict kolen L1S5S1M NazSkoleni$4$6DatSkoleniDatPlatnosti DatSkoleni DatSkoleni DatPlatnosti DatPlatnosti NazSkoleni kolen NazSkoleni NazSkoleni $4Ev. 0S0E a jm prijmeni jmeno 0S0E DatSkoleniDatum kolen DatSkoleni DatSkoleni DatPlatnostiplatnost do& 538Arial CEY###################### #2. Zam stnanci\Dle ev. sla|regid/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ* 0S0E prijmeni jmeno 0S0E fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R $4$6$7$Conflict stnanec Archiv L1S5S6S7S9S1 $4Ev. 0S0E a jm prijmeni jmeno 0S0E $7FunkceB fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R& 538Arial CEY############################## (Tfce)|tfce/O fce_n jmeno (nezad prijmeni jmeno 1S2S10S12S17S jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S jmeno (nezad prijmeni jmeno fce_n 6S8S13S typ_fce$14$8$15$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S16S2E17S19S1 typ_fce$8 typ_fceTyp funkce$14 fce_n jmeno (nezad prijmeni jmeno 1S2S10S12S17S$8P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S jmeno (nezad prijmeni jmeno fce_n 6S8S13S& CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ################################# 2. Zam stnanci|Zam stnanci CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ: 0S0E prijmeni jmeno 0S0E fce_0 fce_1 fce_2 fce_3 fce_4 0S0E $4$6$8$Conflict stnanec Archiv L1S5S6S7S9S1 $4Ev. 0S0E a jm prijmeni jmeno 0S0E $8FunkceR fce_0 fce_1 fce_2 fce_3 fce_4 0S0E 538Arial CEY ########################################################## (Zam)|zam/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ prijmeni jmeno fce_n 5S6S8S fce_n jmeno (nezad prijmeni jmeno 1S2S12S14S20S2E nr_fce" 0S0E $11$12$13$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S16S17S19S20S a jm prijmeni jmeno fce_n 5S6S8S $12Funkce fce_n jmeno (nezad prijmeni jmeno 1S2S12S14S20S2E$13, nr_fce" 0S0E 538Arial CEY############################## +1. Funkce|funkce/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ jmeno 0S0E prijmeni jmeno 1S2S3S4S LNmail 0S0E fce$7fce_nfce_zfceFCnadrizeny$4$8$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S fcefce_nFCnadrizeny fce_n fce_n fce_z fce_z jmeno 0S0E fce_nFunkcefce_zfce FCnadrizenyNad $4Obsazen prijmeni jmeno 1S2S3S4S LNmail 0S0E 538Arial CEY######### (Funkce)|fce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno 6S8S nr_fce nr_fce fcefce_n$12nr_fce$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S fcefce_n fce_n fce_n fcefce_nFunkce$12P a jm jmeno (nezad prijmeni jmeno 6S8S nr_fce nr_fce nr_fce 538Arial CEY################# 3. Arch CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ@ Funkce fce_n stnanec prijmeni jmeno 3S4S6S9S10S13S14S15S16S Form$53oddo$52$Conflict Archiv L1S3S4S1 FormFormul Funkce fce_n stnanec prijmeni jmeno 3S4S6S9S10S13S14S15S16SodPlatn $52dne 538Arial CEY######################################### Seznam zam stnanc podle jm na|ByName/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S nr_fce" 0S0E $8fce_ntyp_fceTelnspracoviste$6$11$13$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S $8fce_ntyp_fce 538Arial CEY######################### (Telefonn seznam)|telsez1 CN=Ladislav Oliva/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S tel_uto 0S0E tel_1 0S0E LNmail 0S0E $53$46$45kancel$50email$Conflict stnanec Archiv L1S5S6S7S9S1 a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S $46Tel.. tel_uto 0S0E tel_1 0S0E kancelKancel $50LN mail0 LNmail 0S0E emailemail& Y###################################################### "2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm CN=Dana Bittnerova/O=ARSYSTEM/C=CZT prijmeni jmeno 0S0E titul titul2^ titul2" 1S2S14S15S16S fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R $47$48evc$49$Conflict stnanec Archiv L1S6S7S9S1 a jm prijmeni jmeno 0S0E $48Titulf titul titul2^ titul2" 1S2S14S15S16Sevc$49FunkceD fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R& 538Arial CEY######### ;I[J3 2. Zam stnanci\Podle LN jm na|LNmail CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ$ LNMail 0S0E prijmeni jmeno 0S0E fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R $49$50evcTel$51$Conflict stnanec Archiv L1S6S2E7S9S1 $49$50 $49LN jm LNMail 0S0E a jm prijmeni jmeno 0S0E evcevcTelTelefon$51FunkceD fce_4 fce_3 fce_2 fce_1 fce_0 fce_0 fce_1 fce_0 fce_1 fce_2 fce_0 fce_1 fce_2 fce_3 fce_0 fce_1 fce_2 fce_4 6R12R18R31R38R47R& 538Arial CEY############################################### 1. Funkce\Podle typu funkce|Podle typu funkce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZB jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S typ_fcefce_n$8Telpracoviste$6$11$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S typ_fcefce_n$8 538Arial CEY ########################################################## (FceToName)|FceToName | Nr_FceToName/O nr_fce" 1S2S prijmeni jmeno fce_n 5S6S8S LNmail LNmail LNmail 8S9S LNmail 0S0E prijmeni jmeno 1S2S3S4S $11$12$8$9evc$10$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S $11$8$9evc$10 538Arial CEY CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ######################## $1. Funkce\Hierarchick struktura|Hierarchie/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ fce_n 1S2S8S9S nr_fce$35fce_n$Conflict$REF Funkce (Funkce) Archiv L1S5S6S10S11S13S nr_fce$35fce_n nr_fce$35D fce_n 1S2S8S9S fce_nJm no (funkce)& 538Arial CEd###################################### "1. Funkce\Podle sla funkce/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41S fcefce_n$9nr_nad_fceFCnadrizeny$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S fcefce_nFCnadrizeny fce_n fce_n FCnadrizeny FCnadrizeny fceFunkce fce_n$9P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41Snr_nad_fceFCnadrizenyNad 538Arial CEYa ########################################################## kolen \Dle zam stnanc CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ, 0S0E prijmeni jmeno 0S0E NazSkoleni NazSkoleni DatSkoleni DatSkoleni $4$6NazSkoleniDatSkoleniDatPlatnosti$Conflict kolen L1S5S1M $4$6NazSkoleniDatSkoleniDatPlatnosti NazSkoleni NazSkoleni DatSkoleni DatSkoleni DatPlatnosti DatPlatnosti $4Ev. 0S0E a jm prijmeni jmeno 0S0E NazSkoleni kolen NazSkoleni NazSkoleni DatSkoleniDatum kolen DatSkoleni DatSkoleni DatPlatnostiplatnost do:& 538Arial CEY############# (OSjmena)|(OSjmena)|osnames/O CN=Ladislav Oliva/O=ARSYSTEM/C=CZ prijmeni jmeno fce_z 1S2S3S4S5S6S7S8S LNnadrizeni 0S0E prijmeni jmeno titul titul 1S2S3S4S5S6S12S14S15S16S titul titul prijmeni" jmeno 6S8S9S10S12S13S14S15S16S17S titul titul jmeno prijmeni" 6S8S9S10S12S13S14S15S16S17S prijmeni (069) 6204" 1S2S3S4S5S6S jmeno prijmeni" 1S2S3S4S LNmail prijmeni jmeno fce_n 5S6S8S $72$74$48$49$50$77$63$44$73$Conflict Funkce (Funkce) Archiv L1S4S5S7S2E8S10S11S14S15S17S $72Y#################################### Seznam zam stnanc podle funkce|ByFunction/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S nr_fce" 0S0E nstyp_fcefce_n$8Telpracoviste$6$11$13$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S nstyp_fcefce_n$8 fce_nns 538Arial CEY ########################################################## [Developer]Admins[Setup]($All)|$All CN=Adrian Weissgarber/O=ARSYSTEM/C=CZz ModifiedDate 0S0E FormCreatedDate$6draft$Conflict$REF FormCreatedDate$6 CreatedDate CreatedDate FormFormCreatedDateCreated$6Modified6 ModifiedDate 0S0E draftDraft& 538Arial CEY####################### (nrfce)|nrfce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ nr_fce nr_fce jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41S nr_fcefce_n$9nr_nad_fceFCnadrizeny$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S nr_fcefce_nFCnadrizeny fce_n fce_n FCnadrizeny FCnadrizeny nr_fceFunkce nr_fce nr_fce fce_n$9P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41Snr_nad_fceFCnadrizenyNad 538Arial CEY######################################## 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie/O CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ& fce_n fce_z jmeno (neobsazeno) prijmeni jmeno titul titul titul2 titul 1S2S8S9S10S17S18S19S25S27S32S33S41S42S48S51S2E60S fce_n fce_z jmeno (neobsazeno) prijmeni jmeno titul titul titul2 titul 1S7S8S16S18S23S24S32S33S39S42S2E51S nr_fce$54$44$Conflict$REF Funkce (Funkce) Archiv L1S5S6S10S11S13S nr_fce$54$44 538Arial CE######### (Telefonn seznam pro WWW)|webtel1 CN=Ladislav Oliva/O=ARSYSTEM/C=CZ funkce editel funkce funkce Vedouc projektu 0S0E jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41S tel_uto 0S0E tel_1 0S0E [<A HREF="mailto: email email </A>] 1S2S3S4S $76$97funkce$50$49kancel$48$Conflict stnanec Archiv L1S5S6S7S9S1 $76$97 (blank) Y########################################### (Employee)|employee CN=Ludek Slouf/O=ARSYSTEM/C=CZ titul titul2^ titul2" 1S2S14S15S16S prijmenijmenoevc$48Teldatnar$Conflict stnanec Archiv L1S6S2E7S9S1. prijmenijmenodatnar prijmeni jmeno prijmeniP jmenoa jm noevcEv .$48Titulf titul titul2^ titul2" 1S2S14S15S16STeldatnarDat. naroz.& 538Arial CEY########################################## (nadrizeni) CN=Ludek Slouf/O=ARSYSTEM/C=CZ( add_ukoly LNnadrizeny LNpris_ukoly 0S0E LNmail LNmail LNmail LNmail LNmail LNmail 13S14S23R49S LNmail 0S0E $2$5$3$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S16S2E17S19S1! $2$5$3 add_ukoly LNnadrizeny LNpris_ukoly 0S0E LNmail LNmail LNmail LNmail LNmail LNmail 13S14S23R49S LNmail 0S0E ########################################################## (Regnumber)|regnumber/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ 0S0E $7jmenoprijmenititultitul2LNmail$Conflict stnanec Archiv L1S5S6S7S9S1 $7Ev. 0S0E jmenojm noprijmenip titultitultitul2titul2LNmailLNmail& Y############################################# (Evcfce)|evcfce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ evcfce_nFCnadrizenyLNmail$Conflict (Funkce) Funkce Archiv L1S4S5S7S8S10S11S14S15S17S evcfce_nFCnadrizeny evcfce_nFunkceFCnadrizenyNad LNmailObsazen Y######################################################## 7(LNjmena)|LNjmena/O CN=Ludek Slouf/O=ARSYSTEM/C=CZx LNmail LNnadrizeni LNnadrizeny 0S0E prijmeni jmeno titul titul 1S2S3S4S5S6S12S14S15S16S titul titul prijmeni" jmeno 6S8S12S13S15S16S17S18S19S20S titul titul jmeno prijmeni" 6S8S12S13S15S16S17S18S19S20S prijmeni (069) 6204 1S2S3S2E4S5S6S jmeno prijmeni" 1S2S3S4S prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S $44$47$48$49$73$72$63$67$Conflict Funkce Archiv L1S5S6S7S9S1 $44Y############### (numberfce)|numberfce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ nr_fce" 0S0E jmeno (nezad prijmeni jmeno 6S8S jmeno (nezad prijmeni jmeno fce_z 6S8S $11fce_n$12nr_nad_fceFCnadrizenyLNmail$16$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S $11fce_nFCnadrizeny fce_n fce_n FCnadrizeny FCnadrizeny $11Funkce, nr_fce" 0S0E fce_n$12P a jm jmeno (nezad prijmeni jmeno 6S8S nr_nad_fceFCnadrizenyNad LNmailUserName$16~ jmeno (nezad prijmeni jmeno fce_z 6S8S 538Arial CEY ########################################################## 2. Zam stnanci\Podle st edisek|Podle st edisek CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41S LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S ns$5fce_nTel$6$8$Conflict stnanec Archiv L1S5S6S7S9S1$ ns$5fce_nY ########################################################## (NameToFce)|NameToFce/O CN=Ludek Slouf/O=ARSYSTEM/C=CZ LNmail 0S0E nr_fce" 0S0E LNmail 0S0E prijmeni jmeno 1S2S3S4S jmeno (nezad prijmeni jmeno fce_n 6S8S13S15S16S17S jmeno (nezad prijmeni jmeno fce_z 6S8S13S15S16S17S $13$16$9evc$10$18$19$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S $13$16$9evc$10 538Arial CEY##### edisko)|stredisko CN=Ludek Slouf/O=ARSYSTEM/C=CZx ns$Conflict stnanec Archiv L1S5S6S7S9S1 edisko Y######################################################### (Osoby s LN p stupem)|(LNP) CN=Ladislav Oliva/O=ARSYSTEM/C=CZ jmena LNnadrizeny LNnadrizeni 0S0E LNpris_diar LNpris_diar add_diart jmena jmena LNpris_ukoly koly\ LNpris_ukoly add_ukoly jmena koly\ jmena 0R19S20S28S29S39S40S57S58S66S67S LNmail LNmail LNmail LNmail LNmail LNmail 13S14S23R49S LNmail 0S0E $92$94$84$Conflict Funkce (Funkce) Archiv L1S5S6S10S11S13S $92$94$84Y###################################################### (RegistrationDlgBox)LicenceID CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ###################################################### (Setup)ProfileAdmins CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (DatabaseMapping)(LicenceStatus)(SystemInformation)CD ModifiedDateModifiedByOrderNumCreatedDateCreatedByModifiedNoteIDLogologinfilenametitle2listtitlelistSelectUserDemoLicenceLicenceIDReadyPathServer ########################################################## (LicenceStatus)CUA3 DemoLicenceLicenceIDReady CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ############# fZ|j= (PhoneHelper) CN=Ludek Slouf/O=ARSYSTEM/C=CZCD mobiltel##################### y+Y[yj= (DatabaseMappingDlgBox)CD PathServer CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ######################################## (OSFunkce) CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCUA3x LNmailnstitul2prijmenijmenotitulevc######################################################### (SystemInformation) CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ModifiedDateModifiedByOrderNumCreatedDateCreatedByModifiedNoteIDCUAx3################################################### (NamesFunkce) CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCUA3x nsLNmailtitul2prijmenijmenotitulevc ########################################################## CN=Ludek Slouf/O=ARSYSTEM/C=CZR########################### O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO ccjHB $ACLDigest '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NOtesDocument Set db = session.CurrentDatabase Set doc = db.GetProfileDocument("Profile") Call doc.Remove(True) End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex '++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Hierarchie(currdoc As NotesDocument) Declare Function VerifyHierarch(currdoc As NotesDocument, key As String) As Variant Declare Sub MakeParentDoc(currdoc As NotesDocument) Declare Sub UpdateGroups(group As String, LNname As String, ListDescription As String) '++LotusScript Development Environment:2:5:(Declarations):0:10 '++LotusScript Development Environment:2:2:Hierarchie:17:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: Hierarchie ' Typ modulu: Procedura ' Autor: Lud ' Datum vytvo : 16.08.1998 ' Popis funkce: Za dokument do hirerarchie funkc ' Vstupy: Dokument funkce, kter je pot eba za adit na spr sto v hierarchii stupy: ' Upravil: ' Datum pravy: ' Popis pravy: 'Popis innosti: Pro svou innost podprogram vy aduje pohled "nrfce" (pohled na dokumenty funkc ch dle kl ' Z dokumentu funkce te pole "nr_nad_fce". Pokud toto pole neobsahuje dnou hodnotu, ' pak je dokument ponech n beze zm '------------------------------------------------------------------------------------------------------------------------------------------------------- Sub Hierarchie(currdoc As NotesDocument) Dim session As New NotesSession Dim db As NotesDatabase Dim parentdoc As NotesDocument Dim dateTime As NotesDateTime Dim key As Variant Dim fcview As NotesView Set db = session.CurrentDatabase Set dateTime = New NotesDateTime( "Today" ) Set fcview = db.GetView("nrfce") Call dateTime.SetNow currdoc.Status = "Hierarchie nastavena v " & dateTime.LocalTime '**************** Vyhledej po adovan dokument key = currdoc.nr_nad_fce 'Kl pro vyhled ho dokumentu If key(0) = "" Then Exit Sub 'Neexistuje-li kl , pak ukon i podprogram Set parentdoc = fcview.GetDocumentByKey(key) 'Vyhledej nad dokument '**************** '**************** Nen -li nalezen nad dokument, nastav status dokumentu a ukon podprogram If parentdoc Is Nothing Then currdoc.Status = "Dokument nebyl za azen do hierarchie. Nebyl nalezen po adovan . Datum: " & dateTime.LocalTime Call currdoc.Save( True, True ) Exit Sub End If '**************** If currdoc.nr_fce(0) = key(0) Then Call MakeParentDoc(currdoc) Exit Sub End If '**************** Zkontroluj, zda po adovan podr If VerifyHierarch(currdoc, key(0)) = False Then Call MakeParentDoc(currdoc) Exit Sub End If '**************** Call currdoc.MakeResponse(parentdoc) Call currdoc.Save( True, True ) End Sub '++LotusScript Development Environment:2:1:VerifyHierarch:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: VerifyHierarch ' Typ modulu: Rekurz funkce ' Autor: Lud ' Datum vytvo : 16.08.1998 ' Popis funkce: Zkontroluje, zda po adovan rodi . dokument nen . Kontroluje v echny ' Vstupy: Dokument funkce a kl stupy: ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function VerifyHierarch(currdoc As NotesDocument, key As String) As Variant Dim collresp As NotesDocumentCollection Dim resp As NotesDocument Set collresp = currdoc.Responses VerifyHierarch = True If Not(collresp Is Nothing) Then For i = 1 To collresp.Count Set resp = collresp.GetNthDocument(i) If resp.nr_fce(0) = key Then VerifyHierarch = False Exit Function End If VerifyHierarch = VerifyHierarch(resp, key) Next End If End Function '++LotusScript Development Environment:2:2:MakeParentDoc:14:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: MakeParentDoc ' Typ modulu: Procedura ' Autor: Lud ' Datum vytvo : 16.08.1998 ' Popis funkce: Z respons dokumentu ud parent hlavn dokument ' Vstupy: Respons dokument stupy: ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Sub MakeParentDoc(currdoc As NotesDocument) currdoc.Form = "Funkce" Call currdoc.RemoveItem("$REF") currdoc.nr_nad_fce = "" currdoc.FCnadrizeny = "" Call currdoc.Save(True, True) End Sub '++LotusScript Development Environment:2:2:UpdateGroups:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: UpdateGroups ' Typ modulu: Procedura ' Autor: Lud ' Datum vytvo : 18.08.1998 ' Popis funkce: V adresn knize vytvo skupinu, kter prefix " C". Pokud skupina existuje, vlo do n ' Vstupy: Jm no skupiny a jm no osoby stupy: ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Sub UpdateGroups(group As String, LNname As String, ListDescription As String) Dim session As New NotesSession Dim server As String Dim namesdb As NotesDatabase Dim namesview As NotesView Dim groupdoc As NotesDocument Dim key As String server = session.CurrentDatabase.Server Set namesdb = session.GetDatabase(server,"names.nsf") Set namesview = namesdb.GetView("Groups") key = " C" & group Set groupdoc = namesview.GetDocumentbyKey(key) If groupdoc Is Nothing Then Set groupdoc = New NotesDocument(namesdb) groupdoc.ListName = key groupdoc.Members = LNname groupdoc.GroupType = "0" groupdoc.Type = "Group" groupdoc.Form = "Group" groupdoc.ListDescription = ListDescription Call groupdoc.Save(True,True) Else groupdoc.Members = LNname Call groupdoc.Save(True,True) End If End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $ScriptLib $ScriptLib_O $TITLE $Flags $PublicAccess Started running agent 'Profil aplikace|Setup' on 09.06.99 16:21:23 1 document(s) were modified by formula Done running agent 'Profil aplikace|Setup' on 09.06.99 16:21:23 3.04.99 10:30:49 Byl spu n agent 'Nastaven modulu|Setup' - 02.05.2000 11:02:14 1 dokument bylo zm no vzorcem Bylo ukon eno spu agenta 'Nastaven modulu|Setup' - 02.05.2000 11:02:15 [Setup] (Setup) Nastaven modulu te opr k nastaven modulu. 11S12S13S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex Byl spu n agent ' va syst mu\Aktualizace loga' - 02.05.2000 11:02:10 no u vybran ch dokument : celkem 1 Bylo nalezeno 1 dokument , kter vyhovuj podm m hled Byl spu d skriptu LotusScript Bylo ukon eno spu agenta ' va syst mu\Aktualizace loga' - 02.05.2000 11:02:11 '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim coll As NotesDocumentCollection Dim profiledoc As NotesDocument Dim profilelogo As Variant Dim doc As NotesDocument Dim item As NotesRichTextItem Set db = session.CurrentDatabase Set profiledoc = db.GetProfileDocument("(Setup)") Set coll = db.UnprocessedDocuments Set profilelogo = profiledoc.GetFirstItem( "Logo" ) If ( profilelogo.Type = RICHTEXT ) Then Set doc = coll.GetFirstDocument While Not doc Is Nothing Forall logoitem In doc.Items If logoitem.Name = "Logo" Then If ( logoitem.Type = RICHTEXT ) Then Call logoitem.Remove Call doc.Save(True,True,True) End If End If End Forall Set item = New NotesRichTextItem( doc ,"Logo" ) Call item.AppendRTItem( profilelogo) Call doc.Save(True,True,True) Set doc = coll.GetNextDocument(doc) Wend End If End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G >]5Tpx $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} $Flags '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "ErrorHandling" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Function NoAccent(text As String) As String Declare Function NoSpecialChar(text As String) As String '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:1:NoAccent:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: NoAccent ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 20.10.1997 ' Popis funkce: Potla uje diakritiku vstupn ' Vstupy: text stupy: NoAccent ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function NoAccent(text As String) As String Err = 0 On Error Goto ErrorHandler Dim basicabc As String Dim accentedabc As String Dim character As String Dim position As Integer Dim length As Integer Dim i As Integer basicabc = "AAABCCDDEEEEFGHIIJKLMNNOOOPQRRSSTTUUUUVWXYYZZaaabccddeeeefghiijklmnnooopqrrssttuuuuvwyyzz" accentedabc = "A JKLMN jklmn length = Len(text) i = 1 Do Until i > length character = Mid$(text,i,1) position = Instr(accentedabc,character) If position <> 0 Then Mid$(text,i,1) = Mid$(basicabc,position,1) i = i + 1 Loop NoAccent = text Exit Function ErrorHandler: Call ErrorLog(Err, Erl, "NoAccent (StringHandling)") Err = 0 Exit Function End Function '++LotusScript Development Environment:2:1:NoSpecialChar:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: NoSpecialChar ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 20.10.1997 ' Popis funkce: Vyj ze vstupn zce speci znaky ' Vstupy: text stupy: NoSpecialChar ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function NoSpecialChar(text As String) As String Err = 0 On Error Goto ErrorHandler Dim specchars As String Dim character As String Dim newtext As String Dim position As Integer Dim length As Integer Dim i As Integer specchars = " !""#$%&'()*+,-./:;<=>?@[\]^_`{|}~ length = Len(text) newtext = "" i = 1 Do Until i > length character = Mid$(text,i,1) position = Instr(specchars,character) If position = 0 Then newtext = newtext + character i = i + 1 Loop NoSpecialChar = newtext Exit Function ErrorHandler: Call ErrorLog(Err, Erl, "NoSpecialChar (StringHandling)") Err = 0 Exit Function End Function & ! 0 9 "!: O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $ScriptLib $ScriptLib_O $TITLE $Flags O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} $Flags '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "ErrorHandling" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Function ProfileVerify(profilename As String) As Variant Declare Function SetupField(setupname As String, fieldname As String) As Variant Declare Function ProfileField(profilename As String, fieldname As String) As Variant '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:1:ProfileVerify:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: ProfileVerify ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 06.5.1998 ' Popis funkce: Kontroluje hodnotu pole ready z profilov ho dokumentu profilename ' Vstupy: profilename stupy: ProfileVerify ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function ProfileVerify(profilename As String) As Variant Dim session As New NotesSession Dim profile As NotesDocument Set db = session.CurrentDatabase Set profile = db.GetProfileDocument(profilename) If profile.Ready(0) <> "1" Then Messagebox "P ed prvn m pou m aplikace je nutn nastavit jej profil." ProfileVerify = False Else ProfileVerify = True End If End Function '++LotusScript Development Environment:2:1:SetupField:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: SetupField ' Typ modulu: Funkce ' Autor: Adrian Weissgarber ' Datum vytvo : 14.3.99 ' Popis funkce: na te hodnotu pole fieldname z dokumentu setupname ' Vstupy: setupname, fieldname stupy SetupField ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function SetupField(setupname As String, fieldname As String) As Variant Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim item As NotesItem Set db = session.CurrentDatabase Set doc = db.GetProfileDocument(setupname) Set item = doc.GetFirstItem(fieldname) SetupField = item.Values End Function '++LotusScript Development Environment:2:1:ProfileField:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: ProfileVerify ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 06.1.1999 ' Popis funkce: Vrac hodnotu pole fieldname z dokumentu profilename ' Vstupy: profilename, fieldname stupy: ProfileField ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function ProfileField(profilename As String, fieldname As String) As Variant Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim profile As NotesDocument Dim item As NotesItem Set db = session.CurrentDatabase Set view = db.GetView("DocProfilesFlat") Set profile = view.GetDocumentByKey(profilename,True) Set item = profile.GetFirstItem(fieldname) ProfileField = item.Values End Function O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G c}~A< $ScriptLib $ScriptLib_O $TITLE $Flags $PublicAccess O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} <+#rd| $Flags O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} Kt&aa'H $Flags O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} $Flags '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub ErrorLog (Byval errorid As Integer, errorline As Integer, errorscript As String) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:ErrorLog:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: ErrorLog ' Typ modulu: Procedura ' Autor: Adrian Weissg ' Datum vytvo : 02.5.1998 ' Popis funkce: Generuje dokument zpr vy o chyb v modulu diagnostiky ' Vstupy: errorid, errorline, errorscript stupy: ErrorLog ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Sub ErrorLog (Byval errorid As Integer, errorline As Integer, errorscript As String) Dim session As New NotesSession Dim db As NotesDatabase Dim errordb As NotesDatabase Dim errordoc As NotesDocument Dim user As New NotesName(session.UserName) Dim path As String Set db = session.CurrentDatabase path = Left(db.FilePath,Instr(db.FilePath,db.FileName)-1) +"\errorlog.nsf" Set errordb = New NotesDatabase(db.Server,path) If errordb Is Nothing Then Print "Nen dostupn datab ze 4DOC 5.0 Diagnostika" Exit Sub End If Beep Msgbox "Chyba .:" & Cstr(errorid) & " -> (" & Error$(errorid) _ & "). O chyb budou uv ni administr i syst mu.",16 Set errordoc = New NotesDocument(errordb) errordoc.Form = "(Error)" errordoc.ModuleName = db.Title Set servername = New NotesName(db.Server) errordoc.ModuleServer = servername.Abbreviated errordoc.ModulePath = db.FilePath errordoc.ErrorID = Cstr(errorid) errordoc.ErrorDescription = Error$(errorid) errordoc.ErrorLine = Cstr(errorline) errordoc.ErrorScript = errorscript errordoc.ErrorDate = Today errordoc.ErrorTime = Now errordoc.ErrorUser = user.Common Call errordoc.Save(True,True) End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $ScriptLib $ScriptLib_O $TITLE $Flags $PublicAccess Started running agent 'CreateGroup' on 04.05.2000 00:10:49 Running on new or modified documents: 5 total Found 5 document(s) that match search criteria Ran LotusScript code Done running agent 'CreateGroup' on 04.05.2000 00:10:49 '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "OSPrivate" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim LNname As String Dim group As String Set dateTime = New NotesDateTime( "05/20/95" ) Set db = session.CurrentDatabase REM Set collection = db.UnprocessedDocuments Set collection = db.UnprocessedSearch ( "ARCHIV!=""1""", dateTime, 0 ) For i = 1 To collection.Count Set doc = collection.GetNthDocument( i ) If doc.archiv(0) = "1" Then REM Print "Archivovan dokument" Else If doc.Form(0) = "Funkce" Or doc.Form(0) = "(Funkce)" Then group = doc.nr_fce(0) LNname = doc.LNmail(0) Call UpdateGroups(group, LNname, doc.fce_n(0)) Call session.UpdateProcessedDoc( doc ) End If End If Next i End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $MachineName $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} nbka] $Flags nr_fce nr_fce Funkce nr_fce 0S0E O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Formula Byl spu n agent ' va syst mu\Vytvo skupin v AB' - 02.05.2000 11:09:10 no u vybran ch dokument : celkem 1 Bylo nalezeno 1 dokument , kter vyhovuj podm m hled Byl spu d skriptu LotusScript Bylo ukon eno spu agenta ' va syst mu\Vytvo skupin v AB' - 02.05.2000 11:09:12 '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "OSPrivate" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim LNname As String Dim group As String Dim ListDescription As String Set db = session.CurrentDatabase Call db.UpdateFTIndex(False) Set collection = db.UnprocessedDocuments For i = 1 To collection.Count Set doc = collection.GetNthDocument( i ) If doc.archiv(0) = "1" Then Print "Archivovan dokument" Else If doc.Form(0) = "Funkce" Or doc.Form(0) = "(Funkce)" Then group = doc.nr_fce(0) LNname = doc.LNmail(0) ListDescription = doc.fce_n(0) Call UpdateGroups(group, LNname, ListDescription) Call session.UpdateProcessedDoc( doc ) End If End If Next i End Sub Lotus Product O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO f}~;1H $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "ProfilesHandling" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Function DemoLicence As Variant Declare Function LicenceIDValidity(licenceid As String) As Variant '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:1:DemoLicence:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: DemoLicence ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 30.4.1999 ' Popis funkce: Zji uje typ licence ' Vstupy: stupy: True/False ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function DemoLicence As Variant Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim maxdocs As Integer Set db = session.CurrentDatabase Set collection = db.AllDocuments If LicenceIDValidity("") Then DemoLicence = False Else maxdocs = 10 If collection.Count < maxdocs Then DemoLicence = False Else Msgbox "V demonstra verzi syst ete vytvo it maxim 10 dokument v ka m modulu." & Chr(13) & _ "V p jmu o plnou verzi kontaktujte:" & Chr(13) & _ "" & Chr(13) & _ "A SYST M a.s." & Chr(13) & _ "Hru 20" & Chr(13) & _ "OSTRAVA 2" & Chr(13) & _ "702 28" & Chr(13) & _ "" & Chr(13) & _ "tel: 069/6204 364" & Chr(13) & _ "fax: 069/6204 313" & Chr(13) & _ "" & Chr(13) & _ "e-mail: obchod@arsystem.cz" , 16 , "Demonstra verze" DemoLicence = True End If End If End Function '++LotusScript Development Environment:2:1:LicenceIDValidity:13:8 '------------------------------------------------------------------------------------------------------------------------------------------------------- zev modulu: LicenceIDValidity ' Typ modulu: Funkce ' Autor: Adrian Weissg ' Datum vytvo : 30.4.1999 ' Popis funkce: Kontroluje platnost licence ' Vstupy: licenceid stupy: True/False ' Upravil: ' Datum pravy: ' Popis pravy: '------------------------------------------------------------------------------------------------------------------------------------------------------- Function LicenceIDValidity(licenceid As String) As Variant Dim id As String Dim key As Integer Dim value As Double If licenceid = "" Then id = SetupField("(Setup)","LicenceID")(0) Else id = licenceid key = Val(Left$(id,2)+Right$(id,1)) value = Val(Mid$(id,3,7)) If value = key^3 - key^2 Then LicenceIDValidity = True Else LicenceIDValidity = False End Function O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $ScriptLib $ScriptLib_O $TITLE $Flags $PublicAccess O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G sZ%!ZM} $Flags (Setup) Ready Nastaven modulu ed prvn m pou m modulu je nutn prov st jeho nastaven Setup 0S0E O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $DBAction1 $TITLE Times New Roman CE &Arial CE innost 12.12.95 10:22:43 0S0E UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU """""""""""""""""""""""""""""""""% zpracov MQ), tj.: S26S27S28S29S30S datab ze Organiza struktura Datab Organiza struktura slou k veden o zam stnanc ch a k definici hierarchick struktury organizace. Tato datab ze je ur ena ke spolupr ci s dal mi aplikacemi pro delegov stupov ch pr v a ostatn ch informac o zam stnanc K prohl datab ze Organiza struktura slou sleduj pohledy Hierarchie organizace Hierarchie funkc - hierarchie organizace podle funkc Hierarchie typu funkc - seznam zam stnanc podle typu funkce Hierarchie jmen - hierarchie organizace podle jmen Seznamy dle Jmenn seznam - seznam zam stnanc podle jmen Seznam dle funkce - seznam zam stnanc podle zast funkce Seznam dle nad - seznam zam stnanc , kte jsou n komu nad zeni a jm na jejich pod Seznam dle eviden - seznam zam stnanc podle eviden Seznam dle st edisek - seznam zam stnanc podle st edisek Historie Minul seznam dle funkce (dokumenty, jejich platnost ji byla ukon Minul seznam dle jm (dokumenty, jejich platnost ji byla ukon Budouc seznam funkc (dokumenty, u nich doba platnosti nenastala) Telefonn seznam Telefonn seznam WWW telefonn seznam 1. ZAVEDEN HO ZAM STNANCE Po stisku tla tka z libovoln ho pohledu se otev e nov dokument &Profil zam stnance , kde lze vyplnit daje o pracovn kovi rozd do n kolika skupin. Povinn t zad no bu no a P pracovn ka nebo Funkce. Pro spr vnou spolupr ci s dal mi aplikacemi je d vyplnit u ka ho zaveden ho zam stnance tak pole "Notes mail". Krom kladn o zam stnanci lze vyplnit tak no nad ho a jm na osob, kter vo k prohl a zad stnanci (standardn jsou k zad a prohl ichni nad stnance, lze doplnit dal osoby v rem z adresn knihy). Na ka m dokumentu se nastavuje obdob platnosti, po kter je dan dokument aktu . Nab datum za tku platnosti je mo Po vypln lze dokument ulo it stiskem tla tka . Pokud byly v dokumentu provedeny jak koli zm ny, kter nebyly ulo eny, po stisku se aplikace zept , zda m t dokument ulo en nebo zav en bez ulo 2. ZM U ZAM STNANCE (V ODCHODU ZAM STNANCE Z FIRMY) Pokud u pracovn ka dojde k jak mkoli zm m, je t eba jeho dokument otev t a stiskem tla tka Kategorie po st dokument do re imu editace. Objev se dialogov okno &Zadejte datum ukon platnosti t to verze dokumentu . Nab se aktu datum, kter je mo epsat. (DOPORU : Jestli verze dokumentu platit od ur ho dne, zadejte jako ukon platnosti p ho dokumentu datum minul ho dne). Po stisku 8 se objev dialogov okno: &Chcete dokument upravit? Stiskem tla tka NE ukon te pouze platnost Jestli e zvol 8, vytvo se nov verze dokumentu jako kopie p ho a m ete prov st po adovan Pokud zvol te volbu 8, bude platnost dokumentu ukon ena. Dokumenty, kter nejsou aktu nebo jejich obdob platnosti je nenastalo, se zobrazuj v pohledech z ky Arch Chcete-li tisknout formul "Osobn karty pro pou te do n ho z pohled Jmenn seznam Seznam dle ev. , zvolte v pohledu z znamy osob, pro kter chcete kartu tisknout, a stiskn te tla tko O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $Info $Body &Arial CE (LicenceStatus) Licence Status Subform _ ___ _ __ Hidden Fields: Ready LicenceID DemoLicence O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Info $$ScriptName $Body Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec kolen kolen O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO 4ZPYK $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS Categori_zez _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderS datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec@. stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO {$h&a $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanecT. stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G ELT*^ $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder_ datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO Zb|pB $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_zer _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_zeo _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO 5!@Nm $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S fce_nFunkcetyp_fceTyp funkceTelTelefonnsOrg. jednotka pracovistePracovi LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S$13nr_fce, nr_fce" 0S0E Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS Categori_zee _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec Profil zam stnance Osobn karta formh SZPrint (Print) (Close) (Deselect) Tisk osobn karty Datab ze neobsahuje dokumenty. 7S13S16R20S23R27S30R34S38S42S44S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ PURSAFO }u<rXA a%fy= $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Dana Bittnerova/O=ARSYSTEM/C=CZ PURSAFO dP(o0@ b$Rc> $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO Oj8|-] $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS typ_fceTyp funkcefce_n$8P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S TelTelefonpracovistePracovi LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S& Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS $11nr_fce, nr_fce" 1S2S prijmeni jmeno fce_n 5S6S8S $8@Trim(@Name([CN];LNmail) + @If(@Name([OU1];LNmail)="";"";"/"+@Name([CN];LNmail)) LNmail LNmail LNmail 8S9S $9@Name([Abbreviate];LNmail). LNmail 0S0E evcevc$10prijmeni + jmeno> prijmeni jmeno 1S2S3S4S Categori_zev _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_zed _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO zQHPX< c"Vgc $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanec stnanec kolen kolen O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO Gu;nP $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $ACTIONS prijmeni jmeno fce_z 1S2S3S4S5S6S7S8S LNnadrizeni 0S0E prijmeni jmeno titul titul 1S2S3S4S5S6S12S14S15S16S titul titul prijmeni" jmeno 6S8S9S10S12S13S14S15S16S17S$50 titul titul jmeno prijmeni" 6S8S9S10S12S13S14S15S16S17S$77R prijmeni (069) 6204" 1S2S3S4S5S6S jmeno prijmeni" 1S2S3S4S $44Notes mail. LNmail prijmeni jmeno fce_n 5S6S8S Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderS datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec96 Profil zam stnance Osobn karta SZPrint (Print) 0R4S (Close) 0R4S (Deselect) 0R4S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ PURSAFO }u<rXA wt5fz $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS edisko typ_fceTyp funkcefce_nFunkce$8P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 8S10S15S16S24S25S31S34S2E43S TelTelefonpracovistePracovi LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S$13nr_fce, nr_fce" 0S0E Categori_zeS _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderC Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO rqW{7 $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder >|'++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub Postopen(Source As Notesuiview) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIVIEW Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuiview) End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO /NRyL $SCRIPTOBJ_6 $Readers $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS $ViewGlobalScript $ViewGlobalScript_O $ViewScript $ViewScript_O Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce@( Funkce Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkcel( Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO c*Kr&* $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS nr_fce$54` fce_n fce_z jmeno (neobsazeno) prijmeni jmeno titul titul titul2 titul 1S2S8S9S10S17S18S19S25S27S32S33S41S42S48S51S2E60S$44Jm no (funkce)6 fce_n fce_z jmeno (neobsazeno) prijmeni jmeno titul titul titul2 titul 1S7S8S16S18S23S24S32S33S39S42S2E51S& Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkcea( Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO E,C"# $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS funkce editel funkce funkce Vedouc projektu 0S0E $97Jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41Sfunkce$50Tel.. tel_uto 0S0E tel_1 0S0E kancelKancel $48E-mail` [<A HREF="mailto: email email </A>] 1S2S3S4S Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ PURSAFO }u<rXA $TITLE $Index $Formula $FormulaClass $ViewFormat $FormFormula $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec stnanec Osobn karta formh SZPrint (Print) (Close) (Deselect) Tisk osobn karty Datab ze neobsahuje dokumenty. 7S13S16R20S23R27S30R34S38S42S44S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec stnanec Osobn karta formh SZPrint (Print) (Close) (Deselect) Tisk osobn karty Datab ze neobsahuje dokumenty. 7S13S16R20S23R27S30R34S38S42S44S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G !,|?Z $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $44Notes mail. LNmail LNnadrizeni LNnadrizeny 0S0E prijmeni jmeno titul titul 1S2S3S4S5S6S12S14S15S16S titul titul prijmeni" jmeno 6S8S12S13S15S16S17S18S19S20S titul titul jmeno prijmeni" 6S8S12S13S15S16S17S18S19S20S prijmeni (069) 6204 1S2S3S2E4S5S6S jmeno prijmeni" 1S2S3S4S prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S& Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folderi datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanecr6 Profil zam stnance Osobn karta SZPrint (Print) 0R4S (Close) 0R4S (Deselect) 0R4S Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder5 datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanecz6 Profil zam stnance Osobn karta SZPrint (Print) 0R4S (Close) 0R4S (Deselect) 0R4S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $V5ACTIONS $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderN datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkce Funkce Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder_ datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S funkcea( Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO q`SIq $TITLE $Index $Formula $FormulaClass $ViewFormat $Fonts $Comment $V5ACTIONS $ACTIONS edisko$5P a jm jmeno (nezad prijmeni jmeno titul titul titul2 titul 6S8S13S14S22S23S29S32S2E41Sfce_nFunkceTelTelefon$6. LNmail 0S0E prijmeni jmeno nr_fce" 1S2S3S4S5S6S7S8S9S10S11S12S& Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec stnanec Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $V5ACTIONS $ACTIONS $13@Name([Abbreviate];LNmail)0 LNmail 0S0E $16nr_fce, nr_fce" 0S0E $9@Name([Abbreviate];LNmail). LNmail 0S0E evcevc $10prijmeni + jmeno> prijmeni jmeno 1S2S3S4S jmeno (nezad prijmeni jmeno fce_n 6S8S13S15S16S17S jmeno (nezad prijmeni jmeno fce_z 6S8S13S15S16S17S Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder_ datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S funkce Funkce O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Organiza struktura' Chcete opravdu ukon it pr ci s datab 'Organiza struktura'? 6S8S11S16S stnanecs. stnanec O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS $92Aplikace\Osoba jmena LNnadrizeny LNnadrizeni 0S0E LNpris_diar LNpris_diar add_diart jmena jmena LNpris_ukoly koly\ LNpris_ukoly add_ukoly jmena koly\ jmena 0R19S20S28S29S39S40S57S58S66S67S LNmail LNmail LNmail LNmail LNmail LNmail 13S14S23R49S stup k0 LNmail 0S0E Categori_zer _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec Profil zam stnance O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ PURSAFO }u<rXA $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $ACTIONS &Arial CE (RegistrationDlgBox) Registra )7@0/ 0/tnuelt /0/Ir LicenceID O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G doVKY $TITLE $Info $$ScriptName $Body '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.RefreshHideFormulas End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Set uidoc=workspace.CurrentDocument Set doc=uidoc.Document If doc.firm_type(0) <> "Fyzick osoba" Then doc.firm_DIC = doc.firm_ICO(0) Call uidoc.Reload End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Set uidoc=workspace.CurrentDocument Set doc=uidoc.Document If doc.company_type(0) <> "Fyzick osoba" Then doc.company_DIC = doc.company_ICO(0) Call uidoc.Reload End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Set uidoc=workspace.CurrentDocument Set doc=uidoc.Document If doc.CompanyType(0) <> "fyzick osoba" Then doc.CompanyDIC = doc.CompanyICO(0) Call uidoc.Reload End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub Nastaven modulu &Arial CE '++LotusScript Development Environment:2:5:(Options):0:74 Use "ErrorHandling" Use "LicenceHandling" Use "ProfilesHandling" '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:2 Profile'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen(Source As Notesuidocument) Declare Sub Postrecalc(Source As Notesuidocument) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen On Event Postrecalc From Source Call Postrecalc On Event Querymodechange From Source Call Querymodechange On Event Querysave From Source Call Querysave End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) If Source.IsNewDoc Then Dim workspace As New NotesUIWorkspace Dim doc As NotesDocument Set doc = Source.Document If workspace.DialogBox("(RegistrationDlgBox)",True,True,False,False,False,False,"Registrace modulu") Then If Not (LicenceIDValidity(doc.LicenceID(0))) Then doc.DemoLicence = "1" Messagebox "Registra d je neplatn .",16,"Neplatn registra Else doc.DemoLicence = "0" End If Call Source.RefreshHideFormulas End If End If End Sub '++LotusScript Development Environment:2:2:Postrecalc:1:12 Sub Postrecalc(Source As Notesuidocument) End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) End Sub (DatabaseMapping) (LicenceStatus) s'sF@ ModuleTitle Nastaven modulu DemoLicence 0S0E NEREGISTROVAN VERZE DemoLicence 0S0E REGISTROVAN VERZE Vytvo CreatedBy dne CreatedDate CreatedDate 0S0E Vytvo eno: CreatedDate Created_d Modified 0S0E Upravil: ModifiedBy dne ModifiedDate ModifiedDate 0S0E Upraveno: ModifiedDate 0S0E Modified_d kladn Pro p osoby na funkci pou SelectUser Organiza strukturu|1Adresn knihu|2 Seznam titul ed jm RNDr. Mudr. JuDr. PaedDr. Prof. Mvdr. 0S0E titlelist Seznam titul za jm DrSc. 0S0E title2list Soubor pro import: filename zvy syst pro evidenci jmen: login LogoLogo spole nosti (SystemInformation) Categori_zeg _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder 0S0E Upravit 0S0E it a zav '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set db = doc.ParentDatabase doc.Ready="1" Call uidoc.Save REM Zapnut agent Forall agent In db.Agents If (agent.Trigger = TRIGGER_SCHEDULED) Or (agent.Trigger = TRIGGER_DOC_UPDATE) Then agent.ServerName = db.Server agent.IsEnabled = True Call agent.Save End If End Forall Call uidoc.Close End Sub Registrace'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim licenceid As String Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document If workspace.DialogBox("(RegistrationDlgBox)",True,True,False,False,False,False,"Registrace modulu") Then If Not (LicenceIDValidity(doc.LicenceID(0))) Then doc.DemoLicence = "1" Messagebox "Registra d je neplatn .",16,"Neplatn registra Else doc.DemoLicence = "0" End If Call uidoc.RefreshHideFormulas End If End Sub Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder 0S0E UpravitF 0S0E it a zav '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set db = doc.ParentDatabase doc.Ready="1" Call uidoc.Save REM Zapnut agent Forall agent In db.Agents If (agent.Trigger = TRIGGER_SCHEDULED) Or (agent.Trigger = TRIGGER_DOC_UPDATE) Then agent.ServerName = db.Server agent.IsEnabled = True Call agent.Save End If End Forall Call uidoc.Close End Sub Registrace'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim licenceid As String Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document If workspace.DialogBox("(RegistrationDlgBox)",True,True,False,False,False,False,"Registrace modulu") Then If Not (LicenceIDValidity(doc.LicenceID(0))) Then doc.DemoLicence = "1" Messagebox "Registra d je neplatn .",16,"Neplatn registra Else doc.DemoLicence = "0" End If Call uidoc.RefreshHideFormulas End If End Sub Lotus Product O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO op[<H $$nomenclaturepath $nomenclaturepath_O $$ospath $ospath_O $$boardpath $boardpath_O $$archivepath $archivepath_O $$nomenclature_path $nomenclature_path_O $$os_path $os_path_O $$board_path $board_path_O $$archive_path $archive_path_O $$firm_ICO $firm_ICO_O deadline_time DPH_s DPH_l $$company_city_d $company_city_d_O deadline_days topay_min $$company_city $company_city_O $$company_ICO $company_ICO_O $$company_phone $company_phone_O $$CompanyCity $CompanyCity_O $$CompanyICO $CompanyICO_O $$CompanyPhone $CompanyPhone_O archived created $SCRIPTOBJ_11 $SCRIPTOBJ_10 $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS $SCRIPTOBJ_8 $SCRIPTOBJ_9 &Arial CE (PhoneHelper) mobil mobil Telefon: Mobil: O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Info $$ScriptName $Body &Arial CE (DatabaseMappingDlgBox) Server Server 0R1S Server Server Server Server 0S0E Server Server 0S0E Server tmpnamesserver 1S2S tmpdbserver tmpdbserver NoCache tmpnamesserver names.nsf Servers 0RR18S19S20S21S23S24S25S26S27S28S29S tmpfilesuffix 0S0E tmpfilesuffix tmpfilesuffix 0S0E tmpposition tmpfilesuffix tmpposition tmpfilesuffix tmpfilesuffix tmpfilesuffix 0S0E tmpfilesuffix Nebyla uvedena cesta k souboru datab Server Datab ze nen dostupn 0R19SPath Server: Cesta: xGGb `//[,, O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G #%rp^ commentfinisheddate commentfinishdate alarmdays docefficiencyfrom docefficiencyto docarchivationto $TITLE $Info $$ScriptName $$FormAction1 $Body &Arial CE Lotus Product (OSFunkce) Obsazen funkce: no a ev. titul titul 0R1S jmeno jmeno 0R1S prijmeni prijmeni 0R1S titul2 titul2 0R1S 0R1S LNmail LNmail 0R1S 0R1S employee Obsazen funkce Vyberte osobu pro obsazen funkce 0R4S5S6S7S8S11S13S14S15S16S17S18S19S titul regnumber titul jmeno regnumber jmeno prijmeni regnumber prijmeni titul2 regnumber titul2 regnumber LNmail regnumber LNmail regnumber titul titul jmeno jmeno prijmeni prijmeni titul2 titul2 LNmail LNmail @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` 0S0E titul titul 0R1S jmeno jmeno 0R1S prijmeni prijmeni 0R1S titul2 titul2 0R1S 0R1S LNmail LNmail 0R1S titul jmeno prijmeni titul2 LNmail @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` titul titul jmeno jmeno prijmeni prijmeni titul2 titul2 NoCache regnumber 0S0E nameZ name_link Organiza jednotka: Adresa v syst mu Lotus Notes: LNmail LNmail O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $Info $$Script_O $$ScriptName $Body &Arial CE (SystemInformation) ModifiedBy Vytvo il(a) CreatedBy CreatedDate Posledn pravy provedl(a) ModifiedBy ModifiedDate 0S0E ID dokumentu: 0S0E NoteID 0S0E Modified Datum a Vytvo CreatedBy CreatedDate Upravili: OrderNum OrderNumj OrderNum OrderNum OrderNum OrderNum 4S7S8S10S12S18S19S21S25S29S37S40S41S45S47S49SOrderNum ModifiedBy ModifiedByj ModifiedBy ModifiedBy ModifiedBy 4S7S8S10S12S18S19S21S25S29S35S37S39S ModifiedBy ModifiedDate ModifiedDatej ModifiedDate ModifiedDate ModifiedDate 4S7S8S10S12S18S19S21S25S29S35S37S39S ModifiedDate O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO $Info $$Script_O $$ScriptName $Body &Arial CE (NamesFunkce) Obsazen funkce: no a ev. titul titul 0R1S jmeno jmeno 0R1S prijmeni prijmeni 0R1S titul2 titul2 0R1S LNmail LNmail 0R1S LNmail 0R4S5S6S LNmail jmeno LNmail prijmeni LNmail titul titul2 titul titul jmeno jmeno prijmeni prijmeni titul2 titul2 LNmail LNmail @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` 0S0E titul titul 0R1S jmeno jmeno 0R1S prijmeni prijmeni 0R1S titul2 titul2 0R1S LNmail LNmail 0R1S titul jmeno prijmeni titul2 LNmail @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` titul titul jmeno jmeno prijmeni prijmeni titul2 titul2 NoCache regnumber 0S0E nameZ name_link Organiza jednotka: Adresa v syst mu Lotus Notes: LNmail LNmail O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO J2HDD $Info $$ScriptName $Body znam o chyb aplikace &Arial CE (Error) SendTo Chyba v modulu 0S0E Subject znam o chyb programu Chyba error_ID error_ID error_description error_description ) na dku: error_row error_row v modulu: error_module error_module dne: error_date error_date ivatel: error_user error_user Categori_zec _Edit Document Odeslat _Forward _Move To Folder... _Remove From FolderC Postoupit 0S0E O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G datum $TITLE $Info $WindowTitle $$Script_O $$ScriptName error_date $Body $ACTIONS &Arial CE fce_0 0S0E fce_1 0S0E fce_2 0S0E fce_3 0S0E fce_4 0S0E editel spole nosti CN=BUBO/O=ARSYSTEM/C=CZ &Arial CE (Personal) [PersonalEditor] Osobn [PersonalEditor] personal_dataOsobn Datum narozen DatNarozeni nost: StatPrislusnost Pohlav Pohlavi rodnost: Narodnost sto narozen MistoNarozeni d zdravotn poji ovny: ZdravPojistovna Okres narozen OkresNarozeni slo OP: CisloOP RodneJmeno slo cestovn ho pasu: CisloPas DrivejsiPrijmeni Trval bydli Ulice Mesto Rodinn stav: RodinnyStav rozveden svobodn vdovec 1S2S rozveden svobodn vdova 0R1S neurceno rozveden svobodn vdova vdovec 0R1S2S Pohlavi neurceno Pohlavi Pohlavi neurceno 0RR1S8S14S echodn bydli Ulice_1 PSC_1 Mesto_1 Pracovn Datum n stupu: DatNastupu rok na d chod od NarokDuchodOd Datum v stupu: DatVystupu et vychovan PocetDeti Druh zam DruhZamestnani Datum odesl dosti DatOdeslZadosti Druh d chodu DruDuchodu chod p DuchodPriznanOd Zdravotn stav ZdravStav chod p DuchodPriznanDo daje ke dni n stupu Odprac. roky PocetOdpracRoku Pro dovolenou zap. rok PocetDovolRoku Odprac. dny PocetOdpracDnu Pro dovolenou zap. dn PocetDovolDnu Kvalifikace kola: NazevSkoly NoCache SKOLY 0S0E RidicskyPrukaz Rok ukon RokKonceSkoly PredchoziZamestnani Obor: OborStudia NoCache OBORSTUDIA 0S0E DosazeneVzdelani NoCache VZDELANI 0S0E O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G CisloJKZ DatPosledniZkousky DelkaPeriody DatPlatnosti DatNastupuDoFirmy DatVstupSkoleni DatSkoleni $TITLE $Info $$Script_O $$ScriptName DatNarozeni DatNastupu NarokDuchodOd DatVystupu PocetDeti DatOdeslZadosti DuchodPriznanOd DuchodPriznanDo PocetOdpracRoku PocetDovolRoku PocetOdpracDnu PocetDovolDnu RokKonceSkoly $Body &Arial CE (PopisFunkce) Popis funkce [AccessEditor] 0S0E Osoby s p stupem k dokument to osoby v jin ch aplikac [AccessEditor] pristupOsoby s p stupem k dokument to osoby v jin ch aplikac Prohl pis do e v po schr : zahrnout: add_diar LNpris_diar Prohl a zad : zahrnout: add_ukoly LNpris_ukoly O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO d-!kBz cS2 q $TITLE $Info $$Script_O $$ScriptName $Body Categori_ze` _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec Profil zam stnance Osobn karta formh SZPrint (Print) (Close) (Deselect) Tisk osobn karty Datab ze neobsahuje dokumenty. 7S13S16R20S23R27S30R34S38S42S44S Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder datab ze 'Seznam zam stnanc Chcete opravdu ukon it pr ci s datab 'Seznam zam stnanc 6S8S11S16S stnanec Profil zam stnance Osobn karta formh SZPrint (Print) (Close) (Deselect) Tisk osobn karty Datab ze neobsahuje dokumenty. 7S13S16R20S23R27S30R34S38S42S44S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $V5ACTIONS $ACTIONS '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) Declare Sub Terminate Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim session As New NotesSession Dim doc As NotesDocument Dim workspace As New NotesUIWorkspace Set doc = workspace.CurrentDocument.Document doc.FCnadrizeny = "" End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub Funkce: fce_n 1S2S &Arial CE '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "ErrorHandling" Use "LicenceHandling" Use "ProfilesHandling" '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:2 Funkce'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) Declare Sub Postopen(Source As Notesuidocument) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Queryclose From Source Call Queryclose On Event Postopen From Source Call Postopen End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) If Source.IsNewDoc Then If DemoLicence Then Source.Close End If End Sub (fce) (Setup) SelectUser (OSFunkce) (NamesFunkce) (PopisFunkce) (SystemInformation) O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO created $$nr_nad_fce $nr_nad_fce_O $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body &Arial CE kolen Archiv 1S2S PROFIL KOLEN NazSkoleni tmpSkoleni Vytvo Autor dne: DatVytv Datum platnosti od DatPosledniZkousky DatPlatnosti [PersonalEditor] no a ev jmeno jmeno prijmeni prijmeni kolen NazSkoleni Datum kolen DatSkoleni Datum posledn kolen a zkou DatPosledniZkousky kolen a zkou ky provedl: ZkouskuProvedl Perioda kolen a zkou DelkaPeriody DruhPeriody ceroky Platnost do: DatPlatnosti Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Foldert it a zav 0S0E O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Info $$Script_O $$ScriptName $Body $ACTIONS ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$Flags$TITLE$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$ScriptLib$ScriptLib_O$PublicAccess$LeftToDo$MachineName$Type$Operation$Scan$DBAction1$Info$Fonts$Body$TemplateModTime$TemplateServerName$TemplateFileNameIconBitmap$DefaultNavigator$DefaultLanguage$DefaultCollation$FlagsNoRefresh$Index$Collation1$Collation2$Collation3$Collation4$Collation5$Collation6$Collation7$ViewFormat$Comment$ACTIONS$V5ACTIONS$Collation8$Collation9$SCRIPTOBJ_6$Readers$ViewGlobalScript$ViewGlobalScript_O$ViewScript$ViewScript_O$FormFormula$$ScriptNameLicenceID$Fields$$nomenclaturepath$nomenclaturepath_O$$ospath$ospath_O$$boardpath$boardpath_O$$archivepath$archivepath_O$$nomenclature_path$nomenclature_path_O$$os_path$os_path_O$$board_path$board_path_O$$archive_path$archive_path_O$$firm_ICO$firm_ICO_Odeadline_timeDPH_sDPH_l$$company_city_d$company_city_d_Odeadline_daystopay_min$$company_city$company_city_O$$company_ICO$company_ICO_O$$company_phone$company_phone_O$$CompanyCity$CompanyCity_O$$CompanyICO$CompanyICO_O$$CompanyPhone$CompanyPhone_Oarchivedcreated$SCRIPTOBJ_11$SCRIPTOBJ_10$FormUsers$SubForms$WindowTitle$Script$$Script_O$$FormScript$$$FormScript_OserverpathReadyDemoLicenceSelectUsertitlelisttitle2listfilenameloginlogoNoteIDmodifiedCreatedByCreatedDateOrderNummodifiedbyModifiedDate$SCRIPTOBJ_8$SCRIPTOBJ_9Telmobilcommentfinisheddatecommentfinishdatealarmdaysdocefficiencyfromdocefficiencytodocarchivationto$$FormAction1evctitulJmenoprijmenititul2nsLNmailEhDateEhRevCisloJKZDatPosledniZkouskyDelkaPeriodyDatPlatnostiDatNastupuDoFirmyDatVstupSkoleniDatSkolenipersonal_dataDatNarozeniStatPrislusnostPohlaviNarodnostMistoNarozeniZdravPojistovnaOkresNarozeniCisloOPRodneJmenoCisloPasDrivejsiPrijmeniulicepscmestoRodinnyStavUlice_1PSC_1Mesto_1DatNastupuNarokDuchodOdDatVystupuPocetDetiDruhZamestnaniDatOdeslZadostiDruDuchoduDuchodPriznanOdZdravStavDuchodPriznanDoSPSPocetOdpracRokuPocetDovolRokuPocetOdpracDnuPocetDovolDnuNazevSkolyRidicskyPrukazRokKonceSkolyPredchoziZamestnaniOborStudiaDosazeneVzdelanibodyadd_diarLNpris_diaradd_ukolyLNpris_ukolyod_1do_1$$nr_nad_fce$nr_nad_fce_OnadrizeniLNnadrizenyLNnadrizeniedit_testNadrizenyUNIDARCHIVnr_fcenr_nad_fceAutorDatVytvoddotyp_fcefcefce_nfce_zfc_zastupcenad_fceFCnadrizenytmpNadNamediagram$$od_1$od_1_O$$do_1$do_1_Ozamestnan_odAutor_2DatVytv_2datumSendToSubjecterror_IDerror_descriptionerror_rowerror_moduleerror_dateerror_userNazSkoleniZkouskuProvedlDruhPeriodylogin_namelogin_1passwd_1login_2passwd_2login_3passwd_3login_4passwd_4login_5passwd_5login_6passwd_6login_7passwd_7login_8passwd_8login_9passwd_9basic_datarodcis1rodcis2fcenr_0fcenr_1fcenr_2fcenr_3fcenr_4fce_0fce_link_0fce_1fce_link_1fce_2fce_link_2fce_3fce_link_3fce_4fce_link_4fotopodpispracovisteSectionkancelemailrodcisfcenr$HeaderLevel$SCRIPTOBJ_4$SCRIPTOBJ_3$$nad_fce$nad_fce_O$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$Class$Name$NoPurgeForm$RevisionsSTATUS$REF$Collection$ViewContainer (Personal) CN=Ludek Slouf/O=ARSYSTEM/C=CZCUA3 DosazeneVzdelaniOborStudiaPredchoziZamestnaniRokKonceSkolyRidicskyPrukazNazevSkolyPocetDovolDnuPocetOdpracDnuPocetDovolRokuPocetOdpracRokuSPSDuchodPriznanDoZdravStavDuchodPriznanOdDruDuchoduDatOdeslZadostiDruhZamestnaniPocetDetiDatVystupuNarokDuchodOdDatNastupuMesto_1PSC_1Ulice_1RodinnyStavMestoPSCUliceDrivejsiPrijmeniCisloPasRodneJmenoCisloOPOkresNarozeniZdravPojistovnaMistoNarozeniNarodnostPohlaviStatPrislusnostDatNarozenipersonal_data######################################### (PopisFunkce) CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCUA3 LNpris_ukolyadd_ukolyLNpris_diaradd_diarBody## Funkce CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (fce)(NamesFunkce)(PopisFunkce)(SystemInformation) tmpNadNameFCnadrizenynad_fcefc_zastupcefce_zfce_nfcetyp_fcedoodDatVytvAutorlogoTelnr_nad_fcenr_fcearchivUNIDnadrizenyedit_testLNnadrizeniLNnadrizenynadrizeniModifiedDateModifiedByOrderNumCreatedDateCreatedByModifiedNoteIDLNpris_ukolyadd_ukolyLNpris_diaradd_diarBody######################################################## Diagram CN=Ludek Slouf/O=ARSYSTEM/C=CZCDdiagram#################### ivotopiscuriculum CN=Ludek Slouf/O=ARSYSTEM/C=CZD prijmenijmenoevcdoodDatVytv_2Autor_2logobody############################################## (Error)CD error_usererror_dateerror_moduleerror_rowerror_descriptionerror_IDSubjectSendTo CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ################### kolen CN=Ludek Slouf/O=ARSYSTEM/C=CZD DatPlatnostiDruhPeriodyDelkaPeriodyZkouskuProvedlDatPosledniZkouskyDatSkoleniNazSkoleniprijmenijmenoevcDatVytvAutorlogo############################## (LoginName) CN=Ludek Slouf/O=ARSYSTEM/C=CZCUA3 passwd_9login_9passwd_8login_8passwd_7login_7passwd_6login_6passwd_5login_5passwd_4login_4passwd_3login_3passwd_2login_2passwd_1login_1login_name########################## stnanec CN=Ludek Slouf/O=ARSYSTEM/C=CZ (Personal)(LoginName) archivfcenrUNIDrodcisedit_testpasswd_9login_9passwd_8login_8passwd_7login_7passwd_6login_6passwd_5login_5passwd_4login_4passwd_3login_3passwd_2login_2passwd_1login_1login_nameDosazeneVzdelaniOborStudiaPredchoziZamestnaniRokKonceSkolyRidicskyPrukazNazevSkolyPocetDovolDnuPocetOdpracDnuPocetDovolRokuPocetOdpracRokuSPSDuchodPriznanDoZdravStavDuchodPriznanOdDruDuchoduDatOdeslZadostiDruhZamestnaniPocetDetiDatVystupuNarokDuchodOdDatNastupuMesto_1PSC_1Ulice_1RodinnyStavMestoPSCUliceDrivejsiPrijmeniCisloPasRodneJmenoCisloOPOkresNarozeniZdravPojistovnaMistoNarozeniNarodnostPohlaviStatPrislusnostDatNarozenipersonal_dataemailLNmailmobilTelkancelSectionpracovistepodpisfotofce_link_4fce_4fce_link_3fce_3fce_link_2fce_2fce_link_1fce_1fce_link_0fce_0fcenr_4fcenr_3fcenr_2fcenr_1fcenr_0nsrodcis2rodcis1evcprijmenijmenotitul2titulbasic_datadoodDatVytvAutorlogo########## (DatabaseMapping)CUA3 PathServer CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ#### (Funkce) CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (fce)(PopisFunkce)(SystemInformation)CD tmpNadNameFCnadrizenynad_fcefc_zastupcefce_zfce_nfcetyp_fcedoodDatVytvAutorlogoTelnr_nad_fcenr_fcearchivUNIDnadrizenyedit_testLNnadrizeniLNnadrizenynadrizeniOrderNumModifiedDateModifiedByCreatedDateCreatedByModifiedNoteIDLNpris_ukolyadd_ukolyLNpris_diaradd_diarBody################### (fce) CN=Ludek Slouf/O=ARSYSTEM/C=CZCUAx3N tmpNadNameFCnadrizenynad_fcefc_zastupcefce_zfce_nfcetyp_fcedoodnr_fceDatVytvAutorlogoTelnr_nad_fcearchivUNIDnadrizenyedit_testLNnadrizeniLNnadrizenynadrizeni################## 30719 CN=Ludek Slouf/O=ARSYSTEM/C=CZ############################ 2CN=WORM/O=ARSYSTEM/C=CZ 30719 CN=Ludek Slouf/O=ARSYSTEM/C=CZ###### (LNjmenaOP)1 CN=Ladislav Oliva/O=ARSYSTEM/C=CZ LNmail 0S0E prijmeni jmeno titul titul titul2 titul 7S8S16S17S23S26S2E35S tel_uto 0S0E tel_1 0S0E $50$53$46$45kancelemail$Conflict stnanec Archiv L1S5S6S7S9S1 $50$53 $50LN mail0 LNmail 0S0E a jm prijmeni jmeno titul titul titul2 titul 7S8S16S17S23S26S2E35S$46Tel.. tel_uto 0S0E tel_1 0S0E kancelKancel emailemail& pohled pro z znam z jedn v Obchodn padechYOrganiza struktura 5.0####### CN=Ludek Slouf/O=ARSYSTEM/C=CZ######################################################### CN=Ludek Slouf/O=ARSYSTEM/C=CZ######################################################### CN=Ludek Slouf/O=ARSYSTEM/C=CZ######################################################### $profile_007(setup)_ Profile111 Ing.Dr.RNDr.Mudr.JuDr.PaedDr.Bc.Mgr.Doc.Prof.Mvdr. CSc.DrSc.CN=Ludek Slouf/O=ARSYSTEM/C=CZ 24E1FAD8A51CD046C12568D3002F8ECF1 CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ ######################################################### Funkce LSLF-4JXC7SLudek Slouf LSLF-4JXCFK er102Mana seku obchoduMO100 editel spole nosti nad 8F22F56C915509D5C12568D30030DF030CN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ Hierarchie nastavena v 02.05.2000 10:54:24 St edoevropsk CN=Ludek Slouf/O=ARSYSTEM/C=CZ ########################### ########################################################## Hierarchie nastavena v 02.05.2000 10:53:22 St edoevropsk Funkce LSLF-4JXC7SLudek Slouf LSLF-4JXC9D er101Mana er jakostiMJ100 editel spole nosti nad 64BB97E49DBA39B2C12568D3002FF72E1CN=Ludek Slouf/O=ARSYSTEM/C=CZ. CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ ####################################################### FunkceLudek Slouf LSLF-4JXC7S er100 editel spole nosti CN=Ludek Slouf/O=ARSYSTEM/C=CZ7 00001Ing.JanVon sekNS001CN=Jan Von sek/O=ORGANIZACEE1CCFB22578623E6C12568D3002FBA371 CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ ################################################ Funkce LSLF-4JXC7SLudek Slouf LSLF-4JXCG3 er103Mana robyMV100 editel spole nosti nad 72B66107C5F72FCCC12568D30030F1FB0CN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ( Hierarchie nastavena v 02.05.2000 10:55:01 St edoevropsk CN=Ludek Slouf/O=ARSYSTEM/C=CZ ################################## Funkce LSLF-4JXC7SLudek Slouf LSLF-4JXCGF er104Hlavn ekonomHE100 editel spole nosti nad AE6BD4B1462E2E8CC12568D3003100830CN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ Hierarchie nastavena v 02.05.2000 10:55:41 St edoevropsk CN=Ludek Slouf/O=ARSYSTEM/C=CZ #################################### Hierarchie nastavena v 02.05.2000 11:07:09 St edoevropsk Funkce LSLF-4JXCGFLudek Slouf LSLF-4JXCGV 1041Hlavn HU104Hlavn ekonom nad 645CB5587EFF177FC12568D3003110FE1CN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ ################# j;2a=1 Funkce j;2a=1 LSLF-4JXCFKLudek Slouf LSLF-4JXCJ3 Obchodn k1021Obchodn stupceOZ1102Mana seku obchodu nad 323B6ABA49C9DF85C12568D300313D610CN=Ludek Slouf/O=ARSYSTEM/C=CZa=1 CN=Ludek Slouf/O=ARSYSTEM/C=CZ Hierarchie nastavena v 02.05.2000 10:58:29 St edoevropsk CN=Ludek Slouf/O=ARSYSTEM/C=CZ ################################ Funkce LSLF-4JXCG3Ludek Slouf LSLF-4JXCJM Vedouc provoz 1031Vedouc provozu 01VP01103Mana roby nad A6369DF87607821CC12568D3003151E70CN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ*j1 Hierarchie nastavena v 02.05.2000 10:59:45 St edoevropsk CN=Ludek Slouf/O=ARSYSTEM/C=CZ ############################## stnanecLudek Slouf Ing.JanVon sek00001123456789123NS001 editelstv 817CN=Jan Von sek/O=ORGANIZACE [BasicEditor]100 editel spole nosti[PersonalEditor][LoginEditor]123456789/123 LSLF-4JXC7S CN=Ludek Slouf/O=ARSYSTEM/C=CZ ######################################### $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE $Flags 0SL1S4S5S3724 $TITLE CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ################################ ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## &Arial CE Diagram Organiza diagram Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder Vytvo diagram '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim workspace As New NotesUIWorkspace Dim doc As NotesDocument Dim uidoc As NotesUIDocument Dim handleV As Variant Dim view As NotesView Dim coll As NotesDocumentCollection Dim ShapeWidth As Integer 'Declare a series of variables to differing types Dim ShapeHeight As Integer 'These variables are used for the shape sizes and locations Dim ShapeX As Integer 'ShapeX is used to set the beginning X coordinate for the shape Dim ShapeY As Integer 'ShapeY is used to set the beginning Y coordinate for the shape Dim DisplayCol As Integer 'DisplayCol creates virtual columns by multiplying times VertSpacer Dim DisplayRow As Integer 'DisplayRow creates virtual rows by multiplying time HorzSpacer Dim VertSpacer As Integer 'Base amount for vertical spacing (columns) Dim HorzSpacer As Integer 'Base amount for horizontal spacing (rows) Dim fontsize As Integer ShapeWidth = 1500 'Default shape width ShapeHeight = 500 'Default shape height VertSpacer = 1000 'Default amount of vertical space between shapes HorzSpacer = 350 'Default amount of horizontal space between shapes DisplayCol = 1 'Multipy times VertSpacer to create virtual columns DisplayRow = 1 'Multiply times HorzSpacer to create virtual rows fontsize = 80 Dim tmp As Variant Dim shape_string As String Set db = session.CurrentDatabase Set uidoc = workspace.CurrentDocument 'Zde je pot eba zjistit: Po ' Pro ka et funkc 'Vypo tat a nastavit velikost plochy 'Po Set view = db.GetView("Hierarchie") Set doc = view.GetFirstDocument ' editel Set coll = doc.Responses first = coll.Count 'Vytvo objektu Set handleV = uidoc.CreateObject("Diagram","Lotus.Draw.1" ) handleV.ShowToolBox = False handleV.ShowGrid = True ' editel ShapeX = (HorzSpacer * DisplayRow) + (ShapeWidth * (DisplayRow - 1)) 'Horizont adnice ShapeY = handleV.Height - (VertSpacer * DisplayCol) - (ShapeHeight * DisplayCol) 'Vertik adnice Call handleV.CreateTextShape(37, ShapeX, ShapeY, ShapeWidth, ShapeHeight) 'Nakresl tmp = doc.fce_n shape_string = tmp(0) tmp = doc.nr_fce shape_string = shape_string & Chr(13) & tmp(0) handleV.Selection.Name = tmp(0) handleV.Selection.TextSize = fontsize handleV.Selection.Text = shape_string 'Dal DisplayCol = DisplayCol + 2 'Setting the vertical position down for the new row For i = 1 To coll.Count Set doc = coll.GetNthDocument(i) ShapeX = (HorzSpacer * DisplayRow) + (ShapeWidth * (DisplayRow - 1)) 'Horizont adnice ShapeY = handleV.Height - (VertSpacer * DisplayCol) - (ShapeHeight * DisplayCol) 'Vertik adnice Call handleV.CreateTextShape(37, ShapeX, ShapeY, ShapeWidth, ShapeHeight) 'Nakresl DisplayRow = DisplayRow + 1 'Add one to DisplayRow. When multiplied times HorzSpacer, will set tmp = doc.fce_n shape_string = tmp(0) tmp = doc.nr_fce shape_string = shape_string & Chr(13) & tmp(0) handleV.Selection.Name = tmp(0) handleV.Selection.TextSize = fontsize handleV.Selection.Text = shape_string Next i 'Propojky For i = 1 To coll.Count Set doc = coll.GetNthDocument(i) tmp_od = doc.nr_nad_fce tmp_do = doc.nr_fce Call handleV.SelectByName(tmp_od(0),0) Xstartconnect = handleV.Selection.XPos + handleV.Selection.Width/2 Ystartconnect = handleV.Selection.YPos Call handleV.SelectByName(tmp_do(0),0) Xendconnect = handleV.Selection.XPos + handleV.Selection.Width/2 Yendconnect = handleV.Selection.YPos + handleV.Selection.Height Call handleV.CreateLine(Xstartconnect, Ystartconnect, Xendconnect,Yendconnect) Next i Call handleV.SelectNone() Call handleV.Redraw() End Sub O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Info $$Script_O $$ScriptName $Body $ACTIONS $SCRIPTOBJ_6 '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.od = srcdoc.od_1 uidoc.Reload End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.do = srcdoc.do_1 uidoc.Reload End Sub &Arial CE '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub UkonciPlatnost (source As NotesUIdocument) '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim modechangecontinue As Variant Dim arch_doc As NotesDocument Dim old_nr_fce As Variant Dim novy As Variant '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:2:UkonciPlatnost:1:8 Sub UkonciPlatnost (source As NotesUIdocument) REM Tato procedura ukon platnost verze dokumentu REM a ulo kopii dokumentu. REM Parametr vol procedury obsahuje UIDocument, kter chci archivovat REM Procedura vy aduje v arch. dokumentu tyto pole: REM od: obsahuje po tek platnosti dok. REM do: obsahuje konec platnosti dokumentu REM edit_test: toto pole je nastaveno na hodnotu "Close", je-li ukon ena platnost dokumentu REM Archivovan dokument m t ulo en ihned, (nev - archiv. dokument se vytvo adavku na pravu origin REM nebo a v QuerySave dokumentu, ze kter ho je tato procedura vol na (je mo kat na ulo n. Nejsou-li ulo eny, arch v se nevytv REM Pak je spodn dek ulo it do Globals REM Dim arch_doc As NotesDocument REM Dim novy As Variant REM v Postopen p REM novy=Source.Isnewdoc REM a v "QuerySave" pou REM If Not novy Then Call arch_doc.Save( True, True ) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Dim dat As Variant Dim in_put As String Dim for_date As Variant Dim od As Variant Dim kon_platnosti As Variant Dim db As NotesDatabase Set srcdoc = source.Document Set session = New NotesSession Set db = session.CurrentDatabase Err = 0 'Nulov chybov prom vstup_data: On Error Resume Next 'O chyby p i vstupu data in_put = Inputbox$("Zadejte datum ukon platnosti t to verze dokumentu.","Datum",Today) If in_put = "" Then Exit Sub End If dat = Cdat(in_put) 'P eveden vstupu na form t data If Err <> 0 Then 'Otestovan platnosti vstup. Messagebox "Je mi l to, ale datum pravd podobn "+ Chr$(13)+"bylo zad no v chybn m tvaru."+ Chr$(13)+"Doporu uji tento form t: DD.MM.RR",16 Err = 0 'Nulov chybov prom Goto vstup_data 'P i chyb vstupu End If od = srcdoc.od 'P hodnoty po . platnosti z dokumentu If od(0) > dat Then 'Otestovan platnosti vstup. daje - konec platnosti mus Messagebox "Datum ukon platnosti mus "+ Chr$(13) + "ne "+Str$(od(0)),16,"Chybi ka se vloudila" Err = 0 Goto vstup_data 'P i chyb vstupu End If Dim DatKonPlat As New NotesDateTime(Dat) Dim DatPocPlat As New NotesDateTime(Dat) Call DatPocPlat.AdjustDay( 1 ) 'Datum po tku platnosti nov verze = dat. konce plat. star verze + 1 den s = Messagebox ("Chcete dokument upravit?"+ Chr$(13)+"Stiskem tla tka NE ukon te pouze platnost.",35," prava dokumentu") Select Case s Case 2 Exit Sub 'Po stisku "Cancel" je ukon en podprogram Case 7 Goto SkonciPlatnost End Select Set arch_doc = New NotesDocument( db ) ' Vytvo kopie dokumentu pro zachov historie Call srcdoc.CopyAllItems( arch_doc, True ) ' Kopie v v dokumentu Set arch_doc.do = DatKonPlat ' Vlo data ukon platnosti do kopie arch_doc.edit_test = "Close" ' Uzam dokumentu proti editov 'Archivovan dokument m t ulo en ihned, (nev - archiv. dokument se vytvo adavku na pravu origin REM Call arch_doc.Save( True, True ) Set srcdoc.od = DatPocPlat ' Vlo tku nov platnosti nov verze dokumentu srcdoc.Relfresh Call uidoc.Reload Exit Sub SkonciPlatnost: Set srcdoc.do=DatKonPlat ' Vlo data ukon platnosti srcdoc.edit_test = "Close" ' Uzam dokumentu proti editov Call srcdoc.Save( True, True ) ' Ulo dokumentu REM A pak je nutno dokument ihned zav Call uidoc.Close End Sub curiculum'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen(Source As Notesuidocument) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Postmodechange(Source As Notesuidocument) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen On Event Querymodechange From Source Call Querymodechange On Event Postmodechange From Source Call Postmodechange On Event Querysave From Source Call Querysave End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) novy=Source.Isnewdoc modechangecontinue = False If source.IsNewDoc Then source.EditMode = True Else modechangecontinue = True source.EditMode = False modechangecontinue = False End If End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) If Not modechangecontinue Then Continue=False End Sub '++LotusScript Development Environment:2:2:Postmodechange:1:12 Sub Postmodechange(Source As Notesuidocument) modechangecontinue = False End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim srcdoc As NotesDocument Dim test_od As Variant, test_do As Variant Set srcdoc = source.Document test_od = srcdoc.od test_do = srcdoc.do If Not (test_do(0) ="") Then 'Test, je-li datum ukon platnosti v datum po tku platnosti If test_od(0) > test_do(0) Then Messagebox "Datum ukon platnosti mus "+ Chr$(13) + "ne " + Str$(test_od(0)),16,"Chyba v zad Continue = False Else Continue = True End If End If If Not novy Then Call arch_doc.Save( True, True ) ' Ulo origin lu dokumentu p ho dokumentu End Sub Archiv 1S2S ivotopis jmeno jmeno prijmeni prijmeni Vytvo Autor_2 dne: DatVytv_2 Datum platnosti od DatPosledniZkousky DatPlatnosti Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From FolderL 0S0E it a zav 0S0E 0S0E Upravit '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Dim dat As Variant Dim in_put As String Dim for_date As Variant Dim od As Variant Dim kon_platnosti As Variant Dim db As NotesDatabase Dim demo As Integer Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document Set sess = New NotesSession old_nr_fce=srcdoc.nr_fc 'Zapamatov sla p az. funkce pro kontolu, zda do lo ke zm funkce modechangecontinue = True ' Povolen editace origin lu dokumentu uidoc.EditMode = True Call UkonciPlatnost(uidoc) End Sub edit_test Close 1S2S3S4S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $$od_1 $od_1_O $$do_1 $do_1_O zamestnan_od DatVytv $TITLE $Info $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $ACTIONS $SCRIPTOBJ_9 &Arial CE (LoginName) [LoginEditor] Login jm na a hesla [LoginEditor] login_nameLogin jm na a hesla (Setup) login 0S0E listj 0R11Sname_login_1 login_1 Heslo pro name_login_1" 1S2S name_passwd_1 passwd_1 (Setup) login 0S0E listj 0R11Sname_login_2 login_2 Heslo pro name_login_2" 1S2S name_passwd_2 passwd_2 (Setup) login 0S0E listj 0R11Sname_login_3 login_3 Heslo pro name_login_3" 1S2S name_passwd_3 passwd_3 (Setup) login 0S0E listj 0R11Sname_login_4 login_4 Heslo pro name_login_4" 1S2S name_passwd_4 passwd_4 (Setup) login 0S0E listj 0R11Sname_login_5 login_5 Heslo pro name_login_5" 1S2S name_passwd_5 passwd_5 (Setup) login 0S0E listj 0R11Sname_login_6 login_6 Heslo pro name_login_6" 1S2S name_passwd_6 passwd_6 (Setup) login 0S0E listj 0R11Sname_login_7 login_7 Heslo pro name_login_7" 1S2S name_passwd_7 passwd_7 (Setup) login 0S0E listj 0R11Sname_login_8 login_8 Heslo pro name_login_8" 1S2S name_passwd_8 passwd_8 (Setup) login 0S0E listj 0R11Sname_login_9 login_9 Heslo pro name_login_9" 1S2S name_passwd_9 passwd_9 O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G !`C#f $TITLE $Info $$Script_O $$ScriptName $Body '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.od = srcdoc.od_1 uidoc.Reload End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.do = srcdoc.do_1 uidoc.Reload End Sub prijmeni jmeno 0S0E &Arial CE '++LotusScript Development Environment:2:5:(Options):0:74 Option Public %INCLUDE "lsconst.lss" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:10 Public arch_doc As NotesDocument Public newdoc As Variant Public StartDate As Variant '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub stnanec'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen(Source As Notesuidocument) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Postmodechange(Source As Notesuidocument) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen On Event Querymodechange From Source Call Querymodechange On Event Postmodechange From Source Call Postmodechange On Event Querysave From Source Call Querysave On Event Queryclose From Source Call Queryclose On Event Queryopen From Source Call Queryopen End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) 'Ulo ho obsahu pol pro kontrolu zm i ulo dokumentu Dim db As NotesDatabase Dim session As New NotesSession If Not newdoc Then Set arch_doc = New NotesDocument(session.CurrentDatabase) Call Source.Document.CopyAllItems( arch_doc,True) arch_doc.Archiv = "1" arch_doc.Form = "Zam stnanec" StartDate = Source.Document.od(0) End If End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Postmodechange:1:12 Sub Postmodechange(Source As Notesuidocument) End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim item1 As NotesItem Dim item2 As NotesItem 'Validace pol '***************************************************************************************** Select Case Source.Document.archiv(0) Case "1" Messagebox "Archivovan dokument nelze upravovat!" Continue = False Exit Sub Case "2" If (Source.Document.do(0) = "") Or (Source.Document.do(0) < Source.Document.od(0))Then Messagebox "Uve te spr datum ukon platnosti!" Continue = False Source.Gotofield("do") Exit Sub End If Set item1 = New NotesItem(Source.Document,"DocumentAuthors", "DocArchiv", AUTHORS) Call item1.AppendToTextList( "LocalDomainServers" ) Call item1.AppendToTextList( "KostelecMIS" ) Call item1.AppendToTextList( "KostelecHR" ) Set item2 = New NotesItem(Source.Document,"DocumentReaders", "DocArchiv", READERS) Call item2.AppendToTextList( "LocalDomainServers" ) Call item2.AppendToTextList( "KostelecMIS" ) Call item2.AppendToTextList( "KostelecHR" ) Source.Document.Archiv = "1" Case Else Print "Validace pol " If Not newdoc Then If StartDate >= Source.Document.od(0) Then msg = "Datum platnosti dokumentu" + Chr(10) msg = msg + "by m " + Cstr(StartDate) + Chr(10) msg = msg + "Chcete pokra ovat?" If Messagebox(msg,36,"Ov hodnot") = 7 Then Source.Gotofield("od") Continue = False Exit Sub End If End If End If If source.Document.od(0) = "" Then Messagebox "Za tek doby platnosti mus t uveden!",48,"Ov hodnot" Source.Gotofield("od") Continue = False Exit Sub End If If source.Document.jmeno(0) = "" Then Messagebox "Jm no mus t uvedeno!",48,"Ov hodnot" Source.Gotofield("jmeno") Continue = False Exit Sub End If If source.Document.prijmeni(0) = "" Then Messagebox "P t uvedeno!",48,"Ov hodnot" Source.Gotofield("prijmeni") Continue = False Exit Sub End If If source.Document.evc(0) = "" Then Messagebox "Eviden slo mus t uvedeno!",48,"Ov hodnot" Source.Gotofield("evc") Continue = False Exit Sub End If 'Konec valida formul '***************************************************************************************** If Not newdoc Then arch_doc.do = Datenumber(Year(Source.Document.od(0)), Month(Source.Document.od(0)), Day(Source.Document.od(0))-1) Set item1 = New NotesItem(arch_doc,"DocumentAuthors", "DocArchiv", AUTHORS) Call item1.AppendToTextList( "LocalDomainServers" ) Call item1.AppendToTextList( "Archive" ) Set item2 = New NotesItem(arch_doc,"DocumentReaders", "DocArchiv", READERS) Call item2.AppendToTextList( "LocalDomainServers" ) Call item2.AppendToTextList( "Archive" ) Call arch_doc.Save( True, True ) ' Ulo origin lu dokumentu p ho dokumentu End If End Select End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim view As notesview Dim db As Notesdatabase Dim session As New NotesSession Set db = session.CurrentDatabase Set view = db.GetView("regnumber") If (newdoc) Then Call view.Refresh End If End Sub '++LotusScript Development Environment:2:2:Queryopen:1:12 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) newdoc = Isnewdoc End Sub Lotus Product Archiv 1S2S ARCHIVOVAN DOKUMENT PROFIL ZAM STNANCE titul Jmeno prijmeni" titul2" 6S7S8S9S10S11S12S13S14S15S16S17S tmpCeleJmenoZ (Setup) 0S0E Vytvo Autor dne: DatVytv Datum platnosti od kladn [BasicEditor] basic_dataZ kladn Titul p ed jm.: titulTitul osoby (Setup) titlelist 5S2E fcenr_0 0S0E Titul za jm.: titul2 (Setup) title2list jmeno prijmeni slo:: rodcis1Prvn rodcis2Druh Organiza jednotka: NoCache stredisko 0S0E Funkce: fcenr_0 fcenr_0 fcenr_1 fcenr_1 fcenr_2 fcenr_2 fcenr_3 fcenr_3 fcenr_4 fcenr_4 fce_0 0S0E fce_0 fce_0 >> fce_link_0 fce_link_0 fce_1 0S0E fce_1 fce_1 >> fce_link_1 fce_link_1 fce_2 0S0E fce_2 fce_2 >> fce_link_2 fce_link_2 fce_3 0S0E fce_3 fce_3 >> fce_link_3 fce_link_3 fce_4 0S0E fce_4 fce_4 >> fce_link_4 fce_link_4 Foto: fotoZde vlo te fotografii Podpis: podpisPodpisov vzor Pracovi pracovisteM Section {$+,{$ Kancel kancel slo kancel Telefon: TelTelefonn slo kancel Mobil: mobil mobil Notes mail: LNmail LNmail e-mail: email email [PersonalEditor] (Personal) [LoginEditor] (LoginName) edit_test rodcis1 rodcis2 0S0E rodcis fcenr fcenr archiv archiv Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folderi 0S0E it a zav 7S12S Upravitn 0S0E Archiv 1S2S ivotopis. curiculum 0S0E Archiv 1S2S kolen kolen 0S0E Archiv 1S2S esunout do arch archiv archiv Archiv 0S0E [Archiv] 5S8S9S Telefon (PhoneHelper) Telefonn 3S4S5S6S8S [PhoneEditor] e-mailL (MailHelper) Adresy 3S4S5S6S8S [MailEditor] Categori_ze _Edit Document Send Docu_ment _Forward _Move To Folder... _Remove From Folder 0S0E it a zav 7S12S Upravit 0S0E Archiv 1S2S ivotopis. curiculum 0S0E Archiv 1S2S kolen kolen 0S0E Archiv 1S2S esunout do arch archiv archiv Archiv 0S0E [Archiv] 5S8S9S Telefon (PhoneHelper) Telefonn 3S4S5S6S8S [PhoneEditor] e-mailL (MailHelper) Adresy 3S4S5S6S8S [MailEditor] O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO $$od_1 $od_1_O $$do_1 $do_1_O zamestnan_od CisloJKZ $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS &Arial CE '++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:2 (DatabaseMapping)'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Postmodechange(Source As Notesuidocument) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Queryopen From Source Call Queryopen On Event Querymodechange From Source Call Querymodechange On Event Postmodechange From Source Call Postmodechange On Event Querysave From Source Call Querysave On Event Queryclose From Source Call Queryclose End Sub '++LotusScript Development Environment:2:2:Queryopen:1:12 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Postmodechange:1:12 Sub Postmodechange(Source As Notesuidocument) End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) End Sub Database Mapping Subform ___ _ Hidden Fields Server _ O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO J9U`G $TITLE $Info $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) Declare Sub Terminate Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim session As New NotesSession Dim doc As NotesDocument Dim workspace As New NotesUIWorkspace Set doc = workspace.CurrentDocument.Document doc.FCnadrizeny = "" End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub Funkce: fce_n 1S2S Arial CE Profil funkce||KORADO a.s. &Arial CE (Funkce) (fce) (PopisFunkce) Popis funkce [AccessEditor] 0S0E Osoby s p stupem k dokument to osoby v jin ch aplikac [AccessEditor] pristupOsoby s p stupem k dokument to osoby v jin ch aplikac Prohl pis do e v po schr : zahrnout: add_diar LNpris_diar Prohl a zad : zahrnout: add_ukoly LNpris_ukoly (SystemInformation) O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ PURSAFO >VCl2p created $$nr_nad_fce $nr_nad_fce_O $TITLE $Info $WindowTitle $$Script_O $$ScriptName $Body &Arial CE innost 12.12.95 10:22:43 0S0E UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU """""""""""""""""""""""""""""""""% zpracov MQ), tj.: S26S27S28S29S30S innost 12.12.95 10:22:43 YYYY- YYYYY YYYYY 3YYYYY%YYY "YYYI =YYYY ,YYY3 YYYQYY YYYY3 YYYYY ,YYYYYY YYYYYY, YYYYD YYYYYY YYYYYYY YYYYY -YYY-VYYY YYYYY PYYYY YYYYYY -YYYYY Y)YYYD YYYYY- YPYYYD YYYYY PYYYY YYYYY QYYYY YYYYI 8PYYYY YYYP VYYYQY% JfmLU {}yjuu}~9YYYY TYYYYYYG [(YYYPY*YYYYKYYY 1RRr&^m1Ur11{{AR 1111ffff^oW3QI YYYYY)tg8YYY ~EYYY YYYYYY mU7f^1mf1A 1{rrfr1117bmft| $}bt%YYYYV2cMYYY |.YYYWIYYY YYYYD UfAZ1{L1rr&J &1AmfrfmfA117 $}fp3YY4NOnU ~-YY-p=YYY'YYYY" f}&mAL 17}m&A} {fmf111mffmffr L+`PYY4sb^fy53YYYYY U:VYYDt-YYYHDYYY, R1r$mr&L}m&U& 1{ff^ffr111Rmf YYY;wffbZ \YYYP0YYY=z=YYY b$U{r7 $11bmf^mfmZ17A $rdEYYY B61Um~ @DM~!YY)<IYYY $L}Z$U {rrmA11Zmfbbf {x3YYY>vfmU1R b_qhef_v?+tt=YYY% rRr!{m$mf$b{R${ rrmA^ {rr11LrrfrR11Ummr YYY=k_^ff UZffff^a^il_eDYYYQ $^}7J A1{rJ&r{Z&Zrfm^11rmfmZ1&ffmfrR1L $}f|1I 8uff^^} L717&rfmfb_ePYYY A7}^$mr$L{r11rrZ&Urffr1&bfffrA11rfff $}^^lkz]117rf Xfbfmfr1111Rm !rf$rrA7 Z$brr$LrrZ&JrbfrA1Urbbmm&1Z}7 Lbmf^_bmmf11R ^^b^b^mfmmZ17 1Z{&Zrb$m{17rr^&Zrr^&JrbfmU&Lrf^mrLZ 717mmf^^bff fff^^b^b^bb{A ALrr1L{f&LrrR$brm^1Arfbm^1&mf^rf $rbmf111rmf^^} 1U11Jrffb^^bZ m$}Z1{Z$rrZ$frZ&brrA&mmfb&Arfbfr71Z f^^mfr&17rf Lrmm^111Zmffbb 7rr!rm$r{$Zrr7Jrr71rmr11rfmb&1mf^frJU !J1fmfZbmmb11b Z^bbmfrL11A Ub{$m{$^{JJrf^7}{{7^}fr&7rffm11mmZ $}m71Arf^^bmmr fb^^^b^fmmb&UZ 1Z{&Z}7Rr^&rr& rfmf&Lrbfr1&r $r^mmb1&mff^Z Z71Zmff^^^b^bffrr$ AZ{7Z{R7rm$} ^7rbm^&Zr^mr11 b^^bmr71Arf R11Lrff^^b^b^b L}AZrALrb$rrJL b$Zr^rU$bmZ JJrf^^bfmb&1{ fZ11Lrff^^b^Z $Z{AZrULmr$mm bJrrR$rbbrA&rb ^17rf^^bbmrZ bmmZ11Ammf^bZ A{AZrUJrr&Z}J Z$rfr1ArbfrR $r^rf1&rfb^^^ ^^ffmb111rfffZ $bLrJUrZ1mrAL 7r^{$Zmmb$^rZ b^^mr11UmfZ} ^^b^bfmf111f JR{JUmb1rfUR1 RrbZrU&rbrL$ !AJrf^^mrU17r Lrf^b^b^bfmm1Z 1}JUrJZmf$rbm7 $Zm^fr$^mbmZ ^&Jrf^^fmf&Z !A7mfb^b^b^bf f7^rLJmr$r^ JrrLAr^^rJ7rmR $rbr^&Jrf^^bf frf11Umf^^b^^{ }m1bmZJmr$bmL7Zff^$rb^mb$ $}Z^br^1Arf^^ Zr^bfrU11rmb^^rL Zmr$rfZAmr1brmLJr^{&Zm^b{7 Lrf^^bmb$Jrfr r^^b^^ffr&1Zmfr bJmr$rbZJmm1^ff^&r^rLArZ} $Lrb^bbmb&Ar}{{}rr{m&1mm^^b^b^mrL17 mUbr$rfZJmm7Zf^r$rbfb$m $rrZ&Zr^^bbmb&1mfZ^b^bmm1&mmb^^b^^fmbZ 7b^{!rbZJmmLUm^r&^f^rJ$ $r^brR&bm^^b^rr11rf^b^^bfr71Rrf^b^b^rJ $r^r&rbZJmfLJm^rARmZ }b^bbrA1mf^b^^mr&1rf^b^b^mmZ&Jrf^bZ r$r^m1mbZJmfZAr^rU7}L &LLr^^bfr17rf^b^^mm11mf^^b^bbmb&1mb Arm1mbZJmbZ1rb^&r^f^Z Z$mf^^bff&7rf^b^bmm11rf^b^b^bmm1ZA ^^JmbZJmbm&rbm&r^fr $rbr77rb^bbmm$Lrb^b^bfr1&rf^^bZbr UfbLUbbZAf^m$r^m$f} $rZZff$Um^^^^mZ$Zm^^^^^fr&1rmr bfbfbfbr&^r{! f1rmbbfbfbrZ&r m17rb^^^b^fr1A{ {b^rf$Zm}f^b^bmfU }Z^Z^rJ^ ^rZ^^Z^f I$I$I I$I$I mI$I$ I$I$m I$I$I$m mI$mI I$I$I I$I$I $m$mI$I I$I$I $I$I$ @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` Belko/O=EDIT O datab zi Organiza struktura @ @@ @` @ @@ @@@@@`@@ `@ `@@`@``@ Datab ze Organiza struktura slou k evidenci pracovn ch i osobn o zam stnanc ch a k definici struktury organizace. Tato datab ze je ur ena ke spolupr ci s ostatn mi aplikacemi pro delegov stupov ch pr v a dal ch informac o zam stnanc verze 5.0, listopad 1998. 1997 A SYST M a.s. Optimalizov no pro rozli monitoru 800x600, 256 barev O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO $Info $Body '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.od = srcdoc.od_1 uidoc.Reload End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Entering(Source As Field) Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Entering From Source Call Entering On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim srcdoc As NotesDocument Set uidoc = workspace.CurrentDocument Set srcdoc = uidoc.Document srcdoc.do = srcdoc.do_1 uidoc.Reload End Sub &Arial CE '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Use "OSPrivate" %INCLUDE "lsconst.lss" '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:10 'Deklarace glob ch prom Public newdoc As Variant Public OldNrNadFce As String Public OldEVC As String Public archfce As NotesDocument Public StartDate As Variant (fce)'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Postopen(Source As Notesuidocument) Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) Declare Sub Postmodechange(Source As Notesuidocument) Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant) Declare Sub Postrecalc(Source As Notesuidocument) Declare Function CompareStringToList(string1 As String, List1 As Variant) As Integer Declare Function RemoveFromList(String1 As String, List1 As Variant) As Variant '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Postopen From Source Call Postopen On Event Querymodechange From Source Call Querymodechange On Event Queryopen From Source Call Queryopen On Event Postmodechange From Source Call Postmodechange On Event Querysave From Source Call Querysave On Event Queryclose From Source Call Queryclose On Event Postrecalc From Source Call Postrecalc End Sub '++LotusScript Development Environment:2:2:Postopen:1:12 Sub Postopen(Source As Notesuidocument) ho obsahu pol pro kontrolu zm i ulo dokumentu Dim db As NotesDatabase Dim session As New NotesSession If newdoc Then OldEVC = "" OldNrNadFce = "" Else Set archfce = New NotesDocument(session.CurrentDatabase) Call Source.Document.CopyAllItems( archfce,True) archfce.Archiv = "1" archfce.Form = "Funkce" OldEVC = Source.Document.evc(0) OldNrNadFce = Source.Document.nr_nad_fce(0) StartDate = Source.Document.od(0) End If End Sub '++LotusScript Development Environment:2:2:Querymodechange:1:12 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) End Sub '++LotusScript Development Environment:2:2:Queryopen:1:12 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) newdoc = Isnewdoc End Sub '++LotusScript Development Environment:2:2:Postmodechange:1:12 Sub Postmodechange(Source As Notesuidocument) End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim session As New NotesSession Dim rtitem As Variant Dim msg As String Dim fcenrList() As String Dim view As NotesView Dim pocFce As Integer Dim ExistIndex As Integer Dim fieldName As String Dim fceItem As NotesItem Dim profiledoc As NotesDocument Continue = True 'Validace pol If Source.Document.archiv(0) <> "1" Then 'V e se prov , nen -li ji dokument v arch If source.Document.fce_z(0) = "" Then Messagebox "Zkratka funkce mus t uvedena!",48,"Ov hodnot" Source.Gotofield("fce_z") Continue = False Exit Sub End If If source.Document.fce_n(0) = "" Then Messagebox "N zev funkce mus t uveden!",48,"Ov hodnot" Source.Gotofield("fce_n") Continue = False Exit Sub End If If source.Document.od(0) = "" Then Messagebox "Za tek doby platnosti mus t uveden!",48,"Ov hodnot" Source.Gotofield("od") Continue = False Exit Sub End If If Not newdoc Then If StartDate >= Source.Document.od(0) Then msg = "Datum platnosti dokumentu" + Chr(10) msg = msg + "by m " + Cstr(StartDate) + Chr(10) msg = msg + "Chcete pokra ovat?" If Messagebox(msg,36,"Ov hodnot") = 7 Then Source.Gotofield("od") Continue = False Exit Sub End If End If End If '******************************************************************************************* 'Z pis odkazu na funkci do z znamu zam stnance - je-li funkce obsazena 'a nen -li vyb no z adresn knihy '******************************************************************************************* Set profiledoc = session.CurrentDatabase.GetProfileDocument("(Setup)") If profiledoc.SelectUser(0)="1" Then 'Vyhled dokumentu zam stnance dle EVC Set view = session.CurrentDatabase.GetView("regnumber") If Not(Source.Document.evc(0)) = "" Then Set docname = view.GetDocumentByKey(source.Document.evc(0)) If docname Is Nothing Then Exit Sub End If pocFce = Ubound(docname.fcenr) Redim Preserve fcenrList(pocFce) As String For i = 0 To pocFce fcenrList(i) = docname.fcenr(i) Next i ExistIndex = CompareStringToList(Source.Document.nr_fce(0),docname.fcenr) If ExistIndex = -1 Then 'Tato funkce dosud nen u zam stnance If pocFce = 0 And docname.fcenr(0) = "" Then 'jde-li o prvn pis pocFce = -1 Else 'jinak zam stnanec ji jakou funkci? Upozorn msg = "Zam stnanec " + source.document.evc(0) + " je ji azen na tyto funkce:" + Chr(10) For i = 0 To pocFce fieldName = "fce_" & Cstr(i) Set fceItem = docname.GetFirstItem(fieldName) msg = msg + " " + fcenrList(i) + " " + fceItem.Values(0) + nazfce + Chr(10) + Chr(10) Next i msg = msg + "Pokra ovat?" If Messagebox(msg, MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON1, "Upozorn " ) = IDNO Then Continue = False Exit Sub End If End If If pocFce < 5 Then Redim Preserve fcenrList(pocFce+1) As String fcenrList(pocFce+1) = Source.Document.nr_fce(0) docname.fcenr = fcenrList() fieldName = "fcenr_" & Cstr(pocFce+1) If docname.HasItem( fieldName) Then Set fceItem = docname.GetFirstItem(fieldName) fceItem.Values = Source.Document.fce(0) Else Set fceItem = New NotesItem( docname, fieldName, Source.Document.fce(0)) End If fieldName = "fce_" & Cstr(pocFce+1) If docname.HasItem( fieldName) Then Set fceItem = docname.GetFirstItem(fieldName) fceItem.Values = Source.Document.fce_n Else Set fceItem = New NotesItem( docname, fieldName, Source.Document.fce_n) End If fieldName = "fce_link_" & Cstr(pocFce+1) If docname.HasItem( fieldName) Then Set rtitem = docname.GetFirstItem(fieldName) Else Set rtitem = New NotesRichTextItem( docname ,fieldname) End If Call rtitem.AppendDocLink( Source.Document, Source.Document.fce(0) & " " & Source.Document.fce_n(0) ) Call docname.Save(True,True) Else Messagebox "V ce ne t zast ch funkc Continue = False Exit Sub End If End If End If 'Odstran star znamu funkce v zam stnanci If (OldEVC <> "") And (OldEVC <> Source.Document.evc(0)) Then Set docname = view.GetDocumentByKey(OldEVC) If docname Is Nothing Then Exit Sub Else Print "Ru m funkci v z znamu o zam stnanci" ExistIndex = CompareStringToList(Source.Document.nr_fce(0),docname.fcenr) If ExistIndex = -1 Then Messagebox "Z znam o funkci u zam stnance nebyl nalezen" Else fieldName = "fce_link_" & Cstr(ExistIndex) Call docname.RemoveItem( fieldName ) fieldName = "fce_" & Cstr(ExistIndex) Call docname.RemoveItem( fieldName ) fieldName = "fcenr_" & Cstr(ExistIndex) Call docname.RemoveItem( fieldName ) docname.fcenr = RemoveFromList(Source.Document.nr_fce(0), docname.fcenr) 'Odtran znamu ze seznamu fcenr v docname Call docname.Save(True,True) End If End If End If End If 'Ulo arch ho dokumentu If Not newdoc Then archfce.do = Datenumber(Year(Source.Document.od(0)), Month(Source.Document.od(0)), Day(Source.Document.od(0))-1) Dim item1 As NotesItem Dim item2 As NotesItem Set item1 = New NotesItem(archfce,"DocumentAuthors", "DocArchiv", AUTHORS) Call item1.AppendToTextList( "LocalDomainServers" ) Call item1.AppendToTextList( "Archive" ) Call item1.AppendToTextList( "[ArchiveEditor]" ) Set item2 = New NotesItem(archfce,"DocumentReaders", "DocArchiv", READERS) Call item2.AppendToTextList( "LocalDomainServers" ) Call item2.AppendToTextList( "Archive" ) Call item2.AppendToTextList( "[ArchiveEditor]" ) Call archfce.Save(True,True) End If Else Messagebox "Archivovan dokument nelze upravovat!" Continue = False Exit Sub End If End Sub '++LotusScript Development Environment:2:2:Queryclose:1:12 Sub Queryclose(Source As Notesuidocument, Continue As Variant) If Source.EditMode Then Call Hierarchie(Source.Document) End If End Sub '++LotusScript Development Environment:2:2:Postrecalc:1:12 Sub Postrecalc(Source As Notesuidocument) End Sub '++LotusScript Development Environment:2:1:CompareStringToList:1:8 Function CompareStringToList(string1 As String, List1 As Variant) As Integer Dim i As Integer Dim tmp As String Dim pocPrvku As Integer pocPrvku = Ubound(List1) i = 0 CompareStringToList = -1 For i = 0 To pocPrvku If string1 = List1(i) Then CompareStringToList = i Exit For End If Next i End Function '++LotusScript Development Environment:2:1:RemoveFromList:1:8 Function RemoveFromList(String1 As String, List1 As Variant) As Variant Dim i As Integer, y As Integer Dim tmp() As String Dim pocPrvku As Integer pocPrvku = Ubound(List1) If pocPrvku = 0 Then Redim tmp(PocPrvku) As String Else Redim tmp(PocPrvku-1) As String End If y = 0 For i = 0 To pocPrvku If string1 <> List1(i) Then tmp(y) = List1(i) y = y+1 End If Next i RemoveFromList = tmp() End Function Lotus Product ^d Kx ^T N< ^T N< ^T N< +t J< '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) Declare Sub Terminate Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim session As New NotesSession Dim doc As NotesDocument Dim workspace As New NotesUIWorkspace Set doc = workspace.CurrentDocument.Document doc.FCnadrizeny = "" End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) Declare Sub Entering(Source As Field) Declare Sub Terminate Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting On Event Entering From Source Call Entering End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) End Sub '++LotusScript Development Environment:2:2:Entering:1:12 Sub Entering(Source As Field) Dim session As New NotesSession Dim doc As NotesDocument Dim workspace As New NotesUIWorkspace Set doc = workspace.CurrentDocument.Document doc.FCnadrizeny = "" End Sub '++LotusScript Development Environment:2:2:Terminate:1:10 Sub Terminate End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub nadrizeni nadrizeni LNnadrizeny LNnadrizeny LNnadrizeni LNnadrizeni edit_test nadrizeny nadrizeny archiv archiv nr_nad_fce nr_nad_fce Archiv 1S2S ARCHIVOVAN DOKUMENT PROFIL FUNKCE fce_n tmpFCE (Setup) 0S0E Vytvo Autor dne: DatVytv Identifikace z znamu: nr_fce Datum platnosti od kladn Typ funkce: typ_fce typ_fceFunkce u firmy NoCache 0S0E Funkce zkratka: fce_n fce_z stup: fc_zastupce nr_nad_fce nr_nad_fce nad_fce nad_fce 0R1S FCnadrizeny FCnadrizeny 0R1S nr_nad_fce funkce Vyberte nad ho pro tuto funkci 0R4S5S6S7S8S11S13S14S15S16S17S18S FCnadrizeny nrfce nr_nad_fce fce_n nad_fce nrfce nr_nad_fce nr_nad_fce nr_nad_fce nad_fce nad_fce FCnadrizeny FCnadrizeny @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` nr_nad_fce 0S0E nr_nad_fce nr_nad_fce nad_fce nad_fce 0R1S FCnadrizeny FCnadrizeny 0R1S nr_nad_fce nad_fce FCnadrizeny @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` nad_fce nad_fce nr_nad_fce nr_nad_fce FCnadrizeny FCnadrizeny 0R1S LNmail LNmail 0R1S nr_nad_fce Funkce Obsazen funkce Vyberte nad zenou funkci 0R4S5S6S7S8S11S13S14S15S16S17S18S19S FCnadrizeny NoCache nrfce nr_nad_fce fce_n FCnadrizeny FCnadrizeny nr_nad_fce nr_nad_fce FCnadrizeny FCnadrizeny nrfce nr_nad_fce jmeno 0S0E nrfce nr_nad_fce prijmeni tmp1Z tmp2" 0R10S11S12S13S tmpNadName 0S0E it a zav 7S12S Upravit 0S0E Archiv 1S2S 0S0E it a zav 7S12S Upravit 0S0E Archiv 1S2S O=ARSYSTEM/C=CZ O=ARSYSTEM/C=CZ ;#Lo<( z"I0F@ PURSAFO O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ PURSAFO $SCRIPTOBJ_4 $$od_1 $od_1_O $$do_1 $do_1_O $SCRIPTOBJ_3 $Info $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $$nr_nad_fce $nr_nad_fce_O $$nad_fce $nad_fce_O $Body $V5ACTIONS $ACTIONS tTjt3 CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ va syst mu\Aktualizace loga CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=WEISSGARBER/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ ]SuXX CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZAdrian WeissgarberCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZJ6 va syst mu\Vytvo skupin v AB CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 2. Zam stnanci\Dle ev. sla|regidX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ Seznam zam stnanc podle jm na|ByName CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm CN=Dana Bittnerova/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle LN jm na|LNmail CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ;I[J3 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName| CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ 1. Funkce\Hierarchick struktura|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ Seznam zam stnanc podle funkce|ByFunctionX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ [Developer]Admins[Setup] 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (Telefonn seznam pro WWW)|webtel CN=Ladislav Oliva/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle st edisek|Podle st edisek CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ (Setup)ProfileX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ na|ByName 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm 2. Zam stnanci\Podle LN jm na|LNmail 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName 1. Funkce\Hierarchick struktura|Hierarchie Seznam zam stnanc podle funkce|ByFunction 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie (Telefonn seznam pro WWW)|webtel va syst mu\Aktualizace loga va syst mu\Vytvo skupin v AB 2. Zam stnanci\Dle ev. sla|regid Seznam zam stnanc podle jm na|ByName 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm 2. Zam stnanci\Podle LN jm na|LNmail 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName 1. Funkce\Hierarchick struktura|Hierarchie Seznam zam stnanc podle funkce|ByFunction 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie (Telefonn seznam pro WWW)|webtel 2. Zam stnanci\Podle st edisek|Podle st edisek (Setup)Profile ivotopiscuriculum va syst mu\Aktualizace loga va syst mu\Vytvo skupin v AB 2. Zam stnanci\Dle ev. sla|regid Seznam zam stnanc podle jm na|ByName 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm 2. Zam stnanci\Podle LN jm na|LNmail 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName 1. Funkce\Hierarchick struktura|Hierarchie Seznam zam stnanc podle funkce|ByFunction 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie (Telefonn seznam pro WWW)|webtel 2. Zam stnanci\Podle st edisek|Podle st edisek (Setup)Profile ivotopiscuriculum va syst mu\Aktualizace loga va syst mu\Vytvo skupin v AB 2. Zam stnanci\Dle ev. sla|regid Seznam zam stnanc podle jm na|ByName 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm 2. Zam stnanci\Podle LN jm na|LNmail 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName 1. Funkce\Hierarchick struktura|Hierarchie Seznam zam stnanc podle funkce|ByFunction 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie (Telefonn seznam pro WWW)|webtel tTjt3 CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ va syst mu\Aktualizace loga CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=WEISSGARBER/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ ]SuXX CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZAdrian WeissgarberCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZJ6 va syst mu\Vytvo skupin v AB CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 2. Zam stnanci\Dle ev. sla|regidX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ Seznam zam stnanc podle jm na|ByName CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm CN=Dana Bittnerova/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle LN jm na|LNmail CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ;I[J3 1. Funkce\Podle typu funkce|Podle typu funkce (FceToName)|FceToName | Nr_FceToName| CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ 1. Funkce\Hierarchick struktura|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ Seznam zam stnanc podle funkce|ByFunctionX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ [Developer]Admins[Setup] 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (Telefonn seznam pro WWW)|webtel CN=Ladislav Oliva/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle st edisek|Podle st edisek CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ tTjt3 CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ va syst mu\Aktualizace loga CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=WEISSGARBER/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ ]SuXX CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZAdrian WeissgarberCN=Denis Martaus/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZJ6 va syst mu\Vytvo skupin v AB CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 2. Zam stnanci\Dle ev. sla|regidX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ Seznam zam stnanc podle jm na|ByName CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle jm na|Zam stnanci\Podle jm na|Podle jm CN=Dana Bittnerova/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle LN jm na|LNmail CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ;I[J3 1. Funkce\Podle typu funkce|Podle typu funkce CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ Seznam zam stnanc podle funkce|ByFunctionX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle st edisek|Podle st edisek CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ ivotopiscuriculum CN=Ludek Slouf/O=ARSYSTEM/C=CZ Hierarchick struktura|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ Seznam zam stnanc podle funkce|ByFunctionX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ [Developer]Admins[Setup] 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (Telefonn seznam pro WWW)|webtel CN=Ladislav Oliva/O=ARSYSTEM/C=CZ 2. Zam stnanci\Podle st edisek|Podle st edisek CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ (Setup)ProfileX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ fZ|j= CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ y+Y[yj= CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ [Developer]Admins[Setup] CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ y+Y[yj= (FceToName)|FceToName | Nr_FceToName| CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ fZ|j= CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ (Setup)ProfileX CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ (Telefonn seznam pro WWW)|webtel CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Ladislav Oliva/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ 1. Funkce\Hierarchick struktura|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ 1. Funkce\Hierarchie, zkratky, jm na|Hierarchie CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Jaroslav Bucek/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZ CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ CN=Ludek Slouf/O=ARSYSTEM/C=CZ pohled pro z znam z jedn v Obchodn padech CN=Ladislav Oliva/O=ARSYSTEM/C=CZ $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE$C1$ $Flags 0SL1S4S5S $TITLE va syst mu\Smazat profil CN=Ludek Slouf/O=ARSYSTEM/C=CZ OSPrivate Nastaven modulu|Setup StringHandling ProfilesHandling ErrorHandling CreateGroup (CopyFce) LicenceHandling Database Script kolen |skoleni (Tfce)|tfce 2. Zam stnanci|Zam stnanci (Zam)|zam 1. Funkce|funkce (Funkce)|fce 3. Arch (Telefonn seznam)|telsez 1. Funkce\Podle sla funkce kolen \Dle zam stnanc (OSjmena)|(OSjmena)|osnames ($All)|$All (nrfce)|nrfce (Employee)|employee (nadrizeni) (Regnumber)|regnumber (Evcfce)|evcfce (LNjmena)|LNjmena (numberfce)|numberfce (NameToFce)|NameToFce edisko)|stredisko (Osoby s LN p stupem)|(LNP) (RegistrationDlgBox) Admins (LicenceStatus) (PhoneHelper) (DatabaseMappingDlgBox) (OSFunkce) CUA3x (SystemInformation) CUAx3 (NamesFunkce) (Personal) (PopisFunkce) Funkce Diagram (Error) kolen (LoginName) stnanec (DatabaseMapping) (Funkce) (fce) CUAx3N CN=WORM/O=ARSYSTEM/C=CZ (LNjmenaOP) Organiza struktura 5.0ormScript_OserverpathReadyDemoLicenceSelectUsertitlelisttitle2listfilenameloginlogoNoteIDmodifiedCreatedByCreatedDateOrderNummodifiedbyModifiedDate$SCRIPTOBJ_8$SCRIPTOBJ_9Telmobilcommentfinisheddatecommentfinishdatealarmdaysdocefficiencyfromdocefficiencytodocarchivationto$$FormAction1evctitulJmenoprijmenititul2nsLNmailEhDateEhRevCisloJKZDatPosledniZkouskyDelkaPeriodyDatPlatnostiDatNastupuDoFirmyDatVstupSkoleniDatSkolenipersonal_dataDatNarozeniStatPrislusnostPohlaviNarodnostMistoNarozeniZdravPojistovnaOkresNarozeniCisloOPRodneJmenoCisloPasDrivejsiPrijmeniulicepscmestoRodinnyStavUlice_1PSC_1Mesto_1DatNastupuNarokDuchodOdDatVystupuPocetDetiDruhZamestnaniDatOdeslZadostiDruDuchoduDuchodPriznanOdZdravStavDuchodPriznanDoSPSPocetOdpracRokuPocetDovolRokuPocetOdpracDnuPocetDovolDnuNazevSkolyRidicskyPrukazRokKonceSkolyPredchoziZamestnaniOborStudiaDosazeneVzdelanibodyadd_diarLNpris_diaradd_ukolyLNpris_ukolyod_1do_1$$nr_nad_fce$nr_nad_fce_OnadrizeniLNnadrizenyLNnadrizeniedit_testNadrizenyUNIDARCHIVnr_fcenr_nad_fceAutorDatVytvoddotyp_fcefcefce_nfce_zfc_zastupcenad_fceFCnadrizenytmpNadNamediagram$$od_1$od_1_O$$do_1$do_1_Ozamestnan_odAutor_2DatVytv_2datumSendToSubjecterror_IDerror_descriptionerror_rowerror_moduleerror_dateerror_userNazSkoleni