report 50109 "Employee - Staff Absence"
{
// version NAVW113.00,NAVNA13.00
DefaultLayout = RDLC;
RDLCLayout = './Employee - Staff Absences.rdl';
ApplicationArea = All;
Caption = 'Staff Absences';
UsageCategory = ReportsAndAnalysis;
dataset
{
dataitem(Employee1; Employee)
{
RequestFilterFields = "Office Location", "Status", "Department";
// DataItemLink = "No." = field("Employee No.");
PrintOnlyIfDetail = true;
dataitem("Employee Absence"; "Employee Absence")
{
DataItemTableView = SORTING("Employee No.", "From Date");
DataItemLink = "Employee No." = field("No.");
RequestFilterFields = "Employee No.", "From Date", "Cause of Absence Code";
// dataitem(Employee1; Employee)
// {
// RequestFilterFields = "Office Location", "Status", "Department";
// DataItemLink = "No." = field("Employee No.");
column(FORMAT_TODAY_0_4_; Format(Today, 0, 4))
{
}
column(COMPANYNAME; COMPANYPROPERTY.DisplayName)
{
}
column(CurrReport_PAGENO; CurrReport.PageNo)
{
}
column(Employee_Absence__TABLECAPTION__________AbsenceFilter; TableCaption + ': ' + AbsenceFilter)
{
}
column(AbsenceFilter; AbsenceFilter)
{
}
column(EmployeeFilter; EmployeeFilter)
{
}
column(Employee_Absence__Employee_No__; "Employee Absence"."Employee No.")
{
}
column(Employee_FullName; Employee.FullName)
{
}
column(Employee_Absence__From_Date_; Format("Employee Absence"."From Date"))
{
}
column(Employee_Absence__To_Date_; Format("Employee Absence"."To Date"))
{
}
column(Employee_Absence__Cause_of_Absence_Code_; "Employee Absence"."Cause of Absence Code")
{
}
column(Employee_Absence_Description; "Employee Absence".Description)
{
}
column(Employee_Absence_Quantity; "Employee Absence".Quantity)
{
}
column(Employee_Absence__Unit_of_Measure_Code_; "Employee Absence"."Unit of Measure Code")
{
}
column(Employee___Staff_AbsencesCaption; Employee___Staff_AbsencesCaptionLbl)
{
}
column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl)
{
}
column(Employee_Absence__From_Date_Caption; Employee_Absence__From_Date_CaptionLbl)
{
}
column(Employee_Absence__To_Date_Caption; Employee_Absence__To_Date_CaptionLbl)
{
}
column(Employee_Absence__Cause_of_Absence_Code_Caption; FieldCaption("Cause of Absence Code"))
{
}
column(Employee_Absence_DescriptionCaption; FieldCaption(Description))
{
}
column(Employee_Absence_QuantityCaption; FieldCaption(Quantity))
{
}
column(Employee_Absence__Unit_of_Measure_Code_Caption; FieldCaption("Unit of Measure Code"))
{
}
column(Office_Location; Employee1."Office Location")
{
}
column(Department; Employee1.Department)
{
}
trigger OnAfterGetRecord()
begin
Employee.Get("Employee No.");
// Clear(EmpLoc);
// Clear(EmpDep);
// if Employee.Get("Employee No.") then begin
// // EmpLoc := Employee."Office Location";
// EmpDep := format(Employee.Department);
// end;
end;
}
}
}
requestpage
{
layout
{
}
trigger Onopenpage() //sets default value for the Status filter as 'Active'
var
myInt: Integer;
begin
Employee1.SetRange(Status, Employee1.Status::Active);
end;
// actions
// {
// }
}
labels
{
}
trigger OnPreReport()
begin
AbsenceFilter := "Employee Absence".GetFilters;
EmployeeFilter := Employee1.GetFilters;
end;
var
Employee: Record Employee;
AbsenceFilter: Text;
EmployeeFilter: Text;
Employee___Staff_AbsencesCaptionLbl: Label 'Employee - Staff Absences';
CurrReport_PAGENOCaptionLbl: Label 'Page';
Employee_Absence__From_Date_CaptionLbl: Label 'From Date';
Employee_Absence__To_Date_CaptionLbl: Label 'To Date';
}
Please help.
305
Share
Report
All responses (
Answers (
