Julio Cesar el problema puede que sea la sobrecarga del "=", como bien sabes vale para asignar y para comparar...
Desde la epoca de clipper 5.3 yo me he acostumbrado a usar ":=" para asignar y "==" para comparar, de este modo te quitas de muchos problemas
prueba a cambiar
REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN k03=SPAC(4) VALID Terc(DiProb)
por
REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN k03==SPAC(4) VALID Terc(DiProb)
salvo que quisieras asignar espacios a k03, si es asi cambia a esto
REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN ( k03:=SPAC(4), .t. ) VALID Terc(DiProb)
lo demás cambialo en ese sentido...
Aunque tarde espero haberte aclarado algo
PD: para saber si un valor está vacio es mejor usar la funcion empty( k03 ), quedaria de esta manera así:
REDEFINE GET GeProb VAR k03 ID 203 OF DiProb PICTURE '999!' UPDATE WHEN empty( k03 ) VALID Terc(DiProb)
↧