Amiguinho
Neste caso voce esta usando um array multidimensional, então ficará mais fácil usar uma função para isto, mesmo achando que voce se dará melhor usando um .DBF para isto, mas vamos lá:
Voce tem quatro variáveis e quer preencher seu array, pois bem
Array1 := {} // array Principal
nContador := 1
nVariavel := 12345 // Codigo de seu produto
cVariavel := "Produto A"// Descricao do produto
dVariavel := date() // Data de inclusao
lVariavel := .f. // variavel lógica
// Coloco as variaveis dentro de um Array e coloco este novo Array no Array principal
aadd( Array1, { nContador , nVariavel, cVariavel, dVariavel, lVariavel } ) // Fecho o Array principal
nContador := 2
nVariavel := 343234 // Codigo de seu produto
cVariavel := "Produto B"// Descricao do produto
dVariavel := date() // Data de inclusao
lVariavel := .t. // variavel lógica
// Coloco as variaveis dentro de um Array e coloco este novo Array no Array principal
aadd( Array1, { nContador , nVariavel, cVariavel, dVariavel, lVariavel } ) // Fecho o Array principal
nContador := 3
nVariavel := 987487 // Codigo de seu produto
cVariavel := "Produto C"// Descricao do produto
dVariavel := date() // Data de inclusao
lVariavel := .f. // variavel lógica
// Coloco as variaveis dentro de um Array e coloco este novo Array no Array principal
aadd( Array1, { nContador , nVariavel, cVariavel, dVariavel, lVariavel } ) // Fecho o Array principal
// Vou listar
for i = 1 to len(Array1)
? str(Array1[i][1],3), ;
str(Array1[i][2],7), ;
Array1[i][3], ;
dtoc(Array1[i][4]), ;
iif(Array1[i][5],".t.",".f.")
next
Consulte as funções ASCAN(), AINS(), ASORT() e ADEL() para trabalho com arrays e baixe o arquivo FIVEDOCS no topico
link, links e mais links.
@braços :?)