trigger OnPreReport()
var
RelatedWorkOrder: Record "DAM Work Order Header";
begin
if RelatedWorkOrder.FindSet() then
repeat
"DAM Maint. Req. Related Work".Init();
"DAM Maint. Req. Related Work"."Asset No." := RelatedWorkOrder."Asset No.";
"DAM Maint. Req. Related Work"."Asset Description" := RelatedWorkOrder."Asset Description";
"DAM Maint. Req. Related Work"."Plan No." := RelatedWorkOrder."Plan No.";
"DAM Maint. Req. Related Work"."Work Order No." := RelatedWorkOrder."Work Order No.";
"DAM Maint. Req. Related Work"."Order Date" := RelatedWorkOrder."Posting Date";
until RelatedWorkOrder.Next() = 0;
if RelatedWorkOrder."Maintenance Request No." <> "DAM Maint. Req. Related Work"."Work Order Maint. Req. No." then begin
// local procedure GetStatusOptionList() : Option;
var
myInt: Integer;
FilterDate: Date;
CompanyInfo: Record "Company Information";
Location: Text;
FilterWorkOrder: Code[20];
FilterStatus: Text;
}
this my code
Answers
{
UsageCategory = ReportsAndAnalysis;
ApplicationArea = All;
DefaultLayout = RDLC;
RDLCLayout = './rdlc/Report_70078_Report_Maintenance_Request.rdl';
dataset
{
dataitem("DAM Maintenance Request"; "DAM Maintenance Request")
{
RequestFilterFields = "No.", Status, "Request Date";
column(No_; "No.")
{
}
column(Description; Description)
{
}
column(Status; Status)
{
}
column(Request_Date; "Request Date")
{
}
column(FilterDate; FilterDate)
{
}
column(CompanyPicture; CompanyInfo.Picture)
{
}
column(CompanyName; CompanyInfo.Name)
{
}
column(CompanyCity; CompanyInfo.City)
{
}
column(CompanyAddress; CompanyInfo.Address)
{
}
column(CompanyContactPerson; CompanyInfo."Contact Person")
{
}
column(CompanyPost; CompanyInfo."Post Code")
{
}
column(CompanyInfoPhone; CompanyInfo."Phone No.")
{
}
column(CompanyInfoEmail; CompanyInfo."E-Mail")
{
}
column(Location; Location)
{
}
dataitem("DAM Maint. Req. Related Work"; "DAM Maint. Req. Related Work")
{
DataItemLink = "Work Order Maint. Req. No." = field("No.");
RequestFilterFields = "Work Order No.", Status;
column(Asset_No_; "Asset No.")
{
}
column(Asset_Description; "Asset Description")
{
}
column(Plan_No_; "Plan No.")
{
}
column(Work_Order_No_; "Work Order No.")
{
}
column(Order_Date; "Order Date")
{
}
}
trigger OnPreDataItem()
var
FilterReqDate: Record "DAM Maintenance Request";
FilterRWO: Record "DAM Maint. Req. Related Work";
StartDate: Date;
EndDate: Date;
begin
StartDate := CalcDate('<-CM-3M>', Today);
EndDate := CalcDate('<-CM-1D>', Today);
FilterReqDate.SetRange("Request Date", StartDate, EndDate);
FilterReqDate.SetFilter("Request Date", '%1..%2', StartDate, EndDate);
if FilterReqDate.FindFirst() then begin
FilterDate := FilterReqDate."Request Date";
end;
if "DAM Maintenance Request"."No." <> '' then begin
FilterRWO.SetRange("Work Order No.", '');
FilterRWO.SetRange("Work Order No.", "DAM Maintenance Request"."No.");
end;
end;
}
}
requestpage
{
Caption = 'Report Maintenance Request';
SaveValues = true;
layout
{
area(Content)
{
group(GroupName)
{
}
}
}
actions
{
area(processing)
{
action(ActionName)
{
ApplicationArea = All;
}
}
}
}
trigger OnPreReport()
var
RelatedWorkOrder: Record "DAM Work Order Header";
begin
if RelatedWorkOrder.FindSet() then
repeat
"DAM Maint. Req. Related Work".Init();
"DAM Maint. Req. Related Work"."Asset No." := RelatedWorkOrder."Asset No.";
"DAM Maint. Req. Related Work"."Asset Description" := RelatedWorkOrder."Asset Description";
"DAM Maint. Req. Related Work"."Plan No." := RelatedWorkOrder."Plan No.";
"DAM Maint. Req. Related Work"."Work Order No." := RelatedWorkOrder."Work Order No.";
"DAM Maint. Req. Related Work"."Order Date" := RelatedWorkOrder."Posting Date";
until RelatedWorkOrder.Next() = 0;
if RelatedWorkOrder."Maintenance Request No." <> "DAM Maint. Req. Related Work"."Work Order Maint. Req. No." then begin
end;
end;
trigger OnInitReport()
begin
CompanyInfo.get();
CompanyInfo.CalcFields(Picture);
FilterStatus := '';
FilterWorkOrder := '';
end;
// local procedure GetStatusOptionList() : Option;
var
myInt: Integer;
FilterDate: Date;
CompanyInfo: Record "Company Information";
Location: Text;
FilterWorkOrder: Code[20];
FilterStatus: Text;
}
this my code
No PM,please use the forum. || May the <SOLVED>-attribute be in your title!