Perguntas Função F4LOTE(sigacus.prw) em uma MSNEWGETDADOS

Boa tarde Pessoal!

Criei uma MsNewGetDados, e setei meu F4 para chamar uma função que chama a função F4LOTE, até ai tranquilo, eu consigo abrir a tela de consulta de saldos por lote, porem ao dar 2 clicks no lote ou clicar no botão OK, ele não carrega os dados para minha MsNewGetDados, eu precisaria que ele retornasse o código do LOTE e a DATA DE VALIDADE, alguem tem alguma ideia? Segue abaixo a minha função que chama o F4, valeu!!!!


Static Function ChamaF4()
Local nPosCod := aScan(aHeader,{|x|AllTrim(x[2])=="CODPRO"})
Local nPosLoc := aScan(aHeader,{|x|AllTrim(x[2])=="LOCALDP"})
Private nPosLotCtl := aScan(aHeader,{|x|AllTrim(x[2])=="LOTECTL"})
Private nPosDValid := aScan(aHeader,{|x|AllTrim(x[2])=="DTVALID"})
Private nPosLote := aScan(aHeader,{|x|AllTrim(x[2])=="NUMLOTE"})

If ReadVar() == "M->LOTECTL"
F4Lote(,,,"A465",oGetDados:aCols[N, nPosCod],oGetDados:aCols[N, nPosLoc])
EndIf

Return Nil