Dúvida
Como utilizar regra e preencher os centro de custo analítico no relacionamento entre o plano contábil e o referencial no módulo de Cadastros?
 
Solução
Para preencher os centro de custo, realize os passos a seguir:
 
1. Acesse a tela F043RMP - Cadastros / Modelos de plano / Relacionamentos / Entre planos e exclua o relacionamento para limpar os campos da tabela E043RMP;
 
2. Acesse a tela F650CCT - Controladoria / Gestão de Contabilidade / Contabilidade / Conciliação / Saldos e realize a conciliação de saldos alterando o parâmetro 'Processo:' para Corrigir saldos contábeis por centro de custos ( em caso de duvida, verifique o artigo ERP – Conciliação Contábil – Como executar a rotina de conciliação de saldo contábeis);
 
3. Acesse a tela F043RMP - Cadastros / Modelos de plano / Relacionamentos / Entre planos, informe o Modelo Plano Origem, o Modelo Plano C.Custo e o Modelo Plano Destino e referencie as contas contábeis do seu plano contábil ao plano referencial, sem informar centros de custos:
 

 
4. Acesse a tela Recursos / Implementações / Regras / Editar e cadastre a regra:
 
/*
INCLUI REGISTROS NA E043RMP
PARA CENTROS DE CUSTO ANALÍTICOS, COM BASE NA E650SLC
*/
 
DEFINIR NUMERO NCODEMP;
DEFINIR NUMERO NCODFIL;
DEFINIR ALFA XMESANO;
DEFINIR DATA DMESANO;
DEFINIR DATA DMESANOFIM;
DEFINIR NUMERO NPARCODMPC;
DEFINIR NUMERO NPARCODMPU;
DEFINIR NUMERO NPARCODMPA;
DEFINIR NUMERO NSEQMPC;
DEFINIR NUMERO NCTARED;
DEFINIR ALFA XCODCCU;
DEFINIR NUMERO NCTAREDANT;
DEFINIR ALFA XCODCCUANT;
@ E043RMP @
DEFINIR NUMERO NCODMPC;
DEFINIR NUMERO NCODMPU;
DEFINIR NUMERO NCODMPA;
DEFINIR NUMERO NCTAANT;
DEFINIR NUMERO NCTARED;
DEFINIR ALFA  XGRUCTA;
DEFINIR NUMERO NCTAATU;
DEFINIR NUMERO NNATCTA;
DEFINIR ALFA  XCCUANT;
DEFINIR ALFA  XCCUATU;
DEFINIR NUMERO NPERRAT;
 
DEFINIR CURSOR CUR_E650SLC;
DEFINIR CURSOR CUR_E043RMP;
DEFINIR CURSOR CUR_E043RMP_II;
NCODEMP = XX;
NCODFIL = XX;
XMESANO = "01/01/20XX";
CONVDATAINT(XMESANO, DMESANO);
XMESANO= "31/12/20XX";
CONVDATAINT(XMESANO, DMESANOFIM);
NPARCODMPC = XXX;
NPARCODMPU = XXX;
NPARCODMPA = XXX;
NSEQBASE = 100000;
NSEQMPC = NSEQBASE;
NCTAREDANT = 0;
XCODCCUANT = " ";
 
CUR_E650SLC.SQL "SELECT E650SLC.CTARED, E650SLC.CODCCU FROM E650SLC \
          WHERE E650SLC.CODEMP = :NCODEMP \
            AND E650SLC.CODFIL = :NCODFIL \
            AND E650SLC.MESANO >= :DMESANO \
            AND E650SLC.MESANO <= :DMESANOFIM \
            AND E650SLC.CODCCU <> ' ' \
            AND EXISTS (SELECT 1 \
               FROM E044CCU \
               WHERE E044CCU.CODEMP = E650SLC.CODEMP \
                 AND E044CCU.CODCCU = E650SLC.CODCCU \
                  AND E044CCU.ANASIN = 'A') \
            AND EXISTS (SELECT 1 FROM E043RMP  \
           WHERE E043RMP.CODMPC = :NPARCODMPC \ 
             AND E043RMP.CODMPU = :NPARCODMPU \
             AND E043RMP.CODMPA = :NPARCODMPA \
             AND E043RMP.CTAANT = E650SLC.CTARED) \
            AND EXISTS (SELECT 1 FROM E045PLA  \
           WHERE E045PLA.CODEMP = E650SLC.CODEMP \ 
             AND E045PLA.CTARED = E650SLC.CTARED \
             AND E045PLA.ANASIN = 'A') \ 
           ORDER BY 1,2";
