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