Árvore de páginas

Disponibilização de Projeto / Finalidade nas rotinas do Financeiro

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulos:

SIGAPFS

SIGAFIN

Rotina:

Rotina

Nome Técnico

JURA235

Solicitação de Despesa

JURA235AAprovação de Despesa
JURA241Lançamento
JURA246Desdobramento
JURA247Desdobramento Pós Pagamento
Rotinas Envolvidas
Nome Técnico
JURXFINFunções Genéricas Jurídico x Financeiro
JURXFUNC
Funções Genéricas
RUP_PFSAjuste de base do SIGAPFS

Requisito:

DJURFAT1-5590

País(es):

Brasil

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição

Disponibilização dos campos de Projeto/Finalidade nas rotinas de Desdobramento, Desdobramento Pós Pagamento, Lançamentos e Solicitação/Aprovação de Despesas.


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 campos no arquivo SX3 – Dicionário de Dados:

    Tabela NZQ - Solicitação / Aprovação de Despesa:


    Campo

    NZQ_CPROJE

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód. Projeto

    Descrição

    Código do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Val. Sistema

    Vazio() .OR. ExistCpo('OHL', FwFldGet("NZQ_CPROJE"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHL

    Gatilhos

    Sim

    Ordem

    46

     

    Campo

    NZQ_DPROJE

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Desc Projeto

    Descrição

    Descrição do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHL', 1, xFilial('OHL') + FwFldGet("NZQ_CPROJE"), 'OHL_DPROJE'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    47

     

    Campo

    NZQ_CITPRJ

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód Item Prj

    Descrição

    Código do Item do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Modo Edição

    !Empty(FwFldGet("NZQ_CPROJE"))

    Val. Sistema

    Vazio() .OR. ExistCpo('OHM', FwFldGet("NZQ_CPROJE") + FwFldGet("NZQ_CITPRJ"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHM

    Gatilhos

    Sim

    Ordem

    48

     

    Campo

    NZQ_DITPRJ

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Descr. Item

    Descrição

    Descrição do Item

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHM', 1, xFilial('OHM') + FwFldGet("NZQ_CPROJE") + FwFldGet("NZQ_CITPRJ"), 'OHM_DITEM'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    49

     

     Tabela OHB - Lançamento:

    Campo

    OHB_CPROJE

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód. Projeto

    Descrição

    Código do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Val. Sistema

    Vazio() .OR. ExistCpo('OHL', FwFldGet("OHB_CPROJE"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHL

    Gatilhos

    Sim

    Ordem

    22

     

    Campo

    OHB_DPROJE

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Desc Projeto

    Descrição

    Descrição do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHL', 1, xFilial('OHL') + FwFldGet("OHB_CPROJE"), 'OHL_DPROJE'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    23

     

    Campo

    OHB_CITPRJ

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód Item Prj

    Descrição

    Código do Item do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Modo Edição

    !Empty(FwFldGet("OHB_CPROJE"))

    Val. Sistema

    Vazio() .OR. ExistCpo('OHM', FwFldGet("OHB_CPROJE") + FwFldGet("OHB_CITPRJ"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHM

    Gatilhos

    Sim

    Ordem

    24

     

    Campo

    OHB_DITPRJ

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Descr. Item

    Descrição

    Descrição do Item

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHM', 1, xFilial('OHM') + FwFldGet("OHB_CPROJE") + FwFldGet("OHB_CITPRJ"), 'OHM_DITEM'), '')

    Ordem

    25

     

    Campo

    OHB_CPROJD

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cd Proj Dest

    Descrição

    Cód Projeto Natur Destino

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Val. Sistema

    Vazio() .OR. (ExistCpo('OHL', FwFldGet("OHB_CPROJD"), 1) .AND. JAVLDCAMPO('OHBMASTER', 'OHB_CPROJD', 'OHL', 'OHL_SITUAC', '2'))

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHL

    Gatilhos

    Sim

    Ordem

    49

     

    Campo

    OHB_DPROJD

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Dsc Proj Des

    Descrição

    Descrição Projeto Destino

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHL', 1, xFilial('OHL') + FwFldGet("OHB_CPROJD"), 'OHL_DPROJE'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    50

     

    Campo

    OHB_CITPRD

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód Item Prj

    Descrição

    Código Item Projeto Desti

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Modo Edição!Empty(FwFldGet("OHB_CPROJD"))
    Val. SistemaVazio().Or.ExistCpo('OHM',FwFldGet("OHB_CPROJD")+FwFldGet("OHB_CITPRD"),1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHM

    Gatilhos

    Sim

    Ordem

    51

     

    Campo

    OHB_DITPRD

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Descr. Item

    Descrição

    Descr. Item Projeto Desti

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHM', 1, xFilial('OHM') + FwFldGet("OHB_CPROJD") + FwFldGet("OHB_CITPRD"), 'OHM_DITEM'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    52

     

    Tabela OHF - Desdobramento:

    Campo

    OHF_CPROJE

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód. Projeto

    Descrição

    Código do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Val. Sistema

    Vazio() .OR. ExistCpo('OHL', FwFldGet("OHF_CPROJE"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHL

    Gatilhos

    Sim

    Ordem

    30

     

    Campo

    OHF_DPROJE

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Desc Projeto

    Descrição

    Descrição do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHL', 1, xFilial('OHL') + OHF->OHF_CPROJE, 'OHL_DPROJE'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    31

     

    Campo

    OHF_CITPRJ

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód Item Prj

    Descrição

    Código do Item do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Modo Edição

    !Empty(FwFldGet("OHF_CPROJE"))

    Val. Sistema

    Vazio() .OR. ExistCpo('OHM', FwFldGet("OHF_CPROJE") + FwFldGet("OHF_CITPRJ"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHM

    Gatilhos

    Sim

    Ordem

    32

     

    Campo

    OHF_DITPRJ

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Descr. Item

    Descrição

    Descr. Item do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHM', 1, xFilial('OHM') + OHF->OHF_CPROJE + OHF->OHF_CITPRJ, 'OHM_DITEM'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    33

     

     Tabela OHG - Desdobramento Pós Pagamento:

    Campo

    OHG_CPROJE

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód. Projeto

    Descrição

    Código do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Val. Sistema

    Vazio() .OR. ExistCpo('OHL', FwFldGet("OHG_CPROJE"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHL

    Gatilhos

    Sim

    Ordem

    30

     

    Campo

    OHG_DPROJE

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Desc Projeto

    Descrição

    Descrição do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHL', 1, xFilial('OHL') + OHG->OHG_CPROJE, 'OHL_DPROJE'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    31

     

    Campo

    OHG_CITPRJ

    Tipo

    Caracter

    Tamanho

    6

    Decimal

    0

    Título

    Cód Item Prj

    Descrição

    Código do Item do Projeto

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Sim

    Modo Edição

    !Empty(FwFldGet("OHG_CPROJE"))

    Val. Sistema

    Vazio() .OR. ExistCpo('OHM', FwFldGet("OHG_CPROJE") + FwFldGet("OHG_CITPRJ"), 1)

    Contexto

    Real

    Propriedade

    Alterar

    Cons. Padrão

    OHM

    Gatilhos

    Sim

    Ordem

    32

     

    Campo

    OHG_DITPRJ

    Tipo

    Caracter

    Tamanho

    200

    Decimal

    0

    Título

    Descr. Item

    Descrição

    Descrição do Item

    Usado

    Sim

    Obrigatório

    Não

    Browse

    Não

    Inic. Padrão

    IF(!INCLUI, POSICIONE('OHM', 1, xFilial('OHM') + OHG->OHG_CPROJE + OHG->OHG_CITPRJ, 'OHM_DITEM'), '')

    Contexto

    Virtual

    Propriedade

    Visualizar

    Ordem

    33

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

    Tabela NZQ - Solicitação / Aprovação de Despesa: 

    Campo

    NZQ_CITPRJ

    Sequência

    001

    Cnt. Domínio

    NZQ_DITPRJ

    Tipo

    P - Primário

    Regra

    OHM->OHM_DITEM

    Posiciona

    S

    Alias

    OHM

    Ordem

    1

    Chave

    xFilial('NZQ') + FwFldGet('NZQ_CPROJE') + FwFldGet('NZQ_CITPRJ')

    Proprietário

    Sim

    Campo

    NZQ_CPROJE

    Sequência

    001

    Cnt. Domínio

    NZQ_DPROJE

    Tipo

    P - Primário

    Regra

    OHL->OHL_DPROJE

    Posiciona

    S

    Alias

    OHL

    Ordem

    1

    Chave

    xFilial('OHL') + FwFldGet('NZQ_CPROJE')

    Proprietário

    Sim

     

    Campo

    NZQ_CPROJE

    Sequência

    002

    Cnt. Domínio

    NZQ_CITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('NZQ_CPROJE'))

    Proprietário

    Sim

     

    Campo

    NZQ_CPROJE

    Sequência

    003

    Cnt. Domínio

    NZQ_DITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('NZQ_CPROJE'))

    Proprietário

    Sim

     

     Tabela OHB - Lançamento: 

    Campo

    OHB_CITPRD

    Sequência

    001

    Cnt. Domínio

    OHB_DITPRD

    Tipo

    P - Primário

    Regra

    OHM->OHM_DITEM

    Posiciona

    S

    Alias

    OHM

    Ordem

    1

    Chave

    xFilial('OHM') + FwFldGet('OHB_CPROJD') + FwFldGet('OHB_CITPRD')

    Proprietário

    Sim

     

    Campo

    OHB_CITPRJ

    Sequência

    001

    Cnt. Domínio

    OHB_DITPRJ

    Tipo

    P - Primário

    Regra

    OHM->OHM_DITEM

    Posiciona

    S

    Alias

    OHM

    Ordem

    1

    Chave

    xFilial('OHM') + FwFldGet('OHB_CPROJE') + FwFldGet('OHB_CITPRJ')

    Proprietário

    Sim

     

    Campo

    OHB_CPROJD

    Sequência

    001

    Cnt. Domínio

    OHB_DPROJD

    Tipo

    P - Primário

    Regra

    OHL->OHL_DPROJE

    Posiciona

    S

    Alias

    OHL

    Ordem

    1

    Chave

    xFilial('OHL') + FwFldGet('OHB_CPROJD')

    Proprietário

    Sim

     

    Campo

    OHB_CPROJD

    Sequência

    002

    Cnt. Domínio

    OHB_CITPRD

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHB_CPROJD'))

    Proprietário

    Sim

     

    Campo

    OHB_CPROJD

    Sequência

    003

    Cnt. Domínio

    OHB_DITPRD

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHB_CPROJD'))

    Proprietário

    Sim

     

    Campo

    OHB_CPROJE

    Sequência

    001

    Cnt. Domínio

    OHB_DPROJE

    Tipo

    P - Primário

    Regra

    OHL->OHL_DPROJE

    Posiciona

    S

    Alias

    OHL

    Ordem

    1

    Chave

    xFilial('OHL') + FwFldGet('OHB_CPROJE')

    Proprietário

    Sim

     

    Campo

    OHB_CPROJE

    Sequência

    002

    Cnt. Domínio

    OHB_CITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHB_CPROJE'))

    Proprietário

    Sim

     

    Campo

    OHB_CPROJE

    Sequência

    003

    Cnt. Domínio

    OHB_DITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHB_CPROJE'))

    Proprietário

    Sim

     

     Tabela OHF - Desdobramento: 

    Campo

    OHF_CITPRJ

    Sequência

    001

    Cnt. Domínio

    OHF_DITPRJ

    Tipo

    P - Primário

    Regra

    OHM->OHM_DITEM

    Posiciona

    S

    Alias

    OHM

    Ordem

    1

    Chave

    xFilial('OHM') + FwFldGet('OHF_CPROJE') + FwFldGet('OHF_CITPRJ')

    Proprietário

    Sim

     

    Campo

    OHF_CPROJE

    Sequência

    001

    Cnt. Domínio

    OHF_DPROJE

    Tipo

    P - Primário

    Regra

    OHL->OHL_DPROJE

    Posiciona

    S

    Alias

    OHL

    Ordem

    1

    Chave

    xFilial('OHL') + FwFldGet('OHF_CPROJE')

    Proprietário

    Sim

     

    Campo

    OHF_CPROJE

    Sequência

    002

    Cnt. Domínio

    OHF_CITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHF_CPROJE'))

    Proprietário

    Sim

     

    Campo

    OHF_CPROJE

    Sequência

    003

    Cnt. Domínio

    OHF_DITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHF_CPROJE'))

    Proprietário

    Sim

     

     Tabela OHG - Desdobramento Pós Pagamento: 

    Campo

    OHG_CITPRJ

    Sequência

    001

    Cnt. Domínio

    OHG_DITPRJ

    Tipo

    P - Primário

    Regra

    OHM->OHM_DITEM

    Posiciona

    S

    Alias

    OHM

    Ordem

    1

    Chave

    xFilial("OHM") + FwFldGet('OHG_CPROJE') + FwFldGet("OHG_CITPRJ")

    Proprietário

    Sim

     

    Campo

    OHG_CPROJE

    Sequência

    001

    Cnt. Domínio

    OHG_DPROJE

    Tipo

    P - Primário

    Regra

    OHL->OHL_DPROJE

    Posiciona

    S

    Alias

    OHL

    Ordem

    1

    Chave

    xFilial('OHL') + FwFldGet('OHG_CPROJE')

    Proprietário

    Sim

     

    Campo

    OHG_CPROJE

    Sequência

    002

    Cnt. Domínio

    OHG_CITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHG_CPROJE'))

    Proprietário

    Sim

     

    Campo

    OHG_CPROJE

    Sequência

    003

    Cnt. Domínio

    OHG_DITPRJ

    Tipo

    P - Primário

    Regra

    ""

    Condição

    Empty(FwFldGet('OHG_CPROJE'))

    Proprietário

    Sim

     

  3. Criação de relacionamentos no arquivo SX9 - Relacionamentos:


    Tabela OHL - Projeto:

    DomínioOHL
    Sequência001
    Contra DomínioNZQ
    Expressão DomínioOHL_CPROJE
    Expressão Contra DomínioNZQ_CPROJE
    DomínioOHL
    Sequência002
    Contra DomínioOHB
    Expressão DomínioOHL_CPROJE
    Expressão Contra DomínioOHB_CPROJD
    DomínioOHL
    Sequência003
    Contra DomínioOHB
    Expressão DomínioOHL_CPROJE
    Expressão Contra DomínioOHB_CPROJE
    DomínioOHL
    Sequência004
    Contra DomínioOHF
    Expressão DomínioOHL_CPROJE
    Expressão Contra DomínioOHF_CPROJE
    DomínioOHL
    Sequência005
    Contra DomínioOHG
    Expressão DomínioOHL_CPROJE
    Expressão Contra DomínioOHG_CPROJE


    Tabela OHM - Itens de Projeto:

    DomínioOHM
    Sequência005
    Contra DomínioNZQ
    Expressão DomínioOHM_CPROJE+OHM_ITEM
    Expressão Contra DomínioNZQ_CPROJE+NZQ_CITPRJ
    DomínioOHM
    Sequência002
    Contra DomínioOHB
    Expressão DomínioOHM_CPROJE+OHM_ITEM
    Expressão Contra DomínioOHB_CPROJD+OHB_CITPRD
    DomínioOHM
    Sequência003
    Contra DomínioOHB
    Expressão DomínioOHM_CPROJE+OHM_ITEM
    Expressão Contra DomínioOHB_CPROJE+OHB_CITPRJ
    DomínioOHM
    Sequência004
    Contra DomínioOHF
    Expressão DomínioOHM_CPROJE+OHM_ITEM
    Expressão Contra DomínioOHF_CPROJE+OHF_CITPRJ
    DomínioOHM
    Sequência001
    Contra DomínioOHG
    Expressão DomínioOHM_CPROJE+OHM_ITEM
    Expressão Contra DomínioOHG_CPROJE+OHG_CITPRJ

Procedimento para Configuração

CONFIGURAÇÃO DE PARÂMETROS 

  1. No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Configure o parâmetro a seguir:

    Itens/Pastas

    Descrição

    Nome Var.

    MV_JUTPROJ

    Tipo

    Lógico

    Descrição

    Indica se será utilizado Projeto/Finalidade nas

    Cont.Descric.

    rotinas do Financeiro. (.T. = Sim; .F. = Não)

    Itens/Pastas

    Descrição

    Nome Var.

    MV_JURXFIN

    Tipo

    Lógico

    Descrição

    Indica se será utilizado Projeto/Finalidade nas

    Cont.Descric.

    Habilita a integração entre os módulos SIGAFIN - Financeiro e SIGAPFS - Juridico  (.T. = Sim, .F. = Não)             

Procedimento para Utilização

  1. No módulo Financeiro (SIGAFIN), acesse Atualizações / Jurídico / Lançamento (JURA241).
  2. Clique em Incluir.
  3. Preencha os campos, verificando os novos campos de Projeto e Item de Projeto.
  4. Estes campos estão disponíveis também no Desdobramento e Desdobramento Pós Pagamento do Contas a Pagar (FINA050) e na Solicitação / Aprovação de Despesas (JURA235).