Intrastat-žurnaali ei kaasata kreeditarve ridu pärast seda, kui konteerite el-i hankija jaoks loodud arvele "Kulu (kaup)" mõne muu perioodi jooksul Microsoft Dynamics NAV 5.0 hoolduspaketi Service Pack 1 Itaalia versioonis.

Rakenduskoht

Microsoft Dynamics NAV 5.0

See artikkel kehtib microsoft Dynamics NAV itaalia keele (it) lokaadi kohta.

Sümptomid

Oletagem, et teil on arve, mis on loodud Euroopa Liidu (EL) tarnija Itaalia versiooni Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1). Kui konteerite arvele kulu (kauba) tüübi kreeditarve mõnel muul perioodil, ei kaasata kreeditarve rida Intrastati žurnaali.

Lahendus

Kiirparanduse teave

Microsoftilt on nüüd saadaval toetatud kiirparandus. Siiski on see mõeldud ainult selles artiklis kirjeldatud probleemi lahendamiseks. Rakendage see ainult süsteemidele, kus esineb see konkreetne probleem. See kiirparandus võib saada täiendavaid katseid. Seega, kui see probleem ei mõjuta teid tõsiselt, soovitame oodata järgmist Microsoft Dynamics NAV hoolduspaketti või järgmist Microsoft Dynamics NAV versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel võidakse tavaliselt tugiteenuse kõnede eest tehtud tasud tühistada, kui Microsoft Dynamicsi ja seotud toodete tehniline tugitöötaja leiab, et konkreetne värskendus lahendab teie probleemi. Tavapärased toetuskulud kehtivad täiendavatele tugiteenustega seotud küsimustele ja probleemidele, mis ei vasta kõnealuse värskenduse tingimustele.

Installiteave

Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid selleks, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Navisioni klientrakenduse kasutajad oleksid süsteemist välja logitud. See hõlmab ka Microsoft Navision Application Servicesi (NAS) klientkasutajaid. Peaksite olema ainus klientkasutaja, kes on sisse logitud, kui rakendate selle kiirparanduse.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsents.

Soovitame, et aknas Windowsi sisselogimised või aknas Andmebaasi sisselogimised olevale kasutajakontole määrataks "SUPER" rolli ID. Kui kasutajakontole ei saa superrolli ID-d määrata, peate kontrollima, kas kasutajakontol on järgmised õigused.

Muudetava objekti muutmisõigus.
Süsteemiobjekti ID 5210 ja süsteemiobjekti ID 9015 täitmisõigus.

Märkus. Teil pole andmesalvede jaoks õigusi, kui te ei pea tegema andmete parandamist.

Koodi muudatused

Märkus. Enne paranduste rakendamist tööarvutitele testige koodiparandusi alati kontrollitud keskkonnas.
Probleemi lahendamiseks tehke järgmist.

Muutke väljal Andmeüksuse number 2 väljal Kaubaandmiku kannete toomine (594) kuvatavat tähist järgmiselt.
Olemasolev kood 1

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

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

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

Olemasolev kood 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;
...

Asenduskood 2

...
END;

OnAfterGetRecord=VAR

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

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

Olemasolev kood 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;
...

Asenduskood 3

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

Olemasolev kood 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;
...

Asenduskood 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;
...

Muutke aruandes Kaubaandmiku kannete toomine (594) väljal Andmeüksuse number 5 kuvatavat tähist järgmiselt.
Olemasolev kood

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

Asenduskood

...
{
}
}

// 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
{
...

Muutke väljal Dokumentatsioon aruande Kaubaandmiku kannete toomine (594) tähist järgmiselt.
Olemasolev kood

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

BEGIN

END.
}
RDLDATA
...

Asenduskood

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

Eeltingimused

Selle kiirparanduse rakendamiseks peab teil olema installitud Microsoft Dynamics NAV 5.0 hoolduspaketi Service Pack 1 itaaliakeelne versioon.

Eemaldamisteave

Seda kiirparandust ei saa eemaldada.

Olek

Microsoft on kinnitanud, et see on jaotises „Rakenduskoht“ loetletud Microsofti toodete korral esinev probleem.

Märkus. See on otse Microsofti tugiteenuste organisatsioonist loodud FAST PUBLISH-artikkel. Käesolevas artiklis sisalduv teave on esitatud kujul, mis on seotud tekkivate küsimustega. Materjali kättesaadavaks tegemise kiiruse tõttu võivad materjalid sisaldada kirjavigu ja neid võib igal ajal ette teatamata läbi vaadata. Muid kaalutlusi leiate teemast Kasutustingimused .