Below is the source code for the report created -
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("Employee Absence"; "Employee Absence")
{
DataItemTableView = SORTING ("Employee No.", "From Date");
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(No_; "No.")
{
}
column(Employee_FullName; Employee.FullName)
{
}
column(FromDate; format(FromDate))
{
}
column(ToDate; format(ToDate))
{
}
column(CauseofAbsenceCode; CauseofAbsenceCode)
{
}
column(Employee_Absence_Description; Description)
{
}
column(Employee_Absence_Quantity; Quantity)
{
}
column(UnitOfMeasureCode; UnitOfMeasureCode)
{
}
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(Office_Location; Employee1."Office Location")
{
}
column(Department; Department)
{
}
column(EmployeeFilter; EmployeeFilter)
{
}
column(EmployeeAbsenceFilter; EmployeeAbsenceFilter)
{
}
// 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"))
// {
// }
trigger OnPreDataItem()
begin
EmployeeFilter := Employee1.GetFilters();
EmployeeAbsenceFilter := "Employee Absence".GetFilters();
// Employee.SetFilter("Status", format(Status::Active));
//Employee.SetRecFilter(Status, Status::Active);
end;
trigger OnAfterGetRecord()
begin
Clear(FromDate);
Clear(ToDate);
Clear(CauseofAbsenceCode);
Clear(Description);
Clear(Quantity);
Clear(UnitOfMeasureCode);
if Employee.Get("No.") then begin
FromDate := "Employee Absence"."From Date";
ToDate := "Employee Absence"."To Date";
CauseofAbsenceCode := "Employee Absence"."Cause of Absence Code";
Description := "Employee Absence"."Description";
Quantity := "Employee Absence".Quantity;
UnitOfMeasureCode := "Employee Absence"."Unit of Measure Code";
// OfficeLocation := Employee."Office Location";
Department := 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;
//EmployeeNoFilter := "Employee Absence".GetFilters;
//FromDateFilter := "Employee Absence".GetFilters;
//CauseOfAbsenceCodeFilter := "Employee Absence".GetFilters;
//OfficeLocationFilter := "Employee".GetFilters;
//StatusFilter := "Employee".GetFilters;
// ShowFilters1 := "Employee Absence".GetFilter(CauseofAbsenceCode,FromDate);
//ShowFilters2 := "Employee".GetFilters;
//end;
var
Employee: Record Employee;
AbsenceFilter: 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';
FromDate: Date;
ToDate: Date;
CauseofAbsenceCode: Code[20];
Description: Text;
Quantity: Decimal;
UnitOfMeasureCode: Code[20];
OfficeLocation: Option;
Department: Option;
EmployeeFilter: Text;
EmployeeAbsenceFilter: Text;
// CustomerOrderSummary: Report "Customer - Order Summary";
// job: Report "Job Actual to Budget (Cost)";
// statusVar: Option;
}