Hi ...
I'm not getting an error . when I click the Custom cue Tile the page viewed is correct but I can't able to edit that. Like this, and my req is I want it to look like normal bc page . And I don't know where I missed this. Kindly help me to come out of this.
Here is my Procedure of Code.
field(1; EmpNo; Code[20])
{
NotBlank = true;
DataClassification = ToBeClassified;
}
field(2; "Number of Days"; Integer)
{
Editable = true;
FieldClass = FlowField;
CalcFormula = count(Recruitment where("Stat" = filter(All)));
keys
{
key(PK; EmpNo)
{
Clustered = true;
}
}
procedure InsertIfNotExists()
begin
Rec.Reset();
if not Rec.Get() then begin
Rec.Init();
Rec.Insert();
end;
end;
}
Page :
PageType = CardPart;
SourceTable = CustomCueTable;
RefreshOnActivate = true;
layout
{
area(Content)
{
cuegroup(cuegroup1)
{
Caption = 'Leave Requests';
field(NumberofDays; Rec."Number of Days")
{
Caption = 'Numberof days';
ApplicationArea = Basic, Suite;
StyleExpr = Style;
trigger OnDrillDown()
var
Recruit: Record Recruitment;
RecruitmentList: Page "Leave Request";
begin
Recruit.SetRange(Blocked::All);
RecruitmentList.SetTableView(Recruit);
RecruitmentList.Run();
end;
}
}
}
}
actions
{
area(Processing)
{
action("Set Up Cues")
{
ApplicationArea = All;
Image = Setup;
trigger OnAction()
var
CuesAndKpis: Codeunit "Cues And KPIs";
CueRecordRef: RecordRef;
begin
CueRecordRef.GetTable(Rec);
CuesAndKpis.OpenCustomizePageForCurrentUser(CueRecordRef.Number);
end;
}
}
}
trigger OnOpenPage()
begin
Rec.InsertIfNotExists();
end;
trigger OnAfterGetCurrRecord()
var
Recruit: Record CustomCueTable;
begin
Recruit.SetRange(Stat::open);
BlockedRecruitmentVar := Recruit.Count();
if BlockedRecruitmentVar > 2 then
Style := 'Unfavorable';
end;
var
BlockedRecruitmentVar: Integer;
Style: Text;
Stat: Enum MyEnum;
All: Enum MyEnum;
There was no problem with the Programming Code. Kindly mention if there is any change / need to added .
Thanks in Advance...
