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);                 
/******************************************************************************/