Perguntas Tela Modelo2() - Bloco para tecla F4 (bf4)

To tentando montar uma tela utilizando a funcao Modelo2(), sendo que preciso habilitar a tecla F4 para consultar os lotes do produto, a base da tela é a tabela SD3 (movimentos).

Estou utilizando o codigo abaixo:
Local bf4 := {|| /*msginfo("ENTROU NO BL DE CODIGO"), MSGINFO(CVALTOCHAR(aScan(aHeader,{|x| Upper(Alltrim(x[2])) == "D3_NUMLOTE"}))),*/ nPosLote := aScan(aHeader,{|x| Upper(Alltrim(x[2])) == "D3_NUMLOTE"}),;
nPosLotCtl := aScan(aHeader,{|x| Upper(Alltrim(x[2])) == "D3_LOTECTL"}), nPosDValid := aScan(aHeader,{|x| Upper(Alltrim(x[2])) == "D3_DTVALID"}),;
F4Lote(,,,"USER",M->D3_COD,"01")}

Já tentei também substituir a chamda da F4Lote por F4Lote(,,,"A240",M->D3_COD,M->D3_LOCAL,NIL,M->D3_LOCALIZ), mas estou encontrando o mesmo erro:

Exceção ocorrida: variable does not exist ___ODLG

Pilha de chamadas:
{|SELF|(VALIDGET(___ODLG,___BVALID,___OGET,,,@LCARGO) .AND. IIF(LNEWGETD .AND. OGLOGETDB:BFIELDOK<>NIL,VALIDGET(___ODLG,OGLOGETDB:BFIELDOK,___OGET,,,@LCARGO), .T. ))}(1111)
MSDIALOG:ACTIVATE(0)
AXINCLUI(624)
X19INCLUI(208)
EXECUTE(1045)
{ || OSELF:EXECUTE("X19INCLUI", 3, 0,"INCLUIR", 3,"","INCLUIR","", 3) }(177)
eval(177)
{|| If( lClick, ( lClick := .F., eval({ || OSELF:EXECUTE("X19INCLUI", 3, 0,"INCLUIR", 3,"","INCLUIR","", 3) }), lClick := .T., ), "")}(177)
MSDIALOG:ACTIVATE(0)
ACTIVATE(598)
FWMBROWSE(11481)
MBROWSE(155)
CFGX019(53)
__EXECUTE(568)
FWPREEXECUTE(65)
{|| FWPreExecute('Formulas', 'CFGX019()', 1, '04', 'xxxxxxxxxx') }(182)
TWINDOW:ACTIVATE(0)
ACTIVATE(527)
SIGAADV(54)

Alguem tem alguma sugestao?