×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

old virtual link function in AC4.4

old virtual link function in AC4.4

old virtual link function in AC4.4

(OP)
In AC 4.3.2,When Assignment status is modified , the assignment date will be set to sysdate incase the user forgets to update the same.If the user updates the date , then the assignemtn date should get accordingly.
This works fine , if the user modifies the assignment status and hits modify , the assignment date resets to sysdate automatically, but if the user performs the following in order ,change the assignment status, then the assignment date and then hit the modify button , still the assignment date defaults to sysdate automatically and does not accept the user specified date.I have written a worflow which monitors the assignment status, location , user changes etc and then the action would udpate the assignment date.Has anyone come across this???
AC Experts any suggestions/ideas ?????

In Ac 4.4 , this can be handled easily by making use of the "Old" virtual link in the Parameter Script of your Start Event.Any ideas in Ac4.3.2.Following is the code in the second activity right after the Start activity.

Dim lErr As Long
Dim dAssign As Date
Dim hq as Long
Dim Mydate as Date
Dim hr as Long
dAssign=[dAssignment]
AmMsgBox(dAssign)
hq=amQueryCreate()
lErr = AmQueryExec( hq, "SELECT lPortfolioItemId ,dAssignment FROM amPortfolio WHERE lPortfolioItemId="&[lPortfolioItemId])
hr=amGetRecordHandle(hq)
MyDate=amGetFieldDateValue(hr,1)
AmMsgBox("MyDatebeforeupdate")
AmMsgBox(MyDate)
AmDbExecAQL("Update amPortfolio set dAssignment=getdate() WHERE lPortfolioItemId =" &[lPortfolioItemId] & " AND dAssignment = #"& MyDate &"#")
AmMsgBox("Afterupdate")
AmMsgBox([dAssignment])
AmMsgBox("AfterupdateMyDateValue")
AmMsgBox(MyDate)


Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close