Árvore de páginas

Escritório e Centro de Custos nas rotinas financeiras

Características do Requisito

Linha de Produto:

Microsiga Protheus® 

Segmento:

Jurídico

Módulo:

SIGAPFS

SIGAFIN

Rotina:

Rotina

Nome Técnico

JURA159

Participantes

JURA238Tabela de Rateio
JURA241Lançamentos
JURXFUNCRotinas Genéricas
RUP_PFSAjustes de base do SIGAPFS

Requisito:

DJURFAT1-2409

DJURFAT1-2415

DJURFAT1-2421

DJURFAT1-2427

DJURFAT1-2452

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

CTT - Centros de Custos

NS7 - Escritórios

NSS - Rateio entre Centros de Custos

NVM - Histórico do rateio entre Centros de Custos

NZQ - Solicitação/Aprovação de Despesas

OHB - Lançamentos

OH7 - Detalhe do Rateio

OH8 - Histórico do Detalhe do Rateio

Sistema(s) Operacional(is):

Todos

Descrição

Criação e ajustes nos campos de Escritório para filtro dos Centros de Custos em diversas rotinas, de forma a deixar o funcionamento mais aderente aos Escritórios de Advocacia.


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 e alteração de Campos no arquivo SX3 – Campos:
  • Tabela NSS - Rateio entre centros de custos: 

Campo

NSS_CESCR

Tipo

Caracter

Tamanho

5

Decimal

0

Título

Cód Escrit.

Descrição

Código do Escritório

Usado

Sim

Obrigatório

Sim

Browse

Sim

Val. Sistema

Vazio() .OR. (ExistCpo('NS7', M->NSS_CESCR, 1) .AND. JAVLDCAMPO('NSSDETAIL', 'NSS_CESCR', 'NS7', 'NS7_ATIVO', '1'))

Contexto

Real

Propriedade

Alterar

Cons. Padrão

NS7ATV - Escritórios Ativos

Gatilhos

Sim

Grupo de Campos

098 - Escritório

Ordem

04

 

Campo

NSS_DESCR

Tipo

Caracter

Tamanho

100

Decimal

0

Formato

@S50

Título

Descr Escrit

Descrição

Descrição do Escritório

Usado

Sim

Obrigatório

Não

Browse

Sim

Inic. Padrão

IF(!INCLUI, POSICIONE('NS7', 1, XFILIAL('NS7') + NSS->NSS_CESCR, 'NS7_NOME'), '')

Contexto

Virtual

Propriedade

Visualizar

Inic. Browse

POSICIONE('NS7', 1, XFILIAL('NS7') + NSS->NSS_CESCR, 'NS7_NOME')

Ordem

05

Campo

NSS_CC

Cons. Padrão

CTTNS7 - Centro C. Escritório

Modo Edição

!Empty(FwFldGet("NSS_CESCR"))

Val. Sistema

Vazio() .OR. (ExistCpo('CTT', M->NSS_CC, 1) .AND. JVldCTTNS7("NSS_CESCR", "NSS_CC"))

Ordem

06

 

Campo

NSS_DCC

Ordem

07

 

Campo

NSS_PERC

Ordem

08


  • Tabela NVM - Hist. Rateio Centro de Custos: 


Campo

NVM_CESCR

Tipo

Caracter

Tamanho

5

Decimal

0

Título

Cód Escrit

Descrição

Código do Escritório

Usado

Sim

Obrigatório

Sim

Browse

Sim

Val. Sistema

Vazio() .OR. (ExistCpo('NS7', M->NVM_CESCR, 1))

Contexto

Real

Propriedade

Alterar

Cons. Padrão

NS7ATV - Escritórios Ativos

Gatilhos

Sim

Grupo de Campos

098 - Escritório

Ordem

06

 

Campo

NVM_DESCR

Tipo

Caracter

Tamanho

100

Decimal

0

Formato

@S50

Título

Descr Escrit

Descrição

Descrição do Escritório

Usado

Sim

Obrigatório

Não

Browse

Sim

Inic. Padrão

IF(!INCLUI, POSICIONE('NS7', 1, XFILIAL('NS7') + NVM->NVM_CESCR, 'NS7_NOME'), '')

Contexto

Virtual

Propriedade

Visualizar

Inic. Browse

POSICIONE('NS7', 1, XFILIAL('NS7') + NVM->NVM_CESCR, 'NS7_NOME')

Ordem

07

Campo

NVM_CC

Cons. Padrão

CTTNS7 - Centro C. Escritório

Modo Edição

!Empty(FwFldGet("NVM_CESCR"))

Val. Sistema

Vazio() .OR. (ExistCpo('CTT', M->NVM_CC, 1) .AND. JVldCTTNS7("NVM_CESCR", "NVM_CC", .F.))

Ordem

08

 

Campo

NVM_DCC

Ordem

09

 

Campo

NVM_PERC

Ordem

10

 

  • Tabela OH8 - Histórico do Detalhe do Rateio:

Campo

OH8_CESCRI

Modo Edição

FwFldGet("OH6_TIPO") $ "1|2"




Campo

OH8_CCCUST

Val. Sistema

Vazio().OR.(ExistCpo('CTT', M->OH8_CCCUST, 1).AND.JVldCTTNS7("OH8_CESCRI","OH8_CCCUST",.F.))

Cons. Padrão

CTTNS7 - Centro C. Escritório

Modo Edição

FwFldGet('OH8_TIPO')=='2'.And.!Empty(FwFldGet('OH8_CESCRI'))


  • Tabela OH7 - Detalhe Rateio:

Campo

OH7_CESCRI

Modo Edição

FwFldGet("OH6_TIPO") $ "1|2"

Campo

OH7_CCCUST

Val. Sistema

