Exemplo de utilização

/*Verifica se estapa está definida*/
IF NOT Etapa:isIndefinida() THEN DO:
    ERROR:MESSAGE("Etapa indefinida","Não pode listar Ordens de Separação.").
END.
ELSE IF Etapa::hasOS() THEN DO:

    /*Se tiver ordem, finaliza todas ordens.*/
    DO WHILE Etapa:listOS():
        ASSIGN OrdemSeparacao = Etapa:getOS().
        OrdemSeparacao:finalizar().
    END.

END.