Perguntas grid editável

Bom dia Colegas!

Estou montando um grid, e preciso que um dos campos (XX_NCC) seja editável, já segui vários exemplos que enccontrei (quase todos bem parecidos), mas, na execução o campo não abre para edição. Não sei aonde estou errando, podem ajudar? Segue o trexo com as informações do grid:

Static Function EXEMPa()

Local oButton1
Local oButton2
Local aSize := MsAdvSize(.T.)
Local aACampos := {"XX_NCC"}
Local nOpc := GD_INSERT + GD_DELETE + GD_UPDATE
Static oDlg

Private aHeadLote := {}
Private aColsLote := {}
Private oMsGet


aObjects := {}
aAdd( aObjects, { 100, 005, .T., .T.} )
aAdd( aObjects, { 100, 095, .T., .T., .T.} )

aInfo := { aSize[ 1 ], aSize[ 2 ], aSize[ 3 ], aSize[ 4 ], 0, 0 }
aPObjs := MsObjSize( aInfo, aObjects, .T. )

DEFINE MSDIALOG oDlg TITLE FROM aSize[7], 000 To aSize[6], aSize[5] /*COLORS 0, 16777215*/ PIXEL

@ 003, 009 BUTTON oButton1 PROMPT "Confirmar" SIZE 037, 012 OF oDlg ACTION OKFAT001(oMsGet) PIXEL
@ 003, 053 BUTTON oButton2 PROMPT "Fechar" SIZE 037, 012 OF oDlg ACTION oDlg:End() PIXEL

// MONTA CABECALHO DO GRID:
aHeader()

// MONTA MASSA DE DADOS
MsgRun("Selecionando Registros..." ,"",{|| CursorWait(),aCols() })
oMsGet := MsNewGetDados():New(aSize[1] + 20,aSize[1],aSize[4] - 40,aSize[3],nOpc,0,999,,aACampos,,,,,,oDlg,;
aHeadLote,aColsLote)

oMsGet:oBrowse:bLDblClick := {|| Marca(.F.)}
oMsGet:oBrowse:bHeaderClick := {|| Marca(.T.)}

ACTIVATE MSDIALOG oDlg CENTERED

Return

Static Function aHeader()

AAdd(aHeadLote,{ "OK " , "XX_OK" , "@!" , 2 , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Filial" , "XX_FILIAL" , "@!" , TamSX3('E1_FILIAL')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Codigo" , "XX_CLIENTE" , "@!" , TamSX3('E1_CLIENTE')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Loja" , "XX_LOJA" , "@!" , TamSX3('E1_LOJA')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Razao Social" , "XX_NOMCLI" , "@!" , TamSX3('E1_NOMCLI')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Prefixo" , "XX_PREFIXO" , "@!" , TamSX3('E1_PREFIXO')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Numero" , "XX_NUMERO" , "@!" , TamSX3('E1_NUM')[01] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Parcela" , "XX_PARCELA" , "@!" , TamSX3('E1_PARCELA')[1] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Tipo" , "XX_TIPO" , "@!" , TamSX3('E1_TIPO')[1] , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Valor Parcela" , "XX_VL" , PesqPict("SE1", "E1_VALOR") , TamSX3('E1_VALOR')[1] , 0, ".F.", ".F.", "N", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "Valor NCC" , "XX_NCC" , PesqPict("SE1", "E1_VALOR") , TamSX3('E1_VALOR')[1] , 2, "", "", "N", "", "", "", "", "" } )
AAdd(aHeadLote,{ "RECNO_NCC" , "R_E_C_N_0_" , "@E 999999999999" , 30 , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )
AAdd(aHeadLote,{ "RECNO_NF" , "NR_E_C_N_0_" , "@E 999999999999" , 30 , 0, ".F.", ".F.", "C", "", "R", "", "", "" } )

Return

Valeu mano!

Deu certinho... !!

Valeu mano!

Deu certinho... !!