ハンガリー語バージョンの Microsoft Dynamics NAV 2009 R2 での VAT の金額を含まない販売または購入のクレジット メモを転記します。

修正プログラムの情報

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

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

コードの変更

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

1. 販売明細行のテーブル (37) のCalcVATAmountLines関数内のコードを次のように変更します。
   既存のコード

   ...BEGIN
   
   // Delete the following lines.
   QtyFactor := GetAbsMin("Qty. to Invoice","Return Qty. Rcd. Not Invd.") / Quantity;
   VATAmountLine.Quantity :=
   VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
   // End of the deleted lines.
   
   END;
   ...
   

   置換用コード

   ...BEGIN
   
   // Add the following lines.
                              IF "Return Receipt No." = '' THEN BEGIN
                                QtyFactor := GetAbsMin("Qty. to Invoice","Return Qty. Rcd. Not Invd.") / Quantity;
                                VATAmountLine.Quantity :=
                                  VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
                              END ELSE BEGIN
                                QtyFactor := "Qty. to Invoice" / Quantity;
                                VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
                              END;
   // End of the added lines.
   
                             END;
   ...
   

2. 購買明細行のテーブル (39) 内の CalcVATAmountLines 関数内のコードを次のように変更します。
   既存のコード

   ...BEGIN
   
   // Delete the following lines.
                              QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd.");
                              VATAmountLine.Quantity :=
                                VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)");
   // End of the deleted lines.
   
                             END;
   ...
   

   置換用コード

   ...BEGIN
   
   // Add the following lines.
                              IF "Return Shipment No." = '' THEN BEGIN
                                QtyToHandle := GetAbsMin("Qty. to Invoice","Return Qty. Shipped Not Invd.");
                                VATAmountLine.Quantity :=
                                  VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Shpd Not Invd.(Base)");
                              END ELSE BEGIN
                                QtyToHandle := "Qty. to Invoice";
                                VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
                              END;
   // End of the added lines.
   
                             END;
   ...