O campo Código DRF e o campo "Bal. DRF Code" são preenchidos incorretamente em entradas publicadas quando publica um diário geral na versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1

Aplica-se A
Dynamics NAV 2009 Service Pack 1

Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma português (pt).

Sintomas

Suponha que seleciona a caixa de verificação Utilizar DRF na caixa de diálogo Configuração Geral do Livro Razão na versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1). Além disso, selecione a caixa de verificação Associar Código DRF para uma conta. Nesta situação, quando publica diários gerais que utilizam a conta, o campo Código DRF e o campo Código DRF bal. são preenchidos incorretamente nas entradas publicadas.

Resolução

Informações de correção

Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.

Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico para o Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolver o problema. Os custos de suporte habituais serão aplicados a questões e problemas de suporte adicionais que não se qualificam para a atualização específica em questão.

            
          

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer os seus requisitos específicos.

Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.

Para implementar esta correção, tem de ter uma licença de programador.

Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objeto que irá alterar.
  • A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.

                
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.

Alterações de código

Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, siga estes passos:

  1. Adicione uma nova variável global no gen. Jnl.-Post Line codeunit (12) e, em seguida, especifique a variável da seguinte forma:

    • Nome: FromBalAcc
    • DataType: Booleano
  2. Altere o código na função Code (Código) no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
    Código existente 1

    ...
    ["Account Type"::Customer,
    "Account Type"::Vendor,
    "Account Type"::"Fixed Asset"])
    
    // Delete the following lines.
    THEN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    // End of the lines.
    
    IF "Account No." <> '' THEN
    CASE "Account Type" OF
    ...
    

    Código de substituição 1

    ...
    ["Account Type"::Customer,
    "Account Type"::Vendor,
    "Account Type"::"Fixed Asset"])
    
    // Add the following lines.
    THEN BEGIN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    FromBalAcc := TRUE;
    END;
    // End of the lines.
    
    IF "Account No." <> '' THEN
    CASE "Account Type" OF
    ...
    

    Código existente 2

    ...
    PostICPartner;
    END;
    
    IF "Bal. Account No." <> '' THEN BEGIN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    IF "Account No." <> '' THEN
    ...
    

    Código de substituição 2

    ...
    PostICPartner;
    END;
    
    // Add the following lines.
    IF FromBalAcc = TRUE THEN
    FromBalAcc := FALSE
    ELSE
    FromBalAcc := TRUE;
    // End of the lines.
    
    IF "Bal. Account No." <> '' THEN BEGIN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    IF "Account No." <> '' THEN
    ...
    
  3. Altere o código na função InitGLEntry no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
    Código existente

    ...
    (GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account") AND
    (TempGLAcc.GET(GLAccNo)) THEN
    IF (TempGLAcc."Associate DRF Code") THEN
    
    // Delete the following line.
    IF GenJnlLine.Amount > 0 THEN BEGIN
    
    IF (GenJnlLine."DRF Code" <> '') THEN
    GLEntry."DRF Code" := GenJnlLine."DRF Code"
    ELSE
    ...
    

    Código de substituição

    ...
    (GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account") AND
    (TempGLAcc.GET(GLAccNo)) THEN
    IF (TempGLAcc."Associate DRF Code") THEN
    
    // Add the following line.
    IF NOT FromBalAcc THEN BEGIN
    
    IF (GenJnlLine."DRF Code" <> '') THEN
    GLEntry."DRF Code" := GenJnlLine."DRF Code"
    ELSE
    ...
    
  4. Altere o código na função Code (Código) no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
    Código existente 1

    ...
    JobLine := (GenJnlLine."Job No." <> '');
    
    InitCodeUnit;
    
    IF ("Account No." <> '') AND ("Bal. Account No." <> '') AND (NOT "System-Created Entry") AND
    ("Account Type" IN
    ["Account Type"::Customer,
    ...
    

    Código de substituição 1

    ...
    JobLine := (GenJnlLine."Job No." <> '');
    
    InitCodeUnit;
    
    // Add the following line.
    FromBalAcc := FALSE;
    
    IF ("Account No." <> '') AND ("Bal. Account No." <> '') AND (NOT "System-Created Entry") AND
    ("Account Type" IN
    ["Account Type"::Customer,
    ...
    

    Código existente 2

    ...
    PostICPartner;
    END;
    
    // Delete the following lines.
    IF FromBalAcc = TRUE THEN
    FromBalAcc := FALSE
    ELSE
    FromBalAcc := TRUE;
    // End of the lines.
    
    IF "Bal. Account No." <> '' THEN BEGIN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    IF "Account No." <> '' THEN
    ...
    

    Código de substituição 2

    ...
    PostICPartner;
    END;
    
    // Add the following line.
    FromBalAcc := NOT FromBalAcc;
    
    IF "Bal. Account No." <> '' THEN BEGIN
    ExchAccGLJnlLine.RUN(GenJnlLine);
    IF "Account No." <> '' THEN
    ...
    

          

Pré-requisitos

Tem de ter a versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1 instalada para aplicar esta correção.

Informações de remoção

Não é possível remover esta correção.

Mais Informações

Para obter mais informações sobre o problema semelhante, clique no seguinte número de artigo para ver o artigo na Base de Dados de Conhecimento Microsoft:

2479082 O valor no campo "Montante do Custo (Real)" é calculado incorretamente em entradas de valor depois de publicar um memorando de crédito de compra na versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1

Estado

A Microsoft confirmou que se trata de um problema nos produtos Microsoft listados na secção "Aplica-se a".

Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.