Criação do cadastro básico de Redutores

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAJURI

Rotina:

Rotina	Nome Técnico
JURA258	Redutores

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

O0Q - Redutores

Sistema(s) Operacional(is):

Windows

Descrição

Frequentemente é necessário para o cliente cadastrar um percentual para ser aplicado como redutor nos Valores de Contingência (Provável, Possível e Remoto).

São necessário os seguintes filtros:

Assunto Jurídico;
Área;
Percentual Redutor;
Início Vigência;
Final Vigência;

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 requisito 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 Tabela no arquivo SX2 – Tabelas:

Tabela O0Q

Tabela	Modo
O0Q - Redutores	Compartilhado

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

Tabela O0Q

Campo	O0Q_FILIAL
Tipo	Caracter
Tamanho	8
Decimal	0
Título	Filial
Descrição	Filial do Sistema
Usado	Não
Obrigatório	Não
Browse	Não
Contexto	Real
Propriedade	Alterar
Grupo de Campos	033 - Tamanho da Filial
Ordem	01

Campo	O0Q_COD
Tipo	Caracter
Tamanho	5
Decimal	0
Título	Código
Descrição	Código Redutor
Usado	Sim
Obrigatório	Sim
Browse	Sim
Inic. Padrão	GETSXENUM("O0Q", "O0Q_COD")
Contexto	Real
Propriedade	Visualizar
Ordem	02

Campo	O0Q_TIPOAS
Tipo	Caracter
Tamanho	5
Decimal	0
Título	Cod Tp Assu
Descrição	Codigo do tipo de assunto
Usado	Sim
Obrigatório	Não
Browse	Sim
Val. Sistema	Vazio() .OR. ExistCPO("NYB", M->O0Q_TIPOAS, 1)
Contexto	Real
Propriedade	Alterar
Cons. Padrão	NYB
Gatilhos	Sim
Ordem	03

Campo	O0Q_DTIPAS
Tipo	Caracter
Tamanho	40
Decimal	0
Formato	@S15
Título	Assunto Juri
Descrição	Descrição tipo de assunto
Usado	Sim
Obrigatório	Não
Browse	Sim
Inic. Padrão	IF(!INCLUI, Posicione("NYB", 1, xFilial("NYB") + M->O0Q_TIPOAS, "NYB_DESC"), '')
Contexto	Virtual
Propriedade	Visualizar
Inic. Browse	POSICIONE("NYB", 1, XFILIAL("NYB") + O0Q->O0Q_TIPOAS, "NYB_DESC")
Ordem	04

Campo	O0Q_CAREAJ
Tipo	Caracter
Tamanho	5
Decimal	0
Título	Cod Area Jur
Descrição	Código área jurídica
Usado	Sim
Obrigatório	Sim
Browse	Sim
Val. Sistema	Vazio() .OR. JAVLDCAMPO('O0QMASTER', 'O0Q_CAREAJ', 'NRB', 'NRB_ATIVO', '1' ) .AND. JurVldRest('NRB', M->O0Q_CAREAJ)
Contexto	Real
Propriedade	Alterar
Cons. Padrão	NRBJUR
Gatilhos	Sim
Grupo de Campos	112 - Área Jurídica
Ordem	05

Campo	O0Q_DAREAJ
Tipo	Caracter
Tamanho	40
Decimal	0
Formato	@S15
Título	Área
Descrição	Descrição área jurídica
Usado	Sim
Obrigatório	Não
Browse	Sim
Inic. Padrão	IF(!INCLUI, Posicione('NRB', 1, xFilial('NRB') + O0Q->O0Q_CAREAJ, 'NRB_DESC'), JurGatilho('O0Q_CAREAJ', 'NRB', 'NRB_DESC', 'O0QMASTER'))
Contexto	Virtual
Propriedade	Visualizar
Inic. Browse	POSICIONE("NRB", 1, XFILIAL("NRB") + O0Q->O0Q_CAREAJ, "NRB_DESC")
Ordem	06

Campo	O0Q_COBJET
Tipo	Caracter
Tamanho	3
Decimal	0
Título	Cód. Assunto
Descrição	Código do Assunto
Usado	Sim
Obrigatório	Não
Browse	Sim
Val. Sistema	VAZIO() .OR. (ExistCpo('NQ4', M->O0Q_COBJET, 1) .AND. JurVldRest('NQ4', M->O0Q_COBJET))
Contexto	Real
Propriedade	Alterar
Cons. Padrão	NQ4
Gatilhos	Sim
Ordem	07

