CONTEÚDO

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.

02. EXEMPLO DE UTILIZAÇÃO

 Incluir.

Na opção incluir, será apresentada a tela abaixo com cabeçalho e Itens, onde o cabeçalho e uma visualização da tabela de Naturezas (SED) dos campos código e descrição e os itens o          relacionamento que serão cadastrados na tabela de relacionamento F73.

Os Campos, Conta Orçamentária De e Até possuem a consulta Padrão da tabela AK5, Classe possui a consulta Padrão da tabela AK6, Centro de Custo De e Até possuem a consulta Padrão da tabela CTT, Item Contábil De e Até possuem a consulta Padrão da tabela CTD e Classe de Valor De e Até possuem a consulta Padrão da tabela CTH.

Dos campos mencionados acima, exceto o Campo Conta Orçamentária De e Até, se estiverem vazios indicara que todos serão selecionados.

Ao clicar em Confirmar a rotina ira salvar a digitação e não poderá permitir uma nova inclusão para a natureza 001 conforme exemplo acima, permitindo apenas a alteração.

Poderá ser incluída varias linhas para compor o valor da natureza com as contas orçamentárias, não poderá ser repetido o conjunto de conta orçamentária mais classe mais centro de custo mais item contábil e mais classe de valor em mais de uma natureza.

Alterar.

Na opção Alterar, será apresentado à tela de Naturezas X Contas Orçamentárias mencionada acima no item incluir com o registro posicionado no browse para a devida manutenção, caso não existir ainda o relacionamento o sistema aviso que devera ser utilizada a opção incluir.

Visualizar.

Na opção Visualizar, será apresentado à tela Naturezas X Contas Orçamentárias mencionada acima no item incluir com o registro posicionado no browse para a devida visualização.

Excluir.

Na opção Excluir, será apresentado à tela Naturezas X Contas Orçamentárias mencionada acima no item incluir com o registro posicionado no browse para a devida confirmação da exclusão.

Importar.

Na opção Importar, serão exibidas as perguntas para a seleção dos saldos orçamentários a importar para o financeiro, após o preenchimento das perguntas e confirmada a operação o sistema inicia o processo de transferência alimentando a tabela SE7 – Orçamento Financeiro com os valores obtidos no calculo das contas orçamentárias relacionadas na tabela F73.

O calculo mencionado acima é a soma dos saldos das contas orçamentárias vigentes relacionadas para cada natureza, este resultado será gravado no seu respectivo período no financeiro.

Perguntas

1 – Período De  – Informar a data inicial que será utilizada para a importação dos valores.

2 – Período Até  – Informar a data final que será utilizada para a importação dos valores.

3 – Tipo de Saldo– Informar o Tipo de Saldo que será utilizado para a importação dos valores(habilitar consulta padrão para esta pergunta.

4 – Moeda Destino – Informar a Moeda que será utilizada no orçamento financeiro(habilitar consulta padrão para esta pergunta.

5 – Natureza De – Informar a natureza inicial para a importação. (habilitar consulta padrão para esta pergunta)

6 – Natureza Até – Informar a natureza final para a importação. (habilitar consulta padrão para esta pergunta)

7 – Conta Orçamentária De – Informar a conta orçamentária inicial para a importação. (habilitar consulta padrão para esta pergunta)

8 – Conta Orçamentária Até – Informar a conta orçamentária final para a importação. (habilitar consulta padrão para esta pergunta)

Após o processamento devera ser exibida uma tela no formato Browse com as opções de Confirmar ou Cancelar, com os dados que foram gerados na importação, no formato dos campos do orçamento financeiro, o usuário devera visualizar a tela e efetuar a devida conferencia confirmando ou cancelando a operação.

Após a confirmação não existira estorno ou cancelamento do processo, este procedimento devera ser feito manualmente no cadastro de orçamentos financeiros.

Os dados importados serão sempre sobrepostos ao existente no cadastro de Orçamento Financeiro.

03. Estrutura de dados.

Tabela

Principais Campos

Validações.

*Função FIN272Vld() será responsável por todas as validações de campos

Indice.

Gatilhos.

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.  

#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