Ця стаття відноситься до Microsoft Dynamics NAV всі країни і всі мови.
Причини
Припустімо, що встановлено ціни, включаючи ПДВ та оплати рахунків-фактур не стискається, у Microsoft Dynamics NAV-2009 року. При спробі надіслати дані до оплати рахунку, з'являється таке повідомлення про помилку:
Розмір, має бути позитивна генералом журналу лінії.
Ця проблема виникає в таких продуктів:
-
Microsoft Dynamics NAV 2009 пакет оновлень 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
Вирішення
Відомості про виправлення
Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.
Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.
Відомості про інсталяцію
Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що усі користувачі Microsoft Navision-клієнт відключився системи. Пакет оновлень містить служб Microsoft Navision застосунків (NAS) клієнта користувачів. Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.
Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.
Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:
-
Змінити дозвіл об'єкт, який буде змінити.
-
Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт а також системи об'єкт з Ідентифікатором 9015 об'єкта.
Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.
Зміни коду
Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, виконайте такі дії.
-
Змінити код функції AdjustPrepmtAmountLCY в Codeuint-продажу та повідомлення (80) наступним чином:
Наявний код 1...TotalPrepmtAmount@1002 : ARRAY [2] OF Decimal;
BEGIN
...Код на заміну 1
...TotalPrepmtAmount@1002 : ARRAY [2] OF Decimal;
// Add the following line.
PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal;
// End of the added line.
BEGIN
...Наявний код 2
...TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";
...Код на заміну 2
...
// Add the following lines.IF SalesHeader."Prices Including VAT" THEN
IF (("Prepayment %" <> 100) OR IsFinalInvoice) AND (DeductionFactor = 1) THEN BEGIN
PricesInclVATRoundingAmount[1] := TotalRoundingAmount[1];
PricesInclVATRoundingAmount[2] := TotalRoundingAmount[2];
END;
// End of the added lines.
TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";
...Наявний код 3
...UpdatePrepmtSalesLineWithRound(
// Delete the following line.
PrepmtSalesLine,TotalRoundingAmount,TotalPrepmtAmount,TempPrepmtDeductLCYSalesLine.IsFinalInvoice);
// End of the deleted line.
END;
...Код на заміну 3
...UpdatePrepmtSalesLineWithRound(
// Add the following lines.
PrepmtSalesLine,TotalRoundingAmount,TotalPrepmtAmount,
TempPrepmtDeductLCYSalesLine.IsFinalInvoice,PricesInclVATRoundingAmount);
// End of the added lines.
END;
... -
Змінити код функції UpdatePrepmtSalesLineWithRound в Codeuint-продажу та повідомлення (80) наступним чином:
Наявний код 1...
// Delete the following line.
LOCAL PROCEDURE UpdatePrepmtSalesLineWithRound@89(VAR PrepmtSalesLine@1002 : Record 37;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000000 : Boolean);
// End of the deleted line.
VAR
...Код на заміну 1
...
// Add the following line.
LOCAL PROCEDURE UpdatePrepmtSalesLineWithRound@89(VAR PrepmtSalesLine@1002 : Record 37;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000000 : Boolean;PricesInclVATRoundingAmount@1170000001 : ARRAY [2] OF Decimal);
// End of the added line.
VAR
...Наявний код 2
...
// Delete the following line.IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR FinalInvoice THEN BEGIN
// End of the deleted line.
IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN
...Код на заміну 2
...
// Add the following lines.
IF (PricesInclVATRoundingAmount[1] <> 0) AND (TotalRoundingAmount[1] = 0) THEN BEGIN
Prepmt100PctVATRoundingAmt := 0;
PricesInclVATRoundingAmount[1] := 0;
END;
IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR
(FinalInvoice AND (TotalRoundingAmount[1] = 0))
THEN BEGIN
// End of the added lines.
IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN
...Наявний код 3
...END;
// Delete the following lines.
"Prepmt. VAT Amount Inv. (LCY)" := TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt;
NewAmountIncludingVAT := Amount + TotalPrepmtAmount[2] + TotalRoundingAmount[2];
Increment(TotalSalesLineLCY."Amount Including VAT","Amount Including VAT" - NewAmountIncludingVAT - Prepmt100PctVATRoundingAmt);
// End of the deleted lines.
IF "Currency Code" = '' THEN
...Код на заміну 3
...END;
// Add the following lines.
IF (PricesInclVATRoundingAmount[2] <> 0) AND (TotalRoundingAmount[2] = 0) THEN BEGIN
Prepmt100PctVATRoundingAmt := 0;
PricesInclVATRoundingAmount[2] := 0;
END;
"Prepmt. VAT Amount Inv. (LCY)" := TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt;
NewAmountIncludingVAT := Amount + TotalPrepmtAmount[2] + TotalRoundingAmount[2];
IF (PricesInclVATRoundingAmount[1] = 0) AND (PricesInclVATRoundingAmount[2] = 0) THEN
Increment(TotalSalesLineLCY."Amount Including VAT","Amount Including VAT" - NewAmountIncludingVAT - Prepmt100PctVATRoundingAmt
);
// End of the added lines.
IF "Currency Code" = '' THEN
... -
Змін у функції AdjustPrepmtAmountLCY Purch.-повідомлення Codeunit (90), наступним чином:
Наявний код 1...TotalPrepmtAmount@1003 : ARRAY [2] OF Decimal;
BEGIN
...Код на заміну 1
...TotalPrepmtAmount@1003 : ARRAY [2] OF Decimal;
// Add the following line.
PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal;
// End of the added line.
BEGIN
...Наявний код 2
...TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";
...Код на заміну 2
...
// Add the following lines.
IF PurchHeader."Prices Including VAT" THEN
IF (("Prepayment %" <> 100) OR IsFinalInvoice) AND (DeductionFactor = 1) THEN BEGIN
PricesInclVATRoundingAmount[1] := TotalRoundingAmount[1];
PricesInclVATRoundingAmount[2] := TotalRoundingAmount[2];
END;
// End of the added lines.
TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";
...Наявний код 3
...
// Delete the following line.
UpdatePrepmtPurchLineWithRound(PrepmtPurchLine,TotalRoundingAmount,TotalPrepmtAmount);
// End of the deleted line.
END;
...Код на заміну 3
...
// Add the following lines.
UpdatePrepmtPurchLineWithRound(
PrepmtPurchLine,TotalRoundingAmount,TotalPrepmtAmount,
TempPrepmtDeductLCYPurchLine.IsFinalInvoice,PricesInclVATRoundingAmount);
// End of the added lines.
END;
... -
Змін у функції UpdatePrepmtPurchLineWithRound Purch.-повідомлення Codeunit (90), наступним чином:
Наявний код 1...
// Delete the following line.LOCAL PROCEDURE UpdatePrepmtPurchLineWithRound@89(VAR PrepmtPurchLine@1002 : Record 39;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal);
// End of the deleted line.
VAR
...Код на заміну 1
...
// Add the following line.
LOCAL PROCEDURE UpdatePrepmtPurchLineWithRound@89(VAR PrepmtPurchLine@1002 : Record 39;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000001 : Boolean;PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal);
// End of the added line.
VAR
...Наявний код 2
...
// Delete the following line.
IF ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision" THEN BEGIN
// End of the deleted line.
IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN
...Код на заміну 2
...
// Add the following lines.
IF (PricesInclVATRoundingAmount[1] <> 0) AND (TotalRoundingAmount[1] = 0) THEN BEGIN
Prepmt100PctVATRoundingAmt := 0;
PricesInclVATRoundingAmount[1] := 0;
END;
IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR
(FinalInvoice AND (TotalRoundingAmount[1] = 0))
THEN BEGIN
// End of the added lines.
IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN
...Наявний код 3
...END;
// Delete the following lines.
"Prepmt. VAT Amount Inv. (LCY)" := -(TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt);
NewAmountIncludingVAT := Amount - (TotalPrepmtAmount[2] + TotalRoundingAmount[2]);
Increment(
TotalPurchLineLCY."Amount Including VAT",-("Amount Including VAT" - NewAmountIncludingVAT + Prepmt100PctVATRoundingAmt));
// End of the deleted lines.
IF "Currency Code" = '' THEN
...Код на заміну 3
...END;
// Add the following lines.
IF (PricesInclVATRoundingAmount[2] <> 0) AND (TotalRoundingAmount[2] = 0) THEN BEGIN
Prepmt100PctVATRoundingAmt := 0;
PricesInclVATRoundingAmount[2] := 0;
END;
"Prepmt. VAT Amount Inv. (LCY)" := -(TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt);
NewAmountIncludingVAT := Amount - (TotalPrepmtAmount[2] + TotalRoundingAmount[2]);
IF (PricesInclVATRoundingAmount[1] = 0) AND (PricesInclVATRoundingAmount[2] = 0) THEN
Increment(
TotalPurchLineLCY."Amount Including VAT",-("Amount Including VAT" - NewAmountIncludingVAT + Prepmt100PctVATRoundingAmt));
// End of the added lnies.
IF "Currency Code" = '' THEN
...
Попередні вимоги
Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:
-
Microsoft Dynamics NAV 2009 пакет оновлень 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
Відомості про видалення
Це виправлення не можна видалити.
Стан
Корпорація Майкрософт підтвердила існування цієї неполадки у продуктах Майкрософт, перелічених у розділі "Застосовується до".
Примітка. Це "Швидка публікація" статті, надана службою підтримки корпорації Майкрософт. Відомості в цій статті надано без змін у відповідь на повідомлення про проблеми. З огляду на швидкість публікації матеріали можуть містити орфографічні помилки. Їх може бути змінено в будь-який час без повідомлення. Щоб отримати додаткові відомості, див. Умови використання.
