Novos campos na tela de assunto jurídico e objeto

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAJURI

Rotina:

Rotina	Nome Técnico
JURA094	Objetos
JURA095	Assuntos Jurídicos
JURA158	Configuração de Pesquisa
JURA187	Divulgação
JURA198	Fundamento Prognóstico
JURA199	Base da Decisão
JURA212	Causa Raiz

Rotina(s) envolvida(s)	Nome Técnico
TJurPesqAsj	Pesquisa de Assunto Jurídico

Cadastros Iniciais:

JURA187 - Divulgação;
JURA198 - Fundamento Prognóstico;
JURA199 - Base da Decisão;
JURA212 - Causa Raiz

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

O01 - Divulgação;
O02 - Fundamento Prognóstico;
O03 - Base da Decisão;
O04 - Causa Raiz;
O05 - Causas Raízes do Processo;
O06 - Classificação Fundamento;
O07 - Fundamentos do Objeto;
NSZ - Assunto Jurídico;
NSY - Objetos;

Sistema(s) Operacional(is):

Windows

Descrição

Disponibilizados novos cadastros para Justificativa do Prognóstico, Causa Raiz, Base de Decisão e Divulgação, para permitir classificar estas informações.

Estes novos cadastros, podem ser utilizados nas telas de Assuntos Jurídicos, Objetos e nas telas de Pesquisas como filtros.

Procedimento para Implantação

O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.

Aplique o patch do chamado e execute uma vez a rotina UPDDISTR.
Logo após a execução desta rotina é alterado o dicionário de dados da base, conforme especificações abaixo:
Criação de tabelas no arquivo SX2– Tabelas:

Chave (X2_CHAVE)	Nome (X2_NOME)	Modo (X2_MODO)	PYME (X2_PYME)
O01	Divulgação	C	S
O02	Fundamento Prognóstico	C	S
O03	Base da Decisão	C	S
O04	Causa Raiz	C	S
O05	Causas Raízes do Processo	E	S
O06	Classificação Fundamento	C	S
O07	Fundamento do Objeto	E	S

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

Tabela O01 - Divulgação:

Campo	O01_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O01_COD
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Código
Descrição	Código da Divulgação
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Visualizar
Contexto	Real
Val. Sistema	ExistChav("O01", M->O01_COD, 1)
Inicializador Padrão	GetSxeNum("O01", "O01_COD")
Help	Código da Divulgação

Campo	O01_DESC
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Descrição
Descrição	Descrição da Divulgação
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Alterar
Contexto	Real
Help	Descrição da Divulgação

Tabela O02 - Fundamento Prognóstico:

Campo	O02_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O02_COD
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Código
Descrição	Código Fundamento Prognóstico
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Visualizar
Contexto	Real
Val. Sistema	ExistChav("O02", M->O02_COD, 1)
Inicializador Padrão	GetSxeNum("O02", "O02_COD")
Help	Código Fundamento Prognóstico

Campo	O02_DESC
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Descrição
Descrição	Descrição Fundamento Prognóstico
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Alterar
Contexto	Real
Help	Descrição Fundamento Prognóstico

Tabela O03 - Base da Decisão:

Campo	O03_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O03_COD
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Código
Descrição	Código Base Decisão
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Visualizar
Contexto	Real
Val. Sistema	ExistChav("O03", M->O03_COD, 1)
Inicializador Padrão	GetSxeNum("O03", "O03_COD")
Help	Código Base Decisão

Campo	O03_DESC
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Descrição
Descrição	Descrição Base Decisão
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Alterar
Contexto	Real
Help	Descrição Base Decisão

Tabela O04 - Causa Raiz:

Campo	O04_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O04_COD
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Código
Descrição	Código Causa Raiz
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Visualizar
Contexto	Real
Val. Sistema	ExistChav("O04", M->O04_COD, 1)
Inicializador Padrão	GetSxeNum("O04", "O04_COD")
Help	Código Base Decisão

Campo	O04_DESC
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Descrição
Descrição	Descrição Base Decisão
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Alterar
Contexto	Real
Help	Descrição Base Decisão

Tabela O05 - Causas Raízes do Processo:

