FoxPro/Visual FoxPro - Ayuda con DynamicForeColor

Hola como estan
necesito de su ayuda en lo siguiente, tengo un procedimiento en el cual quiero utilizar la funcion DynamicForeColor para que me valide unas calificaciones es decir cuando el alumno este reprobado lo marque en rojo pero debe validad letras por ejemplo cuando tenga un "NP" o un "SDEF" es decir estas son calificaciones reprobatorias tmb ya intente de todo pero no me valida las letras con los numeros no tengo problemas solo con las letras esto es lo ultimo que intente
Explico brevemente
Hay tres oportunidades para pasar que son: FINAL, SEGUNDA Y TERCERA y existen dos criterios de calif uno para maestria y el otro para las demas carreras en maestrias la calif aprobatoria es 80 por eso es el IF
De antemano gracias por su apoyo

Do case

Case Val(Alltrim(Tercera)) = "NP" .or. Alltrim(Tercera) = "SDEF" .or. Alltrim(Tercera) = "BAJA"
If alumnos.carrera = 13 .or. alumnos.carrera = 14 .or. alumnos.carrera = 15 .or. alumnos.carrera = 40 .or. alumnos.carrera = 41 .or. alumnos.carrera = 42
.setAll('DynamicForeColor', 'IIF(Val(Alltrim(Tercera)) = "NP" .or. Val(Tercera) < 80, RGB(255,0,0), RGB(0,0,0))', 'Column')
Else
.setAll('DynamicForeColor', 'IIF(Val(Alltrim(Tercera)) = "NP" .or. Val(Tercera) < 70, RGB(255,0,0), RGB(0,0,0))', 'Column')
Endif

Case Alltrim(Segunda) = "NP" .or. Alltrim(Segunda) = "SDEF" .or. Alltrim(Segunda) = "BAJA"
If alumnos.carrera = 13 .or. alumnos.carrera = 14 .or. alumnos.carrera = 15 .or. alumnos.carrera = 40 .or. alumnos.carrera = 41 .or. alumnos.carrera = 42
.setAll('DynamicForeColor', 'IIF(Val(Segunda) > 0 .and. Val(Segunda) < 80, RGB(255,0,0), RGB(0,0,0))', 'Column')
Else
.setAll('DynamicForeColor', 'IIF(Val(Segunda) > 0 .and. Val(Segunda) < 70, RGB(255,0,0), RGB(0,0,0))', 'Column')
Endif

Case Alltrim(Final) = "NP" .or. Alltrim(Final) = "SDEF" .or. Alltrim(Final) = "BAJA"
If alumnos.carrera = 13 .or. alumnos.carrera = 14 .or. alumnos.carrera = 15 .or. alumnos.carrera = 40 .or. alumnos.carrera = 41 .or. alumnos.carrera = 42
.setAll('DynamicForeColor', 'IIF(Val(Final) > 0 .and. Val(Final) < 80, RGB(255,0,0), RGB(0,0,0))', 'Column')
Else
.setAll('DynamicForeColor', 'IIF(Val(Final) > 0 .and. Val(Final) < 70, RGB(255,0,0), RGB(0,0,0))', 'Column')
Endif

Endcase

1) Para empezar hay algunas incoherencias, que se repiten a lo largo del código:
Val(Alltrim(Tercera)) = "NP" Esto no puede funcionar. Estás preguntado si un numeric es igual a un Character.

Val(Segunda) < 80 , donde supuestamente SEGUNDA puede ser "NP" , "SDEF", "BAJA" te dará siempre .T. ,porque la respuesta es cero. ???

2) Fijate en la función INLIST(). te facilitará el control de código
Por ejemplo:


3) Por otra parte, la estrategia que funciona, es crear una función con todos esos CASE y utilizar un solo DynamicForeColor. Ahí pongo un ejemplo (que no es tu caso, debes adaptarlo).

Excelente ejemplo Fidel, te felicito!