01. Resumo

Rotina de importação do fluxo orçamentário por natureza do PCO, realiza a Amarração de Natureza X Conta Orcamentaria.

Será necessário criar uma nova tabela pois a FJ7 utilizada no projeto CNI foi sobreposta para a tabela Custo Transação Captação, e realizar a troca do apontamento da tabela FJ7 para a nova tabela que será criada.

Também será necessário realizar a migração para o padrão MVC.

Adicionar a Rotina ao Menu:

Atualizações > Cadastro

02. Operações.

03. Remover leitura do SX3.

Substituir a função CNI270HEAD que realiza a criação do HEAD, pois a mesma utiliza o X3 diretamente do banco, devera ser utilizada dbStruct() na FJ7.

04. Troca de nome de funções.

Será necessário realizar a troca de nome de funções.

CNIA270 = FINA272
CNI270INC = F272INC
CNI270MNT = F272MNT
CNI270HEAD = F272HEAD
CNI270COLS = F272COLS
CNI270GGRV = F272GGRV
CNI270VLD = F272VLD
CNI270LOK = F272LOK
CNI270TOK = F272TOK
CNI270VLG = F272VLG
CNI270IMP = F272IMP
CNI270MARK = F272MARK
CNI270TDMK = F272TDMK
CNI270SE7 = F272SE7
CNI270PERG = F272PERG
CNI270ORD = F272ORD
CNI270GTMP = F272GTMP
CNI270CHAV = F272CHAV
CNI270SLD = F272SLD
CNI270DAT = F272DAT
CNI270TMP = F272TMP
CNI270CAMP = F272CAMP
CNI270MOED = F272MOED

05. Estrutura de Dados.

Estrutura

SX3

X3_ARQUIVO

X3_ORDEM

X3_CAMPO

X3_TIPO

X3_TAMANHO

X3_DECIMAL

X3_TITULO

X3_TITSPA

X3_TITENG

X3_DESCRIC

X3_DESCSPA

X3_DESCENG

X3_PICTURE

X3_VALID

X3_USADO

X3_RELACAO

X3_F3

X3_NIVEL

X3_RESERV

X3_CHECK

X3_TRIGGER

X3_PROPRI

X3_BROWSE

X3_VISUAL

X3_CONTEXT

X3_OBRIGAT

X3_VLDUSER

X3_CBOX

X3_CBOXSPA

X3_CBOXENG

X3_PICTVAR

X3_WHEN

X3_INIBRW

X3_GRPSXG

X3_FOLDER

X3_PYME

X3_CONDSQL

X3_CHKSQL

X3_IDXSRV

X3_ORTOGRA

X3_IDXFLD

X3_TELA

X3_PICBRV

X3_AGRUP

X3_POSLGT

X3_MODAL

FJ7

01

FJ7_FILIAL

C

8

Filial

Sucursal

Branch

Filial do Sistema

Sucursal

Branch of the System

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ

1

ÇÇ

N

033

S

N

1

2

FJ7

02

FJ7_NATUR

C

10

Natureza

Codigo da Natureza

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

■└

S

N

A

R

ExistCpo("SED")

FJ7

03

FJ7_DESNAT

C

30

Desc Naturez

Descricao da Natureza

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

IF(!INCLUI,POSICIONE("SED",1,XFILIAL("SED") + FJ7->FJ7_NATUR,"ED_DESCRIC"),"")

■└

S

N

V

FJ7

04

FJ7_ITEM

C

4

Item

Item Sequencial

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

■└

S

N

V

R

FJ7

05

FJ7_COINI

C

20

Cta. Orc. De

Cod Cta Orcament Inicial

Codigo da Conta Orcamenta

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

AK5

■└

S

N

A

R

Ç

ExistCpo("AK5") .And. CNI270VLD("FJ7_COINI")

013

FJ7

06

FJ7_COFIM

C

20

Cta. Orc Ate

Cod Cta Orcament Final

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

AK5

■└

S

N

A

R

Ç

ExistCpo("AK5") .And. CNI270VLD("FJ7_COFIM")

013

FJ7

07

FJ7_CLASSE

C

6

Classe

Codigo da Classe

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

AK6

■└

S

N

A

R

Vazio() .Or. ExistCpo("AK6")

FJ7

08

FJ7_CCINI

C

20

UO De

Cent Cust De

Cod UO Inicial

Cod Cent Custo Inicial

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTT

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCINI")

004

FJ7

09

FJ7_CCFIM

C

20

UO Ate

CentCust Ate

Cod UO Final

Cod Cent Custo Final

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTT

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCFIM")

004

FJ7

10

FJ7_ITCTBI

C

20

CR. Cont De

It. Cont De

Cod CR Contabil Inicial

Cod Item Contabil Inicial

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTD

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBI")

005

FJ7

11

FJ7_ITCTBF

C

20

CR. Cont Ate

It. Cont Ate

Cod CR Contabil Final

Cod Item Contabil Final

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTD

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBF")

005

FJ7

12

FJ7_CLVRLI

C

20

Clas Vlr De

Cod Classe Valor Inicial

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTH

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLI")

