Linha Microsiga Protheus

Árvore de páginas

Tratamento de duplicidades no processo de Conciliação DDA 

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina
Nome Técnico
FINA260
Conciliação DDA - Debito Direto Autorizado. 

Ponto de Entrada:

F260dupl
Requisito (ISSUE):
PCREQ-7787

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) operacional(is):

Todos

Versões/Release:

Todas

Ponto de Entrada

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:

FINA260

Parâmetros

ElementoTipoValor enviado Evento 1Valor enviado Evento 2 Descrição
1Caractere"ONBUILDTRB""AFTERBUILDTRB"Texto identificador do evento
2Caractere cAliasTRBcAliasTRB Alias para a tabela temporária.
3CaractereNumero Sequencial  para tabela TRBNIL ID Sequencial - Equivale ao RecNo
 4NuméricosPonteiro tabela SE2 NIL 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

#Include 'Protheus.ch'

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   

        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