In a report I created, I want to display 'Base Unit of Measure' column from 'Human Resources Setup', but this column is showing empty values.
I checked the layout too, I think it is fine.
report 50110 "Employee - Absences by Cause"
{
// version NAVW113.01,NAVNA13.01
DefaultLayout = RDLC;
RDLCLayout = './Employee - Absences by Causes.rdl';
ApplicationArea = BasicHR;
Caption = 'Employee Absences by Causes';
UsageCategory = ReportsAndAnalysis;
dataset
{
dataitem("Employee Absence"; "Employee Absence")
{
DataItemTableView = SORTING("Cause of Absence Code", "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__________EmployeeAbsenceFilter; TableCaption + ': ' + EmployeeAbsenceFilter)
{
}
column(EmployeeAbsenceFilter; EmployeeAbsenceFilter)
{
}
// column(Employee_Absence_Description; Description)
// {
// }
// column(Employee_Absence__Cause_of_Absence_Code_; "Cause of Absence Code")
// {
// }
// column(Employee_Absence__From_Date_; Format("From Date"))
// {
// }
// column(Employee_Absence__To_Date_; Format("To Date"))
// {
// }
// column(Employee_Absence__Quantity__Base__; "Quantity (Base)")
// {
// }
// column(HumanResSetup__Base_Unit_of_Measure_; HumanResSetup."Base Unit of Measure")
// {
// }
// column(Employee_Absence__Employee_No__; "Employee No.")
// {
// }
column(Employee_FullName; Employee.FullName)
{
}
column(TotalAbsence; TotalAbsence)
{
DecimalPlaces = 0 : 2;
}
column(Employee___Absences_by_CausesCaption; Employee___Absences_by_CausesCaptionLbl)
{
}
column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl)
{
}
column(FromDate; format(FromDate))
{
}
column(ToDate; format(ToDate))
{
}
column(No_; "No.")
{
}
column(FullName1; FullName1)
{
}
column(Quantity_Base; Quantity_Base)
{
}
// column(BaseUnitOfMeasure; HumanResSetup."Base Unit of Measure")
// {
// }
column(Total_AbsenceCaption; Total_AbsenceCaptionLbl)
{
}
column(Office_Location; Employee1."Office Location")
{
}
column(Department; Department)
{
}
column(BaseUnitOfMeasure; BaseUnitOfMeasure)
{
}
column(EmployeeFilter; EmployeeFilter)
{
}
trigger OnPreDataItem()
begin
EmployeeFilter := Employee1.GetFilters();
EmployeeAbsenceFilter := "Employee Absence".GetFilters();
CurrReport.CreateTotals(TotalAbsence);
end;
trigger OnAfterGetRecord()
begin
Clear(FromDate);
Clear(ToDate);
Clear(FullName1);
Clear(Quantity_Base);
Clear(BaseUnitOfMeasure);
if Employee.Get("No.") then begin
FromDate := "Employee Absence"."From Date";
ToDate := "Employee Absence"."To Date";
FullName1 := Employee."FullName";
Quantity_Base := "Employee Absence"."Quantity (Base)";
BaseUnitOfMeasure := HumanResSetup."Base Unit of Measure";
// OfficeLocation := Employee."Office Location";
Department := Employee."Department";
TotalAbsence := TotalAbsence + Quantity_Base;
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;
}
labels
{
}
// trigger OnPreReport()
// begin
// EmployeeNoFilter := "Employee Absence".GetFilters;
// OfficeLocationFilter := "Employee".GetFilters;
// EmployeeAbsenceFilter := "Employee Absence".GetFilters;
// HumanResSetup.Get;
// HumanResSetup.TestField("Base Unit of Measure");
// end;
var
Employee: Record Employee;
HumanResSetup: Record "Human Resources Setup";
TotalAbsence: Decimal;
Employee___Absences_by_CausesCaptionLbl: Label 'Employee - Absences by Causes';
CurrReport_PAGENOCaptionLbl: Label 'Page';
Employee_Absence__From_Date_CaptionLbl: Label 'From Date';
Employee_Absence__To_Date_CaptionLbl: Label 'To Date';
Full_NameCaptionLbl: Label 'Full Name';
//HumanResSetup__Base_Unit_of_Measure_CaptionLbl: Label 'Base Unit of Measure';
Total_AbsenceCaptionLbl: Label 'Total Absence';
FromDate: Date;
ToDate: Date;
FullName1: Text;
Quantity_Base: Decimal;
BaseUnitOfMeasure: Code[20];
OfficeLocation: Option;
Department: Option;
EmployeeFilter: Text;
EmployeeAbsenceFilter: Text;
}