006

FJ7

13

FJ7_CLVRLF

C

20

Clas Vlr Ate

Clas Vlr De

Cod Classe Valor Final

Cod Classe Valor Inicial

@!

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

CTH

■└

S

N

A

R

Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLF")

006

FJ7

14

FJ7_CODCAP

C

8

Codigo Cap

Cod.Captac.

Cap Code

Codigo da CapitaþÒo

Codigo de la capitacion

Collection Code

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

1

äÇ

S

N

1

2

FJ7

15

FJ7_ITCTRA

C

5

Item C Trans

Item C.Trans

Item C Trans

Item Custo TransaþÒo

Item costo transaccion

Item Transaction Cost

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

1

äÇ

S

N

1

2

FJ7

16

FJ7_DESC

C

40

DescriþÒo

Descripcion

Description

DescriþÒo do Custo Trans

Descripc.Costo Trans.

Description Trans Cost

ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá

1

äÇ

S

N

1

2

SIX

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
FJ7	2	FJ7_FILIAL+FJ7_CODCAP+FJ7_ITCTRA	Natureza+Item	Natureza+Item	Natureza+Item	U			N
FJ7	1	FJ7_FILIAL+FJ7_NATUR+FJ7_ITEM	Natureza+Item	Natureza+Item	Natureza+Item	U			N	2	3

SX2

X2_CHAVE

X2_PATH

X2_ARQUIVO

X2_NOME

X2_NOMESPA

X2_NOMEENG

X2_ROTINA

X2_MODO

X2_MODOUN

X2_MODOEMP

X2_DELET

X2_TTS

X2_UNICO

X2_PYME

X2_MODULO

X2_DISPLAY

X2_SYSOBJ

X2_USROBJ

X2_POSLGT

X2_CLOB

X2_AUTREC

X2_TAMFIL

X2_TAMUN

X2_TAMEMP

FJ7

FJ7T10

Custo TransaþÒo CaptaþÒo

Costo transaccion captacion

Caption Transaction Cost

C

FJ7_FILIAL+FJ7_CODCAP+FJ7_ITCTRA

S

6

1

2

Campos.

FILIAL

Campo	NOVATAB_FILIAL
Ordem	01
Tipo	C
Tamanho	8
Reservado	Sim
Decimal
Formato
Titulo	Filial
Descrição	Filial do Sistema
Nivel	1
Usado
Obrigatorio
Browse	N
Visual
Contexto
When
Relação
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos	033 - Tamanho da Filial
TOTVS PDV	Sim
Modal	Não

NATUR

Campo	NOVATAB_NATUR
Ordem	02
Tipo	C
Tamanho	10
Reservado	Não
Decimal
Formato	@!
Titulo	Natureza
Descrição	Codigo da Natureza
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	ExistCpo("SED")
Consulta Padrão
Grupo de Campos

DESNAT

Campo	NOVATAB_DESNAT
Ordem	03
Tipo	C
Tamanho	30
Reservado	Não
Decimal
Formato	@!
Titulo	Desc Naturez
Descrição	Descricao da Natureza
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	V
Contexto	V
When
Relação	IF(!INCLUI,POSICIONE("SED",1,XFILIAL("SED") + FJ7->FJ7_NATUR,"ED_DESCRIC"),"")
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos

ITEM

Campo	NOVATAB_ITEM
Ordem	04
Tipo	C
Tamanho	4
Reservado	Não
Decimal
Formato	@!
Titulo	Item
Descrição	Item Sequencial
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	V
Contexto	R
When
Relação
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos

COINI

Campo	NOVATAB_COINI
Ordem	05
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato
Titulo	Cta. Orc. De
Descrição	Cod Cta Orcament Inicial
Nivel
Usado	Sim
Obrigatorio	Ç
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	ExistCpo("AK5") .And. CNI270VLD("FJ7_COINI")
Consulta Padrão	AK5
Grupo de Campos	013 - Conta Orçamentaria

COFIM

Campo	NOVATAB_COFIM
Ordem	06
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato
Titulo	Cta. Orc Ate
Descrição	Cod Cta Orcament Final
Nivel
Usado	Sim
Obrigatorio	Ç
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	ExistCpo("AK5") .And. CNI270VLD("FJ7_COFIM")
Consulta Padrão	AK5
Grupo de Campos	013 - Conta Orçamentaria

CLASSE

Campo	NOVATAB_CLASSE
Ordem	07
Tipo	C
Tamanho	6
Reservado	Não
Decimal
Formato	@!
Titulo	Classe
Descrição	Codigo da Classe
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("AK6")
Consulta Padrão	AK6
Grupo de Campos

CCINI

Campo	NOVATAB_CCINI
Ordem	08
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	UO De
Descrição	Cod UO Inicial
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCINI")
Consulta Padrão	CTT
Grupo de Campos	004 - Centro de Custo

CCFIM

Campo	NOVATAB_CCFIM
Ordem	09
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	UO Ate
Descrição	Cod UO Final
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCFIM")
Consulta Padrão	CTT
Grupo de Campos	004 - Centro de Custo

