As entradas de Valor ligadas para algumas entradas G/L não são apresentadas conforme esperado após atualizar a versão checa do Microsoft Dynamics NAV 4.0 SP3 para a versão checa do Microsoft Dynamics NAV 5.0 SP1

Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma checo (cz).

Suponha que atualiza a versão checa do Microsoft Dynamics NAV 4.0 Service Pack 3 (SP3) para a versão checa do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1). Quando revê uma entrada Valor na versão 5.0, pode selecionar Entrada – Livro Razão Geral para seguir as entradas do Livro Razão Geral relacionadas. No entanto, quando revê uma entrada Valor de antes da atualização, repara que algumas entradas G/L relacionadas estão em falta.

O toolkit de atualização não transfere todas as relações entre entradas de Valor e entradas G/L na base de dados checa.

Sintomas

Informações sobre o hotfix

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 2009 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 do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolve o seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais que não se enquadrem na atualização específica em questão.

Resolução

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

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, execute as seguintes etapas:

  1. Altere o código na função UpdateGLEntry em Atualizar codeunit do Passo 5.00 (104045) da seguinte forma:
    Código existente

    ...
                 IF FINDSET(TRUE) THEN
    
                  REPEAT
    
                    StateIndicator.Update;
    
    
                    IF GLEntry."Value Entry No." <> 0 THEN BEGIN
    
                      GLEntry."Value Entry No." := 0;
    
                      GLEntry.MODIFY;
    
    
                    END;
    
                  UNTIL NEXT = 0;
    
                TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
    ...
    

    Código de substituição

    ...
            IF FINDSET(TRUE) THEN
    
                  REPEAT
    
                    StateIndicator.Update;
    
    
                    IF "Value Entry No." <> 0 THEN BEGIN
    
                      InsertTempGLItemLedgRelation("Entry No.","Value Entry No.");
    
                      "Value Entry No." := 0;
    
                      MODIFY;
    
    
                    END;
    
                  UNTIL NEXT = 0;
    
                TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
    ...
    
  2. Altere o código na função UpdateValueEntry em Atualizar 5.00 Passo 1 codeunit (104045) da seguinte forma:
    Código existente

    ...
                REPEAT
    
                    StateIndicator.Update;
    
                    ModifyEntry := FALSE;
    
    
                    IF "G/L Entry No. (Account)" <> 0 THEN BEGIN
    
                      InsertTempGLItemLedgRelation("G/L Entry No. (Account)","Entry No.");
    
                      ModifyEntry := TRUE;
    
                    END;
    
                    IF "G/L Entry No. (Bal. Account)" <> 0 THEN BEGIN
    
                      InsertTempGLItemLedgRelation("G/L Entry No. (Bal. Account)","Entry No.");
    
                      ModifyEntry := TRUE;
    
                    END;
    
                    IF "G/L Entry No. (Interim Acc.)" <> 0 THEN BEGIN
    
                      InsertTempGLItemLedgRelation("G/L Entry No. (Interim Acc.)","Entry No.");
    
                      ModifyEntry := TRUE;
    
                    END;
    
                    IF "G/L Entry No. (Int. Bal. Acc.)" <> 0 THEN BEGIN
    
                      InsertTempGLItemLedgRelation("G/L Entry No. (Int. Bal. Acc.)","Entry No.");
    
    
                      ModifyEntry := TRUE;
    
                    END;
    ...
    

    Código de substituição

    ...
                 REPEAT
    
                    StateIndicator.Update;
    
                    ModifyEntry := FALSE;
    
    
                    IF ("G/L Entry No. (Account)" <> 0) OR
    
                       ("G/L Entry No. (Bal. Account)" <> 0) OR
    
                       ("G/L Entry No. (Interim Acc.)" <> 0) OR
    
                       ("G/L Entry No. (Int. Bal. Acc.)" <> 0)
    
                    THEN BEGIN
    
                      "G/L Entry No. (Account)" := 0;
    
                      "G/L Entry No. (Bal. Account)" := 0;
    
                      "G/L Entry No. (Interim Acc.)" := 0;
    
                      "G/L Entry No. (Int. Bal. Acc.)" := 0;
    
    
                      ModifyEntry := TRUE;
    
                    END;
    ...
    
  3. Altere o código na função InsertTempGLItemLedgRelation na unidade de código 5.00 Passo 1 (104045) da seguinte forma:
    Código existente

    ...
               END;
    
          END;
    
    
          LOCAL PROCEDURE InsertTempGLItemLedgRelation@3(VAR GLEntryNo@1000 : Integer;ValueEntryNo@1001 : Integer) : Boolean;
    
    
          VAR
    
            TempGLItemLedgRelation@1002 : Record 104050;
    
          BEGIN          
    ...
    

    Código de substituição

    ...
               END;
    
          END;
    
    
          LOCAL PROCEDURE InsertTempGLItemLedgRelation@3(GLEntryNo@1000 : Integer;ValueEntryNo@1001 : Integer) : Boolean;
    
    
          VAR
    
            TempGLItemLedgRelation@1002 : Record 104050;
    
          BEGIN    
    ...
    
  4. Altere o código na função InsertTempGLItemLedgRelation na unidade de código 5.00 Passo 1 (104045) da seguinte forma:
    Código existente

    ...
      TempGLItemLedgRelation."G/L Entry No." := GLEntryNo;
    
            TempGLItemLedgRelation."Value Entry No." := ValueEntryNo;
    
            IF TempGLItemLedgRelation.INSERT THEN;
    
    // Delete the following line.
            GLEntryNo := 0;
    // End of the deleted line.
    
          END;       
    ...
    

    Código de substituição

    ...
                 TempGLItemLedgRelation."G/L Entry No." := GLEntryNo;
    
            TempGLItemLedgRelation."Value Entry No." := ValueEntryNo;
    
            IF TempGLItemLedgRelation.INSERT THEN;
    
          END; 
    ...
    

          

Pré-requisitos

Tem de ter a versão checa do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) instalada para aplicar esta correção.

Informações sobre remoção

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

VSTF Dynamics NAVSE bug number: 208170

Referências

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".

Status

Observação Este é um artigo "FAST PUBLISH" criado diretamente na organização de suporte da Microsoft. As informações contidas aqui são fornecidas como resposta aos problemas possíveis. Como resultado da prontidão de disponibilizá-lo, os materiais pode conter erros tipográficos e podem ser revisados a qualquer momento são aviso prévio. Consulte Termos de Uso para obter outras considerações.