e preciso preencher uma grid com eles
ja fiz de varias formas , mais ficou muito lento!
teria alguma forma de a grid preencher rapido com uma quantidade dessas de registros? usando a minigui extended
abaixo um trecho do meu codigo
aData := {}
select arq
set order to 1
goto top
while !eof()
Aadd(aData,{ sui, dtoc(data), entr,said, strzero(nnota,5), placa, str(n_cartela,5), iif(bonus,"T","F"),trans(diaria,'@E 999,999.99'),trans(bar,'@E 999,999.99') , trans(vldesc,'@E 999,999.99'), trans(vlbonus,'@E 999,999.99'),dtoc(datamov), str(turno,2), codcaixa, codport})
skip
end do
define grid placa
parent Displaca_form
col 10
row 50
width 700 //390
height 400
headers {"SUITE","DATA","ENTR", "SAIDA", "NOTA", "PLACA", "CARTELA", "BONIF.", "PERMANENCIA", "CONSUMO", "DESCONTO", "BONUS", "DT. MOV", "TURNO", "TEL.", "PORT."}
widths {60,80,80,70,70,70,70,70,70,70,80,70,80,70,70,70}
value 1
fontname 'Arial'
fontsize 9
fontbold .t.
backcolor {255,255,206}
* fontcolor BLACK
* nolines .t.
* showheaders .f.
tooltip 'Exibe o Consumo Geral da Suite'
* justify { BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT,BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT }
on init Preenche_grid()
end grid
Static Function Preenche_grid
for nPos := 1 to len(aData)
doMethod("Displaca_form","placa", "addItem", aData[nPos] )
next
até funcionou , mais da uma travada até no sistema, depois de um bom tempo que aparece a grid preenchida
tentei com browse mais os campos ficaram meio loucos...