Import routine of the budget flow by nature of the PCO, carries out the Binding of Nature X Budget Account.
It will be necessary to create a table because the FJ7 used in the CNI project was superimposed on the Funding Transaction Cost table, and to change the entry of the FJ7 table to the table that will be created.
You will also need to migrate to the MVC standard.
Add Routine to Menu:
Updates > Registration
Replace the CNI270HEAD function that creates the HEAD, since it uses X3 directly from the base; FJ7 must use dbStruct().
Register of Nature x Budget Accounts Binding
Edit Registration of Nature x Budget Accounts Binding
Delete Registration of Nature x Budget Accounts Binding
View Registration of Nature x Budget Accounts Binding
Import the budget flow by nature of PCO.
It will be necessary to change the function names.
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
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 | System Branch | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ | 1 | ÇÇ | N | 033 | S | N | 1 | 2 | ||||||||||||||||||||||||||
FJ7 | 02 | FJ7_NATUR | C | 10 | Nature | Nature | Nature | Nature Code | Nature Code | Nature Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | ■└ | S | S | N | A | R | ExistCpo("SED") | ||||||||||||||||||||||||||
FJ7 | 03 | FJ7_DESNAT | C | 30 | Nature Desc | Nature Desc | Nature Desc | Class Description | Class Description | Class Description | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | IF(!INCLUI,POSICIONE("SED",1,XFILIAL("SED") + FJ7->FJ7_NATUR,"ED_DESCRIC"),"") | ■└ | S | N | V | V | |||||||||||||||||||||||||||
FJ7 | 04 | FJ7_ITEM | C | 4 | Item | Item | Item | Sequential Item | Sequential Item | Sequential Item | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | ■└ | S | N | V | R | ||||||||||||||||||||||||||||
FJ7 | 05 | FJ7_COINI | C | 20 | From Bud Acc | From Bud Acc | From Bud Acc | Initial Budget Acc Code | Initial Budget Acc Code | Budget Account Code | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | AK5 | ■└ | S | N | A | R | Ç | ExistCpo("AK5") .And. CNI270VLD("FJ7_COINI") | 013 | |||||||||||||||||||||||||
FJ7 | 06 | FJ7_COFIM | C | 20 | Acc. Bud to | Acc. Bud to | Acc. Bud to | Final Budget Acc Code | Final Budget Acc Code | Final Budget Acc Code | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | AK5 | ■└ | S | N | A | R | Ç | ExistCpo("AK5") .And. CNI270VLD("FJ7_COFIM") | 013 | |||||||||||||||||||||||||
FJ7 | 07 | FJ7_CLASSE | C | 6 | Class | Class | Class | Class Code | Class Code | Class Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | AK6 | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("AK6") | ||||||||||||||||||||||||||
FJ7 | 08 | FJ7_CCINI | C | 20 | From UO | From Cost Cent | From Cost Cent | Initial UO Code | Initial Cost Cent Code | Initial Cost Cent Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTT | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCINI") | 004 | |||||||||||||||||||||||||
FJ7 | 09 | FJ7_CCFIM | C | 20 | To UO | To Cost Cent | To Cost Cent | Final UO Code | Final Cost Cent Code | Final Cost Cent Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTT | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCFIM") | 004 | |||||||||||||||||||||||||
FJ7 | 10 | FJ7_ITCTBI | C | 20 | CR. From Acc | It From Acc | It From Acc | Initial Accounting RA Code | Initial Accounting Item Code | Initial Accounting Item Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTD | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBI") | 005 | |||||||||||||||||||||||||
FJ7 | 11 | FJ7_ITCTBF | C | 20 | CR. To Acc | It To Acc | It To Acc | Final Accounting RA Code | Final Accounting Item Code | Final Accounting Item Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTD | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBF") | 005 | |||||||||||||||||||||||||
FJ7 | 12 | FJ7_CLVRLI | C | 20 | From Val Class | From Val Class | From Val Class | Initial Value Class Code | Initial Value Class Code | Initial Value Class Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTH | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLI") | 006 | |||||||||||||||||||||||||
FJ7 | 13 | FJ7_CLVRLF | C | 20 | To Val Class | From Val Class | From Val Class | Final Value Class Code | Initial Value Class Code | Initial Value Class Code | @! | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | CTH | ■└ | S | N | A | R | Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLF") | 006 | |||||||||||||||||||||||||
FJ7 | 14 | FJ7_CODCAP | C | 8 | Codigo Cap | Cod.Captac. | Coll Code | Código da captação | Codigo de la capitacion | Collection Code | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | 1 | äÇ | S | N | N | 1 | 2 | |||||||||||||||||||||||||||
FJ7 | 15 | FJ7_ITCTRA | C | 5 | Item Transac C | Item Transac C | Item Transac C | Item Custo Transação | Item costo transaccion | Item Transaction Cost | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | 1 | äÇ | S | N | N | 1 | 2 | |||||||||||||||||||||||||||
FJ7 | 16 | FJ7_DESC | C | 40 | Description | Descripcion | Description | Descrição do Custo Trans | Descripc.Costo Trans. | Description Trans Cost | ÇÇÇÇÇÇÇÇÇÇÇÇÇÇá | 1 | äÇ | S | N | N | 1 | 2 |
INDEX | ORDER | KEY | DESCRIPTION | DESCSPA | DESCENG | PROP | F3 | NICKNAME | SHOWPESQ | IX_VIRTUAL | IX_VIRCUST |
FJ7 | 2 | FJ7_FILIAL+FJ7_CODCAP+FJ7_ITCTRA | Nature+Item | Nature+Item | Nature+Item | U | N | ||||
FJ7 | 1 | FJ7_FILIAL+FJ7_NATUR+FJ7_ITEM | Nature+Item | Nature+Item | Nature+Item | U | N | 2 | 3 |
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 | C | C | FJ7_FILIAL+FJ7_CODCAP+FJ7_ITCTRA | S | 6 | 1 | 2 | 2 |
Field | NOVATAB_FILIAL |
Order | 01 |
Type | C |
Size | 8 |
Reserved | Yes |
Decimal | |
Format | |
Title | Branch |
Description | System branch |
Level | 1 |
Used | |
Mandatory | |
Browse | N |
Visual | |
Context | |
When | |
Relation | |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group | 033 - Branch Size |
TOTVS POS | Yes |
Modal | No |
Field | NOVATAB_NATUR |
Order | 02 |
Type | C |
Size | 10 |
Reserved | No |
Decimal | |
Format | @! |
Title | Nature |
Description | Nature Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | ExistCpo("SED") |
Standard Query | |
Field Group |
Field | NOVATAB_DESNAT |
Order | 03 |
Type | C |
Size | 30 |
Reserved | No |
Decimal | |
Format | @! |
Title | Nature Desc |
Description | Nature Description |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | V |
Context | V |
When | |
Relation | IF(!INCLUI,POSICIONE("SED",1,XFILIAL("SED") + FJ7->FJ7_NATUR,"ED_DESCRIC"),"") |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group |
Field | NOVATAB_ITEM |
Order | 04 |
Type | C |
Size | 4 |
Reserved | No |
Decimal | |
Format | @! |
Title | Item |
Description | Sequential Item |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | V |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group |
Field | NOVATAB_COINI |
Order | 05 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | |
Title | From Bud Acc |
Description | Initial Budget Acc Code |
Level | |
Used | Yes |
Mandatory | Ç |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | ExistCpo("AK5") .And. CNI270VLD("FJ7_COINI") |
Standard Query | AK5 |
Field Group | 013 - Budget Account |
Field | NOVATAB_COFIM |
Order | 06 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | |
Title | Acc. Bud to |
Description | Final Budget Acc Code |
Level | |
Used | Yes |
Mandatory | Ç |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | ExistCpo("AK5") .And. CNI270VLD("FJ7_COFIM") |
Standard Query | AK5 |
Field Group | 013 - Budget Account |
Field | NOVATAB_CLASSE |
Order | 07 |
Type | C |
Size | 6 |
Reserved | No |
Decimal | |
Format | @! |
Title | Class |
Description | Class Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("AK6") |
Standard Query | AK6 |
Field Group |
Field | NOVATAB_CCINI |
Order | 08 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | From UO |
Description | Initial UO Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCINI") |
Standard Query | CTT |
Field Group | 004 - Cost Center |
Field | NOVATAB_CCFIM |
Order | 09 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | To UO |
Description | Final UO Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTT") .And. CNI270VLD("FJ7_CCFIM") |
Standard Query | CTT |
Field Group | 004 - Cost Center |
Field | NOVATAB_ITCTBI |
Order | 10 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | CR. From Acc |
Description | Initial Accounting RA Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBI") |
Standard Query | CTD |
Field Group | 005 - Accounting Item |
Field | NOVATAB_ITCTBF |
Order | 11 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | CR. To Acc |
Description | Final Accounting RA Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTD") .And. CNI270VLD("FJ7_ITCTBF") |
Standard Query | CTD |
Field Group | 005 - Accounting Item |
Field | NOVATAB_CLVRLI |
Order | 12 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | From Val Class |
Description | Initial Value Class Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLI") |
Standard Query | CTH |
Field Group | 006 - Value Class |
Field | NOVATAB_CLVRLF |
Order | 13 |
Type | C |
Size | 20 |
Reserved | No |
Decimal | |
Format | @! |
Title | To Val Class |
Description | Final Value Class Code |
Level | |
Used | Yes |
Mandatory | |
Browse | N |
Visual | A |
Context | R |
When | |
Relation | |
Valid. | |
Sys. Validation | Vazio() .Or. ExistCpo("CTH") .And. CNI270VLD("FJ7_CLVRLF") |
Standard Query | CTH |
Field Group | 006 - Value Class |
Field | NOVATAB_CODCAP |
Order | 14 |
Type | C |
Size | 8 |
Reserved | Yes |
Decimal | |
Format | |
Title | Coll Code |
Description | Collection Code |
Level | 1 |
Used | Yes |
Mandatory | |
Browse | |
Visual | |
Context | |
When | |
Relation | |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group | |
TOTVS POS | Yes |
Modal | No |
Field | NOVATAB_ITCTRA |
Order | 15 |
Type | C |
Size | 5 |
Reserved | Yes |
Decimal | |
Format | |
Title | Item Transac C |
Description | Transaction Cost Item |
Level | 1 |
Used | Yes |
Mandatory | |
Browse | |
Visual | |
Context | |
When | |
Relation | |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group | |
TOTVS POS | Yes |
Modal | No |
Field | NOVATAB_DESC |
Order | 16 |
Type | C |
Size | 40 |
Reserved | Yes |
Decimal | |
Format | |
Title | Description |
Description | Transac Cost Description |
Level | 1 |
Used | Yes |
Mandatory | |
Browse | |
Visual | |
Context | |
When | |
Relation | |
Valid. | |
Sys. Validation | |
Standard Query | |
Field Group | |
TOTVS POS | Yes |
Modal | No |
1 - FJ7_FILIAL+FJ7_NATUR+FJ7_ITEM
2 - FJ7_FILIAL+FJ7_CODCAP+FJ7_ITCTRA
How the Table FJ7 is used today
Currently, table FJ7 is called Transaction Funding Cost
FJ7_CODCAP
FJ7_DESC
FJ7_FILIAL
FJ7_ITCTRA
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
1 - FJ7_FILIAL+FJ7_NATUR+FJ7_ITEM
It will be necessary to increase the screen grid as shown below.
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 | Default | 1 | 0 |