システムのサービスと Microsoft Dynamics NAV 2009 年のイタリア語版のイントラスタットの仕訳帳の商品の合計を計算します。

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。

1. 取得する項目、総勘定元帳レポート (594) 内のInsertEUServiceLine関数内のコードを次のように変更します。
   既存のコード

   ...            INIT;
               "Line No." := "Line No." + 10000;
               "Source Type" := "Source Type"::"VAT Entry";
               "Source Entry No." := "VAT Entry"."Entry No.";
               ValidateSourceEntryNo("Source Entry No.");
               IF IntrastatJnlBatch."Corrective Entry" THEN BEGIN
                 "Custom Office No." := CustomsOfficeNo;
                 "Corrected Intrastat Report No." := CorrectedIntrastatRepNo;
                 "Corrective entry" := TRUE;
               END;
   ...
   
   

   置換用コード

   ...            INIT;
               "Line No." := "Line No." + 10000;
               "Source Type" := "Source Type"::"VAT Entry";
               "Source Entry No." := "VAT Entry"."Entry No.";
               ValidateSourceEntryNo("Source Entry No.");
   
   // Add the following line.
               Amount -= ABS(NonEUServiceLineAmount);
   
               IF IntrastatJnlBatch."Corrective Entry" THEN BEGIN
                 "Custom Office No." := CustomsOfficeNo;
                 "Corrected Intrastat Report No." := CorrectedIntrastatRepNo;
                 "Corrective entry" := TRUE;
               END;
   ...
   
   

2. 取得する項目、総勘定元帳レポート (594) 内のNonEUServiceLineAmount関数内のコードを次のように変更します。
   既存のコード

   ...          ValueEntry2."Item Ledger Entry Type"::Purchase:
               EXIT(ValueEntry2."Cost Amount (Actual)");
           END;
         END;
   
         BEGIN
         {
           <changelog>
             <add id="IT0001" dev="rscaring" date="2004-09-22" area="INTRASTAT" request="it-start-40"
             releaseversion="IT4.00">Intrastat - Local Changes</add>
   ...
   
   

   置換用コード

   ...          ValueEntry2."Item Ledger Entry Type"::Purchase:
               EXIT(ValueEntry2."Cost Amount (Actual)");
           END;
         END;
   
   //   Add the following lines.
          LOCAL PROCEDURE NonEUServiceLineAmount@1130004() Amount : Decimal;
          VAR
            VATEntry@1130000 : Record 254;
          BEGIN
            VATEntry.SETRANGE("Document No.",IntrastatJnlLine."Document No.");
            VATEntry.SETRANGE("EU Service",FALSE);
            IF VATEntry.FINDSET THEN
              REPEAT
                Amount   = VATEntry.Base;
              UNTIL VATEntry.NEXT = 0;
            EXIT(Amount);
          END;
   // End of the lines.
   
        BEGIN
         {
           <changelog>
             <add id="IT0001" dev="rscaring" date="2004-09-22" area="INTRASTAT" request="it-start-40"
             releaseversion="IT4.00">Intrastat - Local Changes</add>
   ...