Proibir Espaçamento

Olá a todos

Sou novato em Progress...

Gostaria de Saber como faço para não deixar ser digitado o spaçamento em uma caixa de entrada (Fill In)

Ou ate mesmo enviar uma msg ao digitar o spaço

Agradeço a ajuda de todos.

O mais fácil é ao validar fazer 'trim(variavel)'

Concordo com o amigo Baltazar, mas se mesmo assim voce quizer travar durante a digitação, voce pode fazer assim:

Código:

on any-key of <fill-in>
do:
   if lastkey = 32 then 
   do:
      message 
         "Character invalido."
         view-as alert-box info.
      return no-apply.
   end.
end.

Jovens

Resolvi o espaço em Branco dessa forma:

Código:

DO WITH FRAME {&FRAME-NAME}: 

            REPEAT i = 1 TO LENGTH(fi-airbag:SCREEN-VALUE).
                IF LOOKUP(SUBSTRING(fi-airbag:SCREEN-VALUE,i,1),"%,&,?,!,#,*,(,),+,.,;,,@") <> 0 OR LOOKUP(SUBSTRING(fi-airbag:SCREEN-VALUE,i,1),CHR(32)) <> 0 THEN DO: 
                    FILstatus:SCREEN-VALUE = "SAB com Character especial" .
                   fi-airbag:SCREEN-VALUE = "".
                   APPLY "ENTRY" TO fi-airbag.
                   RETURN NO-APPLY.

                END.
            END.

Porém surgiu outro problema o de caracter especiais.

O Porcesso deve apenas aceitar numeros e Letras, são 12 Caracteres sendo os 3 ultimos VS9,VQ1 e VQ0.

Esse processo e para registro da produção do SAB dos bancos Toyota Corolla.

Mete este código no ANY-PRINTABLE

Código:

if index("0123456789",last-event:label) = 0 then return no-apply.

Tem que meter os caracteres. Neste caso só permite números.