Alternate of follwing louts script code to jscript

HCL Domino Domino Forum
1

Sub Onblur(Source As Field) Dim session As New NotesSession

Dim dbase As NotesDatabase

Dim dataView As NotesView

Dim doc As NotesDocument

Dim uiws As NotesUIWorkspace

Dim uidoc As NotesUIDocument



Set uiws = New NotesUIWorkspace

Set uidoc = uiws.CurrentDocument

Set dbase = session.GetDatabase(session.CurrentDatabase.Server,"EMPLMAST.nsf")

Set dataView = dbase.GetView("ED")

Dim mval As Variant

mval = uidoc.FieldGetText("Define_armi_pno1")

Set doc = dataView.GetDocumentByKey(mval)

If Not doc Is Nothing Then

	Call uidoc.FieldSetText("Define_armi_name1",Cstr(doc.EMP_NAME(0)))

	Call uidoc.FieldSetText("Define_armi_dept1",Cstr(doc.EMP_DEPT_NAME(0)))

	Call uidoc.FieldSetText("Define_armi_phno1",Cstr(doc.EMP_PHONE_NO(0)))

	Call uidoc.FieldSetText("Define_armi_mail1",Cstr(doc.EMP_EMAIL(0)))

Else

	Call uidoc.FieldSetText("Define_armi_name1","")

	Call uidoc.FieldSetText("Define_armi_dept1","")

	Call uidoc.FieldSetText("Define_armi_phno1","")

	Call uidoc.FieldSetText("Define_armi_mail1","")

End If

End Sub

Thanks !!

Rupesh

2

Subject: alternate of follwing louts script code to jscript.

Rupesh,

You might need to load all the lookup values into the document in the WQO agent and then reference in JS that way. Not sure you can do a back-end lookup in JavaScript

Good article here to point you on your way - http://www.codestore.net/store.nsf/unid/DFOU-4PRG6V?OpenDocument

Mike