Os artigos publicados rapidamente 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 2009 para todos os países e regiões de idioma.
Sintomas
Suponha que o código de valor de dimensão do item de componente do kit difere do código do item principal do kit no Microsoft Dynamics NAV 2009 SP1. Quando publica um diário BOM ou um pedido de venda, o Microsoft Dynamics NAV 2009 SP1 permite-lhe publicar incorretamente o diário BOM ou um pedido de venda sem uma mensagem de erro. Este problema ocorre mesmo que o código de publicação do valor de dimensão seja definido como o "mesmo código" para o componente do kit e o item principal do kit.
Espera-se que a "dimensão utilizada na linha do diário do item, predefinição, 10000, tenha causado um erro. Código de valor de dimensão selecionado [valor de dimensão code_Number] para o código de dimensão [Dimension code_Number] para o item [Item_Number]" mensagem de erro a mostrar quando publicar o diário BOM ou a ordem de vendas nesta situação.
Este problema ocorre nos produtos que têm a funcionalidade Kitting incluída para os seguintes países:
- Austrália
- Áustria
- França
- Indonésia
- Malásia
- Nova Zelândia
- América do Norte
- Filipinas
- Singapura
- Tailândia
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 resolver este problema, altere o código na função Code na unidade de código BOM Jnl.-Post Line(32) da seguinte forma:
Código existente
...
ELSE
BuildTotalDisassemblyCost(BOMJnlLine,ItemJnlLine.Amount - "Total Cost");
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2,FALSE);
ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
...
Código de substituição
...
ELSE
BuildTotalDisassemblyCost(BOMJnlLine,ItemJnlLine.Amount - "Total Cost");
// Add the following line.
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2);
// End of the added line.
ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
...
altere o código na função PostTempJnlLines na unidade de código BOM Jnl.-Post Line(32) da seguinte forma:
Código existente
...
IF TempItemJnlLine.FIND('-') THEN
REPEAT
TempItemJnlLine2 := TempItemJnlLine;
TransferDimToItemJnlLine(TempItemJnlLine,TempJnlLineDim2,TRUE);
ItemJnlPostLine.RunWithCheck(TempItemJnlLine,TempJnlLineDim2);
WITH TempItemJnlLine DO BEGIN
Quantity := TempItemJnlLine2.Quantity;
...
Código de substituição
...
IF TempItemJnlLine.FIND('-') THEN
REPEAT
TempItemJnlLine2 := TempItemJnlLine;
// Add the following line.
TransferDimToItemJnlLine(TempItemJnlLine,TempJnlLineDim2);
// End of the added line.
ItemJnlPostLine.RunWithCheck(TempItemJnlLine,TempJnlLineDim2);
WITH TempItemJnlLine DO BEGIN
Quantity := TempItemJnlLine2.Quantity;
...
altere o código na função TransferDimToItemJnlLine na unidade de código BOM Jnl.-Post Line(32) da seguinte forma:
Código existente
...
TempJnlLineDim2."Journal Line No." := ItemJnlLine2."Line No.";
TempJnlLineDim2."Allocation Line No." := 0;
TempJnlLineDim2."Dimension Code" := TempJnlLineDim."Dimension Code";
IF Consumption THEN
IF DefDim.GET(DATABASE::Item,ItemJnlLine2."Item No.",TempJnlLineDim."Dimension Code") THEN BEGIN
TempJnlLineDim2."Dimension Value Code" := DefDim."Dimension Value Code";
CASE DefDim."Dimension Code" OF
GLSetup."Global Dimension 1 Code":
ItemJnlLine2."Shortcut Dimension 1 Code" := DefDim."Dimension Value Code";
GLSetup."Global Dimension 2 Code":
ItemJnlLine2."Shortcut Dimension 2 Code" := DefDim."Dimension Value Code";
END;
END ELSE
TempJnlLineDim2."Dimension Value Code" := TempJnlLineDim."Dimension Value Code"
ELSE
TempJnlLineDim2."Dimension Value Code" := TempJnlLineDim."Dimension Value Code";
TempJnlLineDim2.INSERT;
UNTIL TempJnlLineDim.NEXT = 0;
END;
...
Código de substituição
...
TempJnlLineDim2."Journal Line No." := ItemJnlLine2."Line No.";
TempJnlLineDim2."Allocation Line No." := 0;
TempJnlLineDim2."Dimension Code" := TempJnlLineDim."Dimension Code";
// Add the following line.
TempJnlLineDim2."Dimension Value Code" := TempJnlLineDim."Dimension Value Code";
// End of the added line.
TempJnlLineDim2.INSERT;
UNTIL TempJnlLineDim.NEXT = 0;
END;
...
altere o código na função PostResourceCost na unidade de código BOM Jnl.-Post Line(32) da seguinte forma:
Código existente
...
ItemJnlLine.Kitting := TRUE;
TotalCost := "Total Cost";
UnitCost := "Unit Cost";
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2,TRUE);
IF OutputItemLedgEntryNo <> 0 THEN BEGIN
ItemJnlLine."Item Shpt. Entry No." := OutputItemLedgEntryNo;
...
Código de substituição
...
ItemJnlLine.Kitting := TRUE;
TotalCost := "Total Cost";
UnitCost := "Unit Cost";
// Add the following line.
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2);
// End of the added line.
IF OutputItemLedgEntryNo <> 0 THEN BEGIN
ItemJnlLine."Item Shpt. Entry No." := OutputItemLedgEntryNo;
...
Pré-requisitos
Tem de ter o Microsoft Dynamics NAV 2009 SP1 instalado para aplicar esta correção.
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.