ProjTask.vbs
13.1 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
'用于自定义部分
sub onShowBrowser1(id,url,linkurl,type1,ismand)
if type1= 2 or type1 = 19 Then
spanname = "customfield"+id+"span"
inputname = "customfield"+id
if type1 = 2 then
onWorkFlowShowDate spanname,inputname,ismand
else
onWorkFlowShowTime spanname,inputname,ismand
end if
else
if type1 <> 17 and type1 <> 18 and type1<>27 and type1<>37 and type1<>56 and type1<>57 and type1<>65 and type1<>152 and type1<>135 then
id1 = window.showModalDialog(url)
else
tmpids = document.all("customfield"+id).value
id1 = window.showModalDialog(url&"?resourceids="&tmpids)
end if
if NOT isempty(id1) then
if type1 = 17 or type1 = 18 or type1=27 or type1=37 or type1=56 or type1=57 or type1=65 or type1=152 or type1=135 then
if id1(0)<> "" and id1(0)<> "0" then
resourceids = id1(0)
resourcename = id1(1)
sHtml = ""
resourceids = Mid(resourceids,2,len(resourceids))
document.all("customfield"+id).value= resourceids
resourcename = Mid(resourcename,2,len(resourcename))
while InStr(resourceids,",") <> 0
curid = Mid(resourceids,1,InStr(resourceids,",")-1)
curname = Mid(resourcename,1,InStr(resourcename,",")-1)
resourceids = Mid(resourceids,InStr(resourceids,",")+1,Len(resourceids))
resourcename = Mid(resourcename,InStr(resourcename,",")+1,Len(resourcename))
sHtml = sHtml&"<a href="&linkurl&curid&">"&curname&"</a> "
wend
sHtml = sHtml&"<a href="&linkurl&resourceids&">"&resourcename&"</a> "
document.all("customfield"+id+"span").innerHtml = sHtml
else
if ismand=0 then
document.all("customfield"+id+"span").innerHtml = empty
else
document.all("customfield"+id+"span").innerHtml ="<img src='/images/BacoError.gif' align=absmiddle>"
end if
document.all("customfield"+id).value=""
end if
else
if id1(0)<>"" and id1(0)<> "0" then
if linkurl = "" then
document.all("customfield"+id+"span").innerHtml = id1(1)
else
document.all("customfield"+id+"span").innerHtml = "<a href="&linkurl&id1(0)&">"&id1(1)&"</a>"
end if
document.all("customfield"+id).value=id1(0)
else
if ismand=0 then
document.all("customfield"+id+"span").innerHtml = empty
else
: document.all("customfield"+id+"span").innerHtml ="<img src='/images/BacoError.gif' align=absmiddle>":
end if
document.all("customfield"+id).value=""
end if
end if
end if
end if
end sub
'得到时间
sub getDate(i)
returndate = window.showModalDialog("/systeminfo/Calendar.jsp",,"dialogHeight:320px;dialogwidth:275px")
document.all("datespan"&i).innerHtml= returndate
document.all("dff0"&i).value=returndate
end sub
'项目类型
sub onShowPrjTypeID1(txtObj,spanObj,spanImgObj,method,templetId)
id = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/proj/Maint/ProjectTypeBrowser.jsp?sqlwhere=Where wfid<>0 ")
if (Not IsEmpty(id)) then
if id(0)<> 0 then
spanObj.innerHtml = id(1)
txtObj.value=id(0)
spanImgObj.innerHTML=""
else
spanObj.innerHtml = ""
spanImgObj.innerHTML="<IMG src='/images/BacoError.gif' align='absMiddle'>"
txtObj.value=""
end if
end if
end sub
'工作类型
sub onShowWorkTypeID(txtObj,spanObj)
id = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/proj/Maint/WorkTypeBrowser.jsp")
if (Not IsEmpty(id)) then
if id(0)<> 0 then
spanObj.innerHtml = id(1)
txtObj.value=id(0)
else
spanObj.innerHtml = ""
txtObj.value=""
end if
end if
end sub
'评价书
sub showEnvDoc(txtObj,spanObj)
id = window.showModalDialog("/docs/DocBrowserMain.jsp?url=/docs/docs/DocBrowser.jsp")
if Not isempty(id) then
txtObj.value=id(0)&""
spanObj.innerHtml = "<a href='/docs/docs/DocDsp.jsp?id="&id(0)&"'>"&id(1)&"</a>"
end if
end sub
'确认书
sub showConDoc(txtObj,spanObj)
id = window.showModalDialog("/docs/DocBrowserMain.jsp?url=/docs/docs/DocBrowser.jsp")
if Not isempty(id) then
txtObj.value=id(0)&""
spanObj.innerHtml = "<a href='/docs/docs/DocDsp.jsp?id="&id(0)&"'>"&id(1)&"</a>"
end if
end sub
'建议书
sub showProDoc(txtObj,spanObj)
id = window.showModalDialog("/docs/DocBrowserMain.jsp?url=/docs/docs/DocBrowser.jsp")
if Not isempty(id) then
txtObj.value=id(0)&""
spanObj.innerHtml = "<a href='/docs/docs/DocDsp.jsp?id="&id(0)&"'>"&id(1)&"</a>"
end if
end sub
'经理
sub onShowPrjManagerID(txtObj,spanObj)
id = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/hrm/resource/ResourceBrowser.jsp")
if (Not IsEmpty(id)) then
if id(0)<> "" then
spanObj.innerHtml = "<A href='/hrm/resource/HrmResource.jsp?id="&id(0)&"'>"&id(1)&"</A>"
txtObj.value=id(0)
else
: spanObj.innerHtml = ""
: txtObj.value=""
end if
end if
end sub
'上级项目
sub onShowParent(txtObj,spanObj)
id = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/proj/data/ProjectBrowser.jsp")
if (Not IsEmpty(id)) then
if id(0)<> "" then
spanObj.innerHtml = "<A href='/proj/data/ViewProject.jsp?ProjID="&id(0)&"'>"&id(1)&"</A>"
txtObj.value=id(0)
else
spanObj.innerHtml = ""
txtObj.value=""
end if
end if
end sub
'相关客户
sub onShowMCrm(inputObj,spanObj)
tmpids = inputObj.value
id1 = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/CRM/data/MutiCustomerBrowser.jsp?resourceids="&tmpids)
if (Not IsEmpty(id1)) then
if id1(0)<> "" then
resourceids = id1(0)
resourcename = id1(1)
sHtml = ""
resourceids = Mid(resourceids,2,len(resourceids))
inputObj.value= resourceids
resourcename = Mid(resourcename,2,len(resourcename))
while InStr(resourceids,",") <> 0
curid = Mid(resourceids,1,InStr(resourceids,",")-1)
curname = Mid(resourcename,1,InStr(resourcename,",")-1)
resourceids = Mid(resourceids,InStr(resourceids,",")+1,Len(resourceids))
resourcename = Mid(resourcename,InStr(resourcename,",")+1,Len(resourcename))
sHtml = sHtml&"<a href=/CRM/data/ViewCustomer.jsp?CustomerID="&curid&">"&curname&"</a> "
wend
: sHtml = sHtml&"<a href=/CRM/data/ViewCustomer.jsp?CustomerID="&resourceids&">"&resourcename&"</a> "
spanObj.innerHtml = sHtml
else
spanObj.innerHtml =""
inputObj.value=""
end if
end if
end sub
'项目成员
sub onShowMHrm1(txtObj,spanObj,spanObj1,isTemplet)
tmpids = txtObj.value
id1 = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/hrm/resource/MutiResourceBrowser.jsp?resourceids="&tmpids)
if (Not IsEmpty(id1)) then
if id1(0)<> "" then
oldSelects = getAllSelelt()
removeAllManager
resourceids = id1(0)
resourcename = id1(1)
sHtml = ""
sHtml1 = ""
resourceids = Mid(resourceids,2,len(resourceids))
txtObj.value= resourceids
resourcename = Mid(resourcename,2,len(resourcename))
while InStr(resourceids,",") <> 0
curid = Mid(resourceids,1,InStr(resourceids,",")-1)
curname = Mid(resourcename,1,InStr(resourcename,",")-1)
resourceids = Mid(resourceids,InStr(resourceids,",")+1,Len(resourceids))
resourcename = Mid(resourcename,InStr(resourcename,",")+1,Len(resourcename))
sHtml = sHtml&"<a href=/hrm/resource/HrmResource.jsp?id="&curid&">"&curname&"</a> "
sHtml1=sHtml1&curname&","
'添加到负责人对象框
addSelManager curid,curname
wend
sHtml = sHtml&"<a href=/hrm/resource/HrmResource.jsp?id="&resourceids&">"&resourcename&"</a> "
sHtml1=sHtml1&resourcename
spanObj.innerHtml = sHtml
spanObj1.innerHtml = sHtml1
'添加到负责人对象框
addSelManager resourceids,resourcename
addSeleValue oldSelects
else
removeAllManager
if isTemplet="false" then
spanObj.innerHtml ="<IMG src='/images/BacoError.gif' align='absMiddle'>"
else
spanObj.innerHtml =""
end if
spanObj1.innerHtml=""
txtObj.value=""
end if
end if
end sub
'负责人
sub onShowHrm(txtObj,spanObj)
id = window.showModalDialog("/systeminfo/BrowserMain.jsp?url=/hrm/resource/ResourceBrowser.jsp")
if (Not IsEmpty(id)) then
if (id(0) <> "") then
spanObj.innerHtml = "<a href='/hrm/resource/HrmResource.jsp?id="+id(0)+"'>"+id(1)+"</a>"
txtObj.value = id(0)
else
spanObj.innerHtml = " "
txtObj.value = ""
end if
end if
end sub
'列表中显示开始时间
sub onShowBeginDate1(returndate,txtObj,spanObj,endDateObj,spanEndDateObj,workLongObj)
if (not IsEmpty(returndate)) then
if (returndate<>"") then
endDate = endDateObj.value
if (endDate <> "") then
diffDate = dateDiffForJava(returndate,endDate)
if (diffDate<0) then
If (readCookie("languageidweaver")=8) Then
msgbox("The end time must be larger than the start time!")
spanObj.innerHtml = txtObj.value
Else
msgbox("结束时间必须大于开始时间！")
spanObj.innerHtml = txtObj.value
End If
else
spanObj.innerHtml= returndate
txtObj.value=returndate
workLongObj.value=diffDate
end if
else
if workLongObj.value<>"" then
newDate = getAddNewDateStr1(returndate,workLongObj.value)
spanEndDateObj.innerHtml=newDate
endDateObj.value=newDate
end if
spanObj.innerHtml= returndate
: txtObj.value=returndate
end if
Else
spanObj.innerHtml= ""
txtObj.value=""
end if
end if
end sub
'列表中显示结束时间
sub onShowEndDate1(returndate,txtObj,spanObj,beginDateObj,spanBeginDateObj,workLongObj)
if (not IsEmpty(returndate)) then
if (returndate<>"") then
beginDate = beginDateObj.value
diffDate = dateDiffForJava(beginDate,returndate)
if (beginDate <> "") then
if (diffDate<0) Then
If (readCookie("languageidweaver")=8) Then
msgbox("The end time must be larger than the start time!")
spanObj.innerHtml = txtObj.value
Else
msgbox("结束时间必须大于开始时间！")
spanObj.innerHtml = txtObj.value
End If
else
spanObj.innerHtml= returndate
txtObj.value=returndate
workLongObj.value=diffDate
end if
else :
if workLongObj.value<>"" then
newDate = getSubtrNewDateStr(returndate,workLongObj.value)
spanBeginDateObj.innerHtml=newDate
beginDateObj.value=newDate
end if
spanObj.innerHtml= returndate
txtObj.value=returndate
end if
Else
spanObj.innerHtml= ""
txtObj.value=""
end if
end if
end sub
'当改变工期时做以下操作
sub onWorkLongChange(workLongObj,beginDateObj,spanBeginDateObj,endDateObj,spanEndDateObj)
workLong = workLongObj.value
beginDate = beginDateObj.value
endDate = endDateObj.value
if workLong<>"" and beginDate<>"" then
newDate = getAddNewDateStr1(beginDate,workLong)
spanEndDateObj.innerHTML=newDate
endDateObj.value=newDate
exit sub
end if
if workLong<>"" and endDate<>"" then
newDate = getSubtrNewDateStr(endDate,workLong)
spanBeginDateObj.innerHTML=newDate
beginDateObj.value=newDate
exit sub
end if
end sub
'算新的时间的方法 加法
function getAddNewDateStr(strDate,addDay)
if strDate="" then
getAddNewDateStr=""
exit function
end if
strDateArray = Split(strDate,"-",-1,1)
strYear = strDateArray(0)
strMonth = strDateArray(1)
strDay = strDateArray(2)
MyDate2 = DateSerial(CInt(strYear), CInt(strMonth), CInt(strDay)+addDay-1)
myYear = Year(MyDate2)
myMonth= Month(MyDate2)
myDay = Day(MyDate2)
if myMonth<10 then newMonth = "0"+ CStr(myMonth) else newMonth = CStr(myMonth)
if myDay<10 then newDay = "0"+ CStr(myDay) else newDay = CStr(myDay)
getAddNewDateStr = CStr(myYear)+"-"+newMonth+"-"+newDay
end function
'算新的时间的方法 加法 TD18989
function getAddNewDateStr1(strDate,addDay)
if strDate="" then
getAddNewDateStr1=""
exit function
end if
strDateArray = Split(strDate,"-",-1,1)
strYear = strDateArray(0)
strMonth = strDateArray(1)
strDay = strDateArray(2)
If Int(addDay)>0 And (CStr(Int(addDay))=addDay or CStr(Int(addDay))+".0"=addDay) then
MyDate2 = DateSerial(CInt(strYear), CInt(strMonth), CInt(strDay)+Int(addDay)-1)
Else
MyDate2 = DateSerial(CInt(strYear), CInt(strMonth), CInt(strDay)+Int(addDay))
End if
myYear = Year(MyDate2)
myMonth= Month(MyDate2)
myDay = Day(MyDate2)
if myMonth<10 then newMonth = "0"+ CStr(myMonth) else newMonth = CStr(myMonth)
if myDay<10 then newDay = "0"+ CStr(myDay) else newDay = CStr(myDay)
getAddNewDateStr1 = CStr(myYear)+"-"+newMonth+"-"+newDay
end function
'算新的时间的方法 减法
function getSubtrNewDateStr(strDate,addDay)
if strDate="" then
getSubtrNewDateStr=""
exit function
end if
strDateArray = Split(strDate,"-",-1,1)
strYear = strDateArray(0)
strMonth = strDateArray(1)
strDay = strDateArray(2)
MyDate2 = DateSerial(CInt(strYear), CInt(strMonth), CInt(strDay)-addDay+1)
myYear = Year(MyDate2)
myMonth= Month(MyDate2)
myDay = Day(MyDate2)
if myMonth<10 then newMonth = "0"+ CStr(myMonth) else newMonth = CStr(myMonth)
if myDay<10 then newDay = "0"+ CStr(myDay) else newDay = CStr(myDay)
getSubtrNewDateStr = CStr(myYear)+"-"+newMonth+"-"+newDay
end function