Perguntas MA261D3 - Atualiza campos no momento da gravação

#include "protheus.ch"

#DEFINE USADO Chr(0)+Chr(0)+Chr(1)
User Function MA261CPO()
	Local aTam := {}
	aTam := TamSX3('D3_X_NOME')
	Aadd(aHeader, {"Nome Funcionario", 'D3_X_NOME' , PesqPict('SD3', 'D3_X_NOME', aTam[1]), aTam[1], aTam[2], '', USADO, 'C', 'SD3', ''})
Return (aHeader)

#INCLUDE "rwmake.ch"
#include "protheus.ch"

User Function MA261D3()
Local cPedido := ''
local n := PARAMIXB // checa numero da linha dos itens
Local nNome :=	aScan(aHeader,{|x| Alltrim(x[2])=="D3_X_NOME"})

RecLock('SD3',.F.) //-- Grava o pedido
SD3->D3_X_NOME := aCols[n][nNome]
SD3->(MsUnlock())

cPedido = aCols[n][nNome]
return