Programa: PLSA470
Função: A470TITMAR
Ponto de Entrada: PL470FLT
Objetivo: Permite manipular os arquivos envolvidos na rotina de pagamento. É chamado após gravar todas as tabelas envolvidas na geração do lote de pagamento e antes de apresentar o resultado em tela. Neste ponto a tabela BAF (Lotes de Pagamentos RDA) estará posicionada no registro referente ao lote de pagamento gerado.
Exemplo de Utilização: 
Caso queira gravar alguma informação em todos os títulos gerados no lote de pagamento
Exemplo de sua codificação:
Suponha um caso onde se queira gravar alguma informação em todos os títulos gerados no lote de pagamento
Parâmetros de entrada: Nenhum
Parâmetros de Retorno: Nenhum
User Function PL470FLT()
SE2->(DbSetOrder(12)) // E2_FILIAL+E2_PLOPELT+E2_PLLOTE+E2_NOMFOR
SE2->(msSeek(xFilial('SE2')+BAF->(BAF_CODOPE+BAF_ANOLOT+BAF_MESLOT+BAF_NUMLOT)))
Do While ! SE2->(Eof()) .And. SE2->(E2_FILIAL+E2_PLOPELT+E2_PLLOTE) == ;
         xFilial('SE2')+BAF->(BAF_CODOPE+BAF_ANOLOT+BAF_MESLOT+BAF_NUMLOT)
 RecLock('SE2', .F.)
 SE2->E2_PORTADO := '104'
 SE2->(msUnlock())
 SE2->(dbSkip())
Enddo
Return()

.PRW

PL470FLT - Manipula Arquivos ( [ Nenhum ] ) --> Nenhum

Nenhum(nulo)
• Nenhum