Posted by Stephan Eggermont-3 on Sep 12, 2014; 10:13am
URL: https://forum.world.st/MAOneToManyComponent-s-report-shows-all-descriptions-tp4777493p4777581.html

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
_______________________________________________
Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki