O sistema gera um montante incorreto no Intrastat Journal se publicar uma fatura que tenha vários números de Lote para uma linha de item na versão italiana do Microsoft Dynamics NAV 2009

Aplica-se a
Dynamics NAV 2009

Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma italiano (it).

Sintomas

Considere o seguinte cenário na versão italiana do Microsoft Dynamics NAV 2009 R2 e do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1):

  • Crie uma fatura para um item e defina a quantidade do item como 2.
  • Pode atribuir dois números de Lote para a linha de item na caixa de diálogo Linhas de Controlo de Itens.
  • Adicione uma linha de item de custo atribuída a cada item faturado por montante na caixa de diálogo Atribuições de Custos de Item .
  • Publica a fatura.

Neste cenário, o sistema gera uma quantidade incorreta no Intrastat Journal. O montante no diário Intrastat inclui apenas o custo de um item faturado inesperadamente.

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 ajudar a explicar a funcionalidade de um procedimento específico. No entanto, eles não modificarão esses exemplos para fornecer funcionalidade adicional ou procedimentos de construção para atender aos 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 resolve este problema, altere o código no relatório Obter Entradas do Livro Razão do Item (594). Para fazer isso, siga estas etapas:

  1. Altere o código no item de dados Número 2 da seguinte forma:

    1. Elimine uma variável global da seguinte forma:
      Código existente

      ...
SalesShipLine@1130019 : Record 111;
ReturnRcptHeader@1130011 : Record 6660;
DocItemSum@1130013 : Decimal;
CorrectionFound@1130014 : Boolean;
ItemCharge@1130015 : Record 5800;

// Delete the following line.
ValueEntry2@1130016 : Record 5802;

IncludeItemCharge@1130017 : Boolean;
BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

      Código de substituição

      ...
SalesShipLine@1130019 : Record 111;
ReturnRcptHeader@1130011 : Record 6660;
DocItemSum@1130013 : Decimal;
CorrectionFound@1130014 : Boolean;
ItemCharge@1130015 : Record 5800;
IncludeItemCharge@1130017 : Boolean;
BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

    2. Altere o código da seguinte forma:
      Código existente 1

      ...
TotalAmt := 0;
DocItemSum := 0;
CorrectionFound := FALSE;

ValueEntry.SETRANGE("Item Ledger Entry No.","Item Ledger Entry"."Entry No.");

// Delete the following lines.
 ValueEntry2.COPYFILTERS(ValueEntry);
 ValueEntry2.SETRANGE("Invoiced Quantity",0);
// End of the deleted lines.

IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
...

      Código de substituição 1

      ...
TotalAmt := 0;
DocItemSum := 0;
CorrectionFound := FALSE;

ValueEntry.SETRANGE("Item Ledger Entry No.","Item Ledger Entry"."Entry No.");

IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
...

      Código existente 2

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);

// Delete the following lines.
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ValueEntry2."Cost Amount (Actual)" :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ValueEntry2."Cost Amount (Actual)",AddCurrencyFactor);
 TotalAmt := TotalAmt + ValueEntry2."Cost Amount (Actual)";
 UNTIL ValueEntry2.NEXT = 0;
 END;
// End of the deleted lines.

END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
...

      Código de substituição 2

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);
END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
...

      Código existente 3

      ...
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);

// Delete the following lines.
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ValueEntry2."Sales Amount (Actual)" :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ValueEntry2."Sales Amount (Actual)",AddCurrencyFactor);
 TotalAmt := TotalAmt - ValueEntry2."Sales Amount (Actual)";
 UNTIL ValueEntry2.NEXT = 0;
 END;
// End of the deleted lines.

END;
ELSE BEGIN
TotalInvoicedQty := TotalInvoicedQty + ValueEntry."Invoiced Quantity";
IF NOT IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := TotalAmt + ValueEntry."Cost Amount (Actual)"
...

      Código de substituição 3

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);
END;
ELSE BEGIN
TotalInvoicedQty := TotalInvoicedQty + ValueEntry."Invoiced Quantity";
IF NOT IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := TotalAmt + ValueEntry."Cost Amount (Actual)"
...

      Código existente 4

      ...
CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
ValueEntry."Cost Amount (Actual)",AddCurrencyFactor);
END;
END;
END;

IF ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Transfer THEN
InsertItemJnlLine()
ELSE BEGIN
...

      Código de substituição 4

      ...
CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
ValueEntry."Cost Amount (Actual)",AddCurrencyFactor);
END;
END;

// Add the following line.
CalcTotalItemChargeAmt;

END;

IF ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Transfer THEN
InsertItemJnlLine()
ELSE BEGIN
...

  2. Altere o código na função CalcTotalItemChargeAmt da seguinte forma:
    Código existente

    ...
IntrastatJnlBatch2.SETRANGE("EU Service",TRUE);
IntrastatJnlBatch2.SETRANGE("Corrective Entry",FALSE);
IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
END;

BEGIN
END.
}
RDLDATA
{
...

    Código de substituição

    ...
IntrastatJnlBatch2.SETRANGE("EU Service",TRUE);
IntrastatJnlBatch2.SETRANGE("Corrective Entry",FALSE);
IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
END;


// Add the following lines.
 LOCAL PROCEDURE CalcTotalItemChargeAmt@1130002();
 VAR
 ValueEntry2@1130001 : Record 5802;
 ActualAmount@1130002 : Decimal;
 BEGIN
 ValueEntry2.COPYFILTERS(ValueEntry);
 ValueEntry2.SETRANGE("Invoiced Quantity",0);
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 ValueEntry2.SETRANGE("Item Ledger Entry No.");
 ValueEntry2.SETFILTER("Item Charge No.",'<>%1','');
 ValueEntry2.SETRANGE("Document No.",ValueEntry."Document No.");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 ActualAmount := GetActualAmount(ValueEntry2);
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ActualAmount :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ActualAmount,AddCurrencyFactor);
 TotalAmt := TotalAmt + ActualAmount;
 UNTIL ValueEntry2.NEXT = 0;
 END;
 END;

 LOCAL PROCEDURE GetActualAmount@1130001(ValueEntry2@1170000000 : Record 5802) : Decimal;
 BEGIN
 CASE ValueEntry2."Item Ledger Entry Type" OF
 ValueEntry2."Item Ledger Entry Type"::Sale:
 EXIT(- ValueEntry2."Sales Amount (Actual)");
 ValueEntry2."Item Ledger Entry Type"::Purchase:
 EXIT(ValueEntry2."Cost Amount (Actual)");
 END;
 END;
// End of the added lines.

BEGIN
END.
}
RDLDATA
{
...

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

  • A versão italiana do Microsoft Dynamics NAV 2009 R2
  • A versão italiana do Microsoft Dynamics NAV 2009 Service Pack 1

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.