Эта статья относится к Microsoft Dynamics NAV для языкового стандарта языка Восточной Европы (EE).
Проблема
Рассмотрим следующий сценарий в версии Microsoft Dynamics NAV 2009 R2 для Восточной Европы:
- Вы применяете исправление 2546451.
- Для параметра Тип коррекции счета adv. задано значение Абсолютное или Полное выставление счетов.
- Вы создаете предоплату для заказа на продажу или заказа на покупку.
- Половина суммы предоплаты оплачивается и выставляется на счет.
- Вы публикуете часть заказа на продажу или заказ на покупку. Другая половина предоплаты оплачивается и выставляется на счет.
- Вы пытаетесь опубликовать оставшееся количество заказа на продажу или заказа на покупку.
В этом случае появляется следующее сообщение об ошибке:
Примечание
Cust. Ledger Entry Entry No. "Entry_Number" уже существует.
Дополнительные сведения об исправлении 2546451, щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:
2546451 сообщение об ошибке "В фильтре нет записи реестра Cust. " при попытке опубликовать оставшееся количество заказа на продажу в восточно-европейской версии Microsoft Dynamics NAV 2009
Решение
Сведения об исправлении
Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления 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.
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.
Изменения кода
Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:
Измените код в Sales-Post Advances codeunit (26585). Для этого выполните указанные ниже действия.
Измените код в функции PostPaymentCorrection следующим образом:
Существующий код... LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); // Delete the following line. UNTIL LinkedAdvanceEntry.NEXT = 0; // Post Payment GenJnlLine.INIT ...Код замены
... LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); // Add the following line. UNTIL (LinkedAdvanceEntry.NEXT = 0) OR (InvoiceAmount = 0); // Post Payment GenJnlLine.INIT; ...Измените код в функции CalcLinkedPmtAmountToApply следующим образом:
Существующий код... AmountToApply := ROUND(TotAmt,Currency."Amount Rounding Precision") - TotAmtRnded; TotAmtRnded := TotAmtRnded + AmountToApply; // Delete the following lines. IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + AmountToApply; LinkedAdvanceEntry.MODIFY; END ELSE BEGIN LinkedAdvanceEntry := CustLedgEntry; LinkedAdvanceEntry."Amount to Apply" := AmountToApply; LinkedAdvanceEntry."Currency Code" := Link."Currency Code"; LinkedAdvanceEntry.INSERT; // End of the deleted lines. END; END; UNTIL Link.NEXT = 0; ...Код замены
... AmountToApply := ROUND(TotAmt,Currency."Amount Rounding Precision") - TotAmtRnded; TotAmtRnded := TotAmtRnded + AmountToApply; // Add the following lines. IF AmountToApply <> 0 THEN IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + AmountToApply; LinkedAdvanceEntry.MODIFY; END ELSE BEGIN LinkedAdvanceEntry := CustLedgEntry; LinkedAdvanceEntry."Amount to Apply" := AmountToApply; LinkedAdvanceEntry."Currency Code" := Link."Currency Code"; LinkedAdvanceEntry.INSERT; // End of the added lines. END; END; UNTIL Link.NEXT = 0; ...
Измените код в Purchase-Post Advances codeunit (26586). Для этого выполните указанные ниже действия.
Измените код в функции PostPaymentCorrection следующим образом:
Существующий код... LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); // Delete the following line. UNTIL LinkedAdvanceEntry.NEXT = 0; // Post Payment GenJnlLine.INIT; ...Код замены
LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); // Add the following line. UNTIL (LinkedAdvanceEntry.NEXT = 0) OR (InvoiceAmount = 0); // Post Payment GenJnlLine.INIT; ...Измените код в функции CalcLinkedPmtAmountToApply следующим образом:
Существующий код... AmountToApply := ROUND(TotAmt,Currency."Amount Rounding Precision") - TotAmtRnded; TotAmtRnded := TotAmtRnded + AmountToApply; // Delete the following lines. IF LinkedAdvanceEntry.GET(VendLedgEntry."Entry No.") THEN BEGIN LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + AmountToApply; LinkedAdvanceEntry.MODIFY; END ELSE BEGIN LinkedAdvanceEntry := VendLedgEntry; LinkedAdvanceEntry."Amount to Apply" := AmountToApply; LinkedAdvanceEntry."Currency Code" := Link."Currency Code"; LinkedAdvanceEntry.INSERT; // End of the deleted lines. END; END; UNTIL Link.NEXT = 0; ...Код замены
... AmountToApply := ROUND(TotAmt,Currency."Amount Rounding Precision") - TotAmtRnded; TotAmtRnded := TotAmtRnded + AmountToApply; // Add the following lines. IF AmountToApply <> 0 THEN IF LinkedAdvanceEntry.GET(VendLedgEntry."Entry No.") THEN BEGIN LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + AmountToApply; LinkedAdvanceEntry.MODIFY; END ELSE BEGIN LinkedAdvanceEntry := VendLedgEntry; LinkedAdvanceEntry."Amount to Apply" := AmountToApply; LinkedAdvanceEntry."Currency Code" := Link."Currency Code"; LinkedAdvanceEntry.INSERT; // End of the added lines. END; END; UNTIL Link.NEXT = 0; ...
Необходимые условия
Чтобы применить это исправление, необходимо установить версию Microsoft Dynamics NAV 2009 R2 для восточной Европы.
Сведения об удалении
Удалить это исправление невозможно.
Состояние
Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».
Чтобы получить дополнительные сведения о частичной отправке, щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:
2672643 сообщение об ошибке "Не размещены суммы предоплаты на заказ [номер]" при отправке частичной отправки заказа на продажу в восточно-европейской версии Microsoft Dynamics NAV 2009 R2. Дополнительные сведения о окончательном счете щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:
2546442 сообщение об ошибке "При публикации окончательного счета в сценарии предоплаты в версии Microsoft Dynamics NAV 2009 для Восточной Европы
Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .