Como ativar INsert em um GET

[jairfab]

Estou tentando ligar INSERT em determinados campos na alteração, porem algumas vezes funcionar e outras não funcionar, alguem poderia me dar dicas de como posso resolver este problema?

Veja como tentei fazer:

/Ativar um INSERT dentro de um GET

Código: Selecionar todos

@ 120,220 GET oValor     VAR cValor    SIZE 600,24  PICTURE "@!" MAXLENGTH 
120;
          TOOLTIP "" ;
          FONT oFontNorm ;
          STYLE SS_LEFT + WS_DISABLED + ES_AUTOHSCROLL ;
          WHEN  {|| fLigaInsert(),FMsgRod1(aMsg[7]),.T.} ;
          VALID {|| fValidEve2("cValor") }


FUNCTION fLigaInsert()

IF GetkeyState(45) == 0 /// desligado
  keyb_event( 45 )
ENDIF
RETURN NIL

[alxsts]

Olá!

Em HwGUI não conheço mas, será que não dá para fazer como no Clipper, com a função ReadInsert()?

Código: Selecionar todos

        USE Sales NEW

        // Turn on insert mode
        lInsMode = READINSERT(.T.)
        Sales->Notes := MEMOEDIT(Sales->Notes)
        //
        // Restore previous insert mode
        READINSERT(lInsMode)