12 Sep
2014
12 Sep
'14
12:13 p.m.
We have a few different subclasses doing
QCToManyComponnet>>buildReport
| retVal |
self magritteDescription startEditAll ifTrue: [ self editAll ].
retVal := (self reportClass rows: self value description: self reference)
sortEnabled: self magritteDescription isOrdered not;
yourself.
retVal columns do: [ :each |
each mementoCache: self cache.
(each isKindOf: MADescribedColumn) ifTrue: [
self addColumnCommandsTo: each.
each filter: true ] ].
retVal showFilter: self magritteDescription showFilter.
retVal doubleClickCommand: self editCommand.
^retVal
QCQueriedToManyComponent>>buildReport
| retVal shown |
retVal := super buildReport.
shown := self resultsDescription shownColumns.
retVal columns do: [ :column |
| desc |
desc := shown detect: [ :each | column magritteDescription = each ] ifNone: [ nil ].
column visible: desc notNil.
desc ifNotNil: [ column magritteDescription priority: desc priority ] ].
retVal columns sort: [ :a :b | a < b ].
^retVal
TBSMagritteOneToManyComponent>>buildReport
^ (TBSMagritteReport rows: self value description: self reference)
sortEnabled: self magritteDescription isOrdered not;
yourself