ITCTBI

Campo	NOVATAB_ITCTBI
Ordem	10
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	CR. Cont De
Descrição	Cod CR Contabil Inicial
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBI")
Consulta Padrão	CTD
Grupo de Campos	005 - Item Contabil

ITCTBF

Campo	NOVATAB_ITCTBF
Ordem	11
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	CR. Cont Ate
Descrição	Cod CR Contabil Final
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBF")
Consulta Padrão	CTD
Grupo de Campos	005 - Item Contabil

CLVRLI

Campo	NOVATAB_CLVRLI
Ordem	12
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	Clas Vlr De
Descrição	Cod Classe Valor Inicial
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLI")
Consulta Padrão	CTH
Grupo de Campos	006 - Classe de Valor

CLVRLF

Campo	NOVATAB_CLVRLF
Ordem	13
Tipo	C
Tamanho	20
Reservado	Não
Decimal
Formato	@!
Titulo	Clas Vlr Ate
Descrição	Cod Classe Valor Final
Nivel
Usado	Sim
Obrigatorio
Browse	N
Visual	A
Contexto	R
When
Relação
Valid.
Validação Sis.	Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLF")
Consulta Padrão	CTH
Grupo de Campos	006 - Classe de Valor

CODCAP

Campo	NOVATAB_CODCAP
Ordem	14
Tipo	C
Tamanho	8
Reservado	Sim
Decimal
Formato
Titulo	Codigo Cap
Descrição	Codigo da Capitação
Nivel	1
Usado	Sim
Obrigatorio
Browse
Visual
Contexto
When
Relação
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos
TOTVS PDV	Sim
Modal	Não

ITCTRA

Campo	NOVATAB_ITCTRA
Ordem	15
Tipo	C
Tamanho	5
Reservado	Sim
Decimal
Formato
Titulo	Item C Trans
Descrição	Item Custo Transação
Nivel	1
Usado	Sim
Obrigatorio
Browse
Visual
Contexto
When
Relação
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos
TOTVS PDV	Sim
Modal	Não

DESC

Campo	NOVATAB_DESC
Ordem	16
Tipo	C
Tamanho	40
Reservado	Sim
Decimal
Formato
Titulo	Descrição
Descrição	Descrição do Custo Trans
Nivel	1
Usado	Sim
Obrigatorio
Browse
Visual
Contexto
When
Relação
Valid.
Validação Sis.
Consulta Padrão
Grupo de Campos
TOTVS PDV	Sim
Modal	Não

Como a Tabela e FJ7 é utilizada hoje.

FJ7_NATUR
FJ7_DESNAT
FJ7_ITEM
FJ7_COINI
FJ7_COFIM
FJ7_CLASSE
FJ7_CCINI
FJ7_CCFIM
FJ7_ITCTBI
FJ7_ITCTBF
FJ7_CLVRLI
FJ7_CLVRLF
FJ7_CODCAP
FJ7_ITCTRA
FJ7_DESC

Atualmente a tabela FJ7 é denominada como Custo Transação Captação

FJ7_CODCAP
FJ7_DESC
FJ7_FILIAL
FJ7_ITCTRA

Campos identificados no Fonte FINA272 (CNI)

Campos:

FJ7_ITEM
FJ7_NATUR
FJ7_DESNAT
FJ7_FILIAL
FJ7_COINI
FJ7_COFIM
FJ7_CCINI
FJ7_CCFIM
FJ7_ITCTBF
FJ7_ITCTBI
FJ7_CLVRLI
FJ7_CLVRLF
FJ7_CLASSE

Indice.

1 - FJ7_FILIAL+FJ7_NATUR+FJ7_ITEM

06. Correção de Tela.

Será necessário aumentar a Grid da tela conforme evidência a Baixo.

07. Gravação no Banco de Dados.

FJ7_FILIAL	FJ7_NATUR	FJ7_ITEM	FJ7_COINI	FJ7_COFIM	FJ7_CLASSE	FJ7_CCINI	FJ7_CCFIM	FJ7_ITCTBI	FJ7_ITCTBF	FJ7_CLVRLI	FJ7_CLVRLF	FJ7_CODCAP	FJ7_ITCTRA	FJ7_DESC	D_E_L_E_T_	R_E_C_N_O_	R_E_C_D_E_L_
	001	001	001	001	000003	001	001	001	001	001	001	001	001	Padrao		1	0

Linha Microsiga Protheus > Natureza X Conta Orçamentaria - FINA272 > image2019-9-10_11-50-12.png

01. Resumo

02. Operações.

03. Remover leitura do SX3.

04. Troca de nome de funções.

05. Estrutura de Dados.

Estrutura

SX3

SIX

SX2

Campos.

FILIAL

NATUR

DESNAT

ITEM

COINI

COFIM

CLASSE

CCINI

CCFIM

ITCTBI

ITCTBF

CLVRLI

CLVRLF

CODCAP

ITCTRA

DESC

Campos identificados no Fonte FINA272 (CNI)

Campos:

Indice.

06. Correção de Tela.

07. Gravação no Banco de Dados.

08. Anexos.