Etapa

CLASS Etapa:

    [...]

    /*Retorna lógico, se tem ou não OS*/
    METHOD PUBLIC LOGICAL hasOS():

        /*Retorna array com todas as ordens*/
        OrdemSeparacao = OrdemSeparacaoRN::getOrdem(nrPedCli,nomeAbrev,etapa).

        /*Se o array tiver um ou mais registros, retorna que tem OS.*/
        IF  OrdemSeparacao:numResults() > 0 THEN DO:
            RETURN TRUE.
        END.

        RETURN FALSE.
    END METHOD.

    /*Variável lógica para listar OS*/
    METHOD PUBLIC LOGICAL listOS():

        /*Verifica se já foi listada OS desta etapa*/
        IF OrdemSeparacao:numResults() = 0 THEN DO:

            /*Lista as OS caso tenha e caso não tenha retorna falso.*/
            IF NOT THIS-OBJECT:hasOS() THEN DO:
                RETURN FALSE.
            END.
        END.

        /*Senão, retorna a próxima (se tiver)*/
        IF OrdemSeparacao:getNext() THEN DO:
            OrdemSeparacaoAtual = OrdemSeparacao:getOrdem().
            RETURN TRUE.
        END.

        /*Caso não tenha próximo, para o doWhile de List*/
        RETURN FALSE.

    END METHOD.

    /*Método usado depois de usar listOS()*/
    METHOD PUBLIC CLASS OrdemSeparacao getOrdem():
        RETURN OrdemSeparacaoAtual.
    END METHOD.
    [...]
END CLASS.