Lotusscript -> Javascript

Sub Click(Source As Button)
On Error Goto errh
 
 
Dim sw As Switchboard
Dim w As New notesuiworkspace
Dim col As notesdocumentcollection
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim note As notesdocument
Dim keys() As String
Dim result() As String
Dim resultID() As Integer
Dim sel As Variant
Dim i As Integer
Dim isPost As Boolean
 
Dim Person_Name As Variant
Dim Person_Notes As Variant
Dim Dialog_Post As Variant
Dim Dialog_Dep As Variant
Dim site As String
 
Set uidoc = w.CurrentDocument
Set doc = uidoc.Document
If doc.GetItemValue("Dialog_Search")(0) = "" Then Exit Sub
 
If doc.GetItemValue("Dialog_Search")(0) = searchKey And wasFound = True Then
w.RefreshParentNote
uidoc.Close
Exit Sub
End If
 
searchKey = doc.GetItemValue("Dialog_Search")(0)
site = doc.GetItemValue("Dialog_Site")(0)
 
If searchView Is Nothyng Then
Set sw = New SwitchBoard
Set ytstaff = sw.getdatabase("ITStaffManager")
If doc.GetItemValue("Dialog_Role")(0) <> "" Then
If doc.Dialog_NoUser(0) = "1" Then
Set searchView = ytstaff.GetView("PLPeopleByRolesAll")
Else
Set searchView = ytstaff.GetView("PLPeopleByRoles")
End If
Else
If site = "" Then
Set searchView = ytstaff.GetView("AllUser")
Else
Set searchView = ytstaff.GetView("PLPeopleBySite")
End If
End If
End If
 
If doc.GetItemValue("Dialog_Role")(0) <> "" Then
Redym keys(1)
keys(0) = doc.GetItemValue("Dialog_Role")(0)
keys(1) = Fulltrim(searchKey)
Else
Redym keys(0)
keys(0) = Fulltrim(searchKey)
End If
 
If site <> "" Then
keys(0) = site & "~#" & keys(0)
End If
 
Set col = searchView.GetAllDocumentsByKey(keys)
If col.Count = 0 Then
Print "Соответствий не найдено"
Exit Sub
End If
 
Redym result(col.Count - 1)
Redym resultID(col.Count - 1)
Set note = col.GetFirstDocument
Do Until note Is Nothyng
resultID(i) = i
If note.GetItemValue("Form")(0) = "Post" Then isPost = True Else isPost = False
 
If isPost = False Then
result(i) = note.GetItemValue("Person_Name")(0)
If note.GetItemValue("Person_Post")(0) <> "" Then
result(i) = result(i) & " - " & note.GetItemValue("Person_Post")(0)
End If
Else
result(i) = note.GetItemValue("Post_Owner")(0)
If note.GetItemValue("Post_Name")(0) <> "" Then
result(i) = result(i) & " - " & note.GetItemValue("Post_Name")(0)
End If
result(i) = result(i) & " (совместитель)"
End If
 
i = i + 1
Set note = col.GetNextDocument(note)
Loop
 
If i = 1 Then
Set note = col.GetFirstDocument
Else
sort result, resultID
sel = w.Prompt(4,"Поиск","Выберите:",result(0),result)
If Isempty(sel) Then Exit Sub
i = Arraygetindex(result, sel)
Set note = col.GetNthDocument(resultID(i) + 1)
End If
 
If note Is Nothyng Then Exit Sub
 
If Isnull(Arraygetindex(doc.Dialog_ID, note.UniversalID)) Then
Person_Name=Evaluate({@Trim(@Right(PROPERTIES;"[NAME]"))}, note)
Person_Notes=Evaluate({tmp:=@Trim(@Right(PROPERTIES;"[NTSN]"));@If(tmp="";"-";tmp)}, note)
Dialog_Post=Evaluate({tmp:=@Trim(@Right(PROPERTIES;"[POST]"));@If(tmp="";"-";tmp)+@If(Form="Post";" (совместитель)";"")}, note)
Dialog_Dep=Evaluate({ref:=@Trim(@Right(PROPERTIES;"[$REF]"));
@While(ref!="";dev:=@Implode(@Trim(@GetDocField(ref;"Abbreviation"):dev);"/");
ref:=@Trim(@Right(@GetDocField(ref;"PROPERTIES");"[$REF]")));dev}, note)
 
If doc.Dialog_Multi(0)="" Then
doc.Dialog_Names = Person_Name
doc.Dialog_Notes = Person_Notes
doc.Dialog_ID = note.UniversalID
doc.Dialog_Post = Dialog_Post
doc.Dialog_Dep = Dialog_Dep
doc.Dialog_Types = "0"
Else
doc.Dialog_Names = Fulltrim(Arrayappend(doc.Dialog_Names, Person_Name))
doc.Dialog_Notes = Fulltrim(Arrayappend(doc.Dialog_Notes, Person_Notes))
doc.Dialog_ID = Fulltrim(Arrayappend(doc.Dialog_ID, note.UniversalID))
doc.Dialog_Post = Fulltrim(Arrayappend(doc.Dialog_Post, Dialog_Post))
doc.Dialog_Dep = Fulltrim(Arrayappend(doc.Dialog_Dep, Dialog_Dep))
doc.Dialog_Types = Fulltrim(Arrayappend(doc.Dialog_Types, "0"))
End If
Call uidoc.Refresh
 
wasFound = True
End If
 
Exit Sub
 
errh:
Msgbox Error & " в строке " & Erl, 16, "Ошибка"
Exit Sub
End Sub

Set ytstaff = sw.getdatabase("ITStaffManager")