Histórico da Página

O ponto de entrada PL628GR foi criado para que o usuário implemente alguma customização na gravação do intercâmbio.Sua chamada ocorre após a gravação da tabela BTO ( Itens Intercâmbio Eventual ) durante a execução da rotina A628Grava que grava os títulos por operadora.

PLSA628.PRW

PL628GR - Gravação do intercâmbio ( [ ] ) --> NIL

NIL(nulo)

No momento da chamada do ponto PL628GR o sistema acabou de dar o MsUnLock() do registro da tabela BTO que foi incluído.
A tabela está posicionada no registro que acabou de ser inserido e o usuário poderá implementar suas customizações como acréscimo ou desconto para cada item do intercâmbio.

User Function PL628GR()Local nRec := BTO->(Recno())Local nTitulo := BTO->BTO_NUMTIT Local nOpOri   :=BTO->BTO_OPEORI  //Customizações do usuárioBTO->(RecLock("BTO",.F.))BTO->BTO_VLRCOP := BTO->BTO_VLRCOP + 10 BTO->(MsUnLock())Return Nil