Restrict Posting to current Month

WITH Rec DO BEGIN
  GLTranManagement.ValidatePostingDate("Posting Date");
END;


ValidatePostingDate:Date(par)
{
MonthPosting := DATE2DMY(PostingDate,2);
CurrentMonth := DATE2DMY(TODAY,2);        // commented by amos chibwana to allow carol to post for earlier dates..
 IF MonthPosting <> CurrentMonth THEN     // the comments should be removed during deployment
  ERROR(Text50000);
}