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 definiu o campo UnrealizedTaxTypepara CashBasispara um grupo de publicação de impostos no México na versão norte-americana do Microsoft Dynamics NAV 2009. O valor do IVA Não Realizado está incorreto se uma das seguintes condições for verdadeira:
- Quando aplica mais de dois pagamentos a uma fatura, o valor de IVA Não Realizado está incorreto para o segundo e os restantes pagamentos.
- Quando aplica um pagamento parcial a uma fatura de compra, o valor de IVA Não Realizado não é revertido até que a fatura completa seja paga.
- Publica uma fatura de compra numa moeda estrangeira. Em seguida, execute a função AdjustCurrencyExchange na fatura. Nesta situação, quando aplica um pagamento à fatura, o valor do IVA Não Realizado está incorreto.
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
Para obter mais informações sobre uma correção relacionada, mas não dependente, para um problema incorreto de IVA realizado, clique no seguinte número de artigo para ver o artigo na Base de Dados de Conhecimento Microsoft:
2694737 O sistema preenche o valor incorreto de IVA realizado quando publica um pagamento que se aplica a uma fatura em moeda estrangeira na versão norte-americana do Microsoft Dynamics NAV 2009
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 GetUnRealizedVATPart na tabela Entrada de IVA (254) da seguinte forma:
Código existente 1
...
END;
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;OriginalAmtLCY@1480000 : Decimal;OriginalCurrFactor@1020000 : Decimal) : Decimal;
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid),Cash Basis';
BEGIN
IF (Type <> 0) AND
(Amount = 0) AND
(Base = 0)
THEN BEGIN
...
Código de substituição 1
...
END;
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;OriginalAmtLCY@1480000 : Decimal;OriginalCurrFactor@1020000 : Decimal) : Decimal;
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid),Cash Basis';
// Add the following lines.
CustLedgEntry@1170000000 : Record 21;
VendLedgEntry@1310001 : Record 25;
// End of the lines.
BEGIN
IF (Type <> 0) AND
(Amount = 0) AND
(Base = 0)
THEN BEGIN
...
Código existente 2
...
UnrealizedVatType::"Cash Basis":
BEGIN
IF OriginalAmtLCY = 0 THEN
EXIT(1)
ELSE
// Delete the following lines.
IF GetCurrencyCode() = '' THEN
EXIT(-SettledAmount / OriginalAmtLCY)
ELSE
EXIT((-SettledAmount / OriginalCurrFactor) / OriginalAmtLCY);
// End of the lines.
END;
END;
END ELSE
EXIT(0);
...
Código de substituição 2
...
UnrealizedVatType::"Cash Basis":
BEGIN
IF OriginalAmtLCY = 0 THEN
EXIT(1)
ELSE
// Add the following lines.
CASE Type OF
Type::Sale:
BEGIN
CustLedgEntry.SETCURRENTKEY("Transaction No.");
CustLedgEntry.SETRANGE("Transaction No.","Transaction No.");
CustLedgEntry.SETRANGE("Document No.","Document No.");
IF CustLedgEntry.FINDFIRST THEN
IF CustLedgEntry."Original Currency Factor" <> CustLedgEntry."Adjusted Currency Factor" THEN
Paid := ROUND((Paid / CustLedgEntry."Original Currency Factor") * CustLedgEntry."Adjusted Currency Factor");
END;
Type::Purchase:
BEGIN
VendLedgEntry.SETCURRENTKEY("Transaction No.");
VendLedgEntry.SETRANGE("Transaction No.","Transaction No.");
VendLedgEntry.SETRANGE("Document No.","Document No.");
IF VendLedgEntry.FINDFIRST THEN
IF VendLedgEntry."Original Currency Factor" <> VendLedgEntry."Adjusted Currency Factor" THEN
Paid := ROUND((Paid / VendLedgEntry."Original Currency Factor") * VendLedgEntry."Adjusted Currency Factor");
END;
END;
EXIT(ABS(-SettledAmount) / (ABS(OriginalAmtLCY) - ABS(Paid) + ABS(SettledAmount)))
// End of the lines.
END;
END;
END ELSE
EXIT(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
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".
Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.