Имя: Пароль:
1C
1C 7.7
v7: Цикл
🠗 (Волшебник 01.05.2017 20:19)
0 amon_ra
 
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
Надо просто удалить из кода "ДатаДок +"
AdBlock убивает бесплатный контент. 1Сергей