Quando regista uma factura e pagamento ou um diário periódico que contenha dedutível o imposto valor acrescentado (IVA), IVA não dedutível na versão portuguesa do Microsoft Dynamics NAV 2009, normal, recebe a seguinte mensagem de erro:
"A transacção não pode ser concluída porque esta causará inconsistências na tabela Mov. Verifique onde e como a função CONSISTENT é utilizada na transacção para encontrar a razão do erro. Contacte o administrador de sistema. Tabelas podem ser marcadas como inconsistentes durante tarefas abrangentes como, por exemplo, o registo. Desta forma, dados a ser actualizada incorrectamente."
Siga os passos na secção de alterações de código para resolver este problema. Este problema ocorre no seguinte produto:
-
A versão portuguesa do Microsoft Dynamics NAV 2009 R2
-
A versão portuguesa do Microsoft Dynamics NAV 2009 SP1
Deve-se aos montantes específicos e % IVA D..
Por exemplo:
1. o, 15% de 0, 25 = 0,002875 e ARREDONDADO para 2 casas decimais é 0.
12. o Codeunit não existe uma restrição para registar apenas os valores <> 0, para que os movimentos de imposto valor acrescentado (IVA) são ignorados.
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 2009 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. No entanto, 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 Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. 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 9015 de ID de objecto de sistema
objecto.
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 testar sempre correções de código num ambiente controlado antes de aplicar as correcções para os computadores de produção. Antes de aplicar a alteração, volte a importar todas as actualizações SEPA.
Para resolver este problema, siga estes passos:
-
Alterar o código na função InsertVAT no diário de Gr.-Post linha Codeunit (12), da seguinte forma:
Código existente 1...VATDifferenceLCY@1013 : Decimal;
SrcCurrVATDifference@1014 : Decimal;
BEGIN
WITH GenJnlLine DO BEGIN
...Código de substituição 1
...VATDifferenceLCY@1013 : Decimal;
SrcCurrVATDifference@1014 : Decimal;
// Add the following line.
VATAmountTotal@1015 : Decimal;
// End of the added line.
BEGIN
WITH GenJnlLine DO BEGIN
...Código existente 2
...GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
// Delete the following lines.
VATPostingSetup.TESTFIELD("Return VAT account (Sales)");
InitGLEntry(
VATPostingSetup."Return VAT account (Sales)",
// -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100,
-TempVATAmount,
// -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
// End of the deleted lines.
END
ELSE
...Código de substituição 2
...GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
END
ELSE
...Código existente 3
...END
ELSE
// Delete the following lines.
BEGIN
IF NOT GenJnlLine."UE Aquisition Not Accep." THEN BEGIN
VATPostingSetup.TESTFIELD("Purchase VAT Account");
InitGLEntry(
VATPostingSetup."Purchase VAT Account",
GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
END;
//--------
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",
// -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100,
// ROUND(-GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100),
ROUND((- VATBase * VATPostingSetup."VAT D. %" / 100) - (VATBase * VATPostingSetup."VAT N.D. %" / 100)),
// -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
// End of the deleted lines.
InsertGLEntry(TRUE);
END;
...Código de substituição 3
...END
ELSE
// Add the following lines.
IF NOT GenJnlLine."UE Aquisition Not Accep." THEN BEGIN
VATPostingSetup.TESTFIELD("Purchase VAT Account");
InitGLEntry(
VATPostingSetup."Purchase VAT Account",
GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
// End of the added lines.
InsertGLEntry(TRUE);
END;
...Código existente 4
...END;
END;
END;
END;
...Código de substituição 4
... END;
END;
// Add the following lines.
IF IsPurchaseReverseChargeVAT(UnrealizedVAT) THEN
IF "Document Type"= "Document Type"::"Credit Memo" THEN BEGIN
IF (NOT GenJnlLine."UE Aquisition Not Accep.") AND (TempVATAmount <> 0) THEN BEGIN
VATPostingSetup.TESTFIELD("Return VAT account (Sales)");
InitGLEntry(
VATPostingSetup."Return VAT account (Sales)",
-TempVATAmount,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
END;
END ELSE BEGIN
VATAmountTotal
:= ROUND((- VATBase * VATPostingSetup."VAT D. %" / 100) - (VATBase * VATPostingSetup."VAT N.D. %" / 100));
IF VATAmountTotal <> 0 THEN BEGIN
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",VATAmountTotal,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
END;
END;
// End of the added lines.
END;
END;
... -
Alterar o código na função IsPurchaseReverseChargeVAT no diário de Gr.-Post linha Codeunit (12), da seguinte forma:
Código existente...END;
BEGIN
END.
...Código de substituição
...END;
// Add the following lines.
LOCAL PROCEDURE IsPurchaseReverseChargeVAT@1110015(UnrealizedVAT@1110000 : Boolean) : Boolean;
BEGIN
EXIT(
(GenJnlLine."Gen. Posting Type" = GenJnlLine."Gen. Posting Type"::Purchase) AND (NOT UnrealizedVAT) AND
(VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"Reverse Charge VAT" ));
END;
// End of the added lines.
BEGIN
END.
...
Pré-requisitos
Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
-
A versão portuguesa do Microsoft Dynamics NAV 2009 R2
-
A versão portuguesa do Microsoft Dynamics NAV 2009 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.
