Histórico da Página
...
Ponto de entrada que permite manipular as movimentações geradas pela compensação entre carteiras. É chamado após a compensação de todos os títulos.
03. PARÂMETROS
| Posição | Tipo | Descrição |
|---|---|---|
| 1 | Vetor | Vetor contendo os RECNOs da tabela SE5 gerados pela rotina. |
04. RETORNO
Não há.
05. EXEMPLO
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include 'Protheus.ch'
User Function F450SE5()
Local aArray := aClone(ParamIXB) // Array aSE5Recs contendo os RECNO da SE5 envolvidos na compensação
Local nI
Local nReg
DbSelectArea("SE5")
nReg := Recno() // Guarda a atual posição na tabela de Mov. Bancários
For nI := 1 to Len(aArray)
DbGoTo(aArray[nI][2])
If aArray[nI][1] == "P"
MsgInfo("Compensação de título a Pagar. " + chr(10) + chr(13) + ;
"N° do título: " + SE5->E5_NUMERO)
Else
MsgInfo("Compensação a receber. " + chr(10) + chr(13) + ;
"N° do título: " + SE5->E5_NUMERO)
EndIf
next
DbGoTo(nReg) // Posiciona na SE5 na posição inicial
Return nil |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas