Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  1. Visão Geral
  2. Exemplo de utilização
  3. Estrutura de dados.
  4. Tabelas utilizadas
  5. 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.

...

03. Estrutura de dados.


Tabela

Chave

Arquivo

Nome

Chave única

F73

F73010

Naturezas X Contas Orçamentárias

F73_FILIAL+F73_NATUR+F73_ITEM

...

CampoDescrição
F73_FILIALCódigo da Filial do Sistema
F73_NATURCódigo de Identificação da Natureza Financeira
F73_DESNATDescrição da Natureza Financeira
F73_ITEMItem Sequencial
F73_COINICódigo Inicial da Conta Orçamentária para importação de dados
F73_COFIMCódigo Final da Conta Orçamentária para importação de dados
F73_CLASSECódigo da Classe para importação de dados, quando vazio será considerado todos.
F73_ CCINICódigo Inicial do Centro de Custo para importação de dados, quando vazio será considerado todos.
F73_ CCFIMCódigo Final do Centro de Custo para importação de dados, quando vazio será considerado todos.
F73_ITCTBICódigo Inicial do Item Contábil para importação de dados, quando vazio será considerado todos.
F73_ITCTBFCódigo Final do Item Contábil para importação de dados, quando vazio será considerado todos.
F73_CLVRLICódigo Inicial da Classe de Valor para importação de dados, quando vazio será considerado todos.
F73_CLVRLFCó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
InformacaoImportante aplicar o pacote 008342, e adicionar a rotina ao menu.
TituloIMPORTANTE!


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
languagejava
themeMidnight
titleCódigo fonte:
collapsetrue
#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>