Система не округляет хотя бы один общий вес при вставке строки в журнале Интрастат в итальянской версии Microsoft Dynamics NAV

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

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

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

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

Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы устранить эту проблему, измените код в таблице Интрастат Журнал Строка (263). Чтобы сделать это, выполните следующие действия

1. Измените код в триггере Вес нетто - OnValidate следующим образом:
   Существующий код

   ...// Delete the following lines.
   IF Quantity <> 0 THEN 
   "Total Weight" := ROUND("Net Weight" * Quantity,0.00001) 
   ELSE 
   "Total Weight" := ROUND("Net Weight",0.00001);
   // End of the lines
   ...
   
   

   Код для замены

   ...// Add the following line.
   CalcTotalWeight; 
   ...
   
   

2. Измените код в триггере Вес нетто - OnValidate следующим образом:
   Существующий код

   ...// Delete the following line.
   "Total Weight" := ROUND("Net Weight" * Quantity,0.00001); 
   ...
   
   

   Код для замены

   ...// Add the following line.
   CalcTotalWeight;
   ...
   
   

3. Создать новую функцию CalcTotalWeight и затем добавьте код, как показано ниже:

   IF "Net Weight" = 0 THEN BEGIN"Total Weight" := 0;
   EXIT;
   END;
   IF Quantity <> 0 THEN
   "Total Weight" := ROUND("Net Weight" * ABS(Quantity),1,'<')
   ELSE
   "Total Weight" := ROUND("Net Weight",1,'<');
   IF "Total Weight" = 0 THEN
   "Total Weight" := 1;