O diário Intrastat não funcionará conforme o esperado se uma fatura contiver duas linhas do mesmo item na versão italiana do Microsoft Dynamics NAV

Aplica-se a

Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

Este artigo se aplica ao Microsoft Dynamics NAV para a localidade de idioma italiano (it).

Sintomas

Suponha que você poste uma fatura que contém duas linhas do mesmo item na versão italiana do Microsoft Dynamics NAV. Quando você gera um diário Intrastat, o diário Intrastat não funciona conforme o esperado. O sistema exibe apenas a primeira linha.
Esse problema ocorre nos seguintes produtos:

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

Resolução

Informações sobre o hotfix

Um hotfix com suporte agora está disponível na Microsoft. No entanto, ele destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o somente a sistemas que estão enfrentando esse problema específico. Esse hotfix pode receber testes adicionais. Portanto, se você não for severamente afetado por esse problema, recomendamos aguardar o próximo pacote de serviços do Microsoft Dynamics NAV ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação Em casos especiais, os encargos que normalmente são incorridos para chamadas de suporte podem ser cancelados se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica resolve 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.

Observação Antes de instalar esse hotfix, verifique se todos os usuários cliente do Microsoft Navision estão conectados ao sistema. Isso inclui usuários cliente do NAS (Microsoft Navision Application Services). Você deve ser o único usuário cliente que está conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

Recomendamos que a conta de usuário na janela Logons do Windows ou na janela Logons de Banco de Dados seja atribuída à ID da função "SUPER". Se a conta de usuário não puder ser atribuída à ID da função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

A permissão Modificar para o objeto que você estará alterando.
A permissão Executar para o objeto System Object ID 5210 e para o objeto System Object ID 9015.

Observação Você não precisa ter direitos para os armazenamentos de dados, a menos que precise executar o reparo de dados.

Alterações de código

Observação Sempre teste correções de código em um ambiente controlado antes de aplicar as correções aos computadores de produção.
Para resolve esse problema, altere o código na função FromSentToOpen no Vend. Bill List-Change Codeunit Status (12171) da seguinte maneira:

Código existente

...
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
        PurchInvLine.SETRANGE("Document No.",ValueEntry."Document No.");
        PurchInvLine.SETRANGE(Type, PurchInvLine.Type::Item);
        PurchInvLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
        PurchInvLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

        IF PurchInvLine.FIND('-') THEN BEGIN
          PurchInvHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty + PurchInvLine.Quantity;
            IF PurchInvHeader."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt + (PurchInvLine.Amount / PurchInvHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt + PurchInvLine.Amount;
          UNTIL PurchInvLine.NEXT = 0;
        END ELSE BEGIN
          PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
          PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
          PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
          PurchRcptLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

          IF PurchRcptLine.FIND('-') THEN BEGIN
            REPEAT
              IF PurchRcptLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += PurchRcptLine."Quantity Invoiced";
            UNTIL PurchRcptLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END ELSE BEGIN
        PurchCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
        PurchCrMemoLine.SETRANGE(Type, PurchInvLine.Type::Item);
        PurchCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
        PurchCrMemoLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

        IF PurchCrMemoLine.FIND('-') THEN BEGIN
          PurchCrMemoHdr.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty - PurchCrMemoLine.Quantity;
            IF PurchCrMemoHdr."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt - (PurchCrMemoLine.Amount / PurchCrMemoHdr."Currency Factor")
            ELSE
              TotalAmt := TotalAmt - PurchCrMemoLine.Amount;
          UNTIL PurchCrMemoLine.NEXT = 0;
        END ELSE BEGIN
          PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
          PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
          PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
          PurchRcptLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

          IF PurchRcptLine.FIND('-')  THEN BEGIN
            REPEAT
              IF PurchRcptLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += PurchRcptLine."Quantity Invoiced";
            UNTIL PurchRcptLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END;
    END;

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

// Delete the following line.
        SalesInvoiceLine.SETRANGE("Line No.",ValueEntry."Document Line No.");

        IF SalesInvoiceLine.FIND('-') THEN BEGIN
          SalesInvoiceHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty :=  TotalInvoicedQty - SalesInvoiceLine.Quantity;
            IF  SalesInvoiceHeader."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt - (SalesInvoiceLine.Amount / SalesInvoiceHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt - (SalesInvoiceLine.Amount);
          UNTIL SalesInvoiceLine.NEXT = 0;
        END ELSE BEGIN
          SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
          SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
          SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
          SalesShipLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

          IF SalesShipLine.FIND('-') THEN BEGIN
            REPEAT
              IF SalesShipLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += SalesShipLine."Quantity Invoiced";
            UNTIL SalesShipLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END ELSE BEGIN
        SalesCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
        SalesCrMemoLine.SETRANGE(Type,SalesCrMemoLine.Type::Item);
        SalesCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
        SalesCrMemoLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

        IF SalesCrMemoLine.FIND('-') THEN BEGIN
          SalesCrMemoHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty + SalesCrMemoLine.Quantity;
            IF SalesCrMemoHeader."Currency Factor" <>0 THEN
              TotalAmt := TotalAmt + (SalesCrMemoLine.Amount / SalesCrMemoHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt + SalesCrMemoLine.Amount;
          UNTIL SalesCrMemoLine.NEXT = 0;
        END ELSE BEGIN
          SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
          SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
          SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");

// Delete the following line.
          SalesShipLine.SETRANGE("Line No.",ValueEntry."Document Line No."); 

          IF SalesShipLine.FIND('-') THEN BEGIN
...

Código de substituição

...
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
        PurchInvLine.SETRANGE("Document No.",ValueEntry."Document No.");
        PurchInvLine.SETRANGE(Type, PurchInvLine.Type::Item);
        PurchInvLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
        PurchInvLine.SETFILTER(PurchInvLine."Service Tariff No.",'%1', ' ');

        IF PurchInvLine.FIND('-') THEN BEGIN
          PurchInvHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty + PurchInvLine.Quantity;
            IF PurchInvHeader."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt + (PurchInvLine.Amount / PurchInvHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt + PurchInvLine.Amount;
          UNTIL PurchInvLine.NEXT = 0;
        END ELSE BEGIN
          PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
          PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
          PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");
          IF PurchRcptLine.FIND('-') THEN BEGIN
            REPEAT
              IF PurchRcptLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += PurchRcptLine."Quantity Invoiced";
            UNTIL PurchRcptLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END ELSE BEGIN
        PurchCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
        PurchCrMemoLine.SETRANGE(Type, PurchInvLine.Type::Item);
        PurchCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
        PurchCrMemoLine.SETFILTER(PurchCrMemoLine."Service Tariff No.",'%1', ' ');

        IF PurchCrMemoLine.FIND('-') THEN BEGIN
          PurchCrMemoHdr.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty - PurchCrMemoLine.Quantity;
            IF PurchCrMemoHdr."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt - (PurchCrMemoLine.Amount / PurchCrMemoHdr."Currency Factor")
            ELSE
              TotalAmt := TotalAmt - PurchCrMemoLine.Amount;
          UNTIL PurchCrMemoLine.NEXT = 0;
        END ELSE BEGIN
          PurchRcptLine.SETRANGE("Document No.",ValueEntry."Document No.");
          PurchRcptLine.SETRANGE(Type, PurchRcptLine.Type::Item);
          PurchRcptLine.SETRANGE("No.",ValueEntry."Item No.");
          IF PurchRcptLine.FIND('-')  THEN BEGIN
            REPEAT
              IF PurchRcptLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += PurchRcptLine."Quantity Invoiced";
            UNTIL PurchRcptLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END;
    END; 

    ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
      IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
        SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
        SalesInvoiceLine.SETRANGE(Type, SalesInvoiceLine.Type::Item);
        SalesInvoiceLine.SETRANGE("No.",ValueEntry."Item No.");
        SalesInvoiceLine.SETFILTER(SalesInvoiceLine."Service Tariff No.",'%1', '  ');
        IF SalesInvoiceLine.FIND('-') THEN BEGIN
          SalesInvoiceHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty :=  TotalInvoicedQty - SalesInvoiceLine.Quantity;
            IF  SalesInvoiceHeader."Currency Factor" <> 0 THEN
              TotalAmt := TotalAmt - (SalesInvoiceLine.Amount / SalesInvoiceHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt - (SalesInvoiceLine.Amount);
          UNTIL SalesInvoiceLine.NEXT = 0;
        END ELSE BEGIN
          SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
          SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
          SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");
          IF SalesShipLine.FIND('-') THEN BEGIN
            REPEAT
              IF SalesShipLine.Correction = TRUE THEN
                CorrectionFound := TRUE;
              DocItemSum += SalesShipLine."Quantity Invoiced";
            UNTIL SalesShipLine.NEXT = 0;
            IF (DocItemSum = 0) AND CorrectionFound THEN CurrReport.SKIP;
          END;
        END;
      END ELSE BEGIN
        SalesCrMemoLine.SETRANGE("Document No.",ValueEntry."Document No.");
        SalesCrMemoLine.SETRANGE(Type,SalesCrMemoLine.Type::Item);
        SalesCrMemoLine.SETRANGE("No.",ValueEntry."Item No.");

// Add the following line.
        SalesCrMemoLine.SETFILTER(SalesCrMemoLine."Service Tariff No.",'%1', '  '); 

        IF SalesCrMemoLine.FIND('-') THEN BEGIN
          SalesCrMemoHeader.GET(ValueEntry."Document No.");
          REPEAT
            TotalInvoicedQty := TotalInvoicedQty + SalesCrMemoLine.Quantity;
            IF SalesCrMemoHeader."Currency Factor" <>0 THEN
              TotalAmt := TotalAmt + (SalesCrMemoLine.Amount / SalesCrMemoHeader."Currency Factor")
            ELSE
              TotalAmt := TotalAmt + SalesCrMemoLine.Amount;
          UNTIL SalesCrMemoLine.NEXT = 0;

        END ELSE BEGIN
          SalesShipLine.SETRANGE("Document No.",ValueEntry."Document No.");
          SalesShipLine.SETRANGE(Type, SalesShipLine.Type::Item);
          SalesShipLine.SETRANGE("No.",ValueEntry."Item No.");
          IF SalesShipLine.FIND('-') THEN BEGIN
...

Pré-requisitos

Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:

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

Informações sobre remoção

Você não pode remover esse hotfix.

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.