Histórico da Página
...
- Visão Geral
- Exemplo de utilização
- Tela XXX
- Outras Ações / Ações relacionadas
- Outras Ações / Ações relacionadas
- Estrutura de dados.Tela XXXPrincipais Campos e Parâmetros
- Tabelas utilizadas
- Migrador ZC1 x F73
01. VISÃO GERAL
Este cadastro permite a importação do Fluxo Orçamentário por Natureza do PCO – Planejamento e Controle Orçamentário para o Financeiro. Será utilizado para relacionar as Naturezas com as Contas Orçamentárias, este relacionamento será utilizado posteriormente na importação dos valores registrados no Planejamento e Controle Orçamentário para o Orçamento do Financeiro.
...
Os dados importados serão sempre sobrepostos ao existente no cadastro de Orçamento Financeiro.
...
03.
...
Outras Ações / Ações relacionadas
...
Estrutura de dados.
Tabela
Chave | Arquivo | Nome | Chave única |
F73 | F73010 | Naturezas X Contas Orçamentárias | F73_FILIAL+F73_NATUR+F73_ITEM |
...
Campo | Descrição |
---|---|
F73_FILIAL | Código da Filial do Sistema |
F73_NATUR | Código de Identificação da Natureza Financeira |
F73_DESNAT | Descrição da Natureza Financeira |
F73_ITEM | Item Sequencial |
F73_COINI | Código Inicial da Conta Orçamentária para importação de dados |
F73_COFIM | Código Final da Conta Orçamentária para importação de dados |
F73_CLASSE | Código da Classe para importação de dados, quando vazio será considerado todos. |
F73_ CCINI | Código Inicial do Centro de Custo para importação de dados, quando vazio será considerado todos. |
F73_ CCFIM | Código Final do Centro de Custo para importação de dados, quando vazio será considerado todos. |
F73_ITCTBI | Código Inicial do Item Contábil para importação de dados, quando vazio será considerado todos. |
F73_ITCTBF | Código Final do Item Contábil para importação de dados, quando vazio será considerado todos. |
F73_CLVRLI | Código Inicial da Classe de Valor para importação de dados, quando vazio será considerado todos. |
F73_CLVRLF | Código Final da Classe de Valor para importação de dados, quando vazio será considerado todos. |
Validações.
Campo | Validação |
F73_NATUR | ExistChav("SED") |
F73_COINI | ExistChav("AK5") .AND. FIN272Vld(‘F73_CO’,INCLUI)* |
F73_COFIM | ExistChav("AK5") .AND. FIN272Vld(‘F73_CO’,INCLUI)* |
F73_CLASSE | Vazio() .or. ExistChav("AK6") |
F73_ CCINI | Vazio() .or. ExistChav("CTT").AND. FIN272Vld(‘F73_ CCINI’,INCLUI)* |
F73_ CCFIM | Vazio() .or. ExistChav("CTT").AND. FIN272Vld(‘F73_ CCFIM’,INCLUI)* |
F73_ITCTBI | Vazio() .or. ExistChav("CTD").AND. FIN272Vld(‘F73_ ITCTBI’,INCLUI)* |
F73_ITCTBF | Vazio() .or. ExistChav("CTD").AND. FIN272Vld(‘F73_ ITCTBF’,INCLUI)* |
F73_CLVRLI | Vazio() .or. ExistChav("CTH").AND. FIN272Vld(‘F73_ CLVRLI’,INCLUI)* |
F73_CLVRLF | Vazio() .or. ExistChav("CTH").AND. FIN272Vld(‘F73_ CLVRLF’,INCLUI)* |
...
Card documentos | ||||
---|---|---|---|---|
|
...
04. TABELAS UTILIZADAS
- F73 Natureza x Contas Orçamentárias.
- SED Naturezas.
- AK5 Contas Orçamentárias.
- AK6 Classes Orçamentárias.
- CTT Centro de Custo .
- CTD Item Contábil.
- CTH Classes de Valores.
05. MIGRADOR ZC1 x F73
Este RdMake tem por finalidade transferir os dados da tabela de cliente (ZC1) para a nova tabela de dados (F73) Natureza x Contas Orçamentárias.
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "protheus.ch" #INCLUDE "rwmake.ch" #INCLUDE "TBICONN.ch" #Include "TOTVS.CH" USER FUNCTION Migrador() Local lOk := .F. PREPARE ENVIRONMENT EMPRESA cEmpAnt FILIAL cFilAnt MODULO "FIN" TABLES "ZC1","F73","SED" If ChkFile("ZC1") DbSelectArea("ZC1") ZC1->(dbSetOrder(1))//ZC1_FILIAL+ZC1_NATUR+ZC1_ITEM ZC1->(dbGoTop())//POSICIONA NO PRIMEIRO REGISTRO DA ZC1 Endif If ChkFile("F73") DbSelectArea("F73") F73->(dbSetOrder(1))//F73_FILIAL+F73_NATUR+F73_ITEM F73->(dbGoTop())//POSICIONA NO PRIMEIRO REGISTRO DA F73 Endif Begin Transaction While !("ZC1")->( Eof()) Reclock("F73",.T.) F73->F73_FILIAL := ZC1->ZC1_FILIAL F73->F73_NATUR := ZC1->ZC1_NATUR F73->F73_ITEM := ZC1->ZC1_ITEM F73->F73_COINI := ZC1->ZC1_COINI F73->F73_COFIM := ZC1->ZC1_COFIM F73->F73_CLASSE := ZC1->ZC1_CLASSE F73->F73_CCINI := ZC1->ZC1_CCINI F73->F73_CCFIM := ZC1->ZC1_CCFIM F73->F73_ITCTBI := ZC1->ZC1_ITCTBI F73->F73_ITCTBF := ZC1->ZC1_ITCTBF F73->F73_CLVRLI := ZC1->ZC1_CLVRLI F73->F73_CLVRLF := ZC1->ZC1_CLVRLF lOk := .T. F73->(MsUnlock()) ZC1->(Dbskip()) Enddo ZC1->(DbCloseArea()) F73->(DbCloseArea()) If lOk MsgAlert("Migração realizada com sucesso!") else DisarmTransaction() MsgAlert("Falha na migração execute novamente!") Endif End Transaction RESET ENVIRONMENT Return Nil |
HTML |
---|
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |