Код в 1С, тоже многих ужасает
&НаКлиенте
Функция РассчитатьПроцентНаценки(ЦенаЗакупки, ЦенаПродажи)
ПроцентНаценки = 0;
Если ЦенаЗакупки <> 0 Тогда
ПроцентНаценки = (ЦенаПродажи - ЦенаЗакупки) * 100 / ЦенаЗакупки;
КонецЕсли;
Возврат ПроцентНаценки;
КонецФункции
106 комментариев
5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Avrupalılaştırmadıklarımızdan mısınız?
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
&НаКлиенте
Функция РассчитатьПроцентНаценки(ЦенаЗакупки, ЦенаПродажи)
ПроцентНаценки = 0;
Если ЦенаЗакупки <> 0 Тогда
ПроцентНаценки = (ЦенаПродажи - ЦенаЗакупки) * 100 / ЦенаЗакупки;
КонецЕсли;
Возврат ПроцентНаценки;
КонецФункции
&НаКлиенте
Процедура ПоследняяЦенаЗакупкиПриИзменении(Элемент)
Объект.ПроцентНаценки = РассчитатьПроцентНаценки(Объект.ПоследняяЦенаЗакупки,
Объект.ЦенаПродажи);
КонецПроцедуры
&НаКлиенте
Процедура ЦенаПродажиПриИзменении(Элемент)
Объект.ПроцентНаценки = РассчитатьПроцентНаценки(Объект.ПоследняяЦенаЗакупки,
Объект.ЦенаПродажи);
КонецПроцедуры
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена5 лет назад
Удалить комментарий?
Удалить Отмена