Árvore de páginas

 Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico.                                                             

  

Informações Gerais

 

Especificação

Produto

Protheus

Módulo

Plano de Saúde

Segmento Executor

Inovação Saúde

Chamado

TUAZUT

Release de Entrega Planejada

12.1.7

Réplica

 

País

( X ) Brasil  (  ) Argentina  (  ) Mexico  (  ) Chile  (  ) Paraguai  (  ) Equador

(  ) USA  (  ) Colombia   (  ) Outro _____________.

Objetivo

O objetivo dessa alteração é permitir que seja feita a contabilização da Contribuição da Patrocinadora. Para tanto serão criados dois campos para informar as contas contábeis de crédito e débito da Patrocinadora.

Definição da Regra de Negócio

1. Deverão ser criados os seguintes componentes no Dicionário de Dados:

 

CAMPOS TABELA BAZ (CTB PLS - FATURAMENTO)


Campo

BAZ_CPATCR

Tipo

Caracter

Tamanho

20

Decimal

0

Título

Cta.Cr.Patro

Descrição

Conta Crédito da Patroc.

Usado

Sim

Obrigatório

Não

Browse

Sim

Contexto

Real

Propriedade

Alterar

Pasta3 - Contas Credito
Grupo de Campos003
Val. SistemaExistCpo('CT1') .or. Vazio()
Consulta PadrãoCT1 - Contas Contabeis

Help

Conta Crédito da Patrocinadora


Campo

BAZ_DPATCR

Tipo

Caracter

Tamanho

60

Decimal

0

Título

Descricao

Descrição

Descricao

Usado

Sim

Obrigatório

Não

Browse

Sim

Contexto

Virtual

Propriedade

Visualizar

Pasta3 - Contas Credito
Inic. PadrãoIIF(INCLUI,'',POSICIONE('CT1',1,XFILIAL('CT1')+BAZ->BAZ_CPATCR,'CT1_DESC01'))
Inic. BrowsePosicione('CT1',1,xFilial('CT1')+BAZ->BAZ_CPATCR,'CT1_DESC01')

Help

Descrição da Conta Crédito da Patrocinadora.

Campo

BAZ_CPATDB

Tipo

Caracter

Tamanho

20

Decimal

0

Título

Cta.Db.Patro

Descrição

Conta Débito da Patroc.

Usado

Sim

Obrigatório

Não

Browse

Sim

Contexto

Real

Propriedade

Alterar

Pasta2 - Contas Debito
Grupo de Campos003
Val. SistemaExistCpo('CT1') .or. Vazio()
Consulta PadrãoCT1 - Contas Contabeis

Help

Conta Débito da Patrocinadora


Campo

BAZ_DPATDB

Tipo

Caracter

Tamanho

60

Decimal

0

Título

Descricao

Descrição

Descricao

Usado

Sim

Obrigatório

Não

Browse

Sim

Contexto

Virtual

Propriedade

Visualizar

Pasta2 - Contas Debito
Inic. PadrãoIIF(INCLUI,'',POSICIONE('CT1',1,XFILIAL('CT1')+BAZ->BAZ_CPATDB,'CT1_DESC01'))
Inic. BrowsePosicione('CT1',1,xFilial('CT1')+BAZ->BAZ_CPATDB,'CT1_DESC01')

Help

Descrição da Conta Débito da Patrocinadora.

 

GATILHOS DOS CAMPOS DA TABELA BAZ (CTB PLS - FATURAMENTO)

 

Campo

BAZ_CPATDB

Sequência

001

Cnt. Dominio

BAZ_DPATDB

Tipo

1 - Primário

Regra

CT1->CT1_DESC01

Posiciona

1 - Sim

Alias

CT1

Ordem

1

Chave

XFILIAL('CT1')+M->BAZ_CPATDB

Campo

BAZ_CPATCR

Sequência

001

Cnt. Dominio

BAZ_DPATCR

Tipo

1 - Primário

Regra

CT1->CT1_DESC01

Posiciona

1 - Sim

Alias

CT1

Ordem

1

Chave

XFILIAL('CT1')+M->BAZ_CPATCR

 

 

A rotina PLSCTP05 deverá ser alterada para retornar os novos campos. Por esse motivo, deverá ser criada uma nova opção (R - Patrocinadora) para o parâmetro cTipLct (Tipo de Lançamento) da rotina.

Hoje os valores possíveis para o parâmetro cTipLct são: I-Inclusão / C-Cancelamento / P-Provisão, após a alteração o parâmetro deverá possuir as seguintes opções: I-Inclusão / C-Cancelamento / P-Provisão / R-Patrocinadora.

Dentro da rotina PLSCTP05 existe um tratamento para retornar os campos de conta de crédito e débito de acordo com a natureza do lançamento (cNatLct) e o tipo de lançamento (cTipLct), esse tratamento deverá ser alterado para que considere as seguintes combinações:

            - Se o parâmetro cNatLct estiver com o valor 'D' (Débito) e o parâmetro cTipLct estiver com o valor 'R' (Patrocinadora) deverá ser retornado o campo BAZ->BAZ_CPATDB.

            - Se o parâmetro cNatLct estiver com o valor 'C' (Crédito) e o parâmetro cTipLct estiver com o valor 'R' (Patrocinadora) deverá ser retornado o campo BAZ->BAZ_CPATCR.

 

Exemplo de retorno:

 

Conta de Débito


cRet := IIf(Empty(BAZ->BAZ_CPATDB), 'C->'+cBusca, BAZ->BAZ_CPATDB )


Conta de Crédito


cRet := IIf(Empty(BAZ->BAZ_CPATCR), 'C->'+cBusca, BAZ->BAZ_CPATCR)


 

 

 

 

 

 

 Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico.