Proc Main  
 local acc:=0 
 local acc1:="     " 
 cls   
 setmode(25,80) 
 set key 28 to test 
   
 @ 0,0 get acc  
 @ 1,0 get acc1  
  
 read 
 RETURN  
 ************ 
  
 FUNCTION test() 
  
    LOCAL n := 0 ,i 
  
      
    WHILE ! Empty( ProcName( n ) ) 
    n++ 
         if procname(n)=="HBGETLIST:READMODAL" 
            for i=1 to len(__GETLISTACTIVE()) 
      ? __GETLISTACTIVE()[ i ],i 
  
 * вот тут можно проверять по идее Valtype(__GETLISTACTIVE()[13]) твоя текущая переменная в GET 
 * но зараза все время выдает "C" , похоже не там копаю или не так........ 
             next 
         endif  
     
    ENDDO 
  
    RETURN NIL 
  
 

 
 FUNCTION test() 
  
    LOCAL n := 0 ,i 
      
    WHILE ! Empty( ProcName( n ) ) 
    n++ 
         if procname(n)=="HBGETLIST:READMODAL" 
              if valtype(GetActive():varGet())=="N" 
               hb_keyins(".") 
               exit 
              endif 
         endif  
     
    ENDDO 
  
    RETURN NIL 
  
 

 
 FUNCTION test() 
      if GetActive()#NIL 
              if valtype(GetActive():varGet())=="N" 
               hb_keyins(".") 
              endif 
      endif 
  
 return nil 
  
 

 
 В начале программы ставим SETKEY(44,{||CommaReplace()}) // замена запятой на точку в цифровых полях 
  
 FUNC CommaReplace() 
  
 STATIC kb32,kb44 
 LOCAL key := LastKey() 
  
  IF (key==44) // запятая ? 
  
   IF (GetActive() # NIL) .AND. (VALTYPE(GetActive():varGet()) == "N")  
    HB_KeyIns(".") // что и требовалось 
   ELSE 
    kb44 := SETKEY(44,SETKEY(32)) // пустой обработчик пробела подойдет 
    kb32 := SETKEY(32,kb44)       // бывш.обработчик 44, т.е. сама функция 
    HB_KeyIns(",")                // возвращаем запятую на место 
   ENDIF 
  
  ELSEIF (key==32)       // нажат пробел, нужно восст. обработчик запятой 
   SETKEY(32,kb32)       // восст. сохраненного обработчика пробела (по сути, пустой) 
   SETKEY(44,kb44)       // восст. обработчика запятой (по сути - вызов этой функции) 
   HB_KeyIns(" ")        // возвращаем пробел на место 
  ENDIF 
  
 RETURN NIL 
  
 Т.е. все работает так: если юзер нажимает запятую, там, где именно она и нужна - текущий обработчик выключается до тех пор, пока юзер не нажмет пробел. 
 Как только будет нажат пробел (а его чаще всего вводят в текстовых полях), обработчик запятой ставится на место. 
  
 

SETKEY(44,{||HB_KeyIns(".")},;  
          {||GetActive() # NIL .AND. VALTYPE(GetActive():varGet())=="N"})  
 

 
 HB_SETKEY(44,{|o| o:= GetActive(), if(o # NIL, if(VALTYPE(o:varGet())=="N", HB_KeyIns("."), o:Insert(",")), "")}) 
 где: 
 Text Entry Methods 
  insert()        Inserts characters into the editing buffer: 
  
 insert(<cChar>) --> self 
  
         Inserts <cChar> into the editing buffer at the current cursor 
         position, shifting the existing contents of the buffer to the right. 
         The cursor is then placed one position to the right of the inserted 
         string. 
 

 
 hb_SetKey(44, {|| MyTest44(GetActive()) }, {|| GetActive() != NIL}) 
 ... 
 FUNC myTest44( o ) 
  
  IF o:pos > 1 
     o:buffer := left(subs(o:buffer, 1, o:pos-1)+','+subs(o:buffer, o:pos+1), len(o:buffer)) 
  ELSE 
     o:buffer := ','+subs(o:buffer, 2) 
  ENDIF 
  o:varPut(o:buffer) 
  o:display() 
  
 RETURN 
 

 
 FUNC CommaRepl(oGet) // меняем запятую на точку 
  
  IF (VALTYPE(oGet:VarGet()) == "C") // текст ? 
   IF (VAL(oGet:VarGet()) # 0)       // а по сути цифра ? 
    PutInKbd(".")                    // меняем на точку 
   ELSE                              // не цифра, соотв. нужна запятая 
    // тк банальный :Insert(",") пока глючит, извращаемся так: 
    IF oGet:pos > 1  
     oGet:buffer := LEFT(SUBSTR(oGet:buffer, 1, oGet:pos-1)+','+; 
                    SUBSTR(oGet:buffer, oGet:pos+1), LEN(oGet:buffer))  
    ELSE  
     oGet:buffer := ','+SUBSTR(oGet:buffer, 2)  
    ENDIF 
    oGet:VarPut(oGet:buffer)  
    oGet:Display()  
    oGet:pos += 1 // перемещаем каретку вправо 
   ENDI 
  ELSE // цифра, дата и тп... 
   PutInKbd(".") // меняем на точку 
  ENDIF  
  
 RETURN