Отправлено: 29.01.17 06:11. Заголовок: Ошибка Rlock()/SKIP

Пожалуйста, попробуйте следующую программу:

REQUEST LETO 
  
 PROC Main 
   LOCAL TB, Ch 
   LOCAL cPath 
  
   cPath := "//192.168.99.10:2807/xApp" 
  
   Leto_Connect (cPath) 
   RddSetDefault ("LETO") 
  
   USE (cPath + "/Artikli") SHARED NEW  
  
   CLS 
  
   TB := TBrowseDB (0,0,24,79) 
   TB:addColumn (TBColumnNew ("CODE", {|| a_sif })) 
  
   WHILE .T. 
     TB:ForceStable() 
     Ch := Inkey(0) 
  
     IF Ch == 27 
       EXIT 
  
     ELSEIF Ch == 13 
       IF RLock() 
         Artikli->a_sif := "003" 
         SKIP                                // <---- ERROR! 
         SKIP -1 
         DBUnlock() 
         TB:refreshAll() 
       END IF 
        
     END IF 
   END DO 
  
   CLOSE ALL 
  
 RETURN 
 

Если нажать Enter в *два раза*, получим:

Error LETO/1020 Data type error
Called from DBSKIP(0)
Called from MAIN(29)

При использовании драйвера DBF, все работает без ошибок. Я не знаю, какова роль TBrowse, но без него все работает.

Ненад