Share
Report
700Hi All,
In the above screenshot, whenever a new time sheet line is created, the grid of Office Schedule disappears.
Again, in the new time sheet line, when 'Type' field is filled, the above grid becomes visible.
Not able to figure out the reason why it is happening.
Could anyone please suggest a solution !
I have attached the source code for reference.
Thanks !
page 50155 "Time Sheet Line Card"
{
AutoSplitKey = true;
Caption = 'Time Sheet';
DataCaptionFields = "Time Sheet No.";
PageType = Card;
PromotedActionCategories = 'New,Process,Report,Navigate,Line';
RefreshOnActivate = true;
SaveValues = true;
SourceTable = "Time Sheet Line";
// ApplicationArea = all;
//UsageCategory = Tasks;
layout
{
area(content)
{
group(Control26)
{
ShowCaption = false;
field(CurrTimeSheetNo; CurrTimeSheetNo)
{
ApplicationArea = Jobs;
Caption = 'Time Sheet No';
ToolTip = 'Specifies the number of the time sheet.';
trigger OnLookup(var Text: Text): Boolean
begin
CurrPage.SaveRecord;
TimeSheetMgt.LookupOwnerTimeSheet(CurrTimeSheetNo, Rec, TimeSheetHeader);
UpdateControls;
end;
trigger OnValidate()
begin
TimeSheetHeader.Reset;
TimeSheetMgt.FilterTimeSheets(TimeSheetHeader, TimeSheetHeader.FieldNo("Owner User ID"));
TimeSheetMgt.CheckTimeSheetNo(TimeSheetHeader, CurrTimeSheetNo);
CurrPage.SaveRecord;
TimeSheetMgt.SetTimeSheetNo(CurrTimeSheetNo, Rec);
UpdateControls;
end;
}
field(ResourceNo; TimeSheetHeader."Resource No.")
{
ApplicationArea = Jobs;
Caption = 'Resource No.';
Editable = false;
ToolTip = 'Specifies a number for the resource.';
}
field(ApproverUserID; TimeSheetHeader."Approver User ID")
{
ApplicationArea = Jobs;
Caption = 'Approver User ID';
Editable = false;
ToolTip = 'Specifies the ID of the time sheet approver.';
Visible = false;
}
field(StartingDate; TimeSheetHeader."Starting Date")
{
ApplicationArea = Jobs;
Caption = 'Starting Date';
Editable = false;
ToolTip = 'Specifies the date from which the report or batch job processes information.';
}
field(EndingDate; TimeSheetHeader."Ending Date")
{
ApplicationArea = Jobs;
Caption = 'Ending Date';
Editable = false;
ToolTip = 'Specifies the date to which the report or batch job processes information.';
}
}
group(OfficeSchedule)
{
Caption = 'Office Schedule';
part("Office Schedule"; "Timesheet Office Schedule")
{
Caption = ' ';
ApplicationArea = all;
SubPageLink = "Time Sheet No." = FIELD("Time Sheet No.");
}
}
group(Contrlo28)
{
Caption = 'Time Sheet Lines';
repeater(Control1)
{
ShowCaption = false;
field(Type; Type)
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies the type of time sheet line.';
trigger OnValidate()
var
i: Integer;
timeSheetLineTbl: Record "Time Sheet Line";
begin
timeSheetLineTbl.SetFilter("Time Sheet No.", "Time Sheet No.");
timeSheetLineTbl.SetFilter("Line No.", Format("Line No."));
if timeSheetLineTbl.FindFirst() then begin
if timeSheetLineTbl.Type = 2 then begin
i := 0;
while i < 7 do begin
i := i 1;
if CellData[i] > 0 then begin
Message('You cant change job type');
Type := timeSheetLineTbl.Type;
end;
end;
end
else begin
AfterGetCurrentRecord;
CurrPage.Update(true);
end;
end;
end;
}
field("Job No."; "Job No.")
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies the number for the job that is associated with the time sheet line.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field("Job Task No."; "Job Task No.")
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies the number of the related job task.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field(Description; Description)
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies a description of the time sheet line.';
trigger OnAssistEdit()
begin
if "Line No." = 0 then
exit;
ShowLineDetails(false);
CurrPage.Update(false);
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field("Cause of Absence Code"; "Cause of Absence Code")
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies a list of standard absence codes, from which you may select one.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field(Chargeable; Chargeable)
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies if the usage that you are posting is chargeable.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field("Work Type Code"; "Work Type Code")
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies which work type the resource applies to. Prices are updated based on this entry.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field("Service Order No."; "Service Order No.")
{
ApplicationArea = Jobs;
Editable = AllowEdit;
ToolTip = 'Specifies the service order number that is associated with the time sheet line.';
Visible = false;
trigger OnValidate()
begin
CurrPage.SaveRecord;
end;
}
field("Assembly Order No."; "Assembly Order No.")
{
ApplicationArea = Assembly;
ToolTip = 'Specifies the assembly order number that is associated with the time sheet line.';
Visible = false;
}
field(Field1; CellData[1])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[1];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(1);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(1);
CellDataOnAfterValidate;
end;
}
field(Field2; CellData[2])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[2];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(2);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(2);
CellDataOnAfterValidate;
end;
}
field(Field3; CellData[3])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[3];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(3);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(3);
CellDataOnAfterValidate;
end;
}
field(Field4; CellData[4])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[4];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(4);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(4);
CellDataOnAfterValidate;
end;
}
field(Field5; CellData[5])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[5];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(5);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(5);
CellDataOnAfterValidate;
end;
}
field(Field6; CellData[6])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[6];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(6);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(6);
CellDataOnAfterValidate;
end;
}
field(Field7; CellData[7])
{
ApplicationArea = Jobs;
BlankZero = true;
CaptionClass = '3,' ColumnCaption[7];
DecimalPlaces = 0 : 2;
Editable = false;
Width = 6;
trigger OnDrillDown()
var
begin
if Type = 2 then begin
if Description <> '' then begin
SetValueForTimeTracker(7);
end
else begin
Message('Please select the job from job details');
end;
end
else begin
Message('Time tracker is not applicable for type - %1', Type);
end;
end;
trigger OnValidate()
begin
CurrPage.SaveRecord;
ValidateQuantity(7);
CellDataOnAfterValidate;
end;
}
field("Total Quantity"; "Total Quantity")
{
ApplicationArea = Jobs;
Caption = 'Total';
DrillDown = false;
ToolTip = 'Specifies the total number of hours that have been entered on a time sheet.';
Visible = false;
}
field(Status; Status)
{
ApplicationArea = Jobs;
ToolTip = 'Specifies information about the status of a time sheet line.';
}
}
}
}
area(factboxes)
{
part("Office Schedule FA"; "Timesheet Office Schedule")
{
Caption = 'Office Schedule';
ApplicationArea = all;
SubPageLink = "Time Sheet No." = FIELD("Time Sheet No.");
}
part(TimeSheetStatusFactBox; "Time Sheet Status FactBox")
{
ApplicationArea = Jobs;
Caption = 'Time Sheet Status';
}
part(ActualSchedSummaryFactBox; "Actual/Sched. Summary FactBox")
{
ApplicationArea = Jobs;
Caption = 'Actual/Budgeted Summary';
Visible = true;
}
part(ActivityDetailsFactBox; "Activity Details FactBox")
{
ApplicationArea = Jobs;
Caption = 'Activity Details';
SubPageLink = "Time Sheet No." = FIELD("Time Sheet No."),
"Line No." = FIELD("Line No.");
}
}
}
actions
{
area(navigation)
{
group("&Time Sheet")
{
Caption = '&Time Sheet';
Image = Timesheet;
action(PreviousPeriod)
{
ApplicationArea = Jobs;
Caption = '&Previous Period';
Image = PreviousSet;
Promoted = true;
PromotedCategory = Category4;
PromotedIsBig = true;
PromotedOnly = true;
ToolTip = 'Show the information based on the previous period. If you set the View by field to Day, the date filter changes to the day before.';
trigger OnAction()
begin
FindTimeSheet(SetWanted::Previous);
end;
}
action(NextPeriod)
{
ApplicationArea = Jobs;
Caption = '&Next Period';
Image = NextSet;
Promoted = true;
PromotedCategory = Category4;
PromotedOnly = true;
ToolTip = 'View information for the next period.';
trigger OnAction()
begin
FindTimeSheet(SetWanted::Next);
end;
}
}
group("&Line")
{
Caption = '&Line';
Image = Line;
action("Time Sheet Allocation")
{
ApplicationArea = Jobs;
Caption = 'Time Sheet Allocation';
Image = Allocate;
Promoted = true;
PromotedCategory = Category5;
ToolTip = 'Allocate posted hours among days of the week on a time sheet.';
trigger OnAction()
begin
TimeAllocation;
end;
}
action("Activity &Details")
{
ApplicationArea = Jobs;
Caption = 'Activity &Details';
Image = View;
Promoted = true;
PromotedCategory = Category5;
PromotedIsBig = true;
ShortCutKey = 'Shift F7';
ToolTip = 'View the quantity of hours for each time sheet status.';
trigger OnAction()
begin
ShowLineDetails(false);
end;
}
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
ShortCutKey = 'Alt D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
var
DimMgt: Codeunit DimensionManagement;
begin
"Dimension Set ID" := DimMgt.EditDimensionSet("Dimension Set ID", DimensionCaptionTok);
end;
}
}
group(Comments)
{
Caption = 'Co&mments';
Image = ViewComments;
action(TimeSheetComments)
{
ApplicationArea = Comments;
Caption = '&Time Sheet Comments';
Image = ViewComments;
Promoted = true;
PromotedCategory = Category5;
RunObject = Page "Time Sheet Comment Sheet";
RunPageLink = "No." = FIELD("Time Sheet No."),
"Time Sheet Line No." = CONST(0);
ToolTip = 'View comments about the time sheet.';
}
action(LineComments)
{
ApplicationArea = Comments;
Caption = '&Line Comments';
Image = ViewComments;
Promoted = true;
PromotedCategory = Category5;
RunObject = Page "Time Sheet Comment Sheet";
RunPageLink = "No." = FIELD("Time Sheet No."),
"Time Sheet Line No." = FIELD("Line No.");
Scope = Repeater;
ToolTip = 'View or create comments.';
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action(Submit)
{
ApplicationArea = Jobs;
Caption = '&Submit';
Image = ReleaseDoc;
Promoted = true;
PromotedCategory = Process;
PromotedIsBig = true;
ShortCutKey = 'F9';
ToolTip = 'Submit the time sheet for approval.';
trigger OnAction()
var
timetracker: Record TimeTrackerTable;
begin
if Description = '' then begin
Error('Job task can not left blank');
end;
timetracker.SetFilter("Time Sheet No.", Format("Time Sheet No."));
timetracker.SetFilter("Line No.", Format("Line No."));
if timetracker.FindSet() then begin
repeat
if timetracker.Status = 1 then begin
Error('Time Tracker is In-Progress in selected line');
end;
until timetracker.Next() = 0;
end;
SubmitLines;
end;
}
action(Reopen)
{
ApplicationArea = Jobs;
Caption = '&Reopen';
Image = ReOpen;
Promoted = true;
PromotedCategory = Process;
PromotedIsBig = true;
ToolTip = 'Reopen the time sheet, for example, after it has been rejected. The approver of a time sheet has permission to approve, reject, or reopen a time sheet. The approver can also submit a time sheet for approval.';
trigger OnAction()
begin
ReopenLines;
end;
}
separator(Action28)
{
}
action(CopyLinesFromPrevTS)
{
ApplicationArea = Jobs;
Caption = '&Copy lines from previous time sheet';
Image = Copy;
Promoted = true;
PromotedCategory = Category5;
ToolTip = 'Copy information from the previous time sheet, such as type and description, and then modify the lines. If a line is related to a job, the job number is copied.';
trigger OnAction()
var
QtyToBeCopied: Integer;
begin
QtyToBeCopied := TimeSheetMgt.CalcPrevTimeSheetLines(TimeSheetHeader);
if QtyToBeCopied = 0 then
Message(Text004)
else
if Confirm(Text009, true, QtyToBeCopied) then
TimeSheetMgt.CopyPrevTimeSheetLines(TimeSheetHeader);
end;
}
action(CreateLinesFromJobPlanning)
{
ApplicationArea = Jobs;
Caption = 'Create lines from &job planning';
Image = CreateLinesFromJob;
Promoted = true;
PromotedCategory = Category5;
ToolTip = 'Create time sheet lines that are based on job planning lines.';
trigger OnAction()
var
QtyToBeCreated: Integer;
begin
QtyToBeCreated := TimeSheetMgt.CalcLinesFromJobPlanning(TimeSheetHeader);
if QtyToBeCreated = 0 then
Message(Text003)
else
if Confirm(Text010, true, QtyToBeCreated) then
TimeSheetMgt.CreateLinesFromJobPlanning(TimeSheetHeader);
end;
}
}
}
}
trigger OnAfterGetRecord()
begin
//UpdateBlankQuantity();
AfterGetCurrentRecord;
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
AfterGetCurrentRecord;
end;
trigger OnOpenPage()
begin
AllowEditDayField := false;
// AllowEdit := true;
if "Time Sheet No." <> '' then
CurrTimeSheetNo := "Time Sheet No."
else begin
CurrTimeSheetNo := GetFilter("Time Sheet No.");//TimeSheetHeader.FindLastTimeSheetNo(TimeSheetHeader.FieldNo("Owner User ID"));
//CurrPage.Editable(false);
end;
//Message(CurrTimeSheetNo);
TimeSheetHeader.Get(CurrTimeSheetNo);
TimeSheetMgt.SetTimeSheetNo(CurrTimeSheetNo, Rec);
UpdateControls;
end;
var
TimeSheetHeader: Record "Time Sheet Header";
TimeSheetDetail: Record "Time Sheet Detail";
ColumnRecords: array[32] of Record Date;
TimeSheetMgt: Codeunit "Time Sheet Management";
TimeSheetApprovalMgt: Codeunit "Time Sheet Approval Management";
NoOfColumns: Integer;
CellData: array[32] of Decimal;
ColumnCaption: array[32] of Text[1024];
CurrTimeSheetNo: Code[20];
SetWanted: Option Previous,Next;
Text001: Label 'The type of time sheet line cannot be empty.';
Text003: Label 'Could not find job planning lines.';
Text004: Label 'There are no time sheet lines to copy.';
Text009: Label 'Do you want to copy lines from the previous time sheet (%1)?';
Text010: Label 'Do you want to create lines from job planning (%1)?';
AllowEdit: Boolean;
AllowEditDayField: Boolean;
DimensionCaptionTok: Label 'Dimensions';
CurrTimeSheetLineEditable: Boolean;
AllowEditTypeField: Boolean;
procedure SetColumns()
var
Calendar: Record Date;
begin
Clear(ColumnCaption);
Clear(ColumnRecords);
Clear(Calendar);
Clear(NoOfColumns);
TimeSheetHeader.Get(CurrTimeSheetNo);
Calendar.SetRange("Period Type", Calendar."Period Type"::Date);
Calendar.SetRange("Period Start", TimeSheetHeader."Starting Date", TimeSheetHeader."Ending Date");
if Calendar.FindSet then
repeat
NoOfColumns = 1;
ColumnRecords[NoOfColumns]."Period Start" := Calendar."Period Start";
ColumnCaption[NoOfColumns] := TimeSheetMgt.FormatDate(Calendar."Period Start", 1);
until Calendar.Next = 0;
end;
local procedure AfterGetCurrentRecord()
var
i: Integer;
begin
i := 0;
while i < NoOfColumns do begin
i := i 1;
if ("Line No." <> 0) and TimeSheetDetail.Get(
"Time Sheet No.",
"Line No.",
ColumnRecords[i]."Period Start")
then
CellData[i] := TimeSheetDetail.Quantity
else
CellData[i] := 0.000001;
end;
UpdateFactBoxes;
AllowEdit := Status in [Status::Open, Status::Rejected]; //*** hvt- Commented Original Code
//*** hvt- Custom code
//Message('edit:' "Time Sheet No.");
if ("Time Sheet No." <> '') and (Status in [Status::Open, Status::Rejected]) then begin
if (Type = Type::Absence) then
AllowEditDayField := true;
if ("Approver ID" = UserId) then
AllowEditDayField := true;
end
else
AllowEditDayField := false;
//*** hvt- custom code****
UpdateBlankQuantity("Line No.");
end;
local procedure ValidateQuantity(ColumnNo: Integer)
begin
if (CellData[ColumnNo] <> 0) and (Type = Type::" ") then
Error(Text001);
if TimeSheetDetail.Get(
"Time Sheet No.",
"Line No.",
ColumnRecords[ColumnNo]."Period Start")
then begin
if CellData[ColumnNo] <> TimeSheetDetail.Quantity then
TestTimeSheetLineStatus;
if CellData[ColumnNo] = 0 then
TimeSheetDetail.Delete
else begin
TimeSheetDetail.Quantity := CellData[ColumnNo];
TimeSheetDetail.Modify(true);
end;
end else
if CellData[ColumnNo] <> 0 then begin
TestTimeSheetLineStatus;
TimeSheetDetail.Init;
TimeSheetDetail.CopyFromTimeSheetLine(Rec);
TimeSheetDetail.Date := ColumnRecords[ColumnNo]."Period Start";
TimeSheetDetail.Quantity := CellData[ColumnNo];
TimeSheetDetail.Insert(true);
end;
end;
local procedure Process("Action": Option "Submit Selected","Submit All","Reopen Selected","Reopen All")
var
TimeSheetLine: Record "Time Sheet Line";
TempTimeSheetLine: Record "Time Sheet Line" temporary;
ActionType: Option Submit,Reopen;
timetrackerLevelOne: Record TimeTrackerTable;
timetrackerLevelTwo: Record TimeTrackerTable;
begin
CurrPage.SaveRecord;
case Action of
Action::"Submit All":
begin
timetrackerLevelOne.SetFilter("Time Sheet No.", Format("Time Sheet No."));
if timetrackerLevelOne.FindSet() then begin
repeat
timetrackerLevelTwo.SetFilter("Time Sheet No.", Format(timetrackerLevelOne."Time Sheet No."));
timetrackerLevelTwo.SetFilter("Line No.", Format(timetrackerLevelOne."Line No."));
if timetrackerLevelTwo.FindSet() then begin
repeat
if timetrackerLevelTwo.Status = 1 then begin
Error('Time Tracker is In-Progress line no %1 date %2', timetrackerLevelTwo."Line No.", timetrackerLevelTwo."Period Start");
end;
until timetrackerLevelTwo.Next() = 0;
end;
until timetrackerLevelOne.Next() = 0;
end;
FilterAllLines(TimeSheetLine, ActionType::Submit);
end;
Action::"Reopen All":
FilterAllLines(TimeSheetLine, ActionType::Reopen);
else
CurrPage.SetSelectionFilter(TimeSheetLine);
end;
OnProcessOnAfterTimeSheetLinesFiltered(TimeSheetLine, Action);
TimeSheetMgt.CopyFilteredTimeSheetLinesToBuffer(TimeSheetLine, TempTimeSheetLine);
if TimeSheetLine.FindSet then
repeat
case Action of
Action::"Submit Selected",
Action::"Submit All":
TimeSheetApprovalMgt.Submit(TimeSheetLine);
Action::"Reopen Selected",
Action::"Reopen All":
TimeSheetApprovalMgt.ReopenSubmitted(TimeSheetLine);
end;
until TimeSheetLine.Next = 0;
OnAfterProcess(TempTimeSheetLine, Action);
CurrPage.Update(true);
end;
local procedure CellDataOnAfterValidate()
begin
UpdateFactBoxes;
CalcFields("Total Quantity");
end;
local procedure FindTimeSheet(Which: Option)
begin
CurrTimeSheetNo := TimeSheetMgt.FindTimeSheet(TimeSheetHeader, Which);
TimeSheetMgt.SetTimeSheetNo(CurrTimeSheetNo, Rec);
UpdateControls;
end;
local procedure UpdateFactBoxes()
begin
CurrPage.ActualSchedSummaryFactBox.PAGE.UpdateData(TimeSheetHeader);
CurrPage.TimeSheetStatusFactBox.PAGE.UpdateData(TimeSheetHeader);
if "Line No." = 0 then
CurrPage.ActivityDetailsFactBox.PAGE.SetEmptyLine;
end;
local procedure UpdateControls()
begin
SetColumns;
UpdateFactBoxes;
CurrPage.Update(false);
end;
local procedure TestTimeSheetLineStatus()
var
TimeSheetLine: Record "Time Sheet Line";
begin
TimeSheetLine.Get("Time Sheet No.", "Line No.");
TimeSheetLine.TestStatus;
end;
local procedure SubmitLines()
var
"Action": Option "Submit Selected","Submit All","Reopen Selected","Reopen All";
ActionType: Option Submit,Reopen;
begin
case ShowDialog(ActionType::Submit) of
1:
Process(Action::"Submit All");
2:
Process(Action::"Submit Selected");
end;
end;
local procedure ReopenLines()
var
ActionType: Option Submit,Reopen;
"Action": Option "Submit Selected","Submit All","Reopen Selected","Reopen All";
begin
case ShowDialog(ActionType::Reopen) of
1:
Process(Action::"Reopen All");
2:
Process(Action::"Reopen Selected");
end;
end;
local procedure TimeAllocation()
var
TimeSheetAllocation: Page "Time Sheet Allocation";
AllocatedQty: array[7] of Decimal;
begin
TestField(Posted, true);
CalcFields("Total Quantity");
TimeSheetAllocation.InitParameters("Time Sheet No.", "Line No.", "Total Quantity");
if TimeSheetAllocation.RunModal = ACTION::OK then begin
TimeSheetAllocation.GetAllocation(AllocatedQty);
TimeSheetMgt.UpdateTimeAllocation(Rec, AllocatedQty);
end;
end;
local procedure GetDialogText(ActionType: Option Submit,Reopen): Text[100]
var
TimeSheetLine: Record "Time Sheet Line";
begin
FilterAllLines(TimeSheetLine, ActionType);
exit(TimeSheetApprovalMgt.GetTimeSheetDialogText(ActionType, TimeSheetLine.Count));
end;
local procedure FilterAllLines(var TimeSheetLine: Record "Time Sheet Line"; ActionType: Option Submit,Reopen)
begin
TimeSheetLine.SetRange("Time Sheet No.", CurrTimeSheetNo);
TimeSheetLine.CopyFilters(Rec);
TimeSheetLine.FilterGroup(2);
TimeSheetLine.SetFilter(Type, '<>%1', TimeSheetLine.Type::" ");
TimeSheetLine.FilterGroup(0);
case ActionType of
ActionType::Submit:
TimeSheetLine.SetFilter(Status, '%1|%2', TimeSheetLine.Status::Open, TimeSheetLine.Status::Rejected);
ActionType::Reopen:
TimeSheetLine.SetRange(Status, TimeSheetLine.Status::Submitted);
end;
OnAfterFilterAllLines(TimeSheetLine, ActionType);
end;
local procedure ShowDialog(ActionType: Option Submit,Reopen): Integer
begin
exit(StrMenu(GetDialogText(ActionType), 1, TimeSheetApprovalMgt.GetTimeSheetDialogInstruction(ActionType)));
end;
[IntegrationEvent(false, false)]
local procedure OnAfterFilterAllLines(var TimeSheetLine: Record "Time Sheet Line"; ActionType: Option Submit,Reopen)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnProcessOnAfterTimeSheetLinesFiltered(var TimeSheetLine: Record "Time Sheet Line"; "Action": Option "Submit Selected","Submit All","Reopen Selected","Reopen All")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterProcess(var TimeSheetLine: Record "Time Sheet Line"; "Action": Option "Submit Selected","Submit All","Reopen Selected","Reopen All")
begin
end;
local procedure SetValueForTimeTracker(fieldId: integer)
var
TimeTrackerTbl: Record TimeTrackerTable;
TimetrackerTblMaxID: Record TimeTrackerTable;
tblTimesheetDetail: Record "Time Sheet Detail";
TimeTrackerFilter: Record TimeTrackerTemp;
TimeTrackerPage: page TimeTrackerPage;
TTcode: Integer;
begin
tblTimesheetDetail.SetFilter("Time Sheet No.", rec."Time Sheet No.");
tblTimesheetDetail.SetFilter("Time Sheet Line No.", Format("Line No."));
tblTimesheetDetail.SetFilter(Date, Format(ColumnRecords[fieldId]."Period Start"));
if tblTimesheetDetail.FindFirst() then begin
if tblTimesheetDetail.ModifiedByManager = false then begin
TimeTrackerTbl.SetFilter("Job No.", "Job No.");
TimeTrackerTbl.SetFilter("Time Sheet No.", "Time Sheet No.");
TimeTrackerTbl.SetFilter(FieldID, Format(fieldId));
TimeTrackerTbl.SetFilter("Line No.", Format("Line No."));
TimeTrackerTbl.SetFilter(LoggedinUserId, UserId);
if not TimeTrackerTbl.FindFirst() then begin
if TimetrackerTblMaxID.Find(' ') then begin
TTcode := TimetrackerTblMaxID.TimeTrackerCode 1;
end;
TimeTrackerTbl.TimeTrackerCode := TTcode;
TimeTrackerTbl.LoggedinUserId := UserId;
TimeTrackerTbl.AttendanceDate := Today;
TimeTrackerTbl."Job No." := "Job No.";
TimeTrackerTbl."Time Sheet No." := "Time Sheet No.";
TimeTrackerTbl.FieldID := fieldId;
TimeTrackerTbl.Resource := tblTimesheetDetail."Resource No.";
//TimeTrackerTbl.Status := 1;
// TimeTrackerTbl."Period Start" := ColumnRecords[1]."Period Start";
TimeTrackerTbl.Heading := "Time Sheet No." ' . ' Format("Line No.");
TimeTrackerTbl.TimesheetDate := ColumnRecords[fieldId]."Period Start";
TimeTrackerTbl."Period Start" := ColumnRecords[fieldId]."Period Start";
TimeTrackerTbl."Line No." := rec."Line No.";
TimeTrackerTbl.Insert();
end;
// TimeTrackerPage.SetValue("Time Sheet No.", "Job No.", "Time Sheet Starting Date", 1);
TimeTrackerFilter.DeleteAll();
TimeTrackerFilter."Job No." := "Job No.";
TimeTrackerFilter."Time Sheet No." := "Time Sheet No.";
TimeTrackerFilter."Line No." := rec."Line No.";
TimeTrackerFilter.FieldID := fieldId;
TimeTrackerFilter."Period Start" := ColumnRecords[fieldId]."Period Start";
TimeTrackerFilter.Insert();
TimeTrackerPage.Run();
end
else begin
Message('Note :- Time is updated by manager');
TimeTrackerTbl.SetFilter("Job No.", "Job No.");
TimeTrackerTbl.SetFilter("Time Sheet No.", "Time Sheet No.");
TimeTrackerTbl.SetFilter("Line No.", format(rec."Line No."));
if TimeTrackerTbl.FindSet() then begin
repeat
TimeTrackerTbl.Status := 2;
TimeTrackerTbl.Modify();
until TimeTrackerTbl.Next() = 0;
end;
TimeTrackerFilter.DeleteAll();
TimeTrackerFilter."Job No." := "Job No.";
TimeTrackerFilter."Time Sheet No." := "Time Sheet No.";
TimeTrackerFilter."Line No." := rec."Line No.";
TimeTrackerFilter.FieldID := fieldId;
TimeTrackerFilter."Period Start" := ColumnRecords[fieldId]."Period Start";
TimeTrackerFilter.Insert();
TimeTrackerPage.Run();
end;
end
else begin
if TimetrackerTblMaxID.Find(' ') then begin
TTcode := TimetrackerTblMaxID.TimeTrackerCode 1;
end;
TimeTrackerTbl.TimeTrackerCode := TTcode;
TimeTrackerTbl.LoggedinUserId := UserId;
TimeTrackerTbl.AttendanceDate := Today;
TimeTrackerTbl."Job No." := "Job No.";
TimeTrackerTbl."Time Sheet No." := "Time Sheet No.";
TimeTrackerTbl.FieldID := fieldId;
TimeTrackerTbl.Resource := tblTimesheetDetail."Resource No.";
//TimeTrackerTbl.Status := 1;
// TimeTrackerTbl."Period Start" := ColumnRecords[1]."Period Start";
TimeTrackerTbl.Heading := "Time Sheet No." ' . ' Format("Line No.");
TimeTrackerTbl.TimesheetDate := ColumnRecords[fieldId]."Period Start";
TimeTrackerTbl."Period Start" := ColumnRecords[fieldId]."Period Start";
TimeTrackerTbl."Line No." := rec."Line No.";
TimeTrackerTbl.Insert();
// TimeTrackerPage.SetValue("Time Sheet No.", "Job No.", "Time Sheet Starting Date", 1);
TimeTrackerFilter.DeleteAll();
TimeTrackerFilter."Job No." := "Job No.";
TimeTrackerFilter."Time Sheet No." := "Time Sheet No.";
TimeTrackerFilter."Line No." := rec."Line No.";
TimeTrackerFilter.FieldID := fieldId;
TimeTrackerFilter."Period Start" := ColumnRecords[fieldId]."Period Start";
TimeTrackerFilter.Insert();
TimeTrackerPage.Run();
end;
end;
local procedure UpdateBlankQuantity(LineNo: Integer)
i: Integer;
begin
if ("Line No." <> 0) then begin
i := 0;
while i < NoOfColumns do begin
i := i 1;
TimeSheetDetail.SetFilter("Time Sheet No.", Rec."Time Sheet No.");
TimeSheetDetail.SetFilter("Time Sheet Line No.", Format(LineNo));
TimeSheetDetail.SetFilter(Date, Format(ColumnRecords[i]."Period Start"));
if not TimeSheetDetail.FindSet() then begin
if CellData[i] <> 0 then begin
TestTimeSheetLineStatus;
TimeSheetDetail.Init;
TimeSheetDetail.CopyFromTimeSheetLine(Rec);
TimeSheetDetail.Date := ColumnRecords[i]."Period Start";
TimeSheetDetail.Quantity := CellData[i];
TimeSheetDetail.Insert(true);
Commit();
end;
end
else begin
TimeSheetDetail.SetFilter("Time Sheet No.", Rec."Time Sheet No.");
TimeSheetDetail.SetFilter("Time Sheet Line No.", Format(rec."Line No."));
TimeSheetDetail.SetFilter(Date, Format(ColumnRecords[i]."Period Start"));
if TimeSheetDetail.FindSet() then begin
if TimeSheetDetail.Quantity <= 0.0001 then begin
TimeSheetDetail.Quantity := CellData[i];
TimeSheetDetail.Modify();
Commit();
end;
end;
end
end;
end;
end;
}
All responses (
Answers (
