Perguntas Posicione tabela DA1

Boa tarde a todos, estou precisando pegar o preço do produto na tabela DA1 de acordo com a faixa para isso fiz o seguinte:
Tabela DA1
produto xpto 10,00 faixa 5
produto xpto 5,00 faixa 10

DbSelectArea("DA1")
DbSetOrder(1)

nFaixaAux := DA1_QTDLOT
cFaixa := cValTochar(nFaixaAux)

nPrcTab := Posicione("DA1",1,xFilial("DA1")+cTabela+cProd+cFaixa,"DA1_PRCVEN")

porem o preço esta vindo zerado zerado, algum sabe o que esta de errado no posicione, pois preciso que ele peque o preço de venda na faixa que foi defino da tabela.


obrigado.

Luiz, este indice 1 que esta na tabela

DA1_FILIAL+DA1_CODTAB+DA1_CODPRO+DA1_INDLOT+DA1_ITEM
Cod. Tabela + Cod.Produto + Faixa + Item

eu vou postar o código que estou usando.
este código foi é uma adaptação do código que o colega, delweis de Assis Felipe, postou no fórum.

User function F0001()
Local nPrcTab,nPrMax,nPrVen,nPrDig,cProdu,cTabela,cYtabela,cC5_VEND1
Local nFaixaAux,cFaixa
LOCAL nArea := SELECT("SA3")
cProdu := aCols[n,GdFieldPos("C6_PRODUTO")]
nPrDig := M->C6_PRCVEN

cC5_VEND1 := M->C5_VEND1

dbSelectArea(nArea)
Posicione("SA3",1,xFilial("SA3")+cC5_VEND1,"A3_YTABELA")
cYtabela := A3_YTABELA
If cYtabela = "S"

Return (.t.)
Endif
dbCloseArea()

cTabela := M->C5_TABELA
DbSelectArea("DA1")
DbSetOrder(1)

nFaixaAux := DA1_QTDLOT
cFaixa := cValTochar(nFaixaAux)

nPrcTab := Posicione("DA1",1,xFilial("DA1")+cTabela+cProdu+cFaixa,"DA1_PRCVEN") // Busca Preço Minimo do Produto

If nPrDig < nPrcTab
M->C6_PRCVEN := nPrcTab
alert("Preço inválido. Preço Mínimo= "+Transform(nPrcTab,"@E 999,999.99"),"Preço inválido","stop")

Return (.t.)
Endif

If nPrDig = nPrcTab
M->C6_PRCVEN := nPrDig

Return (.t.)
Endif

return()

Resolvido, peguei o Preço de Lista na ao invés de pegar o preço direto na tabela.

If nPrDig < nPrelista

M->C6_PRCVEN := nPrelista
alert("Preço inválido. Preço Mínimo= "+Transform(nPrelista,"@E 999,999.99"),"Preço inválido","stop")

Return (.t.)
Endif