As entradas incorretas do WIP são publicadas quando executa a função Post WIP numa tarefa que utiliza o método WIP do Contrato Concluído na versão norte-americana do Microsoft Dynamics NAV 2009

Aplica-se a
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

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

  • Inglês (Canadá) (en-ca)
  • Inglês (Estados Unidos) (en-us)
  • Espanhol (México) (es-mx)
  • Francês (Canadá) (fr-ca)

Sintomas

Suponha que cria uma tarefa que utiliza o método de trabalho em curso (WIP) do Contrato Concluído na versão norte-americana do Microsoft Dynamics NAV 2009. Primeiro, executa a função Post WIP na tarefa sem executar a função WIP Calculado na tarefa. Nesta situação, é publicado incorretamente um duplicado das entradas wip que são publicadas para o período anterior. Por conseguinte, quando executa o relatório do Balanço do período anterior, é apresentado o saldo duplicado do WIP.
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 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 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.

            
          

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. Adicione uma nova função DeleteEntriesForJob na tabela Entrada WIP da Tarefa (1004) da seguinte forma:

    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 unidade de código Calculate WIP (1000) da seguinte forma:
    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 DeleteWIP na unidade de código Calcular WIP (1000) da Tarefa. Para fazer isso, siga estas etapas:

    1. Adicione uma nova variável local na função DeleteWIP na unidade de código Calcular Tarefa wip (1000) e, em seguida, especifique a variável da seguinte forma:

      • Nome: JobTask
      • DataType: Registo
      • Subtipo: Tarefa da Tarefa (1001)

    2. Adicione uma nova variável local na função DeleteWIP na unidade de código Calcular Tarefa wip (1000) e, em seguida, especifique a variável da seguinte forma:

      • Nome: JobWIPEntry
      • DataType: Registo
      • Subtipo: Entrada WIP da Tarefa (1004)

    3. Adicione uma nova variável local na função DeleteWIP na unidade de código Calcular Tarefa wip (1000) e, em seguida, especifique a variável da seguinte forma:

      • Nome: JobLedgerEntry
      • DataType: Registo
      • Subtipo: Entrada do Livro Razão da Tarefa (169)

    4. Adicione o seguinte código na função DeleteWIP na codeunit Calcular Tarefa do WIP (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 instalados para aplicar esta correçã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 sobre remoção

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

Status

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

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.