Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Ajustes na rotina de acelerador para configuração de campos e pesquisas - Contratos

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

Gestão Jurídica (SIGAJURI)

Rotina:

Rotina

Nome Técnico

JURA062

Informe o nome técnico da rotina.

JURA095Assuntos Jurídicos
JURA095_VFunções de validação de assuntos jurídicos
JURXLOADCarrega informações iniciais do SIGAJURI
RUP_JURIFunção para compatibilização do release incremental
TJURPESQUISAClasses da rotina de pesquisa

País(es):

TODOS

Banco(s) de Dados:

TODOS

Tabelas Utilizadas:

NSZ - Assuntos Jurídicos

NT4 - Andamento

NT9 - Envolvidos

NTA - Follow-ups

NUZ - Tipo Assunto Jurídico / Campos

NXY - Aditivos

NYB - Tipos de Assuntos Jurídicos

Sistema(s) Operacional(is):

TODOS

Versões/Release:

12.1.7

Versão Corrigida:12.1.7
Versão Expedida:12.1.7 - Fevereiro/2016

Descrição

Reestruturação do perfil de contratos para melhorar a rotina aceleradores, que é responsável por criar automaticamente os perfis de assuntos jurídicos. Para isso foram adicionados novos campos para que o usuário tenha acesso a eles sem a necessidade de nenhuma configuração. Houve também a alteração nos títulos de alguns campos para permitir uma melhor experiência, facilitando o trabalho do usuário. 

 

 

Atualizações do Compatibilizador

1.  Criação de Campos no arquivo SX3 – Campos:

  • Tabela BGD - Prod x Cob x Proc x Co-PartNSZ - Assuntos Jurídicos:

 

Campo

(X3NSZ_CAMPO)DTCONT

Tipo

(X3_TIPO)

Tamanho

(X3_TAMANHO)

Decimal

(X3_DECIMAL)

Formato

(X3_PICTURE)

Título

(X3_TITULO)

Descrição

(X3_DESCRIC)

Nível

(X3_NÍVEL)

Usado

(X3_USADO) Informe Sim ou Não

Obrigatório

(X3_OBRIGAT) Informe Sim ou Não

Browse

(X3_BROWSE) Informe Sim ou Não

Opções

(X3_CBOX)

When

(X3_WHEN)

Relação

(X3_RELACAO)

Val. Sistema

(X3_VALID)

Help

Descreva o conteúdo informado para Help de Campo no ATUSX

 

Data

OrdemM7

Tamanho

8

Decimal

0

Título

Dt Contrato 

Descrição

Data do valor do contrato

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Val. Sistema

VAZIO() .OR. VlDtMoeda({M->NSZ_DTCONT, M->NSZ_CMOCON})

Agrupamento003

Help

Data do valor do contrato

Campo

NSZ_CMOCON

Tipo

Caractere

OrdemM8

Tamanho

2

Decimal

0

Título

Cód Moed Con

Descrição

Cód Moeda Valor Contrato 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Val. Sistema

Vazio() .OR. JAVLDCAMPO('NSZMASTER', 'NSZ_CMOCON', 'CTO', 'CTO_BLOQ', '2', {M->NSZ_DTCONT, M->NSZ_CMOCON} )

Agrupamento003
Help

Código da Moeda do Valor do Contrato

Cons. PadrãoJURCTO

Campo

NSZ_DMOCON

Tipo

Caractere

OrdemM9

Tamanho

10

Decimal

0

Título

Moeda Contr 

Descrição

Moeda Valor do Contrato  

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Relação

IF(!INCLUI,POSICIONE('CTO',1,XFILIAL('CTO')+NSZ->NSZ_CMOCON,'CTO_SIMB'),'')

Help

Moeda do valor do contrato

Campo

NSZ_VACONT

Tipo

Numérico

OrdemN1

Tamanho

12

Decimal

2

Formato

@E 999,999,999.99                            

Título

Vlr Cont Atu

Descrição

Valor contrato Atualizado

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Valor do contrato Atualizado

  • Tabela NXY - Aditivos:

Campo

NXY_CFCORR

Tipo

Caractere

Tamanho

2

