PL470EXC - Manipula Arquivos

Programa: PLSA470
Função: PLSA470DEL e PLSA470E01
Ponto de Entrada: PL470EXC
Objetivo: Permite manipular os arquivos envolvidos na rotina de pagamento. É chamado após a exclusão do título na rotina de exclusão individual de títulos e após a exclusão de cada titulo na exclusão do lote de pagamento completo. IMPORTANTE: Este ponto de entrada é chamado após toda a operação de exclusão tiver sido efetuada, ou seja, todas as tabelas envolvidas já tiveram os registros alterados/excluídos e ocorre dentro do controle de transação, ou seja, caso ocorra algum erro fatal, também ocorrerá o rollback das alterações efetuadas nas tabelas pelo ponto de entrada.
 Exemplo: 
 Caso tenha sido criado lançamentos na tabela BGQ (Débitos/Créditos variáveis) no momento da geração do lote de pagamento através de customização via ponto de entrada (Ex.: PLSPAG01), é possível excluí-los através deste ponto de entrada
Exemplo de sua codificação:
 
Suponha que foram gerados lançamentos na tabela BGQ, através de customização, com o código de lançamento '260'
 
User Function PL470EXC()
 
LOCAL cCodRDA := paramixb[1]
LOCAL cAnoLot := paramixb[2] 
LOCAL cMesLot := paramixb[3] 
 
BGQ->(DbSetOrder(4))
BGQ->(msSeek(xFilial('BGQ')+PlsIntPad()+cCodRda+cAnoLot+cMesLot+'260'))
Do While ! BGQ->(Eof()) .And. BGQ->(BGQ_FILIAL+BGQ_CODOPE+BGQ_CODIGO+BGQ_ANO+BGQ_MES+BGQ_CODLAN) == ;
         xFilial('BGQ')+PlsIntPad()+cCodRda+cAnoLot+cMesLot+'260'
 If  BGQ->BGQ_LANAUT == '1'
  RecLock('BGQ', .F.)
  BGQ->(dbDelete())
  BGQ->(msUnlock())
 Endif
 BGQ->(dbSkip())
Enddo
 
Return()

.PRW

PL470EXC - Manipula Arquivos ( < paramixb[1]> , < paramixb[2]> , < paramixb[3]> ) --> Nenhum

Nenhum(nulo)
• Nenhum