As linhas de memorando de crédito não são incluídas no diário intrastat depois de publicar um memorando de crédito do tipo "Custo (Item)" para uma fatura criada para um fornecedor da UE num período diferente na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1

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

Sintomas

Suponha que tem uma fatura criada para um fornecedor da União Europeia (UE) na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1). Quando publica um memorando de crédito do tipo Custo (Item) para a fatura num período diferente, a linha de memorando de crédito não é incluída no diário intrastat.

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 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:

1. Altere o código no Número de Item de Dados 2 no relatório Obter Entradas do Livro Razão do Item (594) da seguinte forma:
   Código existente 1

   ...
   ELSE
   SETRANGE("Entry Type","Entry Type"::Sale);
   
   IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
   IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
   ...
   

   Código de substituição 1

   ...
   ELSE
   SETRANGE("Entry Type","Entry Type"::Sale);
   
   // Add the following line.
   IntrastatJnlLine2.SETRANGE("Journal Batch Name",IntrastatJnlBatch.Name);
   
   IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
   IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
   ...
   

   Código existente 2

   ...
   END;
   
   OnAfterGetRecord=VAR
   
   // Delete the following lines.
   SalesShipmentLine@1005 : Record 111;
   ReturnReceiptLine@1004 : Record 6661;
   PurchRcptLine@1003 : Record 121;
   ReturnShipmentLine@1002 : Record 6651;
   ServiceShipmentLine@1001 : Record 5991;
   ServiceCrMemoLine@1000 : Record 5995;
   // End of the lines.
   
   PurchInvLine@1130000 : Record 123;
   PurchCrMemoLine@1130001 : Record 125;
   SalesInvoiceLine@1130002 : Record 113;
   ...
   

   Código de substituição 2

   ...
   END;
   
   OnAfterGetRecord=VAR
   
   // Add the following line.
   PurchRcptLine@1003 : Record 121;
   
   PurchInvLine@1130000 : Record 123;
   PurchCrMemoLine@1130001 : Record 125;
   SalesInvoiceLine@1130002 : Record 113;
   ...
   

   Código existente 3

   ...
   SalesCrMemoHeader@1130005 : Record 114;
   PurchInvHeader@1130006 : Record 122;
   PurchCrMemoHdr@1130007 : Record 124;
   
   // Delete the following line.
   SalesShipmentHeader@1130008 : Record 110;
   
   SalesShipLine@1130019 : Record 111;
   ReturnRcptHeader@1130011 : Record 6660;
   DocItemSum@1130013 : Decimal;
   ...
   

   Código de substituição 3

   ...
   SalesCrMemoHeader@1130005 : Record 114;
   PurchInvHeader@1130006 : Record 122;
   PurchCrMemoHdr@1130007 : Record 124;
   SalesShipLine@1130019 : Record 111;
   ReturnRcptHeader@1130011 : Record 6660;
   DocItemSum@1130013 : Decimal;
   ...
   

   Código existente 4

   ...
   IF IntrastatJnlLine2.FINDFIRST OR (CompanyInfo."Country/Region Code" = "Country/Region Code") THEN
   CurrReport.SKIP;
   
   // Delete the following lines.
   CASE TRUE OF
   "Document Type" = "Document Type"::"Sales Shipment":
   IF SalesShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(SalesShipmentLine."VAT Bus. Posting Group",SalesShipmentLine."VAT Prod. Posting Group") THEN;
   ("Document Type" = "Document Type"::"Sales Return Receipt") OR ("Document Type" = "Document Type"::"Sales Credit Memo"):
   IF ReturnReceiptLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ReturnReceiptLine."VAT Bus. Posting Group",ReturnReceiptLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Purchase Receipt":
   IF PurchRcptLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(PurchRcptLine."VAT Bus. Posting Group",PurchRcptLine."VAT Prod. Posting Group") THEN;
   ("Document Type" = "Document Type"::"Purchase Return Shipment") OR ("Document Type" = "Document Type"::"Purchase Credit Memo"):
   IF ReturnShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ReturnShipmentLine."VAT Bus. Posting Group",ReturnShipmentLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Service Shipment":
   IF ServiceShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ServiceShipmentLine."VAT Bus. Posting Group",ServiceShipmentLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Service Credit Memo":
   IF ServiceCrMemoLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ServiceCrMemoLine."VAT Bus. Posting Group",ServiceCrMemoLine."VAT Prod. Posting Group") THEN;
   END;
   IF VATPostingSetup."EU Service" THEN
   CurrReport.SKIP;
   
   IF ("Entry Type" = "Entry Type"::Sale) AND
   (SalesShipmentHeader.GET("Document No.")) AND
   (CompanyInfo."Country/Region Code" = SalesShipmentHeader."Bill-to Country/Region Code")
   THEN
   CurrReport.SKIP;
   // End of the lines.
   
   TotalInvoicedQty := 0;
   TotalAmt := 0;
   ...
   

   Código de substituição 4

   ...
   IF IntrastatJnlLine2.FINDFIRST OR (CompanyInfo."Country/Region Code" = "Country/Region Code") THEN
   CurrReport.SKIP;
   
   // Add the following line.
   TestILE("Item Ledger Entry");
   
   TotalInvoicedQty := 0;
   TotalAmt := 0;
   ...
   

