CN=Adrian Weissgarber/O=ARSYSTEM/C=CZZ32 for <sloufl@arsystem.cz>; 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 <sloufl@arsystem.cz>; 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
DosazeneVzdelaniOborStudiaPredchoziZamestnaniRokKonceSkolyRidicskyPrukazNazevSkolyPocetDovolDnuPocetOdpracDnuPocetDovolRokuPocetOdpracRokuSPSDuchodPriznanDoZdravStavDuchodPriznanOdDruDuchoduDatOdeslZadostiDruhZamestnaniPocetDetiDatVystupuNarokDuchodOdDatNastupuMesto_1_SC_1Ulice_1RodinnyStavMestoPSCUliceDrivejsiPrijmeniCisloPasRodneJmenoCisloOPOkresNarozeniZdravPojistovnaMistoNarozeniNarodnostPohlaviStatPrislusnostDatNarozenipersonal_dataes Log An
Tools...\Enable Cluster Replication on Selected Databases
(EnableClusterReplication)
0S0E
Tools...\Disable Cluster Replication on Selected Databases@
(DisableClusterReplication)
0S0E
Tools...\Enable Cluster Replication on Selected Databases
(EnableClusterReplication)
0S0E
Tools...\Disable Cluster Replication on Selected Databases@
(DisableClusterReplication)
0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
zM1nZ
$INFO
$BODY
$V5ACTIONS
$ACTIONS
&Arial CE
(Personal)
[PersonalEditor]
Osobn
[PersonalEditor]
personal_dataOsobn
Datum narozen
DatNarozeni
nost:
StatPrislusnost
Pohlav
Pohlavi
rodnost:
Narodnost
sto narozen
MistoNarozeni
d zdravotn
poji
ovny:
ZdravPojistovna
Okres narozen
OkresNarozeni
slo OP:
CisloOP
RodeeJmeno
slo cestovn
ho pasu:
CisloPas
DrivejsiPrijmeni
Trval
bydli
Ulice
Mesto
Rodinn
stav:
RodinnyStav
rozveden
svobodn
vdovec
1S2S
rozveden
svobodn
vdova
0R1S
neurceno
rozveden
svobodn
udova
vdovec
0R1S2S
Pohlavi
neurceno
Pohlavi
Pohlavi
neurceno
0RR1S8S14S
echodn
bydli
Ulice_1
PSC_1
Mesto_1
Pracovn
Datum n
stupu:
DatNastupu
rok na d
chod od
NarokDuchodOd
Datum v
stupu:
DatVystupu
et vychovan
PocetDeti
Druh zam
DruhZamestnani
Datum odesl
dosti
DatOdeslZadosti
Druh d
chodu
DruDuchodu
chod p
DuchodPriznanOd
Zdravotn
stav
ZdravStav
chod p
DuchodPriznanDo
daje ke dni n
stupu
Odprac. roky
PocetOdpracRoku
Pro dovolenou zap. rok
PocetDovolRoku
Odprac. dny
PocetOdpracDnu
Pro dovolenou zap. dn
PocetDovolDnu
Kvalifikace
kola:
NazevSkoly
NoCache
SKOLY
0S0E
RidicskyPrukaz
Rok ukon
RokKonceSkoly
PredchoziZamestnani
Obor:
OborStudia
NoCache
OBORSTUDIA
0S0E
DosazeneVzdelani
NoCache
VZDELANI
0S0E
O=ARSYSTEM/C=CZ
O=ARSYSTEM/C=CZ
;#Lo<(
z"I0F@
PURSAFO
O=ARSYSTEM/C=CZ
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
PURSAFO
J9U`G
CisloJKZ
DatPosledniZkousky
DelkaPeriody
DatPlatnosti
DatNastupuDoFirmy
DatVstupSkoleni
DatSkoleni
$TITLE
$Info
$$Script_O
$$ScriptName
DatNarozeni
DatNastupu
NarokDuchodOd
DatVystupu
PocetDeti
DatOdeslZadosti
DuchodPriznanOd
DuchodPriznanDo
PocetOdpracRoku
PocetDovolRoku
PocetOdpracDnu
PocetDovolDnu
RokKonceSkoly
$Body
&Arial CE
(PopisFunkce)
Popis funkce
[AccessEditor]
0S0E
Osoby s p
stupem k dokument
to osoby v jin
ch aplikac
[AccessEditor]
pristupOsoby s p
stupem k dokument
to osoby v jin
ch aplikac
Prohl
pis do
e v po
schr
: zahrnout:
add_diar
LNpris_diar
Prohl
a zad
: zahrnout:
add_ukoly
LNpris_ukoly
O=ARSYSTEM/C=CZ
O=ARSYSTEM/C=CZ
;#Lo<(
z"I0F@
PURSAFO
O=ARSYSTEM/C=CZ
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
PURSAFO
d-!kBz
cS2 q
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
'++LotusScript Development Environment:2:5:(Options):0566
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
Declare Sub Terminate
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
Dim session As New NotesSession
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument.Document
doc.FCnadrizeny = ""
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'+%LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Funkce:
fce_n
1S2S
&Arial CE
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ErrorHandling"
Use "LicenceHandeing"
Use "ProfilesHandling"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Funkce'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Enuironment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryclose From Source Call Queryclose
On Event Postopen From Source Call Postopen
End Sub
'++LetusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If Source.IsNewDoc Then
If DemoLicence Then Source.Close
End If
End Sub
(fce)
(Setup)
SelectUser
(OSFunkce)
(NamesFunkce)
(PopisFunkce)
(SystemInformation)
O=ARSYSTEM/C=CZ
O=ARSYSTEM/C=CZ
;#Lo<(
z"I0F@
PURSAFO
O=ARSYSTEM/C=CZ
CN=Adrian Weissgarber/O=ARSYSTEM/C=CZ
PURSAFO
created
$$nr_nadUfce
$nr_nad_fce_O
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
&Arial CE
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
(DatabaseMapping)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents51:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
On Event Querymodechange From Source Call Querymodechange
On Event Postmodechange From Source Call Postmodechange
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidoeument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Eevironment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Database Mapping
Subform
___ _
Hidden Fields
Server
% _
O=ARSYSTEM/C=CZ
O=ARSYSTEM/C=CZ
;#Lo<(
z"I0F@
PURSAFO
O=ARSYSTEM/C=CZ
CN=Ludek Slouf/O=ARSYSTEM/C=CZ
PURSAFO
J9U`G
$TITLE
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
%Body
): http://www.linux.c=
z/mailing-list
CN=BUBO/O=ARSYSTEM/C=CZ
th%A%Aux@linux.cz>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" )
d.etf.cuni.cz>1.0<Pine.LNX.4.10.10001131353030.13445-100000@ebed.etf.cuni.cz>; 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
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 <Daniel.Prynych@hornet.cz>linux@linux.czRe: lpd - ponekud tuhne pri drobnych chybach
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 <cech@sol.cz>linux@linux.czLilo<Pine.LNX.4.10.10001131450590.2482-100000@bigboy.sol.cz>1.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
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" <Petr.Novotny@antek.cz>linux@linux.cz1.0Re: viry v linuxu?<Pine.LNX.3.96.991110105311.2349A-100000@ara.zf.jcu.cz><Pine.WNT.3.96.991110112629.-204637H-100000@helio.jcu.cz>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
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 <sloufl@arsystem.cz>; 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 <sloufl@arsystem.cz>; 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)
'++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)<IYYY
$L}Z$U
{rrmA11Zmfbbf
{x3YYY>vfmU1R
b_qhef_v?+tt=YYY%
rRr!{m$mf$b{R${
rrmA^
{rr11LrrfrR11Ummr
YYY=k_^ff
UZffff^a^il_eDYYYQ
$^}7J
A1{rJ&r{Z&Zrfm^11rmfmZ1&ffmfrR1L
$}f|1I
8uff^^}
L717&rfmfb_ePYYY
A7}^$mr$L{r11rrZ&Urffr1&bfffrA11rfff
$}^^lkz]117rf
Xfbfmfr1111Rm
!rf$rrA7
Z$brr$LrrZ%JrbfrA1Urbbmm&1Z}7
Lbmf^_bmmf11R
^^b^b^mfmmZ17
1Z{&Zrb$m{17rr^&Zrr^&JrbfmU&Lrf^mrLZ
717mmf^^bff
fff^^b^b^bb{A
ALrr1L{f&LrrR$brm^1Arfbm^1&mf^rf
$rbmf111rmf^^}
1U11Jrffb^^bZ
m$}Z1{Z$rrZ$frZ&brrA&mmfb&Arfbfr71Z
f^^mfr&17rf
Lrmm^111Zmffbb
7rr!rm$r{$Zrr7Jrr71rmr11rfmb&1mf^frJU
!J1fmfZbmmb11b
Z^bbmfrL11A
Ub{$m{$^{JJrf^7}{{7^}fr&7rffm11mmZ
$}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> <Pine.LNX.4.10.10001031214150.32683-100000@intranet.brno.cz>1.0Mutt 1.0i<Pine.LNX.4.10.10001031214150.32683-100000@intranet.brno.cz>; 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
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)
(.txt)