1. 1C / Говнокод #18894

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    Если не ДанныеАкта.ФормироватьБухПроводку Тогда
	Выборка = Результат[1].Выбрать();
	Пока Выборка.Следующий() Цикл
		СуммаВал = СуммаВал + Выборка.СуммаУслуги;
		//тут делаем всякое с выборкой
	КонецЦикла;
КонецЕсли;

Если ДанныеАкта.ФормироватьБухПроводку Тогда
	//тут делаем движения по счетам БУ
Иначе
	тз = Результат[1].Выгрузить();
	Для каждого стрТЗ Из тз Цикл
		//тут делаем тоже, что и с выборкой, только теперь с таблицей значений О_о
	КонецЦикла;
КонецЕсли;

    Смотрю одно решение для страховых компаний, полностью на поддержке...

    Запостил: HomoAlbus, 20 Октября 2015

    Комментарии (4) RSS

    • ava Thorax 21.10.2015 16:58 # +1

      Вроде написано на русском, но для меня это иероглифы
      Ответить

    • ava guest 23.10.2015 08:02 # +1

      Это на всякий случай) А то вдруг не сработает))))
      Ответить

    • ava guest 03.11.2015 09:31 # +2

      2й блок писался в другое время другим разработчиком.
      Возможно смержили криво.
      Ответить

    • ava guest 06.11.2015 12:51 # 0

      Очень напоминает Континент Страхование.
      Ответить

    Добавить комментарий