CASE expressãoLógicoObligatorio
Condición evaluada en secuencia. El primer resultado .T. selecciona el bloque que se ejecutará.
COMANDOPublicado
DO CASE ... ENDCASE
DO CASE ... CASE <expressão lógica> ... [OTHERWISE ...] ENDCASESelecciona y ejecuta el primer bloque cuya expresión CASE resulte verdadera.
Descripción general
DO CASE ... ENDCASE organiza decisiones con varias alternativas. Las expresiones CASE se evalúan en orden y solo se ejecuta el bloque asociado a la primera condición verdadera (.T.). Las condiciones siguientes se ignoran. La cláusula opcional OTHERWISE trata la situación en la que ningún CASE es verdadero.
Sintaxis
DO CASE ... CASE <expressão lógica> ... [OTHERWISE ...] ENDCASEParámetros
comandosInstruções AdvPLObligatorio
Instrucciones AdvPL pertenecientes a la alternativa seleccionada.
OTHERWISECláusulaOpcional
Bloque opcional ejecutado cuando todas las condiciones CASE devuelven .F.
Clasificación por trimestre
User Function ExPeriodo()
Local nMes := Month(Date())
Local cPeriodo := ""
Do Case
Case nMes <= 3
cPeriodo := "Primer trimestre"
Case nMes <= 6
cPeriodo := "Segundo trimestre"
Case nMes <= 9
cPeriodo := "Tercer trimestre"
Otherwise
cPeriodo := "Cuarto trimestre"
EndCase
MsgInfo(cPeriodo)
ReturnResultado esperado
Como los meses se prueban en orden ascendente, el primer límite cumplido determina el trimestre. OTHERWISE cubre los meses restantes.
Condiciones específicas antes de las generales
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
El límite mayor aparece primero. Si la condición general estuviera antes, los niveles superiores nunca se alcanzarían.
- Ordena las condiciones desde la más específica hasta la más general.
- Utiliza OTHERWISE para tratar valores inesperados o proporcionar un comportamiento predeterminado.
- Mantén cada CASE corto y con una responsabilidad clara.
- Prefiere DO CASE a varios IF independientes cuando solo una alternativa pueda ejecutarse.
- Utiliza IF ... ELSEIF ... ELSE ... ENDIF cuando esa forma sea más clara para el equipo.
- Solo se ejecuta el primer CASE verdadero, aunque otras condiciones también sean verdaderas.
- Una condición amplia colocada primero puede hacer inalcanzables las alternativas posteriores.
- Sin OTHERWISE, no se ejecuta ninguna instrucción interna cuando todos los CASE son falsos.
- Cada DO CASE debe terminar con ENDCASE.
- Las condiciones con efectos secundarios dificultan comprender el orden de la decisión y deben evitarse.