18. Januar 2021 15:02
18. Januar 2021 15:12
18. Januar 2021 16:32
TmpInterLogEntry.DELETEALL;
TmpInterLogEntry.RESET;
IF InterLogEntryCommentLineTmp.FINDSET THEN BEGIN
REPEAT
TmpInterLogEntry.INIT;
TmpInterLogEntry.TRANSFERFIELDS(InterLogEntryCommentLineTmp,FALSE);
TmpInterLogEntry."Line No." := InterLogEntryCommentLineTmp."Line No.";
TmpInterLogEntry."Entry No." := InterLogEntryCommentLineTmp."Entry No.";
TmpInterLogEntry.INSERT;
UNTIL InterLogEntryCommentLineTmp.NEXT = 0;
END;
TmpInterLogEntry.RESET;
IF TmpInterLogEntry.FINDSET THEN BEGIN
REPEAT
Rec.INIT;
Rec.TRANSFERFIELDS(TmpInterLogEntry);
Rec."Line No." := TmpInterLogEntry."Line No.";
Rec."Entry No." := TmpInterLogEntry."Entry No.";
Rec.INSERT;
UNTIL TmpInterLogEntry.NEXT = 0;
END;
19. Januar 2021 09:38
OnFindRecord(Which : Text) : Boolean
IF Rec.FIND(Which) THEN BEGIN
EXIT(TRUE);
END ELSE
EXIT(FALSE);
OnNextRecord(Steps : Integer) : Integer
locResultSteps := Rec.NEXT(Steps);
IF locResultSteps <> 0 THEN
EXIT(locResultSteps);
19. Januar 2021 10:05
19. Januar 2021 12:07