Movimentos TRAB incorrectos são registados quando executa a função Registar TRAB num projecto que utiliza o método do Trab de contrato concluído na versão norte-americana do Microsoft Dynamics NAV 2009


Este artigo aplica-se para o Microsoft Dynamics NAV para os seguintes países e idiomas.
  • Inglês (Canadá) (en-ca)
  • Inglês (Estados Unidos) (en-us)
  • Espanhol (México) (es-mx)
  • Francês (Canadá) (fr-AC)

Sintomas


Suponha que cria uma tarefa que utiliza o método do Principio Facturação trabalhos em curso (WIP) na versão norte-americana do Microsoft Dynamics NAV 2009. Executar a função Registar TRAB no projecto sem executar a função Calcular Trab. em curso do projecto pela primeira vez. Nesta situação, é registado incorrectamente um duplicado dos movimentos Trab. em curso que são registadas para o período anterior. Por conseguinte, quando executar o relatório de balanço para o período anterior, o saldo WIP duplicado é apresentado.
Este problema ocorre nos seguintes produtos:
  • A versão norte-americana do Microsoft Dynamics NAV 2009 R2
  • A versão norte-americana do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Resolução


Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.


Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
  • A permissão Modificar para o objecto que estará a alterar.
  • A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .


Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:
  1. Adicione uma nova função de DeleteEntriesForJob na tabela movimento do TRAB (1004) do seguinte modo:
    PROCEDURE DeleteEntriesForJob@1001(Job@1002 : Record 167);
    SETCURRENTKEY("Job No.");
    SETRANGE("Job No.",Job."No.");
    IF NOT ISEMPTY THEN
    DELETEALL(TRUE);
  2. Altere o código na função CalcGLWIP na codeunit rotina Calcular TRAB (1000) do seguinte modo:
    Código existente
    ...GLEntry.FIND('+');
    JobWIPGLEntry."G/L Entry No." := GLEntry."Entry No.";
    DimMgt.CopyLedgEntryDimToLedgEntryDim(DATABASE::"Job WIP Entry",
    JobWIPEntry."Entry No.",
    DATABASE::"Job WIP G/L Entry",
    JobWIPGLEntry."Entry No.");
    JobWIPGLEntry.INSERT;
    UNTIL JobWIPEntry.NEXT = 0;
    END;
    Código de substituição
    ...GLEntry.FIND('+');
    JobWIPGLEntry."G/L Entry No." := GLEntry."Entry No.";
    DimMgt.CopyLedgEntryDimToLedgEntryDim(DATABASE::"Job WIP Entry",
    JobWIPEntry."Entry No.",
    DATABASE::"Job WIP G/L Entry",
    JobWIPGLEntry."Entry No.");
    JobWIPGLEntry.INSERT;
    UNTIL JobWIPEntry.NEXT = 0;
    END;

    // Add the following line.
    DeleteWIP(Job);
  3. Adicione uma nova função de DeleteWIP na codeunit rotina Calcular TRAB (1000). Para tal, siga estes passos:
    1. Adicionar uma nova variável local na função DeleteWIP na codeunit rotina Calcular TRAB (1000) e, em seguida, especifique a variável da seguinte forma:
      • Nome: JobTask
      • Tipo de dados: registo
      • Subtipo: tarefa projecto (1001)
    2. Adicionar uma nova variável local na função DeleteWIP na codeunit rotina Calcular TRAB (1000) e, em seguida, especifique a variável da seguinte forma:
      • Nome: JobWIPEntry
      • Tipo de dados: registo
      • Subtipo: Movimento Trab. (1004)
    3. Adicionar uma nova variável local na função DeleteWIP na codeunit rotina Calcular TRAB (1000) e, em seguida, especifique a variável da seguinte forma:
      • Nome: JobLedgerEntry
      • Tipo de dados: registo
      • Subtipo: entrada contábil de projeto (169)
    4. Adicione o seguinte código na função DeleteWIP na codeunit rotina Calcular TRAB (1000):
      PROCEDURE DeleteWIP@1001(Job@1002 : Record 167);VAR
      JobTask@1003 : Record 1001;
      JobWIPEntry@1004 : Record 1004;
      JobLedgerEntry@1005 : Record 169;

      JobTask.SETRANGE("Job No.",Job."No.");
      IF JobTask.FIND('-') THEN
      REPEAT
      JobTask.InitWIPFields;
      UNTIL JobTask.NEXT = 0;

      JobWIPEntry.DeleteEntriesForJob(Job);

      JobLedgerEntry.SETRANGE("Job No.",Job."No.");
      JobLedgerEntry.MODIFYALL("Amt. to Post to G/L",0);

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
  • A versão norte-americana do Microsoft Dynamics NAV 2009 R2
  • A versão norte-americana do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Informações de remoção

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

Estado


A Microsoft confirmou que este é um problema nos produtos da 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 contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .