Share
Report
24Hi all,
I have created a custom page with several listpart as shown below. Like Verbruik, Output and Kenmerken & Instellingen. However, I can only access the functions like Nieuwe regel and Melden by clicking on the arrow next to Output (1). How can I make it possible to get the function directly on the screen (2). So that Nieuwe regel and Melden are next to Output. I have also added the layout below the printscreen.
I have created a custom page with several listpart as shown below. Like Verbruik, Output and Kenmerken & Instellingen. However, I can only access the functions like Nieuwe regel and Melden by clicking on the arrow next to Output (1). How can I make it possible to get the function directly on the screen (2). So that Nieuwe regel and Melden are next to Output. I have also added the layout below the printscreen.
actions
{
area(Processing)
{
group(/F&unctions/)
{
Caption = 'F&unctions';
Image = /Action/;
action(StartUsage)
{
CaptionML = ENU = 'Start', NLD = 'Start';
visible = not pulper and input;
trigger OnAction()
{
area(Processing)
{
group(/F&unctions/)
{
Caption = 'F&unctions';
Image = /Action/;
action(StartUsage)
{
CaptionML = ENU = 'Start', NLD = 'Start';
visible = not pulper and input;
trigger OnAction()
Var
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
begin
SetSelectionFilter(lrec);
if lrec.findset then
repeat
if lrec.Status = lrec.Status::Entered then error('%1: %2 nog niet gereedgemeld', lrec.EntryType, lrec.Identification);
//lrec.Start := CreateDateTime(WorkDate, Time);
lrec.Processstatus := rec.Processstatus::Selected;
lrec.Selectorder := lrec.lastorder + 1;
lrec.modify;
SetSelectionFilter(lrec);
if lrec.findset then
repeat
if lrec.Status = lrec.Status::Entered then error('%1: %2 nog niet gereedgemeld', lrec.EntryType, lrec.Identification);
//lrec.Start := CreateDateTime(WorkDate, Time);
lrec.Processstatus := rec.Processstatus::Selected;
lrec.Selectorder := lrec.lastorder + 1;
lrec.modify;
until lrec.Next() = 0;
end;
}
action(EndUsage)
{
CaptionML = ENU = 'End', NLD = 'Einde';
visible = not pulper and input;
trigger OnAction()
action(EndUsage)
{
CaptionML = ENU = 'End', NLD = 'Einde';
visible = not pulper and input;
trigger OnAction()
Var
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
begin
SetSelectionFilter(lrec);
if lrec.findset then
repeat
//lrec.Start := CreateDateTime(WorkDate, Time);
lrec.Processstatus := rec.Processstatus::Finished;
lrec.modify;
until lrec.Next() = 0;
SetSelectionFilter(lrec);
if lrec.findset then
repeat
//lrec.Start := CreateDateTime(WorkDate, Time);
lrec.Processstatus := rec.Processstatus::Finished;
lrec.modify;
until lrec.Next() = 0;
end;
}
action(Newoutput)
{
CaptionML = ENU = 'New Output', NLD = 'Nieuwe regel';
visible = not pulper and not input;
Image = Line;
trigger OnAction()
begin
Newoutputline;
end;
}
action(Reportprod)
{
CaptionML = ENU = 'Report', NLD = 'Melden';
visible = not pulper and not input;
trigger OnAction()
action(Reportprod)
{
CaptionML = ENU = 'Report', NLD = 'Melden';
visible = not pulper and not input;
trigger OnAction()
Var
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
begin
SetSelectionFilter(lrec);
if lrec.Count = 0 then begin
lrec := REC.newrecord();
CurrPage.Update(true);
lrec: Record /Mutaties Power Apps/;
OutputForm: page OutputCard;
begin
SetSelectionFilter(lrec);
if lrec.Count = 0 then begin
lrec := REC.newrecord();
CurrPage.Update(true);
end;
//SetSelectionFilter(lrec);
OutputForm.SetTableView(lrec);
OutputForm.SetRecord(lrec);
OutputForm.RunModal();
end;
}
Action(Processed)
{
visible = outputcardsub;
CaptionML = ENU = 'Finish', NLD = 'Beeindigd';
//SetSelectionFilter(lrec);
OutputForm.SetTableView(lrec);
OutputForm.SetRecord(lrec);
OutputForm.RunModal();
end;
}
Action(Processed)
{
visible = outputcardsub;
CaptionML = ENU = 'Finish', NLD = 'Beeindigd';
trigger OnAction()
Var
lrec: Record /Mutaties Power Apps/;
lrec: Record /Mutaties Power Apps/;
begin
SetSelectionFilter(lrec);
if lrec.findset then
repeat
lrec.Processstatus := rec.Processstatus::Finished;
lrec.modify;
until lrec.Next() = 0;
SetSelectionFilter(lrec);
if lrec.findset then
repeat
lrec.Processstatus := rec.Processstatus::Finished;
lrec.modify;
until lrec.Next() = 0;
end;
}
}
}
}
Categories:
All responses (
Answers (