Campo	O05_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O05_CAJURI
Tipo	Caracter
Tamanho	10
Decimal	0
Título	Cód Ass Juri
Descrição	Código Assunto Jurídico
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Visual	Alterar
Contexto	Real
Val. Sistema	ExistCpo("NSZ", M->O05_CAJURI, 1)
Help	Código Assunto Jurídico

Campo	O05_CCAUSA
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Causa Raiz
Descrição	Causa Raiz do Processo
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Alterar
Contexto	Real
Consulta Padrão	O04
Val. Sistema	ExistCpo("O04", M->O05_CCAUSA, 1) .Or. Vazio()
Help	Código da Causa Raiz do Processo

Campo	O05_DCAUSA
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Desc. Causa
Descrição	Descrição da Causa
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Virtual
Inicializar Padrão	IF(!INCLUI, POSICIONE("O04", 1, XFILIAL("O04") + O05->O05_CCAUSA, "O04_DESC"), "")
Inicializador do Browse	Posicione("O04", 1, xFilial("O04") + O05->O05_CCAUSA, "O04_DESC")
Help	Descrição da Causa

Tabela O06 - Classificação Fundamento:

Campo	O06_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O06_CFUPRO
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Fund. Prognó
Descrição	Fundamento Prognóstico
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Não
Visual	Alterar
Contexto	Real
Val. Sistema	ExistCpo("O02", M->O06_CFUPRO, 1)
Help	Código do Fundamento Prognóstico

Campo	O06_COD
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Cód. Cla Fun
Descrição	Cód Classificação Fundamento
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Real
Val. Sistema	ExistChav("O06", M->O06_COD, 1)
Help	Código da Classificação Fundamento

Campo	O06_DESC
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Des Clas Fun
Descrição	Desc Classificação Fundamento
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Visual	Alterar
Contexto	Real
Help	Descrição Classificação Fundamento

Tabela O07 - Fundamentos do Objeto:

Campo	O07_FILIAL
Tipo	Caracter
Tamanho	2
Decimal	0
Formato	@!
Título	Filial
Descrição	Filial do Sistema
Nível	1
Usado	Não
Obrigatório	Não
Browse	Não
Help	Filial do Sistema.

Campo	O07_COBJET
Tipo	Caracter
Tamanho	10
Decimal	0
Título	Cód Objeto
Descrição	Código do Objeto
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Visual	Alterar
Contexto	Real
Val. Sistema	ExistCpo("NSY", M->O07_COBJET, 2)
Help	Código do Objeto

Campo	O07_CFUPRO
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Fund Prognós
Descrição	Fundamento do Prognóstico
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Alterar
Contexto	Real
Consulta Padrão	O02
Val. Sistema	ExistCpo("O02", M->O07_CFUPRO, 1) .Or. Vazio()
Help	Código Fundamento do Prognóstico

Campo	O07_DFUPRO
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Fundamento
Descrição	Descrição do Fundamento
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Virtual
Inicializar Padrão	IF(!INCLUI, POSICIONE("O02", 1, XFILIAL("O02") + O07->O07_CFUPRO, "O02_DESC"), "")
Inicializador do Browse	Posicione("O02", 1, xFilial("O02") + O07->O07_CFUPRO, "O02_DESC")
Help	Descrição do Fundamento

Campo	O07_CCLFUN
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Cla Fundamen
Descrição	Classificação Fundamento
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Alterar
Contexto	Real
Consulta Padrão	O06
Val. Sistema	ExistCpo("O06", FwFldGet("O07_CFUPRO") + FwFldGet("O07_CCLFUN"), 1) .Or. Vazio()
Help	Código Fundamento do Prognóstico

Campo	O07_DCLFUN
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Classificação
Descrição	Classificação Fundamento
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Virtual
Inicializar Padrão	IF(!INCLUI, POSICIONE("O06", 1, XFILIAL("O06") + O07->O07_CFUPRO + O07->O07_CCLFUN, "O06_DESC"), "")
Inicializador do Browse	Posicione("O06",1,xFilial("O06")+O07->O07_CFUPRO+O07->O07_CCLFUN,"O06_DESC")
Help	Classificação Fundamento

Tabela NSY - Objetos:

Campo	NSY_CBASED
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Base Decisão
Descrição	Código da Base de Decisão
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Visual	Alterar
Contexto	Real
Consulta Padrão	O03
Val. Sistema	ExistCpo("O03", M->NSY_CBASED, 1) .Or. Vazio()
Help	Código da Base de Decisão

