Perguntas Ponto de entrada Rotina Mata103

Bom dia,

O meu problema e que não estou conseguindo pegar o valor do campo Local no item informando assim que o usuário tecla se seta para incluir um novo item.

a solução foi

#Include "PROTHEUS.CH"



User Function MT100LOK
Local Tipo:=.F.
Local cCodUser := RetCodUsr() //Retorna o Codigo do Usuario
Local nPosLocal := aScan(aHeader,{|x| AllTrim(x[2]) == "D1_LOCAL" })


DbSelectArea("SZ7")
DbSetorder(1)

If MsSeek(xFilial("SD1")+cCodUser+aCols[N][nPosLocal])
Alert(aCols[N][nPosLocal])
Tipo:=.T.

Else
Tipo:=.F.
Alert("Usuário não tem permissão para o referido armazem")

ENDIF

//EndIf