report 90123 Employee
{
Caption = 'Employee ledger Report';
ApplicationArea = all;
UsageCategory = ReportsAndAnalysis;
DefaultLayout = RDLC;
RDLCLayout = '.vscode//src//Layouts//90123.rdl';
dataset
{
dataitem(/Employee1/; /Employee/)
{
DataItemTableView = sorting(/No./) order(ascending);
RequestFilterFields = /No./;
column(Employee; /No./)
{
}
column(EmployeeName;StrSubstNo(/First Name/+/Last Name/) )
{
}
column(Amount;Amount )
{
}
column(Employee_Posting_Group;/Employee Posting Group/)
{
}
column(PAN;PAN)
{
}
column(Job_Title;/Job Title/)
{
}
trigger OnAfterGetRecord()
var
EmpEntryRec: Record /Employee ledger entry/;
begin
EmpEntryRec.Reset();
EmpEntryRec.SetRange(/Employee No./, /No./);
EmpEntryRec.SetFilter(/Posting Date/, '%1..%2', FromDate, ToDate);
EmpEntryRec.CalcSums(Amount);
Amount := EmpEntryRec.Amount;
end;
}
}
requestpage
{
layout
{
area(content)
{
group(GroupName)
{
Caption = 'Date Filter';
field(FromDate; FromDate)
{
ShowMandatory = true;
Caption = 'Start Date';
ApplicationArea = all;
}
field(ToDate; ToDate)
{
ShowMandatory = true;
Caption = 'End Date';
ApplicationArea = all;
}
}
}
}
}
trigger OnPreReport()
begin
if (FromDate = 0D) or (ToDate = 0D) then
Error('Dates are mandatory to print the report. Please contact your administrator.');
if FromDate > ToDate then
Error('This Report could not be generated. Please check Start Date and End Date.');
end;
var
Employee: Record Employee;
NameTxt: Text[100];
GrandTotal_lbl: Label 'Grand Total';
FromDate: Date;
ToDate: Date;
Amount : Decimal;
}