Campo	NSY_DBASED
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Des Base Dec
Descrição	Descrição Base de Decisão
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Virtual
Inicializar Padrão	IF(!INCLUI, POSICIONE("O03", 1, XFILIAL("O03") + NSY->NSY_CBASED, "O03_DESC"), "")
Inicializador do Browse	Posicione("O03", 1, xFilial("O03") + NSY->NSY_CBASED, "O03_DESC")
Help	Descrição Base de Decisão

Tabela NSZ - Assuntos Jurídicos:

Campo	NSZ_CDIVUL
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Divulgação
Descrição	Código Divulgação
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Visual	Alterar
Contexto	Real
Agrupamento	002 - Detalhes
Consulta Padrão	O01
Val. Sistema	ExistCpo("O01", M->NSZ_CDIVUL, 1) .Or. Vazio()
Help	Código Divulgação

Campo	NSZ_DDIVUL
Tipo	Caracter
Tamanho	100
Decimal	0
Título	Desc Divulga
Descrição	Descrição Divulgação
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Visual	Visualizar
Contexto	Virtual
Agrupamento	002 - Detalhes
Inicializar Padrão	IF(!INCLUI, POSICIONE("O01", 1, XFILIAL("O01") + NSZ->NSZ_CDIVUL, "O01_DESC"), "")
Inicializador do Browse	Posicione("O01", 1, xFilial("O01") + NSZ->NSZ_CDIVUL, "O01_DESC")
Help	Descrição Divulgação

Criação de Gatilhos no arquivo SX7 – Gatilhos:

Campo	NSY_CBASED
Sequência	001
Campo Domínio	NSY_DBASED
Tipo	Primário
Regra	O03->O03_DESC
Posiciona?	Sim
Alias	O03
Chave	xFilial("O03") + FwFldGet("NSY_CBASED")

Campo	NSZ_CDIVUL
Sequência	001
Campo Domínio	NSZ_DDIVUL
Tipo	Primário
Regra	O01->O01_DESC
Posiciona?	Sim
Alias	O01
Chave	xFilial("O01") + FwFldGet("NSZ_CDIVUL")

Campo	O05_CCAUSA
Sequência	001
Campo Domínio	O05_DCAUSA
Tipo	Primário
Regra	O04->O04_DESC
Posiciona?	Sim
Alias	O04
Chave	xFilial("O04") + FwFldGet("O05_CCAUSA")

Campo	O07_CCLFUN
Sequência	001
Campo Domínio	O07_DCLFUN
Tipo	Primário
Regra	O06->O06_DESC
Posiciona?	Sim
Alias	O06
Chave	xFilial("O06") + FwFldGet("O07_CFUPRO") + FwFldGet("O07_CCLFUN")

Campo	O07_CFUPRO
Sequência	001
Campo Domínio	O07_DFUPRO
Tipo	Primário
Regra	O02->O02_DESC
Posiciona?	Sim
Alias	O02
Chave	xFilial("O02") + FwFldGet("O07_CFUPRO")

Campo	O07_CFUPRO
Sequência	002
Campo Domínio	O07_CCLFUN
Tipo	Primário
Regra	""
Posiciona?	Não

Campo	O07_CFUPRO
Sequência	003
Campo Domínio	O07_DCLFUN
Tipo	Primário
Regra	""
Posiciona?	Não

Consulta Padrão no arquivo SXB – Consulta Padrão:
Pesquisa Específica O01:

Consulta	O01
Descrição	Divulgação
Tabela	O01 - Divulgação
Expressão	JURSXB("O01", "O01", {"O01_COD", "O01_DESC"}, .T., .T.)
Retorno	O01->O01_COD

Pesquisa Específica O02:

Consulta	O02
Descrição	Fundamento Prognosti
Tabela	O02 - Fundamento Prognóstico
Expressão	JURSXB("O02", "O02", {"O02_COD", "O02_DESC"}, .T., .F.)
Retorno	O02->O02_COD

Pesquisa Específica O03:

Consulta	O03
Descrição	Fundamento Prognosti
Tabela	O03 - Base de Decisão
Expressão	JURSXB("O03", "O03", {"O03_COD", "O03_DESC"}, .T., .T.)
Retorno	O03->O03_COD

