Criação do cadastro de Exceção do Tipo de Despesa por Escritório

Características do Requisito

Descrição

Criação do grid de Exceção Tipo de Despesa no cadastro de Escritório (JURA068), de forma a possibilitar que um tipo de despesa definido como Reembolso ou Honorário, seja configurado diferente em um escritório específico.

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:

Atualizações do Compatibilizador

1. Criação de tabela no arquivo SX2 - Tabelas:

   Chave	Nome	Modo
   OHJ	Exceção Tipo de Despesa	Compartilhado

   
   
   

2. Criação de campos no arquivo SX3 – Dicionário de Dados:

   Tabela OHJ - Exceções Tipo de Despesa

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

    

   Campo	OHJ_COD
   Tipo	Caracter
   Tamanho	5
   Decimal	0
   Título	Cód. Escrit.
   Descrição	Código Escritório
   Usado	Sim
   Obrigatório	Não
   Browse	Sim
   Val. Sistema	Vazio() .OR. (ExistCpo('NS7', M->OHJ_COD, 1))
   Contexto	Real
   Propriedade	Alterar
   Cons. Padrão	NS7
   Grupo de Campos	098 - Escritório
   Ordem	02

    

   Campo	OHJ_DESCR
   Tipo	Caracter
   Tamanho	100
   Decimal	0
   Formato	@S15
   Título	Des. Escrit.
   Descrição	Desc Escritório a Faturar
   Usado	Sim
   Obrigatório	Não
   Browse	Sim
   Inic. Padrão	IF(!INCLUI, Posicione("NS7", 1, xFilial("NS7") + OHJ->OHJ_COD, "NS7_NOME"), '')
   Contexto	Virtual
   Propriedade	Visualizar
   Inic. Browse	POSICIONE("NS7", 1, XFILIAL("NS7") + OHJ->OHJ_COD, "NS7_NOME")
   Ordem	03

    

   Campo	OHJ_CTPDP
   Tipo	Caracter
   Tamanho	4
   Decimal	0
   Título	Tipo Despesa
   Descrição	Código Tipo Despesa
   Usado	Sim
   Obrigatório	Sim
   Browse	Sim
   Val. Sistema	Vazio() .OR. JurVlTpDp(FwFldGet("OHJ_CTPDP"))
   Contexto	Real
   Propriedade	Alterar
   Cons. Padrão	NRH
   Gatilhos	Sim
   Ordem	04

    

   Campo	OHJ_DTPDP
   Tipo	Caracter
   Tamanho	50
   Decimal	0
   Título	Des. Despesa
   Descrição	Desc. Tp. Desp. Origem
   Usado	Sim
   Obrigatório	Não
   Browse	Não
   Inic. Padrão	IF(!INCLUI, POSICIONE('NRH', 1, XFILIAL('NRH') + OHJ->OHJ_CTPDP, 'NRH_DESC'), '')
   Contexto	Virtual
   Propriedade	Visualizar
   Inic. Browse	IF(!INCLUI, POSICIONE('NRH', 1, XFILIAL('NRH') + OHJ->OHJ_CTPDP, 'NRH_DESC'), '')
   Ordem	05

    

   Campo	OHJ_TPCOB
   Tipo	Caracter
   Tamanho	1
   Decimal	0
   Formato	@!
   Título	Tp. Cobrança
   Descrição	Tipo Cobrança
   Usado	Sim
   Obrigatório	Sim
   Browse	Sim
   Opções	1=Reembolso; 2=Honorário
   Val. Sistema	Pertence("1|2")
   Contexto	Real
   Propriedade	Alterar
   Ordem	06

3. Criação de índices no arquivo SIX - Índices:

   
   

   Índice	OHJ
   Ordem	1
   Chave	OHJ_FILIAL + OHJ_COD + OHJ_CTPDP
   Descrição	Cód. Escrit. + Tipo Despesa
   Mostra Pesq.	Sim

   
   

4. Criação de gatilhos no arquivo SX7 - Gatilhos:

   
   

   Campo	OHJ_CTPDP
   Sequência	001
   Cnt. Domínio	OHJ_DTPDP
   Tipo	P - Primário
   Regra	NRH->NRH_DESC
   Posiciona	S
   Alias	NRH
   Ordem	1
   Chave	xFilial("NRH") + FwFldGet("OHJ_CTPDP")
   Proprietário	Sim

    

   Campo	OHJ_CTPDP
   Sequência	002
   Cnt. Domínio	OHJ_TPCOB
   Tipo	P - Primário
   Regra	NRH->NRH_CTPCB
   Posiciona	S
   Alias	NRH
   Ordem	1
   Chave	xFilial("NRH") + FwFldGet("OHJ_CTPDP")
   Proprietário	Sim

   
   

Procedimento para Utilização

1. No módulo Pré-faturamento de Serviços (SIGAPFS), acesse Atualizações / Cadastros / Corporativo / Cadastro de Escritório (JURA068).
   1. Pressione o botão Incluir e informe os campos obrigatórios do cabeçalho.
   2. Preencha as exceções de tipos de despesas no grid inferior.
   3. Clique em Confirmar.