Эта статья относится к Microsoft Dynamics NAV для языкового стандарта венгерского языка (hu).
Проблема
Рассмотрим следующий сценарий в венгерской версии Microsoft Dynamics NAV 2009 R2:
- Вы применяете обновление предоплаты для венгерской версии Microsoft Dynamics NAV 2009 R2.
- В форме настройки общего реестра для поля Тип предоплаты задается значение Advance.
- Для поля Adv. Invoice Correction Type (Тип исправления счета-фактуры) задается значение Абсолютное для группы размещения налога на добавленную стоимость (НДС).
- Вы создаете заказ на продажу для клиента, который использует группу размещения НДС.
- Вы размещаете авансовый платеж и авансовый счет для клиента.
- Вы отправляете заказ на продажу и выставляете счет.
В этом сценарии неожиданно создается крупная округляющая запись счета.
Решение
Сведения об исправлении
Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления 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.
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.
Изменения кода
Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:
Измените код в функции CalcRndDiffAmt в codeunit "Sales-Post" (80) следующим образом:
Существующий код... // Delete the following lines. PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; BEGIN EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT)); // End of the lines. END; ...Код замены
... // Add the following lines. LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; VAR TotalAmtInclVAT@1360001 : Decimal; BEGIN TotalAmtInclVAT := CalcTotalAmtInclVAT(Currency); IF TotalAmtInclVAT = InvAmt THEN EXIT(0); EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT)); // End of the lines. END; ...Измените код функции IsFinalInvoice в коде Sales-Post (80) следующим образом:
Существующий код... SETRANGE("Document No.",SalesHeader."No."); // Delete the following line. EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine)); END; ...Код замены
... SETRANGE("Document No.",SalesHeader."No."); // Add the following line. EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine)); END; ...Измените код в функции CalcRndDiffAmt в коде "Purch-Post" (90) следующим образом:
Существующий код... // Delete the following lines. PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; BEGIN EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT)); // End of the lines. END; ...Код замены
... // Add the following lines. LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; VAR TotalAmtInclVAT@1360001 : Decimal; BEGIN TotalAmtInclVAT := CalcTotalAmtInclVAT(Currency); IF TotalAmtInclVAT = InvAmt THEN EXIT(0); EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT)); // End of the lines. END; ...Измените код в функции IsFinalInvoice в коде "Purch-Post" (90) следующим образом:
Существующий код... SETRANGE("Document No.",PurchHeader."No."); // Delete the following line. EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine)); END; ...Код замены
... SETRANGE("Document No.",PurchHeader."No."); // Add the following line. EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine)); END; ...Измените код в функции SalesOrderProcessing в коде Sales-Post Advances (26585) следующим образом:
Существующий код 1... VAR // Delete the following lines. FullyDeducted@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH SalesHeader DO BEGIN FullyDeducted := FullyDeductedCustPrepmt(SalesLine); IF FullyDeducted THEN // End of the lines. InvoicedAmount := ...Код замены 1
... VAR // Add the following lines. IsFinalInvoice@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH SalesHeader DO BEGIN IsFinalInvoice := IsFinalCustInvoice(SalesLine); IF IsFinalInvoice THEN // End of the lines. InvoicedAmount := ...Существующий код 2
... SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Delete the following line. FullyDeducted,TempJnlLineDim,InvoicedAmount,Post); UNTIL SalesLine.NEXT = 0; ...Код замены 2
... SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Add the following line. IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post); UNTIL SalesLine.NEXT = 0; ...Измените код функции FullyDeductedCustPrepmt в коде Sales-Post Advances (26585) следующим образом:
Существующий код 1... // Delete the following line. PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean; BEGIN ...Код замены 1
... // Add the following line. PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean; BEGIN ...Существующий код 2
... SetSalesLineToPost(SalesLine); // Delete the following line. IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN EXIT(FALSE); ...Код замены 2
... SetSalesLineToPost(SalesLine); // Add the following line. IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN EXIT(FALSE); ...Измените код функции CollectFullyDeductedOrders в codeunit "Sales-Post Advances" (26858) следующим образом:
Существующий код 1... TempSalesOrderLine@1360003 : TEMPORARY Record 37; // Delete the following line. FullyDeducted@1360004 : Boolean; BEGIN ...Код замены 1
... TempSalesOrderLine@1360003 : TEMPORARY Record 37; // Add the following line. IsFinalInvoice@1360004 : Boolean; BEGIN ...Существующий код 2
... FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder); // Delete the following lines. FullyDeducted := FullyDeductedOrder.FIND; IF NOT FullyDeducted THEN BEGIN FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine); IF FullyDeducted THEN FullyDeductedOrder.INSERT; END; IF FullyDeducted THEN BEGIN // End of the lines. FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine); ...Код замены 2
... FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder); // Add the following lines. IsFinalInvoice := FullyDeductedOrder.FIND; IF NOT IsFinalInvoice THEN BEGIN IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine); IF IsFinalInvoice THEN FullyDeductedOrder.INSERT; END; IF IsFinalInvoice THEN BEGIN // End of the lines. FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine); ...Измените код в функции PurchOrderProcessing в коде "Purchace-Post Advances" (26586) следующим образом:
Существующий код 1... VAR // Delete the following lines. FullyDeducted@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH PurchHeader DO BEGIN FullyDeducted := FullyDeductedVendPrepmt(PurchLine); IF FullyDeducted THEN // End of the lines. InvoicedAmount := ...Код замены 1
... VAR // Add the following lines. IsFinalInvoice@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH PurchHeader DO BEGIN IsFinalInvoice := IsFinalVendInvoice(PurchLine); IF IsFinalInvoice THEN // End of the lines. InvoicedAmount := ...Существующий код 2
... PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Delete the following line. FullyDeducted,TempJnlLineDim,InvoicedAmount,Post); UNTIL PurchLine.NEXT = 0; ...Код замены 2
... PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Add the following line. IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post); UNTIL PurchLine.NEXT = 0; ...Измените код в функции FullyDeductedVendPrepmt в коде "Purchace-Post Advances" (26586) следующим образом:
Существующий код 1... // Delete the following line. PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean; BEGIN ...Код замены 1
... // Add the following line. PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean; BEGIN ...Существующий код 2
... SetPurchLineToPost(PurchLine); // Delete the following line. IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN EXIT(FALSE); ...Код замены 2
... SetPurchLineToPost(PurchLine); // Add the following line. IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN EXIT(FALSE); ...Измените код в функции CollectFullyDeductedOrders в коде "Purchace-Post Advances" (26586) следующим образом:
Существующий код 1... TempPurchOrderLine@1360003 : TEMPORARY Record 39; // Delete the following line. FullyDeducted@1360004 : Boolean; BEGIN ...Код замены 1
... TempPurchOrderLine@1360003 : TEMPORARY Record 39; // Add the following line. IsFinalInvoice@1360004 : Boolean; BEGIN ...Существующий код 2
... FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder); // Delete the following lines. FullyDeducted := FullyDeductedOrder.FIND; IF NOT FullyDeducted THEN BEGIN FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine); IF FullyDeducted THEN FullyDeductedOrder.INSERT; END; IF FullyDeducted THEN BEGIN // End of the lines. FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine); ...Код замены 2
... FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder); // Add the following lines. IsFinalInvoice := FullyDeductedOrder.FIND; IF NOT IsFinalInvoice THEN BEGIN IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine); IF IsFinalInvoice THEN FullyDeductedOrder.INSERT; END; IF IsFinalInvoice THEN BEGIN // End of the lines. FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine); ...
Необходимые условия
Для применения этого исправления требуется венгерская версия Microsoft Dynamics NAV 2009 R2 с установленным обновлением предоплаты.
Сведения об удалении
Удалить это исправление невозможно.
Состояние
Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».
Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .