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 |
Pasta | 3 - Contas Credito |
Grupo de Campos | 003 |
Val. Sistema | ExistCpo('CT1') .or. Vazio() |
Consulta Padrão | CT1 - 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 |
Pasta | 3 - Contas Credito |
Inic. Padrão | IIF(INCLUI,'',POSICIONE('CT1',1,XFILIAL('CT1')+BAZ->BAZ_CPATCR,'CT1_DESC01')) |
Inic. Browse | Posicione('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 |
Pasta | 2 - Contas Debito |
Grupo de Campos | 003 |
Val. Sistema | ExistCpo('CT1') .or. Vazio() |
Consulta Padrão | CT1 - 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 |
Pasta | 2 - Contas Debito |
Inic. Padrão | IIF(INCLUI,'',POSICIONE('CT1',1,XFILIAL('CT1')+BAZ->BAZ_CPATDB,'CT1_DESC01')) |
Inic. Browse | Posicione('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. |
---|