v7: Цикл

1C 7.7

v7: Цикл
↓ (Волшебник 01.05.2017 20:19)

01.05.17

✎

12:15

Здрасте. помогите разобраться с циклом. Надо что бы он повторялся определенное количество раз от выставленного значения месяц.
Месяц это реквизит диалога с типом число.

таб = создатьобъект("Таблица");
  таб.исходнаятаблица("Сформировать");

   ДатаДок = ТекущаяДата();
   НазваниеОрганизации = константа.ЗаголовокДляСоглашения;

   контрагент =    контр.наименование;
   паспорт = контр.паспортныеданные;
   адресК = контр.адрес;
   сумма = контр.суммадолга;
   месяц = мес;
   Таб.ВывестиСекцию("Шапка");

   Датамесяца = ДатаДок + Добавитьмесяц(ДатаДок,1);

   СуммаДолг = Сумма/Месяц;

   пока  СуммаДолг<сумма цикл
          СуммаДолг = СуммаДолг+СуммаДолг;
           Таб.ВывестиСекцию("Долг");
        конеццикла;

1 vde69

01.05.17

✎

12:16

для сч=0 по месяц цикл

конеццикла

2 HawkEye

01.05.17

✎

13:09

(0)
для к = ВыставленноеЗначениеМесяца по (ВыставленноеЗначениеМесяца + ОпределенноеКоличествоРаз) Цикл

или

для к = 1 по ОпределенноеКоличествоРаз Цикл

3 Diman_Kr

01.05.17

✎

17:21

А что, группировка Месяц уже не актуальна?

4 Злопчинский

01.05.17

✎

19:51

Автор получить фишню ибо в переменной ДатаМесяца он складывает две даты
Что будет если к 1 мая прибавить 1июня - я хз

5 ndv76

02.05.17

✎

07:09

СуммаДолг = СуммаДолг+СуммаДолг;    Это же геометрическая прогрессия. У вас микрофинансовая организация?

   СуммаМес = Сумма/Месяц;
   СуммаДолг = 0;

   пока  СуммаДолг<=сумма цикл
          СуммаДолг = СуммаДолг+СуммаМес;
           Таб.ВывестиСекцию("Долг");
        конеццикла;

6 ndv76

02.05.17

✎

07:18

(4)Число ('01.05.17') = 2457875
Число ('01.06.17') = 2457906
2457875+2457906 = 4915781
Дата(4915781) = 07.11.46
Надо просто удалить из кода "ДатаДок +"