procedure TSuperPrintForm.frReport1BeginBand(Band: TfrBand);
begin
Case TypeRapport of
5: Begin // Schedule
If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = '') and
(Band.Name = 'MasterDataEvent') Then Band.Visible := True
Else If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = '') and
(Band.Name = 'MasterDataPause') Then Band.Visible := False
Else If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = 'P') and
(Band.Name = 'MasterDataEvent') Then Band.Visible := False
Else If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = 'P') and
(Band.Name = 'MasterDataPause') Then Band.Visible := True
Else If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = 'M') and
(Band.Name = 'MasterDataEvent') Then Band.Visible := False
Else If (aUdskriv_source.DataSet.FieldByName('schedule_pause').AsString = 'M') and
(Band.Name = 'MasterDataPause') Then Band.Visible := False;
end;
end;
end;