CUR_E650SLC.ABRIRCURSOR();
ENQUANTO (CUR_E650SLC.ACHOU)
{
NCTARED = CUR_E650SLC.CTARED;
XCODCCU = CUR_E650SLC.CODCCU;
SE ((NCTARED <> NCTAREDANT)
OU (XCODCCU <> XCODCCUANT))
{
NCTAREDANT = NCTARED;
XCODCCUANT = XCODCCU;
 
CUR_E043RMP.SQL "SELECT CODMPC, CODMPU, CODMPA, CTAANT, CTARED, GRUCTA, CTAATU, NATCTA, CCUANT, CCUATU, PERRAT \
             FROM E043RMP \ 
             WHERE E043RMP.CODMPC = :NPARCODMPC \ 
                AND E043RMP.CODMPU = :NPARCODMPU \
               AND E043RMP.CODMPA = :NPARCODMPA \
               AND E043RMP.CTAANT = :NCTARED \
               AND E043RMP.SEQMPC < :NSEQBASE";
CUR_E043RMP.ABRIRCURSOR();
ENQUANTO (CUR_E043RMP.ACHOU)
{
NSEQMPC = NSEQMPC + 1;
 
CUR_E043RMP_II.SQL "SELECT CODMPC \
                  FROM E043RMP \ 
                  WHERE E043RMP.CODMPC = :NPARCODMPC \ 
                    AND E043RMP.CODMPU = :NPARCODMPU \
                    AND E043RMP.CODMPA = :NPARCODMPA \
                    AND E043RMP.SEQMPC = :NSEQMPC";
CUR_E043RMP_II.ABRIRCURSOR();
SE (CUR_E043RMP_II.NAOACHOU)
 {
 NCODMPC = CUR_E043RMP.CODMPC;
 NCODMPU = CUR_E043RMP.CODMPU;
 NCODMPA = CUR_E043RMP.CODMPA;
 NCTAANT = CUR_E043RMP.CTAANT;
 NCTARED = CUR_E043RMP.CTARED;
 XGRUCTA = CUR_E043RMP.GRUCTA;
 NCTAATU = CUR_E043RMP.CTAATU;
 NNATCTA = CUR_E043RMP.NATCTA;
 XCCUANT = CUR_E043RMP.CCUANT;
 XCCUATU = CUR_E043RMP.CCUATU;
 NPERRAT = CUR_E043RMP.PERRAT;
 EXECSQL "INSERT INTO E043RMP (CODMPC, CODMPU, CODMPA, SEQMPC, CTAANT, CTARED, GRUCTA, CTAATU, NATCTA, CCUANT, CODCCU, CCUATU, PERRAT) \
          VALUES (:NCODMPC, :NCODMPU, :NCODMPA, :NSEQMPC, :NCTAANT, :NCTARED, :XGRUCTA, :NCTAATU, :NNATCTA, :XCCUANT, :XCODCCU, :XCCUATU, :NPERRAT)";
 }
CUR_E043RMP_II.FECHARCURSOR();
CUR_E043RMP.PROXIMO();
}
}
CUR_E043RMP.FECHARCURSOR();
CUR_E650SLC.PROXIMO();
}
CUR_E650SLC.FECHARCURSOR();
 
4.1. Realize as adequações na regra de acordo com os códigos e datas de sua empresa, planos e período:
 

 
5. Execute a regra pela tela F000ERG - Recursos / Implementações / Regras / Executar, informe o código da regra e clique no botão Executar:
 

 
Observação:
Não irá aparecer nenhuma mensagem após a execução.
 
6. Acesse a tela F043RMP - Cadastros / Modelos de plano / Relacionamentos / Entre planos e verifique os centro de custos nas contas contábeis ajustando conforme a sua necessidade;
6.1. Caso não possua lançamentos sem centro de custos na conta, exclua os relacionamentos com centro de custos em branco através do atalho ctrl + delete:
 

 
Observação:
Para mais informações sobre o SPED Contábil no Gestão Empresarial | ERP, consulte o artigo ERP – SPED Contábil - Onde é possível encontrar informações sobre o processo de configuração e exportação do SPED Contábil (índice).

Atenção! Antes de realizar qualquer alteração, analise o impacto que poderá ter em outros lançamentos/processos do sistema.