How to restrict WORKDATE for several users

Madhan · 2006-03-09

hi all,

Great day to every one.

I like to know whether it is possible to restrict WORKDATE for a particular user. can any one help me how to do this?

For Example

I am having Five users,

In that only two users will be able to change the WORKDATE and the remaining three can not.

kriki · 2006-03-09

Not so easy, but I have an idea, but I didn't test it:

Create a singleinstance codeunit. This codeunit you have to launch in Codeunit 1 function LogInStart().

globals :

recUserSetup Record "User Setup"
autTimer  Automation  'Navision Timer 1.0'.Timer (property WithEvents=Yes)

OnRun() of your singleinstance codeunit:

IF ISCLEAR(autTimer) THEN BEGIN
  CREATE(autTimer);
  autTimer.Interval(3 * 1000); // test each 3 seconds
  autTimer.Enabled(TRUE)
END;
CLEAR(recUserSetup);
IF recUserSetup.get(USERID) THEN ;

autTimer::Timer(Milliseconds : Integer)

IF TODAY <> WORKDATE THEN
  IF NOT recUserSetup."User May Change WORKDATE" THEN BEGIN
    WORKDATE := TODAY;
    MESSAGE('You may not change the WORKDATE. WORKDATE has been resetted');
  END;

PS : you need to create field recUserSetup."User May Change WORKDATE".

Marije_Brummel · 2006-03-09

There are some topics about this on www.mbsonline.org

For example:

http://www.mbsonline.org/forum/topic.as ... kdate,user

Madhan · 2006-03-09

Thanx a lot

I will work on it and update you.

ranian92 · 2006-07-06

Hi

For Another developer with same problem.

http://www.mibuso.com/forum/viewtopic.php?p=52893#52893

==================================
Richard

themave · 2006-07-06

Here is a slightly different approach from a non-developer point of view,
you goal is to not let certain employees post transactions with a different date then "Today" correct.

So, you need to change the user setup allow to-from posting date to always be today. For this I would create a processing only report that updates the user setup table 91 to have the current date, run the report in the job scheduler or NAS and you are done. I would run this each evening so when the employee came in in the morning they would be ready to go. You filter it to run just on the restricted employees. You could add a field to the user setup table, a check box that you would check if they were restricted.

dt := TODAY + 1 // today plus 1 if you run it at night for the next day.

"User Setup" OnAfterGetRecord()
"Allow Posting From" := dt;
"Allow Posting To" := dt;
Modify;

aniruddha_majumdar · 2006-09-11

dear kriki,

Thanks for providing the its working fine.

Regards,
Aniruddha

rakesh_raul · 2009-02-06

IS THERE A WAY TO GET THE SERVER DATE AND PUT THAT DATE IN ALL CLIENTS?

rakesh_raul · 2009-03-31

I got solution for SQL DB that i have created one Date field in Company Info Table and written stored procedure in SQL to populate date in to Date field. Executing procedure by using JOBS. Now as suggested by kriki i have written code which is working fine.
In case of FDB I am using Jog Queue, but I am facing some problem with Job QUEUE.

garak · 2009-03-31

viewtopic.php?f=23&t=24501

rjverma · 2012-05-12

Dear Kriki

I had gone through you Code, but I am not able to configure 2nd line of below code ! Would you help me out to do this.

recUserSetup Record - I had define the field in User Setup table as well as Singleinstance codeunit as global variable.

autTimer - where I need to configure autTimer

Code: Select all
recUserSetup Record "User Setup"
autTimer Automation 'Navision Timer 1.0'.Timer (property WithEvents=Yes)

regds

Rupesh Verma

kriki · 2012-05-14

In the global variables of the codeunit, you need to create a variable of type automation and select the Navision timer (you need to have NAV installed in a correct way or otherwise you need to registrate the dll yourself in Windows).

rjverma · 2012-05-17

Hi Kriki

Thanks for giving us the solutions, you solutions is working fine.
regds
Rupesh Verma
Kortek Electronics

faizguy84 · 2012-05-17

Kriki provided good solution. But still i would go ahead with themave solution with minor modification. Instead of creating a report and running it through NAS , write the same code to update "Allow posting from" and "allow posting to" as today through Application management code unit on LogInStart function. That will make life simple.

Regards,
Faisal Bukhari

rjverma · 2013-02-16

Dear Kriki

Thanks for giving me the solutions to restrict/allowed the Users to change the Work Date.

Rupesh Verma

rjverma · 2013-02-16

kriki wrote:

In the global variables of the codeunit, you need to create a variable of type automation and select the Navision timer (you need to have NAV installed in a correct way or otherwise you need to registrate the dll yourself in Windows).

Dear Kriki

Thanks for giving me the solutions to restrict/allowed the Users to change the Work Date.

_________________
Rupesh Verma
Kortek Electronics (I) Pvt. Ltd.

hery_halim · 2014-01-13

Hi all,

I found this thread interesting.

How can we do that in Navision 2013 ?

I try to implement this solution in Nav 2013, but soon find out that Navision Timer 1.0 no longer supported.

Any updates ?

Thanks

rmv_RU · 2014-01-13

Look at the codeuint 1 and check a workdate on OnGlobalModify|OnGlobalModify|OnGlobalInsert functions.

hery_halim · 2014-01-13

Hi rmv_RU,

I can't find anything related to OnGlobalModify|OnGlobalModify|OnGlobalInsert functions in codeunit 1?

any clue ?

thanks

Howdy, Stranger!

Quick Links

Categories

How to restrict WORKDATE for several users

Comments