Decimal

0

Título

F. Correção 

Descrição

Código forma de correção 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Val. Sistema

Vazio().OR.(ExistCpo('NW7',M->NXY_CFCORR,1).And.JurValNW7(M->NXY_CFCORR)) 

Help

Código da forma de correção

Cons. PadrãoNW7 - Formas de correção

Campo

NXY_DFCORR

Tipo

Caractere

Tamanho

10

Decimal

0

Título

Descrição

Descrição

Descrição forma correção 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Relação

 IF(!INCLUI,POSICIONE('NW7',1,XFILIAL('NW7')+NXY->NXY_CFCORR,'NW7_DESC'),'')

Help

Descrição da forma de correção monetária

Campo

NXY_DTVLAD

Tipo

Data

Tamanho

8

Decimal

0

Título

Data Valor  

Descrição

Data do valor do aditivo 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Val. Sistema

VAZIO() .OR. VlDtMoeda({M->NXY_DTVLAD, M->NXY_CMOADI})

Help

Data do valor do aditivo 

Campo

NXY_CMOADI

Tipo

Caractere

Tamanho

2

Decimal

0

Título

Cód Moed Adi

Descrição

Cód Moeda Valor Aditivo  

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Val. Sistema

Vazio().OR.(ExistCpo('CTO',M->NXY_CMOADI,1).AND.(JAVLDCAMPO('NXYDETAIL', 'NXY_CMOADI', 'CTO', 'CTO_BLOQ', '2' )))

Help

Código da moeda usada para o valor do aditivo

Cons. PadrãoJURCTO - Moedas do Jurídico

Campo

NXY_DMOADI

Tipo

Caractere

Tamanho

10

Decimal

0

Formato

 @S10

Título

Moeda Aditiv

Descrição

Moeda do Valor do Aditivo

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Relação

IF(!INCLUI,POSICIONE('CTO',1,XFILIAL('CTO')+NXY->NXY_CMOADI,'CTO_SIMB'),'')

Help

Moeda usada no valor do aditivo

Campo

NXY_VLADIT

Tipo

Numérico

Tamanho

12

Decimal

2

Formato

@E 999,999,999.99

Título

Vlr Aditivo 

Descrição

Valor do Aditivo         

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Valor do Aditivo

Campo

NXY_VAADIT

Tipo

Numérico

Tamanho

12

Decimal

2

Formato

@E 999,999,999.99

Título

Vlr Adit Atu

Descrição

Valor Aditivo Atualizado 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Valor do aditivo atualizado

Campo

NXY_DTINVI

Tipo

Data

Tamanho

8

Decimal

0

Título

Ini Vigência

Descrição

Data início da vigência  

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Data de início da vigência

Campo

NXY_DTTMVI

Tipo

Data

Tamanho

8

Decimal

0

Título

Fim Vigência

Descrição

Data término da vigência 

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Data término da vigência

Campo

NXY_DTULAT

Tipo

Data

Tamanho

8

Decimal

0

Título

Data Últ Atu

Descrição

Data Última Atualização  

Nível

0

Usado

Sim

Obrigatório

Não

Browse

Não

Help

Data da Última Atualização (Correção Monetária)

          2. Alteração de Campos no arquivo SX3 – Campos:

  • Tabela NSZ - Assuntos Jurídicos 

Campo

NSZ_DTADIT

Título

Dt Assinatur

Campo

NSZ_CAREAJ

Relação

IF( (ISINCALLSTACK( 'JA095INC' ) .AND. INCLUI) , CCODAREA, IF(INCLUI,J095AREAC(),''))

Campo

NSZ_VLCONT

Ordem

N0

Agrupamento

003

Campo

NSZ_MULCON

Ordem

N2

Agrupamento003

Campo

NSZ_CCPCON

Ordem

N3

Agrupamento003

Campo

NSZ_DCPCON

Ordem

N4

Agrupamento003

 

7.  Criação ou Alteração de 3.  Criação de Parâmetros no arquivo SX6 – Parâmetros:

Nome da Variável

(X6MV_VAR)JAREAC

Tipo

(X6_TIPO)Caractere

Descrição

