Tegoedmemoregels worden niet opgenomen in het intrastat-logboek nadat u een creditnota van het type 'Kosten (item)' hebt geboekt voor een factuur die is gemaakt voor een EU-leverancier in een andere periode in de Italiaanse versie van Microsoft Dynamics NAV 5.0 Service Pack 1

Van toepassing op
Microsoft Dynamics NAV 5.0

Dit artikel is van toepassing op Microsoft Dynamics NAV voor de taalinstelling Italiaans (it).

Symptomen

Stel dat u een factuur hebt die is gemaakt voor een leverancier van de Europese Unie (EU) in de Italiaanse versie van Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1). Wanneer u een creditnota van het type Kosten (Item) voor de factuur in een andere periode boekt, wordt de regel van de creditnota niet opgenomen in het intrastat-logboek.

Oplossing

Hotfix-informatie

Er is nu een ondersteunde hotfix beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem op te lossen dat in dit artikel wordt beschreven. Pas deze alleen toe op systemen die dit specifieke probleem ondervinden. Deze hotfix kan aanvullende tests ontvangen. Als u niet ernstig last hebt van dit probleem, raden we u daarom aan te wachten op het volgende Microsoft Dynamics NAV-servicepack of de volgende Microsoft Dynamics NAV-versie die deze hotfix bevat.

Opmerking In speciale gevallen kunnen kosten die gewoonlijk worden gemaakt voor ondersteuningsoproepen worden geannuleerd als een technische ondersteuningsmedewerker voor Microsoft Dynamics en gerelateerde producten vaststelt dat een specifieke update uw probleem oplost. De gebruikelijke ondersteuningskosten zijn van toepassing op aanvullende ondersteuningsvragen en problemen die niet in aanmerking komen voor de specifieke update in kwestie.

            
          

Installatie-informatie

Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.

Opmerking Voordat u deze hotfix installeert, controleert u of alle Microsoft Navision-clientgebruikers zijn afgemeld bij het systeem. Dit geldt ook voor gebruikers van Microsoft Navision Application Services (NAS). U moet de enige clientgebruiker zijn die is aangemeld wanneer u deze hotfix implementeert.

Als u deze hotfix wilt implementeren, moet u een ontwikkelaarslicentie hebben.

We raden u aan om aan het gebruikersaccount in het venster Windows-aanmeldingen of in het venster Databaseaanmeldingen de rol-id 'SUPER' toe te wijzen. Als de rol-id 'SUPER' niet kan worden toegewezen aan het gebruikersaccount, moet u controleren of het gebruikersaccount de volgende machtigingen heeft:

  • De machtiging Wijzigen voor het object dat u gaat wijzigen.
  • De machtiging Uitvoeren voor het object Systeemobject-id 5210 en voor het object Systeemobject-id 9015.

                
Opmerking U hoeft geen rechten te hebben voor de gegevensarchieven, tenzij u gegevensherstel moet uitvoeren.

Codewijzigingen

Opmerking Test altijd codecorrecties in een beheerde omgeving voordat u de correcties toepast op uw productiecomputers.
Voer de volgende stappen uit om dit probleem op te lossen:

  1. Wijzig de code in gegevensitemnummer 2 in het rapport Grootboekitems ophalen (594) als volgt:
    Bestaande code 1

    ...
ELSE
SETRANGE("Entry Type","Entry Type"::Sale);

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

    Vervangende code 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");
...

    Bestaande code 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;
...

    Vervangende code 2

    ...
END;

OnAfterGetRecord=VAR

// Add the following line.
PurchRcptLine@1003 : Record 121;

PurchInvLine@1130000 : Record 123;
PurchCrMemoLine@1130001 : Record 125;
SalesInvoiceLine@1130002 : Record 113;
...

    Bestaande code 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;
...

    Vervangende code 3

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

    Bestaande code 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;
...

    Vervangende code 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. Wijzig de code in gegevensitemnummer 5 in het rapport Grootboekitems ophalen (594) als volgt:
    Bestaande code

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

    Vervangende code

    ...
{
}
}

// 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. Wijzig de code in de documentatie in het rapport Item grootboekvermeldingen ophalen (594) als volgt:
    Bestaande code

    ...
IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
END;

BEGIN

END.
}
RDLDATA
...

    Vervangende code

    ...
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.
}
}
...

Vereisten

U moet de Italiaanse versie van Microsoft Dynamics NAV 5.0 Service Pack 1 hebben geïnstalleerd om deze hotfix toe te passen.

Verwijderingsgegevens

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit een probleem is bij de Microsoft-producten die worden vermeld in het gedeelte 'Van toepassing op'.

Opmerking Dit is een artikel 'FAST PUBLISH' dat rechtstreeks vanuit de microsoft-ondersteuningsorganisatie is gemaakt. De hierin opgenomen informatie wordt als zodanig verstrekt als reactie op nieuwe problemen. Als gevolg van de snelheid waarmee het beschikbaar wordt gesteld, kunnen de materialen typografische fouten bevatten en te allen tijde zonder voorafgaande kennisgeving worden herzien. Zie Gebruiksvoorwaarden voor andere overwegingen.