Apagar conteudo de uma fill In.

Discussão em 'Progress 4GL' iniciado por kikofr, Julho 6, 2009.

  1. kikofr

    kikofr Membro Participativo

    Criei uma fill In que ao receber mais que 10 caracteres ele deve apagar a todo o conteudo e iniciar novamente no na primeira posição.

    Utilizei o seguinte comando para tentar realizar a tarefa
    Código:
    fLeitora:screen-value in frame {&frame-name} = "".
    Mas o mesmo apaga o conteudo, mas preenche o mesmo com espaços.

    Como posso fazer para somente apagar o conteudo do campo?

    obrigado desde já.
    kikofr, Julho 6, 2009
    #1
  2. af.dums

    af.dums Membro Ativo

    Como está seu fonte? Em que ponto está essa lógica?

    Tenta colocar após o comando para limpar este comando aqui:
    Código:
    APPLY "ENTRY":U TO fTeste.
    Att,
    Anderson
    af.dums, Julho 6, 2009
    #2
  3. pedro_lemes

    pedro_lemes Membro Participativo

    Tente atribuir ?:

    FILL-IN-1:INPUT-VALUE = ?

    Abraço.
    pedro_lemes, Julho 7, 2009
    #3
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    veja a lógica se atende sua necessidade:

    Código:
    def var c-texto     as character    format "x(12)"  no-undo.
def var c-texto-i   as character    format "x(12)"  no-undo.

def frame x c-texto .

on 'ANY-PRINTABLE':U of c-texto
do:
    
    message length(c-texto:screen-value) + 1.

    if length(c-texto:screen-value) + 1 >= 10 then do:
        assign c-texto:screen-value = "".
        apply "entry":u  to c-texto.
    end.

end.
   
update c-texto c-texto-i label "Texto" with frame x 1 columns.
    eduardo.leite, Julho 15, 2009
    #4

Compartilhe esta Página