8. Januar 2006 00:51
10. September 2006 19:53
24. Juli 2007 10:42
IF BaseCal.GET(BaseCalCode) THEN;
IF FORM.RUNMODAL(0,BaseCal) = ACTION::LookupOK THEN BEGIN
  BaseCalCode := BaseCal.Code;
  EXIT(TRUE);
END;25. Juli 2007 11:41
IF NOT (AlreadyExisting) THEN BEGIN
  IF (NOT (OnlyNonWorkingDays AND (NOT Nonworking))) AND
     ((Description <> '') OR Nonworking)
  THEN BEGIN
    CASE UpdateAction OF
      UpdateAction::Insert:
        IF INSERT(TRUE) THEN;
      UpdateAction::Modify:
        IF MODIFY(TRUE) THEN;
      UpdateAction::"Insert and Modify":
        IF NOT INSERT(TRUE) THEN
          IF MODIFY(TRUE) THEN;
    END;
  END;
END;24. September 2007 20:56
5. Dezember 2008 10:19
14. November 2013 10:05