Perguntas TMKLINKOK

Bom dia Pessoal,

Estou precisando da ajuda de voces para desenvolver uma rotina na validação da linha do Atendimento, quando o usuário mudar de linha a rotina deve manter no campo UD_ASSUNTO o mesmo código da linha acima, por padrão ele vem em branco.

Sera que alguém pode me ajudar.

#Include "Totvs.ch"

User Function TMKLINOK()

Local _aAreaOrig := GetArea("SUD")

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

for i := 1 to len(aCols)
aCols[i,aScan(aHeader,{|x| Upper(AllTrim(x[2])) == "UD_ASSUNTO"})]:= aCols[n][_nPosAssunto]
next i

RestArea(_aAreaOrig)

Return .T.