Perguntas Preenchimento do "ITEM" do Acols

Boa Tarde!
Galera estou fazendo o modelo 2 e já fiz o incluir e agora estou fazendo a rotina para visualizar.
O "acab" está ok.
O "aHEADER" é que não está trazendo todos os itens, só trás o ultimo "Item" sobrepondo os anteriores.
Preciso saber como faço para ir criando uma nova linha automaticamente
Exemplo: ITEM 01
ITEM 02
Desde já obrigado!

For nColuna := 1 to Len(aHeader)
aCols[1][nColuna] := CriaVar(aHeader[nColuna][2],.T.)
Next nColuna

aCols[1][aScan(aHeader, {|x| AllTrim(x[2]) == "ZI_ITEM"})] := "01"
aCols[1][Len(aHeader)+1] := .F. // Linha não deletada
If nOpc == 2
DbSelectArea("SZI")
DbSetOrder(1)
DBGoTop()
//DbSeek(cFilial)

Do While ZI_NUMORC == cNumorc .And. !EOF()
For nColuna := 1 to Len(aHeader)
aCols[1][2] := ZI_CODPROD
aCols[1][3] := ZI_DESC
aCols[1][4] := ZI_UNIT
aCols[1][5] := ZI_QTDE
aCols[1][6] := ZI_VALOR
Next nColuna
DbSkip()
EndDo
EndIf

Problema resolvido galera!!!