Округление неверное, а окончательная сумма неверна при использовании метода оплаты с параметром Точность округления счета, заданным в венгерской версии Microsoft Dynamics NAV 2009 R2

Применяется к
Microsoft Dynamics NAV 2009 R2

Эта статья относится к Microsoft Dynamics NAV для языкового стандарта венгерского языка (hu).

Проблема

Предположим, что вы используете метод оплаты с параметром Точность округления счета, заданным в венгерской версии Microsoft Dynamics NAV 2009 R2. Кроме того, для типа округления задано значение Ближайшее. В этом случае округление будет неправильным, а итоговая сумма — неверной.

Решение

Сведения об исправлении

Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащей это исправление.

Примечание. В особых случаях плата, которая обычно взимается за звонки в службу поддержки, может быть отменена, если специалист по технической поддержке Microsoft Dynamics и связанных продуктов определит, что конкретное обновление поможет устранить вашу проблему. Обычные расходы на поддержку будут применяться к дополнительным вопросам и проблемам поддержки, которые не относятся к конкретному обновлению.

          

Сведения об установке

Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Специалисты службы поддержки Майкрософт могут помочь объяснить функциональность той или иной процедуры. Однако они не будут изменять эти примеры для предоставления дополнительных функциональных возможностей или создания процедур для удовлетворения ваших конкретных требований.

Примечание. Перед установкой этого исправления убедитесь, что все пользователи клиента Microsoft Navision вышли из системы. Сюда входят пользователи клиентов Служб приложений Microsoft Navision (NAS). Вы должны быть единственным пользователем клиента, который вошел в систему при реализации этого исправления.

Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.

Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:

  • Разрешение Изменить для объекта, который вы будете изменять.
  • Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.

                
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.

Изменения кода

Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:

  1. Добавьте новый PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; PrepaymentPct: Decimal) : десятичная функция в таблице Sales Line (37). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: VATFactor
      • DataType: Decimal

    2. Добавьте код следующим образом:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  2. Измените функцию CalcPrepaymentToDeduct в таблице Sales Line (37). Для этого выполните указанные ниже действия.

    1. Удалите следующие локальные переменные:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Добавьте следующие локальные переменные:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Замените код следующим образом:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  3. Добавьте новый PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; PrepaymentPct: Decimal) : десятичная функция в таблице Строки покупки (39). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: VATFactor
      • DataType: Decimal

    2. Добавьте код следующим образом:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  4. Измените функцию CalcPrepaymentToDeduct в таблице Sales Line (37). Для этого выполните указанные ниже действия.

    1. Удалите следующие локальные переменные:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Добавьте следующие локальные переменные:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Замените код следующим образом:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  5. Измените код функции InitInvoiceRoundingLine в коде Sales-Post предоплаты (442) следующим образом:
    Существующий код

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Код замены

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  6. Измените код функции InsertLineRelation в коде Sales-Post предоплаты (442) следующим образом:
    Существующий код

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Код замены

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  7. Измените код в функции InsertInvoiceRounding в коде Sales-Post предоплаты (442) следующим образом:
    Существующий код

    ...
"G/L Account No." := SalesLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

    Код замены

    ...
"G/L Account No." := SalesLine."No.";

// Add the following line
Description := SalesLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

  8. Измените код функции InsertInvoiceRounding в Purchase-Post Prepayments codeunit (444) следующим образом:
    Существующий код

    ...
"G/L Account No." := PurchLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

    Код замены

    ...
"G/L Account No." := PurchLine."No.";

// Add the following line.
Description := PurchLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

  9. Измените код функции InitInvoiceRoundingLine в коде Purchase-Post предоплаты (444) следующим образом:
    Существующий код

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Код замены

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  10. Измените код функции InsertLineRelation в коде Purchase-Post Предоплаты (444) следующим образом:
    Существующий код

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Код замены

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  11. Добавьте новую функцию LineRelationExists(LetterLine: Запись 26586) : логическую функцию в коде Sales-Post Advances (26585). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: LineRelation
      • DataType: запись 26592

    2. Добавьте код следующим образом:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Sale);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  12. Добавление нового UpdateAmountToApply( LetterLine: Запись 26592; Функция VAT LinkedAdvanceEntry: запись 21) в коде Sales-Post Advances (26585). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: Ссылка
      • DataType: запись 26590

    2. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: CustLedgEntry
      • DataType: запись 21

    3. Добавьте код следующим образом:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
CustLedgEntry.CALCFIELDS("Remaining Amount");
IF CustLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := CustLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  13. Добавление нового AddRoundingLine( LetterLine: Запись 26586; SalesInvHeader: запись 112; VAR LinkedAdvanceEntry: запись 21; LastLetterNo: Code [20]) : ВычитаетсяAmount: Decimal
     функция в коде Sales-Post Advancesunit (26585) следующим образом:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  14. Измените код в функции PostInvoiceCorrection в Sales-Post Advances codeunit (26585) следующим образом:
    Существующий код

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(SalesHeader."No.");
// End of thelines.
...

    Код замены

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
...

  15. Измените код функции DeductRndLetterLines в Sales-Post Advances codeunit (26585) следующим образом:
    Существующий код

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;

    Код замены

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" = SalesLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,SalesInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

  16. Добавьте новую функцию LineRelationExists(LetterLine: Запись 26588) в коде Purchase-Post Advances (26586). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: LineRelation
      • DataType: запись 26592

    2. Добавьте код следующим образом:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Purchase);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  17. Добавление нового UpdateAmountToApply( LetterLine: запись 26588; Функция VAR LinkedAdvanceEntry: запись 25) в коде Purchase-Post Advances (26586). Для этого выполните указанные ниже действия.

    1. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: LetterLine
      • DataType: запись 26588

    2. Добавьте локальную переменную, а затем укажите ее следующим образом:

      • Имя: VendorLedgEntry
      • DataType: запись 25

    3. Добавьте код следующим образом:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF VendorLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
VendorLedgEntry.CALCFIELDS("Remaining Amount");
IF VendorLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(VendorLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := VendorLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  18. Добавление нового AddRoundingLine( LetterLine: Запись 26588; PurchInvHeader: запись 122; VAR LinkedAdvanceEntry: запись 25; LastLetterNo: Code [20]) : ВычитаетсяAmount : Decimal function в коде Purchase-Post Advances codeunit (26586) следующим образом:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  19. Измените код функции PostInvoiceCorrection в Purchase-Post Advances codeunit (26586) следующим образом:
    Существующий код

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(PurchHeader."No.");
// End of the lines.

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

    Код замены

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

  20. Удалите функцию DeductRndLetterLines в коде Purchase-Post Advances (26586).

  21. Измените код функции PostInvLineCorrection в Purchase-Post Advances codeunit (26586) следующим образом:
    Существующий код

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;
...

    Код замены

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" = PurchLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,PurchInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

Необходимые условия

Чтобы применить это исправление, необходимо установить венгерскую версию Microsoft Dynamics NAV 2009 R2.

Сведения об удалении

Удалить это исправление невозможно.

Состояние

Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».

Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .