Histórico da Página
Criação do cadastro de Exceção do Tipo de Despesa por Escritório
Características do Requisito
Linha de Produto: | Microsiga Protheus® | ||||
Segmento: | Jurídico | ||||
Módulo: | SIGAPFS | ||||
Rotina: |
| ||||
Requisito: | DJURFAT1-4129 | ||||
País(es): | Brasil | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
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í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
Criação de tabela no arquivo SX2 - Tabelas:
Chave
Nome
Modo
OHJ
Exceção Tipo de Despesa
Compartilhado
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
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
Procedimento para Utilização
- No módulo Pré-faturamento de Serviços (SIGAPFS), acesse Atualizações / Cadastros / Corporativo / Cadastro de Escritório (JURA068).
- Pressione o botão Incluir e informe os campos obrigatórios do cabeçalho.
- Preencha as exceções de tipos de despesas no grid inferior.
- Clique em Confirmar.