O Microsoft Dynamics NAV não regista alterações num registo de alterações quando utiliza a funcionalidade Dimensions-Multiple num grupo de gráficos de contas

Aplica-se A
Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

OS ARTIGOS DE PUBLICAÇÃO RÁPIDA FORNECEM INFORMAÇÕES DIRETAMENTE A PARTIR DA ORGANIZAÇÃO DE SUPORTE DA MICROSOFT. AS INFORMAÇÕES AQUI CONTIDAS SÃO CRIADAS EM RESPOSTA A TÓPICOS EMERGENTES OU EXCLUSIVOS OU DESTINAM-SE A COMPLEMENTAR OUTRAS INFORMAÇÕES DA BASE DE DADOS DE CONHECIMENTO.

Este artigo aplica-se ao Microsoft Dynamics NAV para todos os países e regiões de idioma.

Sintomas

Suponha que ativa a funcionalidade Registo de Alterações Ativada para registar a operação de inserção, a operação de modificação e a operação de cancelamento para todos os campos na tabela Dimensão Predefinida (352) no Microsoft Dynamics NAV 2009. Quando especifica dimensões predefinidas e valores de dimensão para um grupo de gráficos de contas através da funcionalidade Dimensões-Múltiplos , o Microsoft Dynamics NAV não regista as alterações num registo de alterações.

Este problema ocorre nos seguintes produtos:

  • Microsoft Dynamics NAV 2009 Service Pack 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1

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 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 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 aplicar esta correção, siga estes passos:

  1. Adicione a seguinte variável local no acionador SetCommonDefaultDim no formulário "Default Dimensions-Multiple" (542) e, em seguida, especifique a variável da seguinte forma:

    • Nome: ChangeLogMgt
    • DataType: Codeunit
    • Subtipo: Gestão de Registos de Alterações
  2. Adicione a seguinte variável local no acionador SetCommonDefaultDim no formulário "Default Dimensions-Multiple" (542) e, em seguida, especifique a variável da seguinte forma:

    • Nome: Reencaminhar
    • DataType: RecordRef
  3. Adicione a seguinte variável local no acionador SetCommonDefaultDim no formulário "Default Dimensions-Multiple" (542) e, em seguida, especifique a variável da seguinte forma:

    • Nome: xRecRef
    • DataType: RecordRef
  4. Altere o código no acionador SetCommonDefaultDim no formulário "Default Dimensions-Multiple" (542) da seguinte forma:
    Código existente

    ...
    SETRANGE(
    "Multi Selection Action","Multi Selection Action"::Delete);
    IF FIND('-') THEN
    REPEAT
    IF TempDefaultDim3.FIND('-') THEN
    REPEAT
    IF DefaultDim.GET(
    TempDefaultDim3."Table ID",TempDefaultDim3."No.","Dimension Code")
    
    // Delete the following line.
    THEN
    
    DefaultDim.DELETE(TRUE);
    UNTIL TempDefaultDim3.NEXT = 0;
    UNTIL NEXT = 0;
    SETRANGE(
    "Multi Selection Action","Multi Selection Action"::Change);
    IF FIND('-') THEN
    REPEAT
    IF TempDefaultDim3.FIND('-') THEN
    REPEAT
    IF DefaultDim.GET(
    TempDefaultDim3."Table ID",TempDefaultDim3."No.","Dimension Code")
    THEN BEGIN
    DefaultDim."Dimension Code" := "Dimension Code";
    DefaultDim."Dimension Value Code" := "Dimension Value Code";
    DefaultDim."Value Posting" := "Value Posting";
    DefaultDim.MODIFY(TRUE);
    END ELSE BEGIN
    DefaultDim.INIT;
    DefaultDim."Table ID" := TempDefaultDim3."Table ID";
    DefaultDim."No." := TempDefaultDim3."No.";
    DefaultDim."Dimension Code" := "Dimension Code";
    DefaultDim."Dimension Value Code" := "Dimension Value Code";
    DefaultDim."Value Posting" := "Value Posting";
    DefaultDim.INSERT(TRUE);
    END;
    UNTIL TempDefaultDim3.NEXT = 0;
    UNTIL NEXT = 0;
    ...
    
    

    Código de substituição

    ...
    SETRANGE(
    "Multi Selection Action","Multi Selection Action"::Delete);
    IF FIND('-') THEN
    REPEAT
    IF TempDefaultDim3.FIND('-') THEN
    REPEAT
    IF DefaultDim.GET(
    TempDefaultDim3."Table ID",TempDefaultDim3."No.","Dimension Code")
    
    // Add the following lines.
    THEN BEGIN
    xRecRef.GETTABLE(DefaultDim);
    
    DefaultDim.DELETE(TRUE);
    
    // Add the following lines.
    ChangeLogMgt.LogDeletion(xRecRef);
    END;
    
    UNTIL TempDefaultDim3.NEXT = 0;
    UNTIL NEXT = 0;
    SETRANGE(
    "Multi Selection Action","Multi Selection Action"::Change);
    IF FIND('-') THEN
    REPEAT
    IF TempDefaultDim3.FIND('-') THEN
    REPEAT
    IF DefaultDim.GET(
    TempDefaultDim3."Table ID",TempDefaultDim3."No.","Dimension Code")
    THEN BEGIN
    
    // Add the following line.
    xRecRef.GETTABLE(DefaultDim);
    
    DefaultDim."Dimension Code" := "Dimension Code";
    DefaultDim."Dimension Value Code" := "Dimension Value Code";
    DefaultDim."Value Posting" := "Value Posting";
    DefaultDim.MODIFY(TRUE);
    
    // Add the following lines.
    RecRef.GETTABLE(DefaultDim); 
    ChangeLogMgt.LogModification(RecRef,xRecRef); 
    
    END ELSE BEGIN
    DefaultDim.INIT;
    DefaultDim."Table ID" := TempDefaultDim3."Table ID";
    DefaultDim."No." := TempDefaultDim3."No.";
    DefaultDim."Dimension Code" := "Dimension Code";
    DefaultDim."Dimension Value Code" := "Dimension Value Code";
    DefaultDim."Value Posting" := "Value Posting";
    DefaultDim.INSERT(TRUE);
    
    // Add the following lines.
    RecRef.GETTABLE(DefaultDim); 
    ChangeLogMgt.LogInsertion(RecRef);
    
    END;
    UNTIL TempDefaultDim3.NEXT = 0;
    UNTIL NEXT = 0;
    ...
    
    

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

  • Microsoft Dynamics NAV 2009 Service Pack 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1

