Эта статья относится к Microsoft Dynamics NAV для языкового стандарта испанского языка (es).
Проблема
Если значение скидки на оплату не равно нулю в испанской версии Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1), скидка на оплату рассчитывается неправильно в счете на покупку и в счете на продажу.
Решение
Сведения об исправлении
Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления 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.
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.
Изменения кода
Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:
Измените код в функции CalculateInvoiceDiscount в Sales-Calc. Код скидки (60) следующим образом:
Существующий код 1... SalesSetup@1003 : Record 311; TempServiceChargeLine@1005 : TEMPORARY Record 37; GLAcc@1100000 : Record 15; BEGIN SalesSetup.GET; WITH SalesLine DO BEGIN ...Код замены 1
... SalesSetup@1003 : Record 311; TempServiceChargeLine@1005 : TEMPORARY Record 37; GLAcc@1100000 : Record 15; // Add the following line. TempSalesLine@1100001 : TEMPORARY Record 37; // End of the line. BEGIN SalesSetup.GET; WITH SalesLine DO BEGIN ...Существующий код 2
... (SalesLine2."Prepayment %" = 0) THEN SalesLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF SalesLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": SalesLine2."Inv. Discount Amount" := ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.000001); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": SalesLine2."Inv. Discount Amount" := ROUND( (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) * CustInvDisc."Discount %" / 100,0.000001); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": SalesLine2."Pmt. Disc. Given Amount" := ROUND( (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * SalesHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": SalesLine2."Pmt. Disc. Given Amount" := ROUND( (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") * SalesHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. IF (SalesLine2.Type <> SalesLine2.Type::"Charge (Item)") AND (SalesLine2."Prepayment %" = 0) ...Код замены 2
... (SalesLine2."Prepayment %" = 0) THEN SalesLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF SalesLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" + SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100; SalesLine2."Inv. Discount Amount" := ROUND(TempSalesLine."Inv. Discount Amount",0.000001); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" + (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * CustInvDisc."Discount %" / 100; SalesLine2."Inv. Discount Amount" := ROUND(TempSalesLine."Inv. Discount Amount",0.000001); END; END; TempSalesLine."Inv. Discount Amount" := TempSalesLine."Inv. Discount Amount" - SalesLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" + (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") * SalesHeader."Payment Discount %" / 100; SalesLine2."Pmt. Disc. Given Amount" := ROUND(TempSalesLine."Pmt. Disc. Given Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" + (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") * SalesHeader."Payment Discount %" / 100; SalesLine2."Pmt. Disc. Given Amount" := ROUND(TempSalesLine."Pmt. Disc. Given Amount",0.01); END; END; TempSalesLine."Pmt. Disc. Given Amount" := TempSalesLine."Pmt. Disc. Given Amount" - SalesLine2."Pmt. Disc. Given Amount"; END; // End of the lines. IF (SalesLine2.Type <> SalesLine2.Type::"Charge (Item)") AND (SalesLine2."Prepayment %" = 0) ...Измените код функции CalculateInvoiceDiscount в коде Purch.-Calc.Discount (70) следующим образом:
Существующий код 1... PurchSetup@1003 : Record 312; TempServiceChargeLine@1005 : TEMPORARY Record 39; GLAcc@1100000 : Record 15; BEGIN PurchSetup.GET; WITH PurchLine DO BEGIN ...Код замены 1
... PurchSetup@1003 : Record 312; TempServiceChargeLine@1005 : TEMPORARY Record 39; GLAcc@1100000 : Record 15; // Add the following line. TempPurchLine@1100001 : TEMPORARY Record 39; // End of the line. BEGIN PurchSetup.GET; WITH PurchLine DO BEGIN ...Существующий код 2
... (PurchLine2."Prepayment %" = 0) THEN PurchLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF PurchLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": PurchLine2."Inv. Discount Amount" := ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": PurchLine2."Inv. Discount Amount" := ROUND( (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) * VendInvDisc."Discount %" / 100,0.01); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND( (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * PurchHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND( (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") * PurchHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. IF (PurchLine2.Type <> PurchLine2.Type::"Charge (Item)") AND ...Код замены 2
... (PurchLine2."Prepayment %" = 0) THEN PurchLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF PurchLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" + PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100; PurchLine2."Inv. Discount Amount" := ROUND(TempPurchLine."Inv. Discount Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" + (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * VendInvDisc."Discount %" / 100; PurchLine2."Inv. Discount Amount" := ROUND(TempPurchLine."Inv. Discount Amount",0.01); END; END; TempPurchLine."Inv. Discount Amount" := TempPurchLine."Inv. Discount Amount" - PurchLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" + (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") * PurchHeader."Payment Discount %" / 100; PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND(TempPurchLine."Pmt. Disc. Rcd. Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" + (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") * PurchHeader."Payment Discount %" / 100; PurchLine2."Pmt. Disc. Rcd. Amount" := ROUND(TempPurchLine."Pmt. Disc. Rcd. Amount",0.01); END; END; TempPurchLine."Pmt. Disc. Rcd. Amount" := TempPurchLine."Pmt. Disc. Rcd. Amount" - PurchLine2."Pmt. Disc. Rcd. Amount"; END; // End of the lines. IF (PurchLine2.Type <> PurchLine2.Type::"Charge (Item)") AND ...Измените код функции CalculateInvoiceDiscount в Service-Calc. Код скидки (5950) следующим образом:
Существующий код 1... SalesSetup@1005 : Record 311; ServiceChargeLineNo@1004 : Integer; GLAcc@1100000 : Record 15; BEGIN ServSetup.GET; WITH ServiceLine DO BEGIN ...Код замены 1
... SalesSetup@1005 : Record 311; ServiceChargeLineNo@1004 : Integer; GLAcc@1100000 : Record 15; // Add the following line. TempServiceLine@1100001 : TEMPORARY Record 5902; // End of the line. BEGIN ServSetup.GET; WITH ServiceLine DO BEGIN ...Существующий код 2
... IF (ServiceLine2.Quantity <> 0) AND NOT InvAllow THEN BEGIN ServiceLine2."Pmt. Disc. Given Amount" := 0; ServiceLine2.VALIDATE("Inv. Discount Amount"); // Delete the following lines. IF ServiceLine2."Allow Invoice Disc." THEN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": ServiceLine2."Inv. Discount Amount" := ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.000001); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": ServiceLine2."Inv. Discount Amount" := ROUND( (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) * CustInvDisc."Discount %" / 100,0.000001); END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": ServiceLine2."Pmt. Disc. Given Amount" := ROUND( (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * ServHeader."Payment Discount %" / 100,0.01); GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": ServiceLine2."Pmt. Disc. Given Amount" := ROUND( (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") * ServHeader."Payment Discount %" / 100,0.01); END; END; // End of the lines. ServiceLine2.VALIDATE("Inv. Discount Amount"); ServiceLine2.MODIFY; ...Код замены 2
... IF (ServiceLine2.Quantity <> 0) AND NOT InvAllow THEN BEGIN ServiceLine2."Pmt. Disc. Given Amount" := 0; ServiceLine2.VALIDATE("Inv. Discount Amount"); // Add the following lines. IF ServiceLine2."Allow Invoice Disc." THEN BEGIN CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::" ", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" + ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100; ServiceLine2."Inv. Discount Amount" := ROUND(TempServiceLine."Inv. Discount Amount",0.000001); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" + (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * CustInvDisc."Discount %" / 100; ServiceLine2."Inv. Discount Amount" := ROUND(TempServiceLine."Inv. Discount Amount",0.000001); END; END; TempServiceLine."Inv. Discount Amount" := TempServiceLine."Inv. Discount Amount" - ServiceLine2."Inv. Discount Amount"; END; IF GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines" THEN BEGIN GLSetup.TESTFIELD("Discount Calculation"); CASE GLSetup."Discount Calculation" OF GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.": BEGIN TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" + (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") * ServHeader."Payment Discount %" / 100; ServiceLine2."Pmt. Disc. Given Amount" := ROUND(TempServiceLine."Pmt. Disc. Given Amount",0.01); END; GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.", GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.": BEGIN TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" + (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") * ServHeader."Payment Discount %" / 100; ServiceLine2."Pmt. Disc. Given Amount" := ROUND(TempServiceLine."Pmt. Disc. Given Amount",0.01); END; END; TempServiceLine."Pmt. Disc. Given Amount" := TempServiceLine."Pmt. Disc. Given Amount" - ServiceLine2."Pmt. Disc. Given Amount"; END; // End of the lines. ServiceLine2.VALIDATE("Inv. Discount Amount"); ServiceLine2.MODIFY; ...
Необходимые условия
Чтобы применить это исправление, необходимо установить версию Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1) на испанском языке.
Сведения об удалении
Удалить это исправление невозможно.
Состояние
Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».
Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .