Este artigo aplica-se ao Microsoft Dynamics NAV para todas as regiões de idioma.
Sintomas
No Microsoft Dynamics NAV, quando tenta criar uma ordem de vendas numa moeda estrangeira se a Data de Publicação Predefinida estiver definida como "Sem Data", o sistema não consegue validar a taxa de câmbio. Por conseguinte, recebe a seguinte mensagem de erro:
Observação
Não existem Conversor de Moedas Taxa de Câmbio no filtro.
Além disso, não pode imprimir o relatório confirmação da encomenda (205).
Este problema ocorre nos seguintes produtos:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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 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.
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:
Altere o código na função SalesHeaderExchDate em Sales Price Calc. Mgt. codeunit (7000) da seguinte forma:
Código existente... WITH SalesHeader DO BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND ("Posting Date" = 0D) THEN EXIT(WORKDATE); EXIT("Posting Date"); // End of the deleted lines. END; ...Código de substituição
... WITH SalesHeader DO BEGIN // Add the following lines. IF "Posting Date" <>0D THEN EXIT("Posting Date"); EXIT(WORKDATE); // End of the added lines. END; ...Altere o código na função PurchHeaderExchDate no Purch. Preço Calc. Mgt. codeunit (7010) da seguinte forma:
Código existente... WITH PurchHeader DO BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND ("Posting Date" = 0D) THEN EXIT(WORKDATE); EXIT("Posting Date"); // End of the deleted lines. END; ...Código de substituição
... WITH PurchHeader DO BEGIN // Add the following lines. IF "Posting Date" <> 0D THEN EXIT("Posting Date"); EXIT(WORKDATE); // End of the added lines. END; ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (111) no formulário Ordem de Vendas (42) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (107) no formulário Fatura de Vendas (43) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (91) no formulário Memorando de Crédito de Vendas (44) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (119) no formulário Nota de Encomenda (50) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (104) no formulário Comprar Fatura (51) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (91) no formulário Nota de Crédito de Compra (52) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (91) no formulário Ordem de Devolução de Vendas (6630) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código no acionador OnAssistEdit no campo código do Conversor de Moedas (91) no formulário Nota de Encomenda de Compra (6640) da seguinte forma:
Código existente... CLEAR(ChangeExchangeRate); // Delete the following line. ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date"); // End of the deleted line. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Código de substituição
... CLEAR(ChangeExchangeRate); // Add the following lines. IF "Posting Date" <> 0D THEN ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date") ELSE ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE); // End of the added lines. IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter); CurrForm.UPDATE; END; CLEAR(ChangeExchangeRate); ...Altere o código na função UpdateCurrencyFactor na tabela Cabeçalho de Vendas (36) da seguinte forma:
Código existente... IF "Currency Code" <>'' THEN BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND ("Posting Date" = 0D) THEN CurrencyDate := WORKDATE ELSE CurrencyDate := "Posting Date"; // End of the deleted lines. "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code"); END ELSE "Currency Factor" := 0; ...Código de substituição
... IF "Currency Code" <> '' THEN BEGIN // Add the following lines. IF "Posting Date" <> 0D THEN CurrencyDate := "Posting Date" ELSE CurrencyDate := WORKDATE; // End of the added lines. "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code"); END ELSE "Currency Factor" := 0; ...Altere o código na função GetDate na tabela Linha de Vendas (37) da seguinte forma:
Código existente... // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (SalesHeader."Posting Date" = 0D) THEN EXIT(WORKDATE); EXIT(SalesHeader."Posting Date"); // End of the deleted lines. ...Código de substituição
... // Add the following lines. IF SalesHeader."Posting Date" <> 0D THEN EXIT(SalesHeader."Posting Date"); EXIT(WORKDATE); // End of the added lines. ...Altere o código na função UpdateCurrencyFactor na tabela Cabeçalho de Compra (38) da seguinte forma:
Código existente... IF "Currency Code" <> '' THEN BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND ("Posting Date" = 0D) THEN CurrencyDate := WORKDATE ELSE CurrencyDate := "Posting Date"; // End of the deleted lines. "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code"); END ELSE "Currency Factor" := 0; ...Código de substituição
... IF "Currency Code"<>'' THEN BEGIN // Add the following lines. IF "Posting Date" <> 0D THEN CurrencyDate := "Posting Date" ELSE CurrencyDate := WORKDATE; // End of the added lines. "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code"); END ELSE "Currency Factor" := 0; ...Altere o código na função GetDate na tabela Linha de Compra (39) da seguinte forma:
Código existente... // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (PurchHeader."Posting Date" = 0D) THEN EXIT(WORKDATE); EXIT(PurchHeader."Posting Date") // End of the deleted lines. ...Código de substituição
... // Add the following lines. IF PurchHeader."Posting Date"<>0D THEN EXIT(PurchHeader."Posting Date"); EXIT(WORKDATE); // End of the added lines. ...Altere o código na função RoundAmount no Sales-Post codeunit (80) da seguinte forma:
Código existente... IF SalesHeader."Currency Code" <>'' THEN BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (SalesHeader."Posting Date" = 0D) THEN // End of the deleted lines. UseDate := WORKDATE ELSE UseDate := SalesHeader."Posting Date"; ...Código de substituição
... IF SalesHeader."Currency Code" <>'' THEN BEGIN // Add the following line. IF (SalesHeader."Posting Date" = 0D) THEN // End of the added line. UseDate := WORKDATE ELSE UseDate := SalesHeader."Posting Date"; ...Altere o código na função RoundAmount em Purch.-Post codeunit (90) da seguinte forma:
Código existente... IF PurchHeader."Currency Code" <>'' THEN BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (PurchHeader."Posting Date" = 0D) THEN // End of the deleted lines. Usedate := WORKDATE ELSE Usedate := PurchHeader."Posting Date"; ...Código de substituição
... IF PurchHeader."Currency Code"<> '' THEN BEGIN // Add the following line. IF (PurchHeader."Posting Date" = 0D) THEN // End of the added line. Usedate := WORKDATE ELSE Usedate := PurchHeader."Posting Date"; ...Altere o código na função UpdateHeaderInfo no formulário Estatísticas de Encomendas de Vendas (402) da seguinte forma:
Código existente... IF "Prices Including VAT" THEN TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo] ELSE TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo]; IF "Currency Code" <> '' THEN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND ("Posting Date" = 0D) THEN // End of the deleted lines. UseDate := WORKDATE ELSE UseDate := "Posting Date"; ...Código de substituição
... IF "Prices Including VAT" THEN TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo] ELSE TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo]; IF "Currency Code" <>'' THEN // Add the following line. IF "Posting Date" = 0D THEN // End of the added line. UseDate := WORKDATE ELSE UseDate := "Posting Date"; ...Altere o código na função UpdateHeaderInfo no formulário Estatísticas da Nota de Encomenda (403) da seguinte forma:
Código existente... IF "Prices Including VAT" THEN TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo] ELSE TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo]; IF "Currency Code" <> '' THEN BEGIN // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND ("Posting Date" = 0D) THEN // End of the deleted lines. UseDate := WORKDATE ELSE UseDate := "Posting Date"; ...Código de substituição
... IF "Prices Including VAT" THEN TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo] ELSE TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo]; IF "Currency Code" <> '' THEN BEGIN // Add the following line. IF "Posting Date" = 0D THEN // End of the added line. UseDate := WORKDATE ELSE UseDate := "Posting Date"; ...Altere o código na função CalculateInvoiceDiscount em Sales-Calc. Codeunit de desconto (60) da seguinte forma:
Código existente... // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (SalesHeader."Posting Date" = 0D) THEN // End of the deleted lines. CurrencyDate := WORKDATE ELSE CurrencyDate := SalesHeader."Posting Date"; ...Código de substituição
... // Add the following line. IF SalesHeader."Posting Date" = 0D THEN // End of the added line. CurrencyDate := WORKDATE ELSE CurrencyDate := SalesHeader."Posting Date"; ...Altere o código na função CalculateInvoiceDiscount na codeunit Purch.-Calc.Discount (70) da seguinte forma:
Código existente... // Delete the following lines. IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND (PurchHeader."Posting Date" = 0D) THEN // End of the deleted lines. CurrencyDate := WORKDATE ELSE CurrencyDate := PurchHeader."Posting Date"; ...Código de substituição
... // Add the following line. IF PurchHeader."Posting Date" = 0D THEN // End of the added line. CurrencyDate := WORKDATE ELSE CurrencyDate := PurchHeader."Posting Date"; ...
Pré-requisitos
Tem de ter um dos seguintes produtos instalados para aplicar esta correção:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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".
Referências
VSTF DynamicsNAV SE: 237796, 245981, 254036
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.