Cartera のスペイン語版の Microsoft Dynamics NAV 2009 年に突然「顧客勘定元帳のエントリ] ダイアログ ボックスで指定した期日がない部品のグループを投稿することができます。

修正プログラムの情報

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

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

コードの変更

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

1. 投稿支払指図レポート (7000080) のデータ項目の番号 2 内のコードを次のように変更します。
   既存のコード

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",PmtOrd."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Payable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   置換用コード

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",PmtOrd."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   
   // Add the following lines.
   IF "Due Date" < PmtOrd."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100007,
   PmtOrd.FIELDCAPTION("Posting Date"),
   PmtOrd.TABLECAPTION));
   // End of the lines.
   
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Payable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

2. 投稿支払指図レポート (7000080) のグローバル変数のコードをとおり変更します。
   既存のコード

   ...TempCode@1100032 : Code[10];
   TempText@1100033 : Text[50];
   TempCurrencyCode@1100034 : Code[10];
   Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';
   HidePrintDialog@1100100 : Boolean;
   LOCAL PROCEDURE FinishCode@2();
   BEGIN
   UpdateTables;
   Window.CLOSE;
   ...
   

   置換用コード

   ...TempCode@1100032 : Code[10];
   TempText@1100033 : Text[50];
   TempCurrencyCode@1100034 : Code[10];
   Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';
   HidePrintDialog@1100100 : Boolean;
   
   // Add the following line.
   Text1100007@1100037 : TextConst 'ENU=cannot be previous to the %1 of the %2';
   
   LOCAL PROCEDURE FinishCode@2();
   BEGIN
   UpdateTables;
   Window.CLOSE;
   ...
   

3. 投稿の部品表のグループのレポート (7000099) のデータ項目の番号 2 内のコードを次のように変更します。
   既存のコード 1

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",BillGr."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Receivable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   置換用コード 1

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",BillGr."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   
   // Add the following lines.
   IF "Due Date" < BillGr."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100004,
   BillGr.FIELDCAPTION("Posting Date"),
   BillGr.TABLECAPTION));
   // End of the lines.
   
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Receivable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   既存のコード 2

   ...IF CustLedgEntry."Applies-to ID" <> '' THEN
   ERROR(Text1100010,Doc."Document No.",Doc."No.");
   IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
   CustPostingGr.TESTFIELD("Discted. Bills Acc.");
   AccountNo := CustPostingGr."Discted. Bills Acc.";
   
   // Delete the following lines.
   IF "Due Date" < BillGr."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100004,
   BillGr.FIELDCAPTION("Posting Date"),
   BillGr.TABLECAPTION));
   // End of the lines.
   
   FeeRange.CalcDiscExpensesAmt(
   BankAcc."Operation Fees Code",
   BankAcc."Currency Code",
   "Remaining Amount",
   CustLedgEntry."Entry No.");
   ...
   

   置換用コード 2

   ...IF CustLedgEntry."Applies-to ID" <> '' THEN
   ERROR(Text1100010,Doc."Document No.",Doc."No.");
   IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
   CustPostingGr.TESTFIELD("Discted. Bills Acc.");
   AccountNo := CustPostingGr."Discted. Bills Acc.";
   FeeRange.CalcDiscExpensesAmt(
   BankAcc."Operation Fees Code",
   BankAcc."Currency Code",
   "Remaining Amount",
   CustLedgEntry."Entry No.");
   ...