DepartmentBrowser.vbs
2.25 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'*********************************
'Show the department selecting browser.
'@author lupeng
'@version 04/08/03
'*********************************
'****************************************************************************************
'Show the lgc selecting browser, not need.
'@param inputname the hidden or not input object name, it stores the selected department's id.
'@param spanname the span object name, it shows the selected department's name.
'****************************************************************************************
Sub onShowDepartment(inputname, spanname)
Call onShowDepartmentBase(inputname, spanname, false)
End Sub
'****************************************************************************************
'Show the lgc selecting browser, need.
'@param inputname the hidden or not input object name, it stores the selected department's id.
'@param spanname the span object name, it shows the selected department's name.
'****************************************************************************************
Sub onShowDepartmentNeeded(inputname, spanname)
Call onShowDepartmentBase(inputname, spanname, true)
End Sub
'****************************************************************************************
'Show the department selecting browser, the base function.
'@param inputname the hidden or not input object name, it stores the selected department's id.
'@param spanname the span object name, it shows the selected department's name.
'@param needed the flag that whether or not need to input.
'****************************************************************************************
Sub onShowDepartmentBase(inputname, spanname, needed)
retValue = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/hrm/company/DepartmentBrowser.jsp?selectedids="&document.all(inputname).value)
If (Not IsEmpty(retValue)) Then
If retValue(0) <> "" Then
document.all(spanname).innerHtml = "<A href='/hrm/company/HrmDepartmentDsp.jsp?id="&retValue(0)&"'>"&retValue(1)&"</A>"
document.all(inputname).value = retValue(0)
Else
document.all(inputname).value = ""
If needed Then
document.all(spanname).innerHtml = "<IMG src='/images/BacoError.gif' align=absMiddle>"
Else
document.all(spanname).innerHtml = ""
End If
End If
End If
End Sub