act_DELETE'++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
$HLMLastServer
.,$ //:
$HLMLastCheckedX
.,$, , :
$NoPurge
.,$, , :
$HLTypeX
xxDisabled
1S2S
$HlDisabled
xxDisabled"
0R2S3S4S6S7S8S10SDispDisabled
MainTable
MainTable
zev odb
ru:
Zadejte n
zev odb
$HLTitle
$HLType
1S2S
skat: X
$QueryType
echna p
ta | allP
ta vyhovuj
vybran
m polo
m: | sel
QueryType
QueryType
CritSentOnlyToMe
Odesl
no pouze mn
CritSentDirectlyToMe
Odesl
mo mn
(jsem uveden v poli
6Komu:
&)|1X
CritHighPriority
Vysok
priorita nebo d
itost |1
CritReturnReceipt
adovat potvrzen
CritToDo
koly|1
CritToDoComplete
Dokon
koly|1
CritMeetInvite
nky na sch
zku|1
CritMeetResponse
Odpov
di na sch
zku|1X
CritFrom
Od:|1X
CritFrom
1S2S
CritFromNamesX
Zadejte
no (nap
klad Jan Nov
k/ABC/Prodej/CZ). Jednotliv
na odd
rkou.
xKnE0BpBA04PbRo0BpOEsel~}
Povolen
$HLEnabled is the old enabled flag with a value of either 1 or 0. For UI simplicity, it was changed to $HLDisabled with a possible value of either 1 or null
// see if we are changing the date/time and we are the owner
if (isUserOwner() && (thisform.tmpWasMailed.value == "1") && isDateTimeValuesModified() && !isActionInProgress(512))
if ( !isActionInProgress(256) )
{
if (!self.confirm("Zm\u0115nili jste datum nebo \u010Das t\u00E9to polo\u017Eky. V\u0161ichni \u00FA\u010Dastn\u00EDci budou informov\u00E1ni. Opravdu chcete pokra\u010Dovat?"))
{
updateActionInProgress(512, false)
return
}
updateActionInProgress(512, true)
}
// see if we are modifying repeating instance -> THIS MUST BE DONE LAST, since
// the window opened is treated as a modal dialog and is responsible for submitting
// this document. We don't modify if we are just confirming.
0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S39S40S41S42S44RS13E45S46S48RTTS2E49S50S51S52S53S54S56RTTT57S58S60RS8E61S62S64RS14E65S66S68RS8E69S70S71S72S73S74S76RS14E77S78S80RTS3E81S2E82S83S84S85S86S88RTTT89S90S92RS8E93S94S96RS14E97S98S100RS7E101S102S103S104S105S106S109RStartDateTimeDoba kon
zkySubjectP
Po_stoupit
_Upravit dokument
esunout do slo
ky...
_Odebrat ze slo
ky...
adit do kategorie
Odeslat doku_ment
novat sch
OEMClient
OEMClient
0S0E
CSDocType
OEMClient
0R3RTTTTTT4RTTTTTT5S6S8RTTTTTTT10RTTTTTT11RTTTTTT
Notes
CSDocType
CSDocType
Appointment
0RR3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=3"
0R3S4S5S6S
OEMClient
4S5S
act_scheduler.gif|act_scheduler.gif?
\Akceh
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=0"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=1"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
ipomenut
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=4"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=2"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Akce vlastn
ka\Zm
nit pl
n3'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
OEMClient
4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Zru
it'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_CANCEL)
End Sub
OEMClient
4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Potvrdit6'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
OEMClient
4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Zobrazit stav
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
OEMClient
4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Odeslat zpr
m'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
OEMClient
4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce
ijmout '++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
OEMClient
4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Odm
tnout
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_DECLINE)
End Sub
OEMClient
4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Delegovat
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
OEMClient
4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Navrhnout nov
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++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)
Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
OEMClient
4S5S
act_participantactions.GIF|act_CSPARTACTIONS
rovat jako\Nov
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++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)
Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
rovat jako\Nov
polo
ka kalend
e'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++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)
Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
rovat jako\Nov
kolc'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++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
(ImportHolidays)This Agent requires build 164 & Server with a r5 Public NAB, you must resave all master holiday documents if created with 161.1 Also note: the APPTUNID item must match the UNID of the document in the public NAB. a resave will correct this if the document has been 'cut and pasted'cs-CZy]T
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function OrgMigratePC(dbMail As notesdatabase) As Integer
Declare Function OrgMigrateNotepad(dbMail As notesdatabase, dbJournal As notesdatabase) As Integer
Declare Function BuildFullFilePath(strServer As String, strFilepath As String) As String
Declare Sub PopulateBody( note As notesdocument, strOldSubject As String )
Declare Function CreateNewRepeatingParent( dbMail As notesdatabase, vBEObj As Variant, note As notesdocument ) As String
Declare Sub OrgMigrateFix( db As notesdatabase, strViewName As String, strOwner As String, iWhich As Integer )
Declare Sub OrgMigrateFixExisting( db As notesdatabase )
'++LotusScript Development Environment:2:5:(Declarations):0:10
'MigrateOrgGS:
'MigrateOrgGS:
'MigrateOrgGS:
'MigrateOrgGS:
''MigrateOrgGS:
Dim strTable As OrgGSMigrationStringTable
Declare Public Function OSLoadProgram Lib "nnotes.dll" Alias "OSLoadProgram" (Byval filename As Lmbcs String, Byval WorkingDir As Lmbcs String, Byval args As Lmbcs String, Byval flags As Integer) As Integer
Declare Sub GetExecutableDirectory Lib "nnotes.dll" Alias "OSGetExecutableDirectory"(Byval retstrPath As String)
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase, dbJournal As notesdatabase
Dim note As notesdocument
Dim ws As New notesuiworkspace
Dim strJournalLocation As String, strJournalPath As String
On Error Goto errhandle
Set db = session.currentdatabase
Set note = New notesdocument(db)
Set strTable = New OrgGSMigrationStringTable
Restart:
If ws.dialogbox("ImportOrgGSDlg", True, True, ,,,,strTable.getString(13,""),note, True) = False Then Exit Sub
If (note.GetItemValue("MigrateNotepadEntries")(0) = "1") Then
Elseif ( Not note.hasItem("$ExpandGroups") And Not note.hasItem("$CSVersion")) Then
'we have an organizer event, appointment, anniversary
Call note.replaceItemValue("$ExpandGroups", "3")
If Not note.hasItem( "From" ) Then Call note.replaceItemValue("From", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
If Not note.hasItem( "Chair" ) Then Call note.replaceItemValue("Chair", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
If Not note.hasItem( "Principal" ) Then Call note.replaceItemValue("Principal", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
'DocAuthors CN=Farah Notes/O=Trek
'Body
'ReminderTime 10/15/99 10:00:00 AM
'TimeRange 10/15/99 10:00:00 AM-10/15/99 11:00:00 AM
'++LotusScript Development Environment:2:1:FaxMsgText:1:8
Function FaxMsgText (MsgNumber As Variant, TextInsert As String) As String
TRANSLATE
%END REM
Select Case MsgNumber
Case 1 : FaxMsgText = "V dokumentu Pracovi
je t
eba zadat faxovou dom
Case 2 : FaxMsgText = "P
jemce " + TextInsert + " m
nespr
form
t. Klepnut
m na tla
tko OK polo
ku vynech
te. Klepnut
m na tla
tko Storno proces zastav
Case 3 : FaxMsgText = "Zadejte
slo faxu pro " + TextInsert
End Select
End Function
Lotus Product
W32I4
-42x1x1
14444
40,0,
808080
H0H0H0
83838383
4$T$4$4$
L&(/
$$&<%<%,%
&((((
5H5H5
*8*8*H)h*$)
*H*H*
$)(*P
P+P+@+@+0+0+
\4 +t
K4 -t+#,
K4 -0,##1
-K4 -0,#\
~8/KX
~8/KX
^80HT
^H0HT
K4 -t+#-X0#
K4 -t+#,
,x1}l
,x1}l
,x1}l
,x1}l
,x1}l
,x1}X
K4 ,`2}p
-\.#8
K4 -0,##8
^83HT
#1^83
!-<-#,
KD$-<-#,
KD$-<-#,
^$&q$&
^8&q8&
$-<-#
^<%)L&#
J,%5p32
)X(Zp3
^$&^8&^<%#
3^$&#
&,`2}L
^$'}\
^$'J$'
&,`2}|
J((}t
^8(J((
J8(}t
^H(J8(
',44JH(#
(+T'JD'
(-d4#
^H)+t
^x*KH)-
*+T'I
*-d4#
^X*JH*
^H*JX*
^X*JH*
JX*}X
Jx*5H5
FH5PX5
FH5Td5}
FH5PX58k
)FH5Sp5}
),|5^X*
]$)r$)
;n$)JH*
)]$)]8)#
)JX*}X
^H*#JH*
)JX*}X
]0+}8 IP+
]0+}<!IP+
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
iD#f5
$TITLE
$PublicAccess
$Language
$LastBuildTime
$BabelInfo
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventObject
Declare Sub Initialize
Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, wFlags As Integer)
Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime, nOptions As Integer) As Integer
Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
Declare Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
Declare Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String, nNoCancelOp As Integer) As Integer
Declare Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
Declare Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
Declare Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
Declare Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
Declare Function CSTableGetItem(note As notesdocument, strItemName As String) As NotesItem
'++LotusScript Development Environment:2:5:(Declarations):0:10
'CSEventClass:
'CSEventClass:
'CSEventClass:
Const ACTION_DRAG = &h00000010&
Dim autoAdjustNote As NotesDocument
Dim autoAdjustEndDateTime As NotesDateTime
Dim autoAdjustTimeWindow As Long
Class UIEventObject
m_ws As NotesUIWorkspace
m_noteStatus As NotesDocument
m_beobject As Variant
m_strtable As Variant ' This is a reference to the backend objects StringTable
m_lAction As Long ' These are OR'd together
m_bSendComments As Integer
m_nEventType As Integer
m_bOwner As Integer
Property Get ActionInProgress As Long
ActionInProgress = m_lAction
End Property
Property Set ActionInProgress As Long
' If the caller passes ACTION_NONE, remove all existing actions set
Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String, Byval nOptions As Integer) As Integer
Dim note As NotesDocument
Dim fHideCancel As Integer
Set note = m_beobject.Document
Select Case lAction
Case ACTION_ACCEPT
Call note.replaceitemvalue("tmpActionType","A")
Case ACTION_DELEGATE
Call note.replaceitemvalue("tmpActionType","D")
Case ACTION_COUNTER_PROPOSE
Call note.replaceitemvalue("tmpActionType","T")
Case ACTION_RESCHEDULE
Call note.replaceitemvalue("tmpActionType","U")
Case ACTION_CANCEL
Call note.replaceitemvalue("tmpActionType","C")
Case ACTION_CONFIRM
Call note.replaceItemValue("tmpActionType","N")
Case ACTION_COMPLETED
Call note.replaceitemvalue("tmpActionType","F")
Case ACTION_COUNTER_ACCEPT
Call note.replaceitemvalue("tmpActionType","B")
Call note.removeitem("StartDate")
Case ACTION_COUNTER_REJECT
Call note.replaceitemvalue("tmpActionType","J")
Case ACTION_REFRESHINFO
Call note.replaceitemvalue("tmpActionType","E")
Case ACTION_REMOVE_PEOPLE
Call note.replaceitemvalue("tmpActionType","5")
Case Else
Call note.RemoveItem("tmpActionType")
End Select
If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
'++LotusScript Development Environment:2:1:CSEventDisableWorkflow:1:8
Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
' Return -1 to bail, 0 to do nothing, 1 to cancel
Dim vBEObject As Variant
Dim strOriginalType As String, strCurrentType As String
Set vBEObject = vUIobject.BEObject
strOriginalType = vBEObject.OriginalType
strCurrentType = vBEObject.CurrentType
If (strOriginalType = strWorkflow) And (strCurrentType <> strWorkflow) Then
' Make sure we have participants before asking
If (vBEObject.WasMailed) Then
If (YesNoPrompt(vuiobject.StringTable.GetString(ENTRY_TYPE, Null),vuiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
If (vuiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 1)) Then
CSEventDisableWorkflow = 1
Else
CSEventDisableWorkflow = -1
End If
Else
CSEventDisableWorkflow = -1
End If
End If
End If
End Function
'++LotusScript Development Environment:2:2:AutoAdjustWindowEntering:1:8
Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
'++LotusScript Development Environment:2:2:AutoAdjustWindowExiting:1:8
Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
'++LotusScript Development Environment:2:2:GetAutoAdjustDateTime:1:8
Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
'++LotusScript Development Environment:2:1:CSTableGetItem:1:8
Function CSTableGetItem(note As notesdocument, strItemName As String) As NotesItem
Dim item As notesitem
Set item = note.getfirstitem(strItemName)
If Not(item Is Nothing) Then Call item.remove
Set item = New NotesItem(note, strItemName,"")
Set CSTableGetItem = item
End Function
R`E`E
0@MP00Q
ItLtL\@
x&x&d
Lotus Product
W32I4
BlBlB
P0B0B
x&d5h
#x#x#h#h#
H'X'\
*H*H*
*h*h*
-x-x-
p.p.P.P.
(/x/X/X/
/H/H/8/h/
8/x/x!
4T5T5
D5$6\$
8t8t8
<<L<,<,<
T=d=D=D=
\>l>L>L>|>|>
4?4?D?D?
8D@Ep
$RDS4)
O0@S<@}
~ @#1
@~pA~
@~ B~
,0B}\
,XC#
@~(D~
@~HD~0U&
,XDI
@~(D~HU&
@~HD~`U&
D~xU&
@~PE~
@~pE~
E~ V&
,lB}h
E~8V&
,lB}
,lB}
,lB}
F~PV&
P@F~`F
!,0B}
!,0B}
!,0B}
F~hV&
!,lB}
!,0B}4
!,lB}4
!,lB}d
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
#,lB}
@]X#]H#&
#,0B}
]h##1
@~ H~
O0@T0H}$
^8'KH',
HIh&#
,lB}<
0^8'\
O0@UtI
(,0B}h
@~8J~
@~XJ~
(,lB}
),lB}|
O0@S<@}|
),lB}
IX*8(
^x*Kh*,0BJ
Kh*,lB}
,,0B}
TxK}d0
K~pW&
@~8L~
^h/+$
^X/Kh/-HL#
)tL^X/^x/#
#K8/,
L}X"#
]8/^x/b
P@F~0M
1,lB}
1},%#
1}X%#
1}t%#
1,`M#
Kx2,8NK
3-hN##
2,8NN
2,8NN
2,8NK
3-hN##
2,8NN
2,8NN
2,8NK
3-hN#}L'
3-hN#
^T5*$
4,0BN
5,XC#
4,XDJ
^$6+d5$
^46K$6-
O#,4O#
K46,lB}
4,0B}
K46,lB}h
KT5,lO~
O~0X##1
K46,lB}
KT5,lO~ P~HX#J46
)8P}X)^46]
P},*#
7,lO~ Q~`X#K
7,lO~@Q~xX##
7,PQ}
6,lB}
6,lB}L+N
6,lB}
7,lO~@Q~
8,0B}4
8,lB}
8,lB}$
8O|FP0@
8,0B}
8,lB}
9,0B}
9,0B}\-#
S~`G}t.
<],<]<<]L<^\<[
,XDJ\<#
=]4=]D=]T=]d=^t=[
,XDJt=#V
,lBIT=^t=#1
,lBId=^t=#1
S]<>]L>[
)8P]<>[
S]\>]l>[
)8P]\>[
^d?KD?,<TIT?#
Kd?,lT#
1ID?IT?}
]4?Jd?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Language
$LastBuildTime
$BabelInfo
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventDocument
Declare Sub Initialize
Declare Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
'CSUIDocClass:
'CSUIDocClass:
'CSUIDocClass:
'CSUIDocClass:
Const UI_FLAG_REPEAT = &h00000001&
Const UI_FLAG_ALARM = &h00000002&
Const UI_FLAG_WASSAVED = &h00000004&
Const UI_FLAG_DONOTCLOSE = &h00000008&
Const UI_FLAG_PROMPTONCLOSE = &h00000010&
Class UIEventDocument
m_uidoc As NotesUIDocument
m_uiobject As UIEventObject
m_lFlags As Long
m_nSurpressDlg As Integer
m_nSignificantEventOccurred As Integer
m_nForceResched As Integer
m_EntryType As String
' Properties
Property Get UIObject As Variant
Set UIObject = m_uiobject
End Property
Property Get UIDocument As NotesUIDocument
Set UIDocument = m_uidoc
End Property
Property Get WasSaved As Integer
WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
End Property
Property Set WasSaved As Integer
Call Me.SetFlag(UI_FLAG_WASSAVED, WasSaved)
End Property
Property Set SignificantEventOccurred As Integer
Me.m_nSignificantEventOccurred = True
End Property
Property Get DoNotClose As Integer
DoNotClose = ((m_lFlags And UI_FLAG_DoNotClose) = UI_FLAG_DoNotClose)
End Property
Property Set DoNotClose As Integer
Call Me.SetFlag(UI_FLAG_DONOTCLOSE, DoNotClose)
End Property
Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
Set m_uidoc = source
Set m_uiobject = New UIEventObject(nType, bOwner)
End Sub
Sub PerformActionAndClose(vData As Variant, Byval iTitle As Integer, Byval dAction As Long, strDlg As String, Byval dOptions As Long)
If m_uiobject.OkToPerformAction(vData, iTitle,dAction,strDlg,dOptions) Then
If Not m_uidoc.editmode Then m_uidoc.editmode = True
Call m_uidoc.reload
On Error Goto errorroutine
Call m_uidoc.save
Call m_uidoc.close
End If
Exit Sub
errorroutine:
Exit Sub
End Sub
Sub SetFlag(Byval lFlag As Long, Byval bAdd As Integer)
If (bAdd = True) Then
m_lFlags = m_lFlags Or lFlag
Else
If (m_lFlags And lFlag) Then m_lFlags = m_lFlags Xor lFlag
End If
End Sub
Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
Dim vBEObject As Variant, vSelectedDT As Variant
Dim ws As New notesuiworkspace
Dim note As NotesDocument, notetmp As NotesDocument
Dim item As NotesItem
Dim dtCalDate As NotesDateTime
Dim bNeedsDate As Integer
m_uidoc.AutoReload = False
Set note = m_uidoc.document
Set vBEObject = m_uiobject.BEObject
Call Me.SetFlag(UI_FLAG_PROMPTONCLOSE, True)
Set dtCalDate = m_uiobject.CSEventGetCalendarInstance(bNeedsDate, note, False)
If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
If (m_uiobject.EventType <> 3) Then
If (m_uiobject.IsOwner And vbeobject.Context <> CTX_REPEAT_MAIN) And NAMECompare(note.getitemvalue("Principal")(0), vBEObject.CalendarProfile.OwnerName) Then m_uidoc.EditMode = True
End If
m_entrytype = vBEObject.CurrentType
End If
End Sub
Sub PostRecalc()
Dim note As NotesDocument
Dim bRefreshHide As Integer
Set note = m_uidoc.document
If (note.GetItemValue("Repeats")(0) = "1") Then
If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
If m_uiobject.RepeatDialog() Then
m_lFlags = m_lFlags Or UI_FLAG_REPEAT
Call note.removeitem("tmpDoNotRepeat")
Else
Call note.replaceitemvalue("Repeats","")
Call note.removeitem("OrgRepeat")
Call note.removeitem("RepeatDates")
Call note.replaceitemvalue("tmpDoNotRepeat","1")
bRefreshHide = True
End If
End If
Elseif (m_lFlags And UI_FLAG_REPEAT) Then
Call note.replaceitemvalue("Repeats","")
Call note.removeitem("OrgRepeat")
Call note.removeitem("RepeatDates")
Call note.replaceitemvalue("tmpDoNotRepeat","1")
m_lFlags = m_lFlags Xor UI_FLAG_REPEAT
bRefreshHide = True
Else
If note.getitemvalue("AppointmentType")(0) = "1" And CSProfileGetAutoAnnivRepeat() > 0 Then
If Not(note.hasitem("tmpDoNotRepeat")) Then
Call note.replaceitemvalue("Repeats","1")
m_lFlags = m_lFlags Or UI_FLAG_REPEAT
bRefreshHide = True
End If
End If
End If
If m_entryType <> m_uiobject.BEObject.CurrentType() Then
m_lFlags = m_lFlags And Not(UI_FLAG_ALARM)
m_entryType = m_uiobject.BEObject.CurrentType()
If note.HasItem("$Alarm") And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then
Call note.RemoveItem("$Alarm")
End If
Call m_UIObject.BEObject.SetDefaultAlarm()
If (note.HasItem("$Alarm")) Then
If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
' If we have a $Alarm, but not Offset or Time, then this is the default alarm; enable settings
Call note.replaceitemvalue("Alarms","1")
m_lFlags = m_lFlags Or UI_FLAG_ALARM
bRefreshHide = True
Else
m_lFlags = m_lFlags Or UI_FLAG_ALARM
End If
End If
End If
If (note.GetItemValue("Alarms")(0) = "1") Then
' The user clicked on the alarms checkbox to enable them
' The user clicked on the alarms checkbox to enable them
Call note.removeitem("$AlarmDisabled")
If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
If m_uiobject.AlarmDialog() Then
Call note.replaceitemvalue("$Alarm",1)
m_lFlags = m_lFlags Or UI_FLAG_ALARM
Else
Call Me.RemoveAlarmSettings(False)
m_lFlags = m_lFlags And Not( UI_FLAG_ALARM)
bRefreshHide = True
End If
End If
Elseif (m_lFlags And UI_FLAG_ALARM) Then
' The user is removing the alarm
Call Me.RemoveAlarmSettings(False)
bRefreshHide = True
End If
If (bRefreshHide) Then
Call m_uidoc.refreshhideformulas
Call m_uidoc.reload
End If
End Sub
Sub QuerySave(bContinue As Variant)
Dim vBEObject As Variant
Dim note As NotesDocument
Dim dtStart As NotesDateTime, dtEnd As notesDateTime
Dim item As NotesItem
Dim sCurrentType As String, soriginalType As String, strCategory As String, strWorkflow As String
Dim strAction As String, strNoticeType As String
Dim lCurrentAction As Long, dOptions As Long
Dim fSendOptions As Integer, fCancelOptions As Integer
Dim bIsCounter As Integer, bACtionErr As Integer, bDateOnly As Integer, bCancel As Integer
This Agent requires build 164 & Server with a r5 Public NAB, you must resave all master holiday dokuments if created with 161.1 Also note: the APPTUNID item must match the UNID of the document in the public NAB. a resave will correct this if the document has been 'cut and pasted'
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class BaseApplication
Declare Class BaseCSStringTable
Declare Class BaseEventOwnerStringTable As BaseCSStringTable
Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
Declare Class BaseEventParticipantStringTable As BaseCSStringTable
Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
Declare Class MessageTrackStringTable
Declare Class MailToolsStringTable
Declare Class MemoStringTable
Declare Class OrgGSMigrationStringTable
Declare Class CopyFactory
Declare Class BaseNoteCopy
Declare Class MemoCopy As BaseNoteCopy
Declare Class CalendarCopy As BaseNoteCopy
Declare Class TaskCopy As BaseNoteCopy
Declare Class GroupCalendarCopy As BaseNoteCopy
Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
Declare Function NAMEGetNumOrgUnits(sName) As Integer
Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
Declare Function CSGetMailFileOwner() As String
Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
Declare Function CSEventDTItemsModified(vBEObject As Variant) As Integer
Declare Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
Declare Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
Declare Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
Declare Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
Declare Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
Declare Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
Declare Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
Declare Sub wInstantiateObjectVariables
Declare Sub wMessagePageHeader
Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
Declare Sub wMarkTempFields(doc As NotesDocument)
Declare Sub wCreateDefaultCalendarProfile
Declare Function wGetCalendarProfile As Integer
Declare Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
Declare Function CSGetMainEventObject(vBEObject As Variant) As Variant
Declare Sub Initialize
Declare Function CSNoteGetType(note As notesdocument) As Integer
Declare Function CSProfileGetAutoAnnivRepeat() As Integer
Declare Function CSEventPerformAction(vBEObject As Variant, Byval strAction As String, Byval bSendNow As Integer, vArgs As Variant) As Integer
Declare Function CSEventPerformActionGuts(vBEObject As Variant, strAction As String, bSendNow As Integer, vArgs As Variant) As Integer
Declare Sub CSDocScanForUpdates ( beobject As Variant, vCallBackObj As Variant)
Declare Function wReturnReceipt( note As notesdocument )
Declare Function IsDocAltNameCandidate(note As notesdocument) As Integer
Declare Sub PopulateSendTo()
Declare Sub NABResolveName( Byval strName As String, listResolved List As String, view As notesview, listGroups List As String)
Declare Sub NABResolveAllNames()
Declare Sub MEMOReplyToAll(note As notesdocument)
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
Declare Function isOEMClient(session As NotesSession) As Integer
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameExtractDomain(strDomainString As String) As String
Declare Function TIMEIncrementSecond(strItemName As String, note As notesdocument, nSeconds As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
(.txt)