This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
0R1S
PrevDoc
odeslanou str
0R1S2S
BackJour
t do datab
ze Osobn
0R1S2S
JEntry
ka den
0R1S2S
CSheet
list
0R1S2S
ThankPerson
ivatel
0R1S2S3S4S8S
ThankYou
ThankPerson
kujeme za spolupr
jste odeslali str
nku "
0R1S2S3S4S
End variables to translate
0R1S
Get the name of this database.
0RR1S
0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
0R1S2S3S
FormName
JournalEntry
JEntry
CleanSheet
CSheet
0R1S2S5S6S8S10S11S12S14S16S
Thanks
ThankYou"
Formname"
</h3><hr>
0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
0R1S
getcurrentView
tempvars
viewtitle
0RRR1S2S6S
wGetView
getcurrentView
0R1S2S6S8S
existingdoclink
<font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</a> "
0RR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
wGetView"
?OpenView>"
BackJour"
</a
0R1S2S2E3S4S5S6S7S8S9S10S11S12S2E13S14S2E
Assemble the HTML to be returned
0RRR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
0R1S2S3S4S5S6S7S8S
OKMsg
0RR$$Return
HideCats
4S6S
HideCats
HideAttach
4S6S
HideAttach
TimeCreated
0S0E
TimeModified
HideCats
HideAttach
1S2S3S4S5S6S
HideCats
1S2S
HideCats
1S2S
HideCats
1S2S
size=40
SubjectP
t tohoto
ho listu
Kategorie:
Rows=5
WebCategories
nocache
Podle kategorie
6S8S10S
Zadejte novou kategorii:
NewCats
Notes
HideCats
2S3S4S5S7S8S9S10S
Notes
Categories
WebCategories
NewCats
3S4S6S14S19S20S
WebCategories
WebCategories
1S2S3S
Notes
WebCategories
Categories
WebCategories
WebCategories
NewCats
0R3S4S6S19S28S29S
NewCats
0R1S2S3S
CategoriesChcete-li zobrazit seznam kl
ch slov nebo p
idat nov
slovo, stiskn
te kl
vesu ENTER.
In the case of reading an existing document, it is not necessary to do the @DbColumn because we don't support the use of Keyword Synonyms in this application, and thus translation doesn't need to be done.
'++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 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 Function wGetDBPath As Variant
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
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
%INCLUDE "orgconst.lss"
'Back end classes
Dim session As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim profile As NotesDocument
Dim item As NotesItem
Dim NameLookup As NotesName
Dim agentlog As noteslog
Dim PathAndName As String
'General Purpose classes
Dim Owner As String
Dim NewDocument As Integer
'Client Differenciation
Dim IsWebClient As Variant
Class BaseApplication
' Properties
m_session As NotesSession ' pointer to current session object
m_db As NotesDatabase ' pointer to current database
m_stringtable As Variant ' Reference to a StringTable object
Property Get Session As NotesSession
Set Session = m_session
End Property
Property Get Database As NotesDatabase
Set Database = m_db
End Property
Property Get StringTable As Variant
Set StringTable = m_stringtable
End Property
Property Get DocumentsToProcess As NotesDocumentCollection
Set DocumentsToProcess = m_db.UnprocessedDocuments
(.txt)
