Perguntas aScan em array multidimensional

Boa tarde, estou fazendo uma rotina no módulo de compras->documento de entra para atualizar o campo tipo da SB1 assim que for alterado no pedido.
Estou tentando fazer um aScan para pegar a posição do campo no aHeader e no aCols porém o aHeader retorna errado.
Sei que o campo está na posição 3(fixei ele para testar).
Estou tentando fazer o aScan dessa forma:
For nI := 1 To Len(aHeader)

nPosCod := Ascan(aHeader,{|x| x[nI] == "D1_TP", 1})

Next nI
Agradeço a ajuda.

Não tem a necessidade do loop

O aHeader costuma ter o nome dos campos na 2ª posição.

Utilize da seguinte forma:

nPosCod := aScan(aHeader,{|x| AllTrim(x[2])=="D1_TP"})

deverá funcionar, testa ai e posta ai pra gente se deu certo.

Resolvido..vlw