Campo	O0Q_DOBJET
Tipo	Caracter
Tamanho	100
Decimal	0
Formato	@S15
Título	Assunto
Descrição	Descrição do Assunto
Usado	Sim
Obrigatório	Não
Browse	Sim
Inic. Padrão	IF(!INCLUI, Posicione('NQ4', 1, xFilial('NQ4') + O0Q->O0Q_COBJET, 'NQ4_DESC'), '')
Contexto	Virtual
Propriedade	Visualizar
Inic. Browse	Posicione('NQ4', 1, xFilial('NQ4') + O0Q->O0Q_COBJET, 'NQ4_DESC')
Ordem	08

Campo	O0Q_PERCRE
Tipo	Numérico
Tamanho	5
Decimal	2
Formato	@E 99.99
Título	Perc Redutor
Descrição	Percentual Redutor
Usado	Sim
Obrigatório	Sim
Browse	Sim
Contexto	Real
Propriedade	Alterar
Ordem	09

Campo	O0Q_DTVIGD
Tipo	Data
Tamanho	8
Decimal	0
Título	Vegência De
Descrição	Vegência De
Usado	Sim
Obrigatório	Sim
Browse	Sim
Contexto	Real
Propriedade	Alterar
Ordem	10

Campo	O0Q_DTVIGA
Tipo	Data
Tamanho	8
Decimal	0
Título	Vigência Até
Descrição	Vigência Até
Usado	Sim
Obrigatório	Sim
Browse	Sim
Contexto	Real
Propriedade	Alterar
Ordem	11

Criação de ìndice no arquivo SIX – Índices:

Tabela O0Q

Índice	O0Q
Ordem	1
Chave	O0Q_FILIAL + O0Q_COD
Descrição	Código
Mostra Pesq.	Sim

Índice	O0Q
Ordem	2
Chave	O0Q_FILIAL + O0Q_TIPOAS + O0Q_CAREAJ + O0Q_COBJET
Descrição	Cod Tp Assu + Cod Area Jur + Cód. Assunto
Mostra Pesq.	Sim

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

Tabela O0Q

Campo	O0Q_CAREAJ
Sequência	001
Cnt. Domínio	O0Q_DAREAJ
Tipo	P - Primário
Regra	NRB->NRB_DESC
Posiciona	S
Alias	NRB
Ordem	1
Chave	xFilial('NRB') + M->O0Q_CAREAJ
Propietário	Sim

Campo	O0Q_COBJET
Sequência	001
Cnt. Domínio	O0Q_DOBJET
Tipo	P - Primário
Regra	NQ4->NQ4_DESC
Posiciona	S
Alias	NQ4
Ordem	1
Chave	xFilial('NQ4') + M->O0Q_COBJET
Propietário	Sim

Campo	O0Q_TIPOAS
Sequência	001
Cnt. Domínio	O0Q_DTIPAS
Tipo	P - Primário
Regra	NYB->NYB_DESC
Posiciona	S
Alias	NYB
Ordem	1
Chave	xFilial('NYB') + M->O0Q_TIPOAS
Propietário	Sim

Procedimento para Utilização

No módulo Gestão Jurídica (SIGAJURI), acesse Atualizações /Administrativo/Redutores;
1. Cadastre um novo Redutor clicando no botão Incluir;
2. As informações disponíveis para utilização, tais como, tipo de Assunto Jurídico, Área Jurídica, Assunto, Percentual Redutor e Prazo de Início e Término da aplicação;
3. Confirmar a operação;
Procedimento de Alteração
1. Clique sobre o registro para seleciona-lo;
2. Clique em Alterar;
3. Altere os campos necessários;
4. Para salvar as informações clique em Confirmar;
Procedimento de Exclusão
1. Clique sobre o registro para seleciona-lo;
2. Clique em Outras Ações e depois a opção Excluir;
3. Para excluir as informações clique em Confirmar;

Árvore de páginas

DJURDEP-3741 Cadastro de Redutores

Criação do cadastro básico de Redutores

Características do Requisito

Descrição

Procedimento para Implantação

Procedimento para Utilização