Perguntas Funcão F4 Lote

Pessoal, boa tarde.

Alguém sabe como faço para retornar o lote selecionado em um MsNewGetDados utilizando a função F4Lote()?

Criei um MsNewGetDados e consigo chamar a tela de seleção de lotes, porém ao dar duplo clique sobre o lote selecionado ou clicar em OK, este não é retornado.

Alguém já passou por isso?

Obrigado!
Fernando Nascimento

Olá Luiz!

É essa mesmo! F4Lote().
É a função que traz os lotes ao apertar a tecla F4, seja na rotina de inventário, transferências e etc.

Vc já viu ou fez alguma coisa do tipo?

Obrigado!
Fernando

Luiz,

Veja como estou criando os campos do aHeader:

dbSelectArea("SX3")
SX3->(dbSetOrder(2))
For _nX:=1 To Len(_aCampos)
If SX3->(dbSeek(_aCampos[_nX]))
nUsado++
If _aCampos[_nX] == "BC_PRODUTO"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
ElseIf _aCampos[_nX] == "B7_LOTECTL"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
ElseIf _aCampos[_nX] == "BC_TIPO"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
ElseIf _aCampos[_nX] == "BC_MOTIVO"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
ElseIf _aCampos[_nX] == "BC_DESCRI"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
ElseIf _aCampos[_nX] == "BC_QUANT"
_cTam := SX3->X3_TAMANHO
_cDec := SX3->X3_DECIMAL
_cPict := SX3->X3_PICTURE
_cNome := SX3->X3_TITULO
_cValid := " "
EndIf

AADD(aHeader,{ _cNome ,;
SX3->X3_CAMPO ,;
_cPict ,;
_cTam ,;
_cDec ,;
_cValid ,;
" " ,;
SX3->X3_TIPO ,;
SX3->X3_F3 ,;
SX3->X3_CONTEXT ,;
SX3->X3_CBOX ,;
" " ,;
" " ,;
" " ,;
" " ,;
" " ,;
" " })
EndIf
Next _nX

Aparentemente está correto...mas nao retorna o lote de jeito nenhum...

Obrigado!
Fernando