BTNGET y la enie mayúscula

[goosfancito]

Estimados,

Miren este código:

Code: Select all | Expand

REDEFINE BTNGET oDatos[ 01 ] VAR vDatos[ 01 ];
         PICTURE "@!";
         ID 118 OF oDlg

Ovbiedo ( yo ) dice que cuando corre su app, y quiere escribir la Ñ aparece ñ, y eso que esta todo en mayúsculas.

Porque ocurre esto?