Vazio().OR.(ExistCpo('CTT', M->OH7_CCCUST, 1).AND.JVldCTTNS7("OH7_CESCRI","OH7_CCCUST"))

Cons. Padrão

CTTNS7 - Centro C. Escritório

Modo Edição

FwFldGet('OH6_TIPO')=='2'.And.!Empty(FwFldGet('OH7_CESCRI'))


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

  • Tabela NSS - Rateio entre centros de custos: 


Campo

NSS_CESCR

Sequência

001

Cnt. Domínio

NSS_DESCR

Tipo

P - Primário

Regra

NS7->NS7_NOME

Posiciona

S

Alias

NS7

Ordem

1

Chave

xFilial("NS7") + M->NSS_CESCR

Proprietário

Sim

 

Campo

NSS_CESCR

Sequência

002

Cnt. Domínio

NSS_CC

Tipo

P - Primário

Regra

""

Condição


Proprietário

Sim

 

Campo

NSS_CESCR

Sequência

003

Cnt. Domínio

NSS_DCC

Tipo

P - Primário

Regra

""

Condição


Proprietário

Sim

 

  • Tabela NVM - Hist. Rateio Centro de Custos: 

 

Campo

NVM_CESCR

Sequência

001

Cnt. Domínio

NVM_DESCR

Tipo

P - Primário

Regra

NS7->NS7_NOME

Posiciona

S

Alias

NS7

Ordem

1

Chave

xFilial("NS7") + M->NVM_CESCR

Proprietário

Sim

 

Campo

NVM_CESCR

Sequência

002

Cnt. Domínio

NVM_CC

Tipo

P - Primário

Regra

""

Condição


Proprietário

Sim

 

Campo

NVM_CESCR

Sequência

003

Cnt. Domínio

NVM_DCC

Tipo

P - Primário

Regra

""

Condição


Proprietário

Sim


  • Tabela OH8 - Histórico do Detalhe do Rateio:

Campo

OH8_CESCRI

Sequência

002

Cnt. Domínio

OH8_CCCUST

Tipo

P - Primário

Regra

''

Posiciona

N

Proprietário

Sim


 

Campo

OH8_CESCRI

Sequência

003

Cnt. Domínio

OH8_DCCUST

Tipo

P - Primário

Regra

''

Posiciona

N

Proprietário

Sim

 

  • Tabela OH7 - Detalhe Rateio:

Campo

OH7_CESCRI

Sequência

002

Cnt. Domínio

OH7_CCCUST

Tipo

P - Primário

Regra

''

Posiciona

N

Proprietário

Sim




Campo

OH7_CESCRI

Sequência

003

Cnt. Domínio

OH7_DCCUST

Tipo

P - Primário

Regra

''

Posiciona

S

Proprietário

Sim


3. Criação de Consulta Padrão no arquivo SXB – Consultas Padrão:


Consulta: CTTNS7 - Centro C. Escritório

Alias

CTTNS7

Tipo

1 - Consulta

Sequência

01

Coluna

DB

Descrição

Centro C. Escritório

Contém

CTT

 

Alias

CTTNS7

Tipo

2 - Ordens

Sequência

01

Coluna

01

Descrição

C Custo

 

Alias

CTTNS7

Tipo

2 - Ordens

Sequência

02

Coluna

04

Descrição

Desc Moeda 1

 

Alias

CTTNS7

Tipo

3 - Cad. Novo

Sequência

01

Coluna

01

Descrição

Cadastra Novo

Contém

01

 

Alias

CTTNS7

Tipo

4 - Colunas

Sequência

01

Coluna

01

Descrição

C Custo

Contém

CTT_CUSTO

 

Alias

CTTNS7

Tipo

4 - Colunas

Sequência

01

Coluna

02

Descrição

Desc Moeda 1

Contém

CTT_DESC01

 

Alias

CTTNS7

Tipo

4 - Colunas

Sequência

02

Coluna

03

Descrição

C Custo

Contém

CTT_CUSTO

 

Alias

CTTNS7

Tipo

4 - Colunas

Sequência

02

Coluna

04

Descrição

Desc Moeda 1

Contém

CTT_DESC01

 

Alias

CTTNS7

Tipo

5 - Retorno

Sequência

01

Contém

CTT->CTT_CUSTO

 

Alias

CTTNS7

Tipo

6 - Filtro

Sequência

01

Contém

@#JF3CTTNS7()

 

Procedimento para Utilização

  1. No módulo Pré-faturamento de Serviços (SIGAPFS), acesse Atualizações / Cadastros / Participante / Participantes (JURA159).
  2. Selecione um registro e clique  em Visualizar.
  3. Nas abas Dados Gerais, Histórico Rateio entre Centros de Custos, verifique os campos relacionados a Escritório e Centro de Custos.


  1. No módulo Financeiro (SIGAFIN), acesse Atualizações / Cadastros / Jurídico / Tabela de Rateio (JURA238).
  2. Selecione um registro e clique  em Visualizar.
  3. Nas grids Detalhes do Rateio e Histórico do Detalhe do Rateio, verifique os campos relacionados a Escritório e Centro de Custos.


  1. No módulo Financeiro (SIGAFIN), acesse Atualizações / Cadastros / Jurídico / Lançamentos (JURA241).
  2. Selecione um registro e clique  em Visualizar.
  3. Nas grids Natureza Origem e Natureza Destino, verifique os campos relacionados a Escritório e Centro de Custos.


  1. No módulo Financeiro (SIGAFIN), acesse Atualizações / Cadastros / Jurídico / Lançamentos (JURA238).
  2. Selecione um registro e clique  em Visualizar.
  3. Nas grids Detalhe do Rateio e Histórico do Detalhe do Rateio, verifique os campos relacionados a Escritório e Centro de Custos.