M
Michael Hudson
I have a simple custom task form, which on opening adds
some data to the body of the task.
This works fine on the OL2000 & below products but not on OL03
CODE:
Function Item_Open()
End Function
Function Item_Close()
Randomize
mypos = InStr(1, Item.body, "#!#")
If mypos < 1 Then
item.body = item.body & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Start Time: ......................... End Time: .........................." & vbrlf & _
vbcrlf & vbcrlf & "Date: .................................." & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Please get the customer to complete the following details on job completion:" & vbcrlf & _
"Signature: Print Name:" & vbcrlf & vbcrlf & vbcrlf & _
"......................... ........................." & vbcrlf & _
vbcrlf & vbcrlf & "Engineers Name: ............................" & vbcrlf & vbcrlf & "Explanation of how " &_
"the issue was resolved: (Any parts used etc)" & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & "Added @ " & Now() & vbcrlf & "By: " & Item.owner & vbcrlf & _
"Unique Job ID:#!# " & Int((99999 * Rnd) + 1)
'Item.Update
End If
End Function
Any ideas?
Thanks!
some data to the body of the task.
This works fine on the OL2000 & below products but not on OL03
CODE:
Function Item_Open()
End Function
Function Item_Close()
Randomize
mypos = InStr(1, Item.body, "#!#")
If mypos < 1 Then
item.body = item.body & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Start Time: ......................... End Time: .........................." & vbrlf & _
vbcrlf & vbcrlf & "Date: .................................." & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Please get the customer to complete the following details on job completion:" & vbcrlf & _
"Signature: Print Name:" & vbcrlf & vbcrlf & vbcrlf & _
"......................... ........................." & vbcrlf & _
vbcrlf & vbcrlf & "Engineers Name: ............................" & vbcrlf & vbcrlf & "Explanation of how " &_
"the issue was resolved: (Any parts used etc)" & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
vbcrlf & vbcrlf & "Added @ " & Now() & vbcrlf & "By: " & Item.owner & vbcrlf & _
"Unique Job ID:#!# " & Int((99999 * Rnd) + 1)
'Item.Update
End If
End Function
Any ideas?
Thanks!