xBrowse con Array ???

[Ale SB]

Tengo, unos gets que carrega en uno array, y quero ir apresentando los dados del array en uno Browse.

Entrada del Dados para el Array

Code: Select all  Expand view  RUN

Private aArray := {}

REDEFINE GET oGet[1]  VAR cBco ID 28 OF oDlg PICTURE "@R 999"  UpDate
REDEFINE GET oGet[1]  VAR cAge ID 29 OF oDlg PICTURE "@R 9999" UpDate


xbrowse, apresentado los dados do Array

Code: Select all  Expand view  RUN

oBrwChq := TXBrowse():New( oDlg )     
oBrwChq:CreateFromResource( 102 ) 
oBrwChq:SetArray( aArray, .T. )



Salvo los dados Digitados nos Gets

Code: Select all  Expand view  RUN

REDEFINE BUTTONBMP oBtn1[2]                  ;
             ID 702 OF oDlg                      ;
             ACTION ( SalvaChq(), oBrwChq:Refresh(),  oGet[1]:SetFocus(), oDlg:Update() ) ;
               UpDate                              ;


Funçao para Carregar no Array

Code: Select all  Expand view  RUN

********************************************************************************
STATIC FUNCTION SalvaChq()
********************************************************************************
 
AADD( aArray, {cBco, cAge } )


Erro.Log

Code: Select all  Expand view  RUN

Error description: Error BASE/1132  Erro de limite: acesso de array


Como posso inicializa meu Browse con Array, vazio ?

Saludos, Ale

[Wanderson]

Blz? Eu inicializo sempre com {""} e quando vou adicionar algum elemento eu inicializo novamente com {} e adiciono o elemento. Não é uma maneira "elegante" mas só consegui assim.

Flw.

[Ale SB]

Gracias amigo, pela dica.

Saludos, Ale