Histórico da Página

...

Visão Geral
Exemplo de utilização
Estrutura de dados.
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.

...

03. 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

Informacao	Importante aplicar o pacote 008342, e adicionar a rotina ao menu.
Titulo	IMPORTANTE!

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

language	java
theme	Midnight
title	Código fonte:
collapse	true

#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>

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave

01. VISÃO GERAL

03. Estrutura de dados.

04. TABELAS UTILIZADAS

05. MIGRADOR ZC1 x F73