2. Altere o código no Número de Item de Dados 5 no relatório Obter Entradas do Livro Razão do Item (594) da seguinte forma:
   Código existente

   ...
   {
   }
   }
   }
   REQUESTFORM
   {
   ...
   

   Código de substituição

   ...
   {
   }
   }
   
   // Add the following lines.
   { PROPERTIES
   {
   DataItemTable=Table5802;
   DataItemTableView=SORTING(Entry No.);
   OnPreDataItem=BEGIN
   SETRANGE("Posting Date",StartDate,EndDate);
   SETFILTER("Item Charge No.",'<> %1','');
   "Item Ledger Entry".SETRANGE("Posting Date");
   
   IF IntrastatJnlBatch.Type = IntrastatJnlBatch.Type::Purchases THEN
   SETFILTER("Item Ledger Entry Type",'%1|%2', "Item Ledger Entry Type"::Purchase, "Item Ledger Entry Type"::Transfer)
   ELSE
   SETRANGE("Item Ledger Entry Type","Item Ledger Entry Type"::Sale);
   
   IntrastatJnlLine2.SETRANGE("Journal Batch Name",IntrastatJnlBatch.Name);
   IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
   IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
   END;
   
   OnAfterGetRecord=BEGIN
   IntrastatJnlLine2.SETRANGE("Source Entry No.","Item Ledger Entry No.");
   IF IntrastatJnlLine2.FINDFIRST THEN
   CurrReport.SKIP;
   
   IF "Item Ledger Entry".GET("Item Ledger Entry No.") THEN BEGIN
   IF ("Item Ledger Entry"."Posting Date" > StartDate) AND ("Item Ledger Entry"."Posting Date" < EndDate) THEN
   CurrReport.SKIP;
   IF "Country/Region".GET("Item Ledger Entry"."Country/Region Code") THEN
   IF "Country/Region"."EU Country/Region Code" = '' THEN
   CurrReport.SKIP;
   TestILE("Item Ledger Entry");
   
   InsertValueEntryLine;
   END;
   END;
   
   }
   SECTIONS
   {
   { PROPERTIES
   {
   SectionType=Body;
   SectionWidth=12000;
   SectionHeight=846;
   }
   CONTROLS
   {
   }
   }
   }
   }
   // End of the lines.
   
   }
   REQUESTFORM
   {
   ...
   

3. Altere o código na Documentação no relatório Obter Entradas do Livro Razão do Item (594) da seguinte forma:
   Código existente

   ...
   IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
   END;
   
   BEGIN
   
   END.
   }
   RDLDATA
   ...
   

   Código de substituição

   ...
   IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
   END;
   
   // Add the following lines.
   PROCEDURE TestILE@1130001(ItemLedgEntry@1130000 : Record 32);
   VAR
   SalesShipmentHeader@1130001 : Record 110;
   SalesShipmentLine@1130002 : Record 111;
   PurchRcptLine@1130003 : Record 121;
   ReturnReceiptLine@1130004 : Record 6661;
   ReturnShipmentLine@1130005 : Record 6651;
   ServiceShipmentLine@1130006 : Record 5991;
   ServiceCrMemoLine@1130007 : Record 5995;
   BEGIN
   WITH ItemLedgEntry DO BEGIN
   CASE TRUE OF
   "Document Type" = "Document Type"::"Sales Shipment":
   IF SalesShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(SalesShipmentLine."VAT Bus. Posting Group",SalesShipmentLine."VAT Prod. Posting Group") THEN;
   ("Document Type" = "Document Type"::"Sales Return Receipt") OR ("Document Type" = "Document Type"::"Sales Credit Memo"):
   IF ReturnReceiptLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ReturnReceiptLine."VAT Bus. Posting Group",ReturnReceiptLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Purchase Receipt":
   IF PurchRcptLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(PurchRcptLine."VAT Bus. Posting Group",PurchRcptLine."VAT Prod. Posting Group") THEN;
   ("Document Type" = "Document Type"::"Purchase Return Shipment") OR ("Document Type" = "Document Type"::"Purchase Credit Memo"):
   IF ReturnShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ReturnShipmentLine."VAT Bus. Posting Group",ReturnShipmentLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Service Shipment":
   IF ServiceShipmentLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ServiceShipmentLine."VAT Bus. Posting Group",ServiceShipmentLine."VAT Prod. Posting Group") THEN;
   "Document Type" = "Document Type"::"Service Credit Memo":
   IF ServiceCrMemoLine.GET("Document No.","Document Line No.") THEN
   IF VATPostingSetup.GET(ServiceCrMemoLine."VAT Bus. Posting Group",ServiceCrMemoLine."VAT Prod. Posting Group") THEN;
   END;
   IF VATPostingSetup."EU Service" THEN
   CurrReport.SKIP;
   
   IF ("Entry Type" = "Entry Type"::Sale) AND
   (SalesShipmentHeader.GET("Document No.")) AND
   (CompanyInfo."Country/Region Code" = SalesShipmentHeader."Bill-to Country/Region Code")
   THEN
   CurrReport.SKIP;
   END;
   END;
   
   PROCEDURE InsertValueEntryLine@1130002();
   VAR
   Location@1130000 : Record 14;
   BEGIN
   GetGLSetup;
   WITH IntrastatJnlLine DO BEGIN
   INIT;
   "Line No." := "Line No." + 10000;
   Date := "Value Entry"."Posting Date";
   "Country/Region Code" := "Item Ledger Entry"."Country/Region Code";
   "Transaction Type" := "Item Ledger Entry"."Transaction Type";
   "Transport Method" := "Item Ledger Entry"."Transport Method";
   "Source Entry No." := "Item Ledger Entry"."Entry No.";
   Quantity := "Item Ledger Entry".Quantity;
   "Document No." := "Value Entry"."Document No.";
   "Item No." := "Item Ledger Entry"."Item No.";
   "Entry/Exit Point" := "Item Ledger Entry"."Entry/Exit Point";
   Area := "Item Ledger Entry".Area;
   "Transaction Specification" := "Item Ledger Entry"."Transaction Specification";
   Amount := ROUND(ABS("Value Entry"."Sales Amount (Actual)"),1);
   
   IF Quantity < 0 THEN
   Type := Type::Shipment
   ELSE
   Type := Type::Receipt;
   
   IF ("Country/Region Code" = '') OR
   ("Country/Region Code" = CompanyInfo."Country/Region Code")
   THEN BEGIN
   IF "Item Ledger Entry"."Location Code" = '' THEN
   "Country/Region Code" := CompanyInfo."Ship-to Country/Region Code"
   ELSE BEGIN
   Location.GET("Item Ledger Entry"."Location Code");
   "Country/Region Code" := Location."Country/Region Code"
   END;
   END;
   
   VALIDATE("Item No.");
   "Source Type" := "Source Type"::"Item entry";
   VALIDATE(Quantity,ROUND(ABS(Quantity),0.00001));
   VALIDATE("Cost Regulation %",IndirectCostPctReq);
   
   INSERT;
   END;
   END;
   // End of the lines.
   
   BEGIN
   END.
   }
   }
   ...
   

Pré-requisitos

Tem de ter a versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 instalada para aplicar esta correção.

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.