(X6_DESCRIC + X6_DESC1 + X6_DESC2)

Valor Padrão

(X6_CONTEUD)

 

Código da Área que será indicada no campo NSZ_CAREAJ quando o assunto jurídico for do tipo Contratos 

4.  Criação de 8.  Criação ou Alteração (mantenha somente a instrução correspondente) de Gatilhos no arquivo SX7 – Gatilhos:

  • Tabela BD5 – Contas MédicasNSZ - Assuntos Jurídicos:

Campo

Informe o conteúdo do (X7_CAMPO)

Sequência

Informe o conteúdo do (X7_SEQUENC)

Campo Domínio

Informe o conteúdo do (X7_CDOMIN)

Tipo

Informe o conteúdo do (X7_TIPO)

Regra

Informe o conteúdo do (X7_REGRA)

Posiciona?

Informe o conteúdo do (X7_SEEK)

Chave

Informe o conteúdo do (X7_CHAVE)

Condição

Informe o conteúdo do (X7_CONDIC)

Proprietário

Informe o conteúdo do (X7_PROPRI)

 

 

NSZ_CMOCON

Sequência

001

Campo Domínio

NSZ_DMOCON

Tipo

Primário

Regra

CTO->CTO_SIMB

Posiciona?

SIM

AliasCTO
Ordem1

Chave

xFilial('CTO')+M->NSZ_CMOCON 

  • Tabela NXY - Aditivos:

Campo

NXY_CFCORR

Sequência

001

Campo Domínio

NXY_DFCORR

Tipo

Primário

Regra

NW7->NW7_DESC

Posiciona?

SIM

AliasNW7
Ordem1

Chave

xFilial('NW7')+M->NXY_CFCORR

Campo

NXY_CMOADI

Sequência

001

Campo Domínio

NXY_DMOADI

Tipo

Primário

Regra

CTO->CTO_SIMB

Posiciona?

SIM

AliasCTO
Ordem1

Chave

xFilial('CTO')+M->NXY_CMOADI

Procedimento para Configuração

Procedimento para Configuração

(Estes procedimentos devem ser feitos quando for necessário configurar parâmetros e/ou  rotinas no menu).

 


CONFIGURAÇÃO DE PARÂMETROS

 

  1. No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Crie/configure (mantenha somente a instrução correspondente) Configure o(s) parâmetro(s) a seguir:(É necessário criar uma tabela para cada parâmetro descrito no item Parâmetro(s), da tabela Características do Requisito)

Itens/Pastas

Descrição

Nome: 

MV_JAREAC

Tipo:Informe o Tipo do parâmetro

Caractere

Cont. Por.:

Informe o Conteúdo padrão00001

Descrição:

 

 

CONFIGURAÇÃO DE MENUS

 

2.  No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do informe o nome do módulo, conforme instruções a seguir:

Menu

Informe o Menu em que estará localizada a rotina

Submenu

Informe o Submenu em que estará localizada a rotina

Nome da Rotina

Informe o Título da rotina

Programa

Informe o Fonte da rotina

Módulo

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Tipo

Informe a Função

 

 

Procedimento para Utilização

  • Descreva os procedimentos, passo a passo (caso de uso), que serão realizados pelos usuários para que a melhoria seja visualizada identificando as seguintes informações:
  • Localização da rotina no menu;
  • Localização dos novos campos e/ou perguntas e respectivas pastas de cadastro que são visualizadas pelo usuário;
  • Caso seja necessário ter algum cadastro feito previamente, faça uma observação.

 

 

Exemplo:

       1.            No Plano de Saúde (SIGAPLS), acesse Atualizações / Produto Saúde / Produto Saúde (PLSA800).

O sistema apresenta a janela de produtos cadastrados.

       2.            Posicione o cursor em um produto e clique em Alterar.

       3.            Na pasta Cobertura/Carências selecione a subpasta Tipo de Prestador.

       4.            Dê duplo clique no campo TP Prestador (BCW_TIPPRE).

