Алгоритм №9. Алгоритм расчета рентабельности тендера

1. Получаем текущий тендер
TENDER$(TENDER_EXECUTED)

2. Поиск списка счетов по данному тендеру за работу
SCHET$:= (
	   TENDER$.TENDER-REF-APPLY/APPLY.APPLY-REF-SCHET_MAIN_1(SCHET_MAIN_2)
	  )

3. Расчет себестоимости работ по тендеру (на совещании обсуждали, что будет поле "себестоимость" в счете
COST$:= SUM (SCHET$.себестоимость)

4. Расчет рентабельности (сумма контракта - сумма себестоимости) мероприятия
TENDER$.PROFITABILITY:= TENDER$.SUM_WIN - COST$