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

    • Вроде написано на русском, но для меня это иероглифы
      Ответить
    • Это на всякий случай) А то вдруг не сработает))))
      Ответить
    • 2й блок писался в другое время другим разработчиком.
      Возможно смержили криво.
      Ответить
    • Очень напоминает Континент Страхование.
      Ответить

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