Ви зможете публікувати рахунок групи із не дату завершення, у Cartera, у діалоговому вікні "Користувач книга запис" несподівано в Іспанська версії Microsoft Dynamics NAV, 2009

Відомості про виправлення

Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.

Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.

Зміни коду

Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, виконайте такі дії.

1. Змінити код у 2 номер елемента даних у звіті про Post оплати порядку (7000080) наступним чином:
   Наявний код

   ...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. Змінити код у глобальних змінних, у звіті про Post оплати порядку (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. Змінити код у 2 номер елемента даних у звіті про Post Bill Група (7000099), наступним чином:
   Наявний код 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.");
   ...