Pesquisa Específica O04:

Consulta	O04
Descrição	Causa Raiz
Tabela	O04 - Causa Raiz
Expressão	JURSXB("O04", "O04", {"O04_COD", "O04_DESC"}, .T., .T.)
Retorno	O04->O04_COD

Pesquisa Especifica O06:

Consulta	O06
Descrição	Classificação Fundam
Tabela	O06 - Classificação Fundam
Expressão	JURSXB("O06", "O06", {"O06_COD", "O06_DESC"}, .T., .F., "O06_CFUPRO = '" + FwFldGet('O07_CFUPRO') + "'")
Retorno	O06->O06_COD

Relacionamento no arquivo SX9 – Relacionamento:
X9_DOM
NSZ
X9_IDENT
001
X9_CDOM
O05
X9_EXPDOM
NSZ_COD
X9_EXPCDOM
O05_CAJURI

Procedimento para Configuração

CONFIGURAÇÃO DE MENUS

No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013) e informe as novas opções de menu do SIGAJURI, conforme instruções a seguir:

Menu	Atualizações
Submenu	Jurídico
Submenu	Assuntos Jurídicos
Nome da Rotina	Divulgação
Programa	JURA187
Módulo	Todos
Tipo	1 - Protheus

Menu	Atualizações
Submenu	Jurídico
Submenu	Assuntos Jurídicos
Nome da Rotina	Fundamento Prognóstico
Programa	JURA198
Módulo	Todos
Tipo	1 - Protheus

Menu	Atualizações
Submenu	Jurídico
Submenu	Assuntos Jurídicos
Nome da Rotina	Base da Decisão
Programa	JURA199
Módulo	Todos
Tipo	1 - Protheus

Menu	Atualizações
Submenu	Jurídico
Submenu	Assuntos Jurídicos
Nome da Rotina	Causa Raiz
Programa	JURA212
Módulo	Todos
Tipo	1 - Protheus

Procedimento para Utilização

No Gestão Jurídica (SIGAJURI), acesse Atualizações / Configuração/ Pesquisa (JURA163) e visualize a janela de configuração de pesquisas;
Posicione o cursor em uma das pesquisas e clique em Alterar;
Na aba Grids, inclua a tabela O05 e na aba Campos inclua os campos a seguir informados a seguir.
Para concluir clique em Confirmar.

O05_CCAUSA;
O05_DCAUSA;
NSZ_CDIVUL;
NSZ_DDIVUL;

5.Ainda no módulo Gestão Jurídica, acesse Atualizações / Jurídico / Assuntos Jurídicos e efetue cadastros nas rotinas a seguir:

Divulgação (JURA187);
Causa Raiz (JURA212);
Base Decisão (JURA199);
Fundamento do Prognóstico (JURA198);

6. Acesse Atualizações / Assuntos Jurídicos / Pesquisas (JURA095), para utilizar os itens cadastrados acima;

7. O sistema apresenta a janela de Pesquisa de Processos. Selecione o tipo de pesquisa onde foi cadastrada a tabela O05, preencha os filtros desejados e clique em Pesquisar;

8. Selecione o processo desejado e clique em Alterar;

9. Visualize a tela com os dados do processo. Siga até o agrupamento Detalhes e preencha o campo Divulgação;

10. Localize ao final da página o grid Causas Raízes, preencha os campos com as Causas Raízes do processo;

11. Acesse a opção Outras Ações / Objetos, nesta tela veja os valores do pedido, clique em Incluir;

12. Preencha as informações necessárias para incluir o.objeto e visualize o campo Base Decisão. Preencha-o com alguma das Bases de Decisão cadastradas;

13. Mais abaixo na mesma tela, veja o grid para informar os Fundamentos do Objeto;

14. Após informar o Objeto clique em Confirmar, para salvá-lo;

15.Volte a tela do Processo e clique em Confirmar, para salvar;

X9_DOM	NSZ
X9_IDENT	001
X9_CDOM	O05
X9_EXPDOM	NSZ_COD
X9_EXPCDOM	O05_CAJURI

Árvore de páginas

MJUR-304 DT Novos campos na tela de Assunto Jurídico e Objeto