STATIC cBuf := '', lBuf := .F. 
 ... 
 FUNCTION User_Func( nMode, nColPos )          // User function in dbEdit 
 LOCAL RetVal := DE_CONT,nKey := LastKey(),nCol,nRow 
  
  IF     nMode == DE_IDLE                    // 0 cMode := "DE_IDLE" 
   ... 
  ELSEIF nMode == DE_HITTOP                  // 1 cMode := "DE_HITTOP" 
   ... 
  ELSEIF nMode == DE_HITBOTTOM               // 2 cMode := "DE_HITBOTTOM" 
   ... 
  ELSEIF nMode == DE_EMPTY                   // 3 cMode := "DE_EMPTY" 
   ... 
  ELSEIF nMode == DE_EXCEPT                  // 4 cMode := "DE_EXCEPT" 
   ... 
  ELSE                                       // 5 cMode := "OTHERWISE" 
     IF nKey == K_F6            // вкл.\выкл. режим подвода 
        lBuf := ! lBuf 
        IF ! lBuf 
           cBuf := '' 
        ENDIF 
     ELSEIF lBuf                // в режиме подвода 
        IF nKey == 8 .and. len(cBuf) > 0   // BACKSPACE 
           cBuf := left(cBuf, len(cBuf) 
        ELSEIF nKey >= 32 .and. nKey < 255 
           cBuf += chr(nKey) 
        ENDIF 
        IF len(cBuf) > 0 
           ordScope( 0, cBuf )     //  или SET SCOPE TO cBuf, cBuf 
           ordScope( 1, cBuf )     //  
        ELSE 
           ordScope( 0, NIL )      //      SET SCOPE TO 
           ordScope( 1, NIL )      // 
        ENDIF 
        dbGotop() 
        // можно просто подвод, не Scope использовать 
     ELSE                          // OTHERWISE 
        ... 
     ENDIF 
  ENDIF 
  ... 
  
 RETURN RetVal