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
- Tela XXX
- Principais Campos e Parâmetros
- Principais Campos e Parâmetros
- Estrutura de dados.
- Tabelas utilizadas
- Migrador ZC1 x F73Tabelas utilizadas
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 |
Principais Campos
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)* |
*Função FIN272Vld() será responsável por todas as validações de campos
Indice.
Indice | Ordem | Chave | Descrição |
---|---|---|---|
F73_FILIAL | 1 | F73_FILIAL+F73_NATUR+F73_ITEM | Natureza + Item |
Gatilhos.
Campo | Seq | Regra | Chave | Condição | Alias |
---|---|---|---|---|---|
F73_NATUR | 001 | M->F73_DESNAT:=SED->ED_DESCRIC | xFilial("SED")+M->F73_NATUR | !EMPTY(M->F73_NATUR) | SED |
Card documentos | ||
---|---|---|
|
04. TELA XXXXX
Principais Campos e Parâmetros
...
Card documentos | ||||
---|---|---|---|---|
|
...
04. TABELAS UTILIZADAS
- F73 Natureza x Contas Orçamentárias.
- SED
- AK5
- AK6
- CTT
- CTD CTH
- 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> |