O sistema apresenta a janela Tipo de Prestador – Coparticipação – Alterar.

       5.            Informe os dados conforme orientação do help de campo e observe o preenchimento do novo campo:

                      Som. p/Compra (BCW_SOMCOM): selecione Sim para indicar se a coparticipação cadastrada será válida somente para efeito de compra de procedimentos ou Não, caso contrário.

       6.            Confira os dados e confirme.

 

 

Vídeo

  • Vídeo hospedado no youtube e inserido no template por meio da macro Widget Connector.

** Canal do youtube e software de vídeoem definição.

 

Título do Vídeo:

Disponibilizado pelo Marketing.

Introdução:

Disponibilizado pelo Marketing.

Passo a Passo:

Capturar diretamente do sistema.

Finalização:

Disponibilizado pelo Marketing.

 

 

Código da Área que será indicada no campo NSZ_CAREAJ quando o assunto jurídico for do tipo Contratos 

Procedimento para Utilização

OBS: Para que a funcionalidade Aceleradores seja executada é necessário que não exista nenhum tipo de assunto jurídico (perfis) cadastrado.

  1. No Gestão Jurídica (SIGAJURI), acesse Atualizações / Configurações / Pesquisa (JURA163).
    1. O sistema executará os aceleradores e criará os perfis padronizados e suas configurações.
  2. Selecione o perfil contratos e clique no botão Alterar.
  3. Selecione a aba Parâmetros.
    1. Veja que existe o parâmetro MV_JAREAC com conteúdo em branco. O conteúdo indicado nesse parâmetro será indicado automaticamente no campo Área Jurídica no momento da criação de um assunto jurídico do tipo Contratos.
    2. Indique no campo Conteúdo o valor 00002 (exemplo).
    3. No exemplo de preenchimento desse parâmetro no Configurador indicamos o valor 00001 (apenas um exemplo, pois esse conteúdo pode variar).
  4. No Gestão Jurídica (SIGAJURI), acesse Atualizações / Correção Monetária / Valores Atualizáveis (JURA062);
  5. Pressione o botão Outras Ações e selecione a opção Config. Inicial;
    1. Esta opção fará a criação de dois novos registros Responsáveis pela configuração de atualização dos novos valores de Contratos e valores do Aditivo;
  6. No Gestão Jurídica (SIGAJURI), acesse Atualizações / Assuntos Jurídicos / Pesquisa (JURA162);
  7. Selecione uma pesquisa que seja do tipo Contratos e pressione o botão Incluir
    1. Veja que o campo Área Jurídica já está preenchido com o valor 00002. Esse valor é referente ao que indicamos na configuração do assunto jurídico Contratos, na aba de parâmetros;
    2. Para que seja usado o valor informado no parâmetro no Configurador (00001) é necessário excluir esse parâmetro na configuração do assunto jurídico Contratos, na aba de parâmetros;
  8. Veja que os campos listados nas Atualizações do Compatibilizador estão sendo exibidos já com seus títulos alterados;
    1. Alguns campos foram apenas adicionados ao acelerador para que fossem exibidos nesta tela sem a necessidade de configurações;
    2. Outros campos foram criados e já adicionados ao acelerador para que fossem exibidos nesta tela sem a necessidade de configurações;
  9. Preencha os campos e confirme a criação.
  10. Volte a tela de Pesquisa (JURA162)
  11. Selecione uma pesquisa que seja do tipo Contratos e pressione o botão Pesquisar;
    1. Serão listados os assuntos jurídicos filtrados;
  12. Selecione algum assunto jurídico e pressione o botão Alterar;
  13. Serão exibidos os dados desse assunto (JURA095);
  14. Acesse a opção Outras Ações no menu superior;
  15. Selecione a opção Andamentos (JURA100);
  16. Clique em Incluir;
  17. Veja que existem campos não obrigatórios que são exibidos na tela;
    1. Estes campos foram adicionados por meio dos aceleradores;
  18. Volte a tela do assunto jurídico;
  19. Acesse a opção Outras Ações no menu superior;
  20. Selecione a opção Follow-ups (JURA106);
  21. Clique em Incluir;
  22. Veja que existem campos não obrigatórios que são exibidos na tela;
    1. Estes campos foram adicionados por meio dos aceleradores;

Ponto de Entrada

Descrição:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab