Table 953 Time Sheet Comment Line, source in 29
Source29
src/Layers/W1/BaseApp/Projects/TimeSheet/TimeSheetCommentLine.Table.al74 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Projects.TimeSheet;
table 953 "Time Sheet Comment Line"
{
Caption = 'Time Sheet Comment Line';
DataClassification = CustomerContent;
fields
{
field(1; "No."; Code[20])
{
Caption = 'No.';
}
field(2; "Time Sheet Line No."; Integer)
{
Caption = 'Time Sheet Line No.';
}
field(3; "Line No."; Integer)
{
Caption = 'Line No.';
}
field(4; Date; Date)
{
Caption = 'Date';
ToolTip = 'Specifies the date when you created a comment.';
}
field(5; "Code"; Code[10])
{
Caption = 'Code';
ToolTip = 'Specifies a code for a comment.';
}
field(6; Comment; Text[80])
{
Caption = 'Comment';
ToolTip = 'Specifies the comment that relates to a time sheet or time sheet line.';
}
}
keys
{
key(Key1; "No.", "Time Sheet Line No.", "Line No.")
{
Clustered = true;
}
}
fieldgroups
{
}
procedure SetUpNewLine()
var
TimeSheetCommentLine: Record "Time Sheet Comment Line";
begin
TimeSheetCommentLine.SetRange("No.", "No.");
TimeSheetCommentLine.SetRange("Time Sheet Line No.", "Time Sheet Line No.");
TimeSheetCommentLine.SetRange(Date, WorkDate());
if TimeSheetCommentLine.IsEmpty() then
Date := WorkDate();
OnAfterSetUpNewLine(Rec, TimeSheetCommentLine);
end;
[IntegrationEvent(false, false)]
local procedure OnAfterSetUpNewLine(var TimeSheetCommentLineRec: Record "Time Sheet Comment Line"; var TimeSheetCommentLineFilter: Record "Time Sheet Comment Line")
begin
end;
}