Informações para reiniciar

Não tem de reiniciar o computador depois de aplicar este código.

Informações de remoção

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

Estado

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

A MICROSOFT E/OU OS RESPETIVOS FORNECEDORES NÃO FAZEM DECLARAÇÕES OU GARANTIAS SOBRE A ADEQUAÇÃO, A FIABILIDADE OU A PRECISÃO DAS INFORMAÇÕES CONTIDAS NOS DOCUMENTOS E OS GRÁFICOS RELACIONADOS PUBLICADOS NESTE WEB SITE (OS "MATERIAIS") PARA QUALQUER FIM.

OS MATERIAIS PODEM INCLUIR IMPRECISÕES TÉCNICAS OU ERROS TIPOGRÁFICOS E PODEM SER REVISTOS EM QUALQUER ALTURA SEM AVISO PRÉVIO. ATÉ À EXTENSÃO MÁXIMA PERMITIDA PELA LEI APLICÁVEL, A MICROSOFT E/OU OS RESPETIVOS FORNECEDORES EXCLUEM TODAS AS REPRESENTAÇÕES, GARANTIAS E CONDIÇÕES EXPRESSAS, IMPLÍCITAS OU ESTATUTÁRIAS, INCLUINDO, MAS NÃO SE LIMITANDO A REPRESENTAÇÕES, GARANTIAS OU CONDIÇÕES DE TÍTULO, NÃO INFRAÇÃO, CONDIÇÃO OU QUALIDADE SATISFATÓRIA, COMERCIALIZAÇÃO E ADEQUAÇÃO A UM FIM ESPECÍFICO, NO QUE DIZ RESPEITO AOS MATERIAIS.