action("Event Cat. Print")
{
Caption = 'Event Cat. Print';
ApplicationArea = all;
Image = Accounts;
trigger OnAction()
var
Eventcategoryprint3: Record "Event Cat. Print" temporary;
Categoryprint: Record "Category Print";
begin
Eventcategoryprint3.Reset();
Eventcategoryprint3.SetRange(No, REC."No.");
if not Eventcategoryprint3.FindFirst() then begin
Message('no');
Eventcategoryprint3.Init();
Eventcategoryprint3.Type := Eventcategoryprint3.Type::"Event";
Eventcategoryprint3.No := rec."No.";
Eventcategoryprint3.code := Rec.code; //See this if this ok or Generate new one
Eventcategoryprint3.Insert();
end;
if rec."Template No." <> '' then begin
Message('yes');
Eventcategoryprint3.Reset();
Eventcategoryprint3.SetRange(No, Rec."Template No.");
if not Eventcategoryprint3.FindFirst() then begin
Categoryprint.Reset();
Categoryprint.SetRange(code, Eventcategoryprint3.No);
IF not Categoryprint.FindFirst() THEN begin
Message('categoryprint%1', Categoryprint.code);
Eventcategoryprint3.Init();
Eventcategoryprint3.Type := Eventcategoryprint3.Type::Template;
Eventcategoryprint3.No := rec."Template No.";
Eventcategoryprint3.code := Rec.code; //See this if this ok or Generate new one
Eventcategoryprint3.Insert();
end;
end;
end;
Eventcategoryprint3.Reset();
page.Run(50001, Eventcategoryprint3);//
end;