Під час імпортування або експортування консолідація за допомогою номера консолідація облікового запису, містить 17 або більше в Microsoft Dynamics NAV, 2009 відображається повідомлення про помилку "Десяткове не має бути [число]"

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

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

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

Зміни коду

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

1. Змінити код функції CalcCheckSum в codeunit-консолідація (432) наступним чином:
   Наявний код

   ...DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
             TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
           SubsidGLAcc.RESET;
           IF SubsidGLAcc.FIND('-') THEN
             REPEAT
   
   // Delete the following lines.
             CheckSum := CheckSum +
                TextToDecimal(SubsidGLAcc."No.") + TextToDecimal(SubsidGLAcc."Consol. Debit Acc.") +
                TextToDecimal(SubsidGLAcc."Consol. Credit Acc.");
   // End of the deleted lines.
   
             UNTIL SubsidGLAcc.NEXT = 0;
           SubsidGLEntry.RESET;
           IF SubsidGLEntry.FIND('-') THEN
             REPEAT
               CheckSum := CheckSum +
   ...
   

   Заміна код

   ...DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
             TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
           SubsidGLAcc.RESET;
           IF SubsidGLAcc.FIND('-') THEN
             REPEAT
   
   // Add the following lines.
              CheckSum :=
                CheckSum +
                TextToDecimal(COPYSTR(SubsidGLAcc."No.",1,10)) + TextToDecimal(COPYSTR(SubsidGLAcc."No.",11,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",1,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",11,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",1,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",11,10)) ;
   // End of the added lines.
   
             UNTIL SubsidGLAcc.NEXT = 0;
           SubsidGLEntry.RESET;
           IF SubsidGLEntry.FIND('-') THEN
             REPEAT
               CheckSum := CheckSum +
   ...
   

2. Змінити код функції TextToDecimal в codeunit-консолідація (432) наступним чином:
   Наявний код

   ...IF Txt[Idx] IN ['0','1','2','3','4','5','6','7','8','9'] THEN
               DecOnlyTxt := DecOnlyTxt + COPYSTR(Txt,Idx,1);
           IF DecOnlyTxt = '' THEN
             Result := 0
           ELSE
   
   // Delete the following line.
            EVALUATE(Result,DecOnlyTxt);   
   // End of the deleted line.
   
         END;
   
         LOCAL PROCEDURE DateToDecimal@25(Dt@1000 : Date) Result : Decimal;
         VAR
           Mon@1001 : Decimal;
   ...
   

   Заміна код

   ...IF Txt[Idx] IN ['0','1','2','3','4','5','6','7','8','9'] THEN
               DecOnlyTxt := DecOnlyTxt + COPYSTR(Txt,Idx,1);
           IF DecOnlyTxt = '' THEN
             Result := 0
           ELSE
   
   // Add the following line.
            EVALUATE(Result,DecOnlyTxt);
   // End of the added line.
   
         END;
   
         LOCAL PROCEDURE DateToDecimal@25(Dt@1000 : Date) Result : Decimal;
         VAR
           Mon@1001 : Decimal;
   ...