cargaDidatica
    |retorno teste disciplinasOrd|
    teste:= Set new.
    retorno:=''.
    cargaDidatica do:[:each| ((each atividadeDidatica) hasConceito = true) ifTrue:[teste add:each]].

    disciplinasOrd := SortedCollection sortBlock: [:a1 :a2 | (a1 horario) < (a2 horario)].
    disciplinasOrd addAll: teste.
    disciplinasOrd do:[:each |
        retorno:= retorno, 'Atividade Didática: ', (each atividadeDidatica) nome, ' Horário: ', (each horario) imprimeHorario.].
    Transcript show: retorno.
    ^retorno.