Criação do

campo User AD no Cadastro de Participante para utilização do LegalDesk

Características do Requisito

Descrição

Criação do grid de Exceção Tipo de Despesa nocadastro 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íficodo campo Usuário AD (usuário do domínio) nocadastro de Participantes para gravar o login do participante. Informação será utilizada pelo sistema Legal Desk.

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

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

   
   

   Tabela OHJ - Exceções Tipo de Despesa NUR - Participantes:

   Campo	OHJNUR_FILIALUSERAD
   Tipo	Caracter
   Tamanho	230
   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

   Formato	@!
   Título	Usuário AD
   Descrição	Usuário AD

    

   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	SimBrowse	Sim
   Opções	1=Reembolso; 2=Honorário
   Val. Sistema	Pertence("1|2")
   Contexto	Real
   Propriedade	Alterar
   Ordem	06

   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

   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

   30

    

   
   

Procedimento para Utilização

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