topic-11373

Posts: 248

Joined: Wed Jan 11, 2006 11:30 AM

xBrowse con Array ???
Posted: Sat May 31, 2008 11:55 AM

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 Collapse

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 Collapse

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

Salvo los dados Digitados nos Gets

Code: Select all Collapse

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 Collapse

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

Erro.Log

Code: Select all Collapse

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

Como posso inicializa meu Browse con Array, vazio ?

Saludos, Ale

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

xBrowse con Array ???
Posted: Sat May 31, 2008 02:05 PM

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

Posts: 248

Joined: Wed Jan 11, 2006 11:30 AM

xBrowse con Array ???
Posted: Sat May 31, 2008 09:21 PM

Gracias amigo, pela dica.

Saludos, Ale

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**

FiveTech Support Forums

Continue the discussion