TSBROWSE NÃO EDITA

[maudruidas]

Bom dia, estou tentando usar o TsBrowse na versão FW 14 e não consigo fazer  a coluna editar. Quando utilizava a versão FW 7 ele funcionava normalmente. Alguém sabe me dizer porque?.

#include "FiveWin.ch"
#include "TSBROWSE.CH"
#include "TSBUTTON.CH"
#Include "MENU.CH"
#include "ORD.CH"
#Include "Objects.Ch"
#Include "Image.ch"
 

   

     REDEFINE BROWSE OLBX COLORS CLR_BLACK,nRGB(236, 233, 216) ID 101;
              OF ODLGP FONT OFNC2 UPDATE CURSOR OCUR CELL ALIAS 11

     ADD COLUMN TO BROWSE OLBX SIZE 130 HEADER "Código" ;
     DATA STRZERO(CODIGO,13) ;
     3DLOOK TRUE,TRUE ALIGN DT_CENTER

     ADD COLUMN TO BROWSE OLBX SIZE 470 HEADER "Descrição" ;
     DATA DESCRICAO  ;
     3DLOOK TRUE,TRUE ALIGN DT_LEFT

     ADD COLUMN TO BROWSE OLBX SIZE 100 HEADER "Pr. Custo" ;
     DATA FieldWBlock("PRECUS", Select()) PICT '@E 9,999.999' ;
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT EDITABLE MOVE DT_MOVE_NEXT

     ADD COLUMN TO BROWSE OLBX SIZE 100 HEADER "Ac. a Prazo" ;
     DATA FieldWBlock("PERPRA", Select()) PICT '@E 999.99%' ;
     VALID { | uVar | VACDE(uVar, 4, OLBX)} ;// NESTE PRG
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT EDITABLE MOVE DT_MOVE_NEXT

     ADD COLUMN TO BROWSE OLBX SIZE 100 HEADER "Pr. Prazo" ;
     DATA FieldWBlock("PRECO", Select()) PICT '@E 9,999.999';
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT EDITABLE MOVE DT_MOVE_NEXT

     ADD COLUMN TO BROWSE OLBX SIZE 100 HEADER "Dc. a Vista" ;
     DATA FieldWBlock("PERVIS", Select()) PICT '@E 999.99%' ;
     VALID { | uVar | VACDE(uVar, 6, OLBX)} ;// NESTE PRG
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT EDITABLE MOVE DT_MOVE_NEXT

     ADD COLUMN TO BROWSE OLBX SIZE 100 HEADER "Pr. Vista" ;
     DATA FieldWBlock("PREVIS", Select()) PICT '@E 9,999.999';
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT EDITABLE MOVE DT_MOVE_NEXT

     ADD COLUMN TO BROWSE OLBX SIZE 40 HEADER "UNI" ;
     DATA UNIDADE;
     3DLOOK TRUE,TRUE ALIGN DT_CENTER

     ADD COLUMN TO BROWSE OLBX SIZE 90 HEADER "Est. Atual" ;
     DATA STR(ESTNOTA,9,3);
     3DLOOK TRUE,TRUE ALIGN DT_RIGHT

     OLBX:SetColor( { 1, 3, 5 }, ;
                    { CLR_BLACK, CLR_WHITE, CLR_BLACK, ;
                    { CLR_WHITE, CLR_BLACK }, ; // degraded cursor background color
                    CLR_WHITE, CLR_BLACK } )  // text colors
     OLBX:SetColor( { 2, 4, 6 }, ;
                    { { CLR_WHITE, CLR_AZUL}, ;  // degraded cells background color
                    { CLR_AZUL, nRGB(1, 61, 150)}, ;  // degraded headers backgroud color
                    { nRGB(1, 61, 150), CLR_WHITE } } )  // degraded order column background color

     OLBX:aColumns[3]:lEdit:=.T.
     OLBX:aColumns[4]:lEdit:=.T.
     OLBX:aColumns[5]:lEdit:=.T.
     OLBX:aColumns[6]:lEdit:=.T.
     OLBX:aColumns[7]:lEdit:=.T.

     OLBX:Set3DText( .T., .F.,, 2, CLR_BLUE,CLR_BLACK )
     OLBX:nLineStyle := LINES_VERT
     OLBX:nHeightCell+=2
     OLBX:nHeightHead+=6
     OLBX:lMChange:=.F.
     OLBX:LNOGRAYBAR:=.T.   // Tira a Barra Cinza
     OLBX:CTOOLTIP := "Botão Esquerdo do Mouse Seleciona Produto"
     OLBX:GOTOP()
     OLBX:REFRESH()