ERP – Função GerarContaAuxiliarCliFor – Como utilizar a Função GerarContaAuxiliarCliFor para gerar as contas auxiliares de fornecedores e clientes já cadastrados no sistema
Dúvida
Como utilizar a Função GerarContaAuxiliarCliFor para gerar as contas auxiliares de fornecedores e clientes já cadastrados no sistema, no módulo Gestão de Contabilidade?
Solução
Segue abaixo exemplo de layout com a Função GerarContaAuxiliarCliFo.
1. Layout:
2. Definições:
3. Em Procedimentos, A cada leitura, inclua a regra:
4. Segue exemplo de regra:
/******************************************************************************/
/**************** GERAÇÃO DE CONTAS AUXILIARES PARA FORNECEDOR ****************/
/******************************************************************************/
Definir Cursor Cur_E095HFO;
Definir Numero nCodEmp; @ Código da Empresa @
Definir Numero nCodFil; @ Código da Filial @
Definir Numero nCodFor; @ Código do Fornecedor @
Definir Numero nCtaRed; @ Conta Contábil @
Definir Numero nCtaAux; @ Conta Auxiliar @
Definir Numero nCtaRcr; @ Conta Contábil 2 @
Definir Numero nCtaAad; @ Conta Adiantamento @
nCodEmp = 1; @ ATENÇÃO: O ideal é que esta informação seja obtida do arquivo de importação junto com o código do fornecedor !!! @
nCodFil = 1; @ ATENÇÃO: O ideal é que esta informação seja obtida do arquivo de importação junto com o código do fornecedor !!! @
Cur_E095HFO.SQL "SELECT CTARED, CTAAUX, CTARCR, CTAAAD FROM E095HFO WHERE CODEMP=:nCodEmp AND CODFIL=:nCodFil AND CODFOR=:nCodFor";
Cur_E095HFO.AbrirCursor();
Se (Cur_E095HFO.Achou){ @ Verifica se existe o cadastro do fornecedor no ERP @
@ ----------------------------- Conta auxiliar ----------------------------- @
nCtaAux = Cur_E095HFO.CtaAux; @ Conta auxiliar do cadastro do fornecedor @
nCtaRed = Cur_E095HFO.CtaRed; @ Conta contábil do cadastro do fornecedor @
Se (nCtaAux = 0) { @ Verifica se o fornecedor não possui conta auxiliar @
Se (nCtaRed > 0) { @ Verifica se o fornecedor possui conta contábil @
GerarContaAuxiliarCliFor(0, nCodFor, nCodEmp, nCodFil, nCtaRed, "", 0, nCtaAux); @ Gera a conta auxiliar @
}
}
@ --------------------------- Conta adiantamento --------------------------- @
nCtaAad = Cur_E095HFO.CtaAad; @ Conta auxiliar de adiantamento do cadastro do fornecedor @
nCtaRcr = Cur_E095HFO.CtaRcr; @ Conta contábil reduzida 2 do cadastro do fornecedor @
Se (nCtaAad = 0) { @ Verifica se o fornecedor não possui conta auxiliar de adiantamento @
Se (nCtaRcr > 0) { @ Verifica se o fornecedor possui conta contábil reduzida 2 @
GerarContaAuxiliarCliFor(0, nCodFor, nCodEmp, nCodFil, nCtaRcr, "", 1, nCtaAad); @ Gera a conta auxiliar de adiantamento @
}
}
}
Cur_E095HFO.FecharCursor();
Cancel(1);
/******************************************************************************/