Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (norbertom)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (norbertom)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina
Nome Técnico
FINA040
Manutenção Contas a Receber. 

Ponto de Entrada:

F260duplF04MONTDD
Requisito (ISSUE):
PCREQMSERV-7787971

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 DDAAssume a validação dos dados para montagem de parcelamento. 

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
Validação de preenchimento do Campo Desdobramento (E1_DESDOBR) com o Valor Sim.

Programa Fonte:

FINA260FINA040

Função:

FINA050

F040Dsdobr

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.

Nenhum

Retorno:

Retorno:

Obs.: Considerado apenas para o Evento 1. 

Lógico, sendo:

(.T.) - Registro é duplicidadeAs regras para o desdobramento foram tratadas e validadas. Não será necessário exibir a janela do padrão.

(.F.) - O Registro Não é DuplicidadeExibir a janela de preenchimento do padrão.

Exemplo

#Include

'Protheus.ch'

User Function

F260DUPL

F04MONTDD()

LOCAL

cModo := ParamIXB[1]LOCAL lRet

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

lRet  := MsgYesNo("Deseja Validar o parcelamento? Em caso positivo a janela de parcelamento não será exibida",;

"Execução do Ponto de Entrada: F04MONTDD")

Return lRet 

Return lRet