4DOC 5.0 Organiza
struktura
#24DOC 5.0 Organiza
struktura
(b#fpR
PRCRRC
NjMqx
hl{$i;
\=GBh.y?`
T r4_
2#0 @
`)2VZ
+RH4^
"iq4#
UHXIS
DJS(/La
]XK) #
7awHC
(#8mT$
yk4{x
K-.Hg
3A}@C
)CV
2" @A
FSd0y
Q X. p
H:8I;
@U/0d
m}RS):D
,VUm~y
EOYA{
s@InH
1If&I
4C3tn)l
*!= ;
:DRXGm
EMe)Hp
D$SY:\LD
F4HDC
4hA;4
(b#fpR
PRCRRC
NjMqx
d%:?6
wJ!iJ
Y(NUi
YJ2Y>7j*_#
'KyXx
x Sxex
]GvPi
brL?
;DV;+6
HWt $p@1
xg Q
*JAIK
ikV]9
!kRHH^
H-1xS
:G5S
VNV>8
UX\$Q0
XuFb B
Jb (TV
`X),e
f`),X(
giB\V
:J> ^
v@bI4l:
;b(\Vpq
LP%&C
U1c2!
gKtA!lU'
T)
bf%A0
fZ|j=
y+Y[yj=
j;2a=1
:,9cQ
tTjt3
]SuXX
;I[J3
@ @
osnames
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
osjmena
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
skoleni
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
stnanci
YCN=Adrian Weissgbrber/O=ARSYSTEM/C=CZ
webtel
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
nrfce
YCN=Ludek Slouf/O=ARSYSTEM/C=CZu
funkce
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
CDCN=Adrian Weirsgarber/O=ARSYSTEM/C=CZ
lnjmena
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
lnmail
;I[J3
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
edisko)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
(zam)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
setup
f3CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
CDCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
byname
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(lnp)
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
evcfce
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
regid
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(telefonn
seznam)
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
($all)
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(tfce)
database script
(nrfce)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
copyfce
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
telsez
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
(setup)
CDCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
profile
CDCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(licencestatus)
CUA3L
(phonehelper)
fZ|j=
CDCN=Ludek Slouf/O=ARSYSTEM/C=CZ
systeminformation
CUAx3CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
diagram
CDCN=Ludek Slouf/O=ARSYSTEM/C=CZF
(error)
error
(databasemapping)
databasemapping
(fce)
CUAx3NCN=Ludek Slouf/O=ARSYSTEM/C=CZ
cn=worm/o=arsystem/c=cz
hierarchie
dCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
1. funkce
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
namesfunkce
CUA3xCN=Adrian Weissgarber/O=BRSYSTEM/C=CZ
(osfunkce)
CUA3xCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
personal
CUA3CN=Ludek Slouf/O=ARSYSTEM/C=CZ
nadrizeni
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
regnumber
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
1. funkce/hierarchick
struktura
dCN=Adrian Webssgarber/O=ARSYSTEM/C=CZ
byfunction
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(personal)
CUA3CN=Ludek Slouf/O=ARSYSTEM/C=CZ
podle jm
YCN=Dana Bittnerova/O=ARSYSTEM/C=CZ
fcetoname
(nametofce)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
osfunbce
CUA3xCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(telefonn
seznam pro www)
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
2. zam
stnanci/podle ln jm
;I[J3
YCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(copyfce)
CN=Ludek Slouf/O=ARSYSTEM/C=CZI
(employee)
YCN=Ludek Slouf/O=ARSYRTEM/C=CZ
(regnumber)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
nametofce
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
databasemappingdlgbox
y+Y[yj=
employee
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
(nadrizeni)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
phonehelper
fZ|j=
CDCN=Ludek Slouf/O=ARSYSTEM/C=CZ
1. funkce\hierarchick
struktura
dCN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(osjmena)
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
nastaven
modulu
f3CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(lnjmena)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
stredirko
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
(numberfce)
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
(fcetoname)
numberfce
YCN=Ludek Slouf/O=ARSYSTEM/C=CZ
popisfunkce
CUA3CN=Adrian Weissgarber/O=ARSYSTEM/C=CZk
(loginname)
CUA3CN=Ludek Slouf/O=ARSYSTEM/C=CZ
loginname
CUA3CN=Ludek Slouf/O=ARSYSTEM/C=CZ
(lnjmenaop)
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
lnjmenaop
YCN=Ladislav Oliva/O=ARSYSTEM/C=CZ
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
$Modified
1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$As{istFlags$UpdatedBy$$FormScript_O$LANGUAGE
$Flags
0SL1S4S5S3724
$TITLE
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ Template D
:,9cQ
CN=Denis Martaus/O=ARSYSTEM/C=CZ Notes Temp
CN=Denis Martaus/O=ARSYSTEM/C=CZth a r5 Pub
CN=Denis Martaus/O=ARSYSTEM/C=CZlic NAB. a
CN=Denis Martaus/O=ARSYSTEM/C=CZNotes
CN=Denis Martaus/O=ARSYSTEM/C=CZtus Notes
CN=Denis Martaus/O=ARSYSTEM/C=CZtes
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZotes Templa
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 Report)Del
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZDevelopment
CN=Denis Martaus/O=ARSYSTEM/C=CZInfo
CN=Denis Martaus/O=ARSYSTEM/C=CZus Notes Te
CN=Denis Martaus/O=ARSYSTEM/C=CZes Template
CN=Dekis Martaus/O=ARSYSTEM/C=CZ Notes Temp
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ Profile)Ca
CN=Denis Martaus/O=ARSYSTKM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZate Develop
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZOptions
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZisCN=Lotus
CN=Denis Martaus/O=ARSYSTEM/C=CZotus Notes
7pFg>
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZt/O=Lotus N
CN=Denis Martaus/O=ARSYSTEM/C=CZtus NotesCN
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZ
CN=Denis Martaus/O=ARSYSTEM/C=CZpment/O=Lot
tTjt3
va syst
mu\Smazat profil
CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3
e Develop
bf%A0
CN=Ludek Slouf/O=ARSYSTEM/C=CZOSPrivates34Q1otus Notes
Martin1CN=Lotus Notes Template Development/O=Lotus NotesE
Martin1CN=Lotus Notes Template Development/O=Lotus Notes
k;cvE
(Delegation Profile)DelegationProfile
Martin1CN=Lotus Notes Template Development/O=Lotus Notes
CN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan
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
tTjt3
'++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)
Hnd 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
$AssistLaxtRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
bf%A0
'++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 UpdateGroupx(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 xonech
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 fcxiew = 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: VerifyHherarch
' 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 respohs 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, Xrue)
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 Hs 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"
grouphoc.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
[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
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declarh 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 = dh.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)
Ehd 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 "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
CN=Wilhiam Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
_Special\Link MessageBookmark
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
_Document Memo$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemo
CN=William Zircher/O=IrisCN=Lotus Notes Template Dhvelopment/O=Lotus Notes
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
CN=Jean Beardsley-Baumfl
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
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
Started running agent 'CreateGroup' on 03.05.2000 09:16:48
Running on new or modified documents: 5 total
Found 5 document(s) that match search criteria
Ran LotusScript code
Done running agent 'CreateGroup' on 03.05.2000 09:16:48
Nastaven
modulu|Setup
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZf3
$Modified
va syst
mu\Aktualizace loga
CN=Ludek Slouf/O=ARSYSTEM/C=CZfL3
CN=Ludek Slouf/O=ARSYSTEM/C=CZtA
CN=Agrian 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/G=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=CZMartaus/O=
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 WegssgarberCN=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/C=CZ No
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 Scriptt34W1
CN=Ladislav Oliva/O=ARSYSTEM/C=CZCN=Ludek Slouf/O=ARSYSTEM/C=CZR
CN=WORM/O=ARSYSTEM/C=CZCN=Slavomir Belko/O=ARSYSWEM/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
FolderscscsRnt7
(Regnumber)|regnumber/O
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
0S0E
$7jmenoprijmenititultitul2LNmail$Conflict
stnanec
Archiv
L1S5S6S7S9S1
$7Ev.
0S0E
jmenojm
noprijmenip
titultitultitul2titul2LNmailLNmail&
Martin1CN=Lotus Notes Template Development/O=Lotus Notes
k;cvE
(Delegation Profile)DelegationProfile
Martin1CN=Lotus Notes Template Development/O=Lotus Notes
CN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan
'++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)")
Er| = 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 Lnteger
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=Ldrian 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
]SuXX
'++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 Varlant
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: Lunkce
' 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.Value|
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.CurrentDltabase
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.FileLame)-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 servernale = 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
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
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
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Fonts
$Comment
$ACTIONS
$BODY
$V5ACTIONS
$ACTIONS
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 Au 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
grouu = 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-mail5 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)","EicenceID")(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@
PUUSAFO
O=ARSYSTEM/C=CZ
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
PURSAFO
$EBAction1
$TITLE
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
$FormueaClass
$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 Foleert
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=Aerian 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
0U0E
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
;I[J3
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
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
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
NazSkileni
kolen
NazSkoleni
NazSkoleni
$4Ev.
0S0E
a jm
prijmeni
jmeno
0S0E
DatSkoleniDatum
kolen
DatSkoleni
DatSkoleni
DatPlatnostiplatnost do&
538Arial CEYM/C=CZCN=A
#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
ice_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 CEYTEM/C=CZ
(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
jmeio
1S2S12S14S20S2E$13,
nr_fce"
0S0E
538Arial CEY
N=Ryan
+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/O9ARSYSTEM/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
a jm
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
L1S5S6S10S11S13Y
$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
kancelKancil
$50LN mail0
LNmail
0S0E
emailemail&
fcno)
prijmeni
jmeno
1S2S12S14S20S2E$13,
nr_fce"
0S0E
538Arial CEYe Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan
"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_;
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
CN=Adria
;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=ARSYSTEK/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
(Evcfce)|evcfce/O
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
evcfce_nFCnadrizenyLNmail$Conflict
(Funkce)
Funkce
Archiv
L1S4S5S7S8S10S11S14S15S17S
evcfce_nFCnadrizeny
evcfce_nFunkceFCnadrizenyNad
LNmailObsazen
rmeno
(nezad
prijmeni
jmeno
1S2S12S14S20S2E$13,
nr_fce"
538Arial CEYe Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan
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 opravfu 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))
LNmafl
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 Slfuf/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
Sefd 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|'++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 Develfpment 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
datfb
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"I0FF
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
VForward
_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=ARSVSTEM/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`
[
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/B=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=ARSYSTBM/C=CZ
PURSAFO
}u; Tue, 1 Feb 2000 12:18:34 +0100 (NFT)Rbceived: from odysseus.linux.cz (odysseus.fi.muni.cz [147.251.48.205]) by kzd.arsystem.cz (AIX4.2/UCB 8.7/1.00) with SMTP id MAA33432 for ; Tue, 1 Feb 2000 12:18:34 +0100 (NFT)
(qmail 2294 invoked by uid 30); 1 Feb 2000 11:18:17 -0000Received: (qmail 2294 invoked by uid 30); 1 Feb 2000 11:18:17 -0000
contact linux-help@linux.cz; run by ezmlmMailing-List: contact linux-help@linux.cz; run by ezmlm
bulkPrecedence: bulk
mailbng list linux@linux.czDelivered-To: mailing list linux@linux.cz
(qmail 2262 invoked from network); 1 Feb 2000 11:18:13 -0000Received: (qmail 2262 invoked from network); 1 Feb 2000 11:18:13 -0000
SELECT SYSTEM, s.r.o.Organization: SELECT SYSTEM, s.r.o.
NormalX-MSMail-Priority: Normal
Produced By Microsoft MimeOLE V5.00.2615.200X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Content-Transfer-Encoding: quoted-prbntable
Content-Type: text/plain;
charset="iso-8859-2"
Mam tady do placu specialni problem hodny zamysleni. Potrebuji omezit
rychlost ppp spojeni podle uzivatelskeho jmena. Tzn. pokud se prihlasi
uzivatel franta tak pojede na 33,6 a pokud se zaloguje pepa tak pojede je=
na 19,2. podotykam ze uzivatele pjedou na jednommodemu. a rychlost se bud=
memit dynamicky.
Mozna by se to dalo naroutovat pres shaper nebo nejak dynamicky omezitmge=
...??
Dyky za rady
-----------------"-------------------------------------------------------=
Meta-FAQ (odhl=E1=B9en=ED, arch=EDv, FAQ a dal=B9=ED): http://www.linux.c=
z/mailing-list
CN=BUBO/O=ARSYSTEM/C=CZ
xh%A",>
xh%A%A
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
(numberfce)|numberfce/O
CN=Ludek Slouf/O=ARSYSTEM/C=C[
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
prijkeni
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
(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=Ludkk Slouf/O=ARSYSTEM/C=CZ
(Setup)ProfileAdmins
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
(DatabaseMapping)(LicenceStatus)(SystemInformation)CD
ModifiedDateModifiedByOrderNumCreatedDateCreatedByModifiedNoteIDLogologinfilenametitle2listtitlelistSelectUserDemoLicenceLocenceIDReadyPathServer=CZ=WORM/O=
(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
LNmailnstitul2prijmenijmenotitulevce Hlavn
(SystemInformation)
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
ModifiedDateModifiedByOrderNumCreatedDateCreatedByModifiedNoteIDCUAx3h%
(NamesFunkce)
CN=Adrian Weissgarber/O=ARSYSTEM/C=OZCUA3x
nsLNmailtitul2prijmenijmenotitulevc
CN=WORM/
(Personal)
CN=Ludek Slouf/O=ARSYSTEM/C=CZCUA3
DosazeneVzdelaniOborStudiaPredchoziZamestnaniRokKonceSkolyRidicskyPrukazNazevSkolyPocetDovolDnuPocetOdpracDnuPocetDovolRokuPocetOdpracRokuSPSDuchodPriznanDoZdravStavDuchodPriznanOdDruDuchoduDatOdeslZadostiDruhZamestnaniPocetDetiDatVystupuNarokDuchodOdDatNastupuMesto_1_SC_1Ulice_1RodinnyStavMestoPSCUliceDrivejsiPrijmeniCisloPasRodneJmenoCisloOPOkresNarozeniZdravPojistovnaMistoNarozeniNarodnostPohlaviStatPrislusnostDatNarozenipersonal_dataes Log An
(PopisFunkce)
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZCUA3
LNpris_ukolyadd_ukolyLNpris_diaradd_diarOody
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=CZnntpp
Diagram
CN=Ludek Slouf/O=ARSYSTEM/C=CZCDdiagram=CZevent
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=OZD
DatPlatnostiDruhPeriodyDelkaPeriodyZkouskuProvedlDatPosledniZkouskyDatSkoleniNazSkoleniprijmenijmenoevcDatVytvAutorlogo
CN=WORM/O=ARSYSTEM/C=CZholis\z.nsfZ
oh%A001
CN=WORM/O=ARSYSTEM/C=CZ
CN=WORM/O=ARSYSTEM/C=CZ
'++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[SCSI Error
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0 (Intl)|30 March 1999) at 09/10/99 01:33:15 PM1linux-return-52514-sloufl=arsystem.cz@linux.czMemo
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
0<37D8EC34.403A8BBA@spszl.zl
&Arial CE
Diagram
Organiza
diagram
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remeve 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
'++LotusSeript 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
Eim 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
obeektu
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_utring = 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)) 'Horizoet
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.UelectByName(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
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
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
&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_loginU2
login_2
Heslo pro
name_login_2"
1S2S
name_passwd_2
passwd_2
(Setup)
login
0S0E
liste
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
eame_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
d.etf.cuni.cz>1.0; from tomasek@ebed.etf.cuni.cz on Thu, Jan 13, 2000 at 02:07:02PM +0100
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/13/2000 02:22:11 PM1linux-return-64312-sloufl=arsystem.cz@linux.czResponse
kh%A0lqI
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
kh%A"
linux@linux.czcheckbow linux@linux.czALSA
eh%AKMail [version 1.0.28]<387B60AA.EBDABD@pvt.net> <20000112221034.A125F5076@linux.fjfi.cvut.cz><20000112221534.A125F5076@linux.fjfi.cvut.cz>1.0<00011314313901.04210@cha601a>
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/13/2000 02:33:24 PM1linux-return-64313-sloufl=arsystem.cz@linux.czMainTopic
kh%A0bxJ
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
kh%A"
kh%A
linux@linux.czDaniel Prynych linux@linux.czRe: lpd - ponekud tuhne pri drobnych chybach
eh%AKMail [version 1.0.28]1.0<00011314374601.00430@alvin.buzuluk.cz>
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/13/2000 02:39:32 PM1linux-return-64314-sloufl=arsystem.cz@linux.czResponse
kh%A03
CN=Ludek Slouf/O=ARSYSTEM/C=CZh%A
kh%A"
linux@linux.czT
eh%APavel Cech linux@linux.czLilo1.0
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/13/2000 02:59:05 PM1linux-return-64315-sloufl=arsystem.cz@linux.czMainTopic
kh%A03
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
kh%A"
linux@linux.czlinux@linux.czp
marasan@thepentagon.comcz-comp-linux@ern.kit.vslib.czxfs&xfstt nestartuji
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/13/2000 03:00:57 PM1linux-return-64316-sloufl=arsystem.cz@linux.czMainTopic
kh%A0B
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
antek.cz>"Petr Novotny" linux@linux.cz1.0Re: viry v linuxu?Pegasus Mail for Win32 (v3.01d)
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Sneak Preview Build (based on R5.0.1) (Intl)|30 July 1999) at 11/10/99 11:33:20 AM1linux-return-58558%sloufl=arsystem.cz@linux.czResponse
4h%A0
CN=Ludek Slouf/O=ARSYSTEM/C=CZd-To: maili3529 invoked from network); 9 Nov 1999 13:33:25 -0000Received: (qmail 13529 invoked from network); 9 Nov 1999 13:33:25 -0000
Czech Technical UniversityOrganization: Czech Technical University
1 MIME parts converted
'++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
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_3passud_2login_2passwd_1login_1login_nameDosazeneVzdelaniOborStudiaPredchoziZamestnaniRokKonceSkolyRidicskyPrukazNazevSkolyPocetDovolDnuPocetOdpracDnuPocetDovolRokuPocetOdpracRokuSPSDuchodPriznanDoZdravStavDuchodPriznanOdDruDuchoduDatOdeslZadostiDruhZamestnaniPocetDetiDatVystupuNarokDuchodOdDatNastupuMesto_1PSC_1Ulice_1RodinnyStavMestoPSCUliceDrivejsiPrijmeniCisloPasRodneJmenoCisloOPOkresNarozeniZdravPojistovnaMistoNarozeniNarodnostPohlaviStatPrislusnostDatNarozenipersonal_dataemailLNmailmobilTelkancelSectionpraeovistepodpisfotofce_link_4fce_4fce_link_3fce_3fce_link_2fce_2fce_link_1fce_1fce_link_0fce_0fcenr_4fcenr_3fcenr_2fcenr_1fcenr_0nsrodcis2rodcis1evcprijmenijmenotitul2titulbasic_datadoodDatVytvAutorlogote, i kdyz
(DatabaseMapping)CUA3
PathServer
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZEN=Ludek Slouf/O=ARSYSTEM/C=CZuary 28,
(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 Fri, 2
CN=Ludek Slouf/O=ARSYSTEM/C=CZRarsystem.cz
(fce)
CN=Ludek Slouf/O=ARSYSTEM/C=CZCUAx3N
tmpNadNameFCnadrizenynad_fcefc_zastupcefce_zfce_nfcetyp_fcedoodnr_fceDatVytvAutorlogoTelnr_nad_fcearchivUNIDnadrizenyedit_testLNnadrizeniLNnadrizenynadrizeni57 -0000
30719
CN=Ludek Slouf/O=ARSYSTEM/C=CZo iso-88
2CN=WORM/O=ARSYSTEM/C=CZ
30719
CN=Ludek Slouf/O=ARSYSTEM/C=CZa :-)
(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.0UCB 8.7/1.0
CN=Ludek Slouf/O=ARSYSTEM/C=CZ48.205])
CN=Ludek Slouf/O=ARSYSTEM/C=CZ10940 inv
CN=Ludek Slouf/O=ARSYSTEM/C=CZnux.cz; r
$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
&Arial CE
ktera ma vice interfaces traceroute nekam, vypise
> WARNING: Multiple interfa
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
&Arial CE
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
&Arial CE
p@linux.cz; run by ezmlmMailing-List: contact linux-help@linux.cz; run by ezm
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
&Arial CE
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
&Arial CE
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
&Arial CE
Hierarchie nastavena v 02.05.2000 11:07:09 St
edoevropsk
Funkce
LSLF-4JXCGFLudek Slouf
LSLF-4JXCGV
1041Hlavn
HU104Hlavn
ekonom nad
645CB5587EFF177FC12568D3003150FE1CN=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
&Arial CE
no Release 5.0.2 (Intl))
with ESMTP id 2000012818291832:1115 ;
Fri, 28 Jan 2000 18:29:18 +0100
from odysseus.linux.cz (odysseus.fi.muni.cz [147.251.48.205]) by kzd.arsystem.cz (AIX4.2/UCB 8.7/1.00) with SMTP id SAA22438 for ; Fri, 28 Jan 2000 18:29:20 +0100 (NFT)Received: from odysseus.linux.cz (odysseus.fi.muni.cz [147.251.48.205]) by kzd.arsystem.cz (AIX4.2/UCB 8.7/1.00) with SMTP id SAA22438 for ; Fri, 28 Jan 2000 18:25:20 +0100 (NFT)
(qmail 14505 invoked by uid 30); 28 Jan 2000 17:29:06 -0000Received: (qmail 14505 invoked by uid 30); 28 Jan 2000 17:29:06 -0000
contact linux-help@linux.cz; run by ezmlmMailing-List: contact linux-help@linux.cz; run by ezmlm
bulkPrecedence: bulk
mailing list linux@linux.c|7
'++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
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$C1$
Funkce
(Funkce)
Archiv
L1S5S6S10S11S13S16S2E17S19S
typ_fce$8
sek Jan, Ing.
'++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)
Suatic 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.CurreetDocument.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
TYYYYUYG
[(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)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
$}m71ArfU^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$rfZAmr1brmEJr^{&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^^bfu17rf^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
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
stnanee
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
&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
L> 1.0Mutt 1.0i; from linux@brno.cz on Mon, Jan 03, 2000 at 05:08:40PM +0100
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/03/2000 05:41:00 PM1linux-return-63268-sloufl=arsystee.cz@linux.czResponse
dh%A0
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
dh%A"
linux@linux.cz|`d
[h%APetr Simek linux@linux.czhead obracene1.0
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 01/03/2000 07:16:51 PM1linux-return-63269-sloufl=arsystem.cz@linux.czMainTopic
dh%A0
CN=Ludek Slouf/O=ARSYSTEM/C=CZ.
HPAJNIOCKEHPCIAA.ambroz@atas.cz>
Re: automaticky s prilohou
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1959) at 01/11/2000 03:00:03 PM1linux-return-64086-sloufl=arsystem.cz@linux.czMemo
ch%A00.2314.1300
Itemize by SMTP Server on BUBO/ARSYSTEM/CZ(Release 5.0.2 (Intl)|4 November 1999) at 12/25/99 10:33:50 AM1linux-return-62920-sloufl=arsystem.cz@linux.czMemo
LLH ,A
'++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
Q)xET@V
*dUeT
Y