Perguntas Ponto de entrada SFT -- M460FIM

Estou tentando gravar na tabela SFT o numero do pedido de venda e o item do pedido de venda, isso para usar no arquivo nfesan,

Eu criei os campos SFT->FT_XPEDIDO SFT->FT_XITEMPV

Agradeço sugestões.

Estou tentando com o ponto de entrada


#INCLUDE "TOTVS.CH"
#INCLUDE "PROTHEUS.CH"


User Function M460FIM()

dbSelectArea("SD2")
dbSetOrder(3)

dbSeek(xFilial("SD2") + sf2->f2_doc + sd2->d2_serie + sd2->d2_cliente + sd2->d2_loja)

While ! Eof() .and. sd2->d2_doc + sd2->d2_serie + sd2->d2_cliente + sd2->d2_loja == sf2->f2_doc + sf2->f2_serie + sf2->f2_cliente + sf2->f2_loja


dbSelectArea("SFT")
dbSetOrder(1)

if(dbSeek(xFilial("SFT")+'S'+SD2->D2_SERIE+SD2->D2_DOC+SD2->D2_CLIENTE+SD2->D2_LOJA+SD2->D2_ITEM+SD2->D2_COD))

RecLock("SFT",.F.)
SFT->FT_XPEDIDO := SD2->D2_PEDIDO
SFT->FT_XITEMPV := SD2->D2_ITEMPV
msUnlock()

endIf

SD2->(dbSkip())

End

Return(.T.)