BeforeOutput_xxx

BeforeOutput is called after everything is processed and the telegram is ready to be converted to a file or stored in the database. Every columns in the telegram can be amended and records can be added or deleted.

Example

procedure BeforeOutput_Part(aTelegram: TcmlTable);
var
  vPrevBarNo, vMaxBarPieceNo: Integer;
begin
  // Shortest piece først
  vPrevBarno := 0;
  aTelegram.Last;
  while not aTelegram.bof do
  begin
    if (aTelegram['barno'] <> vPrevBarno) then
    begin
      vPrevBarno := aTelegram['barno'];
      vMaxBarPieceNo := aTelegram['BarPieceNo']; 
    end;  
    aTelegram.edit; 
    aTelegram['BarPieceNo']:= vMaxBarPieceNo - aTelegram['BarPieceNo'] + 1; 
    aTelegram.post;
    aTelegram.Prior;
  end;  
end;