Histórico da Página

...

Descrição:

Permite acesso ao processamento de conciliados DDA.

Eventos:

1 - Geração da tabela temporária TRB - Inclusão de registros provenientes da tabela SE2 - Contas a Pagar.

2 - Ao final da criação da tabela temporária TRB.

Programa Fonte:

FINA260

Função:

FINA050

Elemento	Tipo	Descrição
1	Caractere	Identificador do evento
2	Caractere	Alias para a tabela temporária.
3	Caractere	ID Sequencial - Equivale ao RecNo
4	Numéricos	Ponteiro para o registro da tabela SE2 - Contas a Pagar.

Retorno:

Obs.: Considerado apenas para o Evento 1.

Lógico, sendo:

(.T.) - Registro é duplicidade.

(.F.) - O Registro Não é Duplicidade.

Exemplo

User Function F260DUPL()

LOCAL cModo := ParamIXB[1]

LOCAL lRet := .T.

If cModo == 'ONBUILDTRB'

MsgInfo('Neste modo a tabela TRB está sendo montada.' + CHR(10)+CHR(13)+;

'O ponto de entrada recebe:' + CHR(10)+CHR(13)+;

' - Alias para a tabela TRB: [' + PARAMIXB[2] +']' + CHR(10)+CHR(13)+;

' - O ponteiro (RECNO()) para o registro atual da tabela TRB: [' + PARAMIXB[3] + ']' + CHR(10)+CHR(13)+;

' - O ponteiro (RECNO()) para o registro identificado como duplicidade na tabela SE2: [' + ALLTRIM(STR(PARAMIXB[4])) + ']',;

'EXECUÇÃO DO PONTO DE ENTRADA: F260DUPL - MODO ['+ ParamIXB[1] + ']')

Else Else

MsgInfo('Neste modo a tabela TRB estará totalmente montada.' + CHR(10)+CHR(13)+;

'O ponto de entrada recebe:' + CHR(10)+CHR(13)+;

' - Alias para a tabela TRB','EXECUÇÃO DO PONTO DE ENTRADA: F260DUPL - MODO ['+ ParamIXB[1] + ']')

EndIf

Return lRet

Árvore de páginas