| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 08:38:50 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=d9008064e431bfd67a892dcfefe311a5b0baede4affd0f2451815e9007e5d386a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%223AeAAL0_l3U6kbmdhrq_r9QS29tLg28S%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d54884ca39c169-BLR
getAnyDoc - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %REM
- Function getAnyDoc
- Description: Comments for Function
- NSFAppstore.com
- %END REM
- Function getAnyDoc(strServerName As String,strDbName As String, strViewLookupName As String,strKey As String,exactMatch As boolean) As NotesDocument
- Dim act As String
- Dim errstr As String
- On Error GoTo errhandler
- act="function getAnyDoc started"
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- act="ServerName = " + strServerName + ". DbName = " + strDbName
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- act = "ViewName = " + strViewLookupName + ". key = " + strKey
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- Dim ses As New NotesSession
- Dim currdb As NotesDatabase
- Set currdb = ses.currentdatabase
- Dim LookupDb As NotesDatabase
- Set LookupDb = New NotesDatabase(strServerName,strDbName)
- If LookupDb.Isopen = False Then
- act="sorry, can not open database " + strDbName + " at server " + strServerName
- If GlobaldebugFlag Then Call doCreateLogError(GlobalLogProgramName,act)
- GoTo keluar
- End If
- Dim viewLookup As NotesView
- Dim viewLookupName As String
- viewLookupName = strViewLookupName
- Set viewLookup = LookupDb.Getview(viewLookupName)
- act="opening view " + viewLookupName + " ..."
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- If viewLookup Is Nothing Then
- errstr="view " + viewLookupName + " is not there? " + currdb.Filepath + " on server " + currdb.Server
- If GlobaldebugFlag Then Call doCreateLogError(GlobalLogProgramName,errstr)
- GoTo keluar
- End If
- Dim lookupDoc As NotesDocument
- Set lookupDoc = viewLookup.Getdocumentbykey(strKey,exactMatch)
- If lookupDoc Is Nothing Then
- act=strKey + " not found !"
- If GlobaldebugFlag Then Call doCreateLogError(GlobalLogProgramName,act)
- GoTo keluar
- Else
- act=strKey + " found it!"
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- End If
- Set getAnyDoc = lookupdoc
- act="function getAnyDoc completed"
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- keluar:
- Exit Function
- errhandler:
- errstr = "function getAnyDoc error found ...." & Str(Err) & ": " & Error$ + " at line " + CStr(Erl)
- Call doCreateLogError(GlobalLogProgramName,errstr)
- 'Print errstr$
- Resume Next
- End Function
- ------------------------
- Sub Initialize
- Dim act As String
- Dim currentserver As String
- Dim errstr As String
- Call initLogVariable
- GlobalLogProgramName = "test\testLookupAnyDoc\"+getSessionId
- On Error GoTo errhandler
- 'ambil config
- Dim theConfig List As Variant
- Call getConfig(theConfig)
- If theConfig("GlobalDebug") = 0 Then
- GlobalDebugFlag = False
- Else
- GlobalDebugFlag = True
- End If
- act="start."
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- Dim ses As New NotesSession
- Dim doc As NotesDocument
- Set doc = ses.Documentcontext
- Dim currdb As NotesDatabase
- Set currdb = ses.Currentdatabase
- Dim strServerName As String
- Dim strDbName As String
- Dim strViewName As String
- Dim strKey As string
- Dim xdoc As NotesDocument
- strKey = "Gunawan T Wicaksono/DOMINO"
- strViewName = "($VIMPeople)"
- strDbName = "names_fake1.nsf"
- strServerName = currdb.Server
- Set xdoc = getAnyDoc(strServerName,strDbName,strViewName,strKey,true)
- If xdoc Is Nothing Then
- act="document not found"
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- Else
- act="document found " + xdoc.FullName(0)
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- End If
- keluar:
- act="completed"
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- Exit Sub
- errhandler:
- errstr$ = "testLookupAnyDoc error found ...." & Str(Err) & ": " & Error$ + " at line " + CStr(Erl)
- Call doCreateLogError(GlobalLogProgramName,errstr$)
- 'Print errstr$
- Call doCreateToastrError(errstr$)
- Resume Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 31 sec ago | 0.10 KB
-
⭐⭐⭐Free Giftcards Method⭐⭐
Java | 43 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ U
JavaScript | 45 sec ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ Z
JavaScript | 50 sec ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ V
JavaScript | 53 sec ago | 0.25 KB
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 55 sec ago | 0.10 KB
-
📌 Swapzone +37% glitch ⭐ P
JavaScript | 58 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ P
JavaScript | 1 min ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
