18. Februar 2015 11:50
CLEAR(UserSetup);
UserSetup.GET(USERID);
IF (UserSetup.Department = UserSetup.Department::Einkauf) THEN BEGIN
FILTERGROUP(2);
SETRANGE("Table Name","Table Name"::Item);
FILTERGROUP(0);
END;
CommentLine.SETRANGE("Table Name","Table Name");
CommentLine.SETRANGE("No.","No.");
CommentLine.SETRANGE(Date,WORKDATE);
IF NOT CommentLine.FIND('-') THEN
Date := WORKDATE;
20. Februar 2015 12:36
In der Form Comment Sheet im OnOpenForm habe ich folgendes eingefügt
- Code:
FILTERGROUP(2);
SETRANGE("Table Name","Table Name"::Item);
FILTERGROUP(0);
No.=FIELD(No.),Table Name=CONST(Item)
25. Februar 2015 16:41
CommentLine.FILTERGROUP(2);
CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Item);
CommentLine.SETRANGE("No.","No.");
CommentLine.FILTERGROUP(0);
FORM.RUNMODAL(FORM::"Comment Sheet",CommentLine);