Алгоритм №8. Выставление счета для возврата обеспечения контракта.

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

2. Поиск заявки на платеж по данному тендеру
APPLY_PLAT$:= (
		TENDER$.TENDER-REF-APPLY_PLAT_1
		)

3. Получаем список заявок на платеж для обеспечения контракта по данному ТРТ
APPLY_PLAT_LIST$:=APPLY_PLAT.APPLY_PLAT_1-BREF-TRT (такого поля пока нет)

4. Проверка суммы и статуса
TENDER$.CONTRACT_PAYMENT <= SUM(APPLY_PLAT_LIST$(APPLY_PLAT_4,APPLY_PLAT_6,APPLY_PLAT_DP).AMNT_FACT)

5. Перевод Тендера в статус "контракт обеспечен"
TENDER (TENDER_PROVIDED)

6. Создание счета для возврата обеспечения
SCHET_MAIN$

7. Заполнение полей счета
Статья расходов по банку - обеспечение
SCHET_MAIN.FIN_ARTICLES:=33
Вариант расчета - безналичный
SCHET_MAIN.SCHET_TYPE:=1
Вид счета - возврат обеспечения (такого нет в словаре)
SCHET_MAIN.SCHET_KIND:=?
Направление счета - исходящий
SCHET_MAIN.DIRECT:=2
Плательщик
SCHET_MAIN.SCHET_MAIN-REF-LEG_PERSON_1:=APPLY_PLAT$.APPLY_PLAT-REF-LEG_PERSON_1
Получатель средств
SCHET_MAIN.SCHET_MAIN-REF-LEG_PERSON:=APPLY_PLAT$.APPLY_PLAT-REF-LEG_PERSON
Ответственный менеджер
SCHET_MAIN.SCHET_MAIN-REF-EMPLOYEE:=APPLY_PLAT$.APPLY_PLAT-REF-EMPLOYEE
Заявки на платеж
SCHET_MAIN.SCHET_MAIN-BREF-APPLY_PLAT:=APPLY_PLAT_LIST$
Итого
SCHET_MAIN.SUM:=SUM(APPLY_PLAT_LIST$(APPLY_PLAT_4,APPLY_PLAT_6,APPLY_PLAT_DP).AMNT_FACT)

8. Перевод счета на статус "к оплате"
SCHET_MAIN$(SCHET_MAIN_1)