CASE expressãoLógicoObrigatório
Condição avaliada em sequência. O primeiro resultado .T. seleciona o bloco que será executado.
COMANDOPublicado
DO CASE ... ENDCASE
DO CASE ... CASE <expressão lógica> ... [OTHERWISE ...] ENDCASESeleciona e executa o primeiro bloco cuja expressão CASE resultar em verdadeiro.
Visão geral
DO CASE ... ENDCASE organiza decisões com várias alternativas. As expressões CASE são avaliadas na ordem em que aparecem e somente o bloco associado à primeira condição verdadeira (.T.) é executado. As condições seguintes são ignoradas. A cláusula opcional OTHERWISE trata a situação em que nenhum CASE é verdadeiro.
Sintaxe
DO CASE ... CASE <expressão lógica> ... [OTHERWISE ...] ENDCASEParâmetros
comandosInstruções AdvPLObrigatório
Instruções pertencentes à alternativa selecionada.
OTHERWISECláusulaOpcional
Bloco opcional executado quando todas as condições CASE resultarem em .F.
Classificação por trimestre
User Function ExPeriodo()
Local nMes := Month(Date())
Local cPeriodo := ""
Do Case
Case nMes <= 3
cPeriodo := "Primeiro trimestre"
Case nMes <= 6
cPeriodo := "Segundo trimestre"
Case nMes <= 9
cPeriodo := "Terceiro trimestre"
Otherwise
cPeriodo := "Quarto trimestre"
EndCase
MsgInfo(cPeriodo)
ReturnResultado esperado
Como os meses são testados em ordem crescente, o primeiro limite atendido determina o trimestre. OTHERWISE cobre os meses restantes.
Condições específicas antes das gerais
User Function ExPrioridade(nTotal)
Local cFaixa := ""
Do Case
Case nTotal > 100000
cFaixa := "Especial"
Case nTotal > 50000
cFaixa := "Alta"
Case nTotal > 10000
cFaixa := "Média"
Otherwise
cFaixa := "Padrão"
EndCase
Return cFaixaResultado esperado
O maior limite aparece primeiro. Se a condição geral fosse colocada antes, as faixas superiores nunca seriam alcançadas.
- Ordene as condições da mais específica para a mais abrangente.
- Use OTHERWISE para tratar valores inesperados ou fornecer um comportamento padrão.
- Mantenha cada CASE curto e com uma responsabilidade clara.
- Prefira DO CASE a vários IF independentes quando apenas uma alternativa puder ser executada.
- Use IF ... ELSEIF ... ELSE ... ENDIF quando essa forma deixar a decisão mais legível para a equipe.
- Somente o primeiro CASE verdadeiro é executado, mesmo que outras condições também sejam verdadeiras.
- Uma condição abrangente colocada primeiro pode tornar alternativas posteriores inalcançáveis.
- Sem OTHERWISE, nenhuma instrução interna é executada quando todos os CASE forem falsos.
- Cada DO CASE precisa ser encerrado com ENDCASE.
- Condições com efeitos colaterais dificultam compreender a ordem da decisão e devem ser evitadas.