Hi try something like this..
In common module
Function Project_GetFullname(username)
if len(trim(username)) = 0 then Project_GetFullname = username
Dim tdc, vUser, vUsers, vCust, List
set tdc = TDConnection
set vcust = tdc.customization
set vusers = vcust.users
set list = vusers.users
for i=1 to list.count
set vuser = List.item(i)
if vuser.name = username then
Project_GetFullname = vuser.fullname
exit Function
end if
next
End Function
Function Project_GetEmail(username)
if len(trim(username)) = 0 then Project_GetFullname = username
Dim tdc, vUser, vUsers, vCust, List
set tdc = TDConnection
set vcust = tdc.customization
set vusers = vcust.users
set list = vusers.users
for i=1 to list.count
set vuser = List.item(i)
if vuser.name = username then
Project_GetEmail = vuser.Email
exit Function
end if
next
End Function
Function UserFullName(userID)
Dim td
Dim cust
Dim cust_users
Dim c_user
set td = TDConnection
set cust = td.customization
set cust_users = cust.users
set c_user = cust_users.user(userID)
UserFullName = c_user.FullName
UserEmail=c_user.Email
In requirement module
Sub Project_User2Fullname(Fieldname)
on error resume next
if len(trim(fieldname)) <= 0 then exit sub
select case lcase(left(fieldname, 2))
case "req"
REQ_Fields.Field(fieldname).value = oject_GetEmail(REQ_Fields.Field(fieldname).value)
end select
on error goto 0
End Sub
Sub Req_New
If actionname= write action name then req_Fields.Field("userfield").Value = User.email
REQ_Fields.Field("").Value = UserEmail(Bug_Fields.Field("").Value)
end sub..
This is not the excat code... Hope this helps
Thanks,
Avi.