7.7 Цикл

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем Петя Васечкин, 28 апр 2017.

  1. TopicStarter Overlay
    Петя Васечкин
    Offline

    Петя Васечкин

    Регистрация:
    28 апр 2017
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Здравствуйте, никак не могу разобраться с циклами
    Код:
     сумма = контр.суммадолга;
    СуммаДолг = Сумма/Месяц;
    
    пока  СуммаДолг<сумма цикл
                  СуммаДолг = СуммаДолг+СуммаДолг;   
                   Таб.ВывестиСекцию("Долг");      
                конеццикла;
    Но он не правильно работает. Подскажите пожалуйста в чем ошибка?
  2. Хряк
    Offline

    Хряк Профессионал в 1С

    Регистрация:
    26 сен 2007
    Сообщения:
    1.548
    Симпатии:
    59
    Баллы:
    54
    даже сказать нечего. и это ещё до цикла
    сумма=100
    месяц = 1,2,3,...,12
    суммадолг=сумма/месяц - что это???
  3. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.508
    Симпатии:
    533
    Баллы:
    204
    полный текст покажите...
  4. TopicStarter Overlay
    Петя Васечкин
    Offline

    Петя Васечкин

    Регистрация:
    28 апр 2017
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Да простите за неполный вопрос. Это внешняя обработка, месяц это реквизит диалога на форме с типом число.

    Код:
    таб = создатьобъект("Таблица");
      таб.исходнаятаблица("Сформировать");
      
       ДатаДок = ТекущаяДата();
       НазваниеОрганизации = константа.ЗаголовокДляСоглашения;
      
       контрагент =    контр.наименование;
       паспорт = контр.паспортныеданные;
       адресК = контр.адрес;
       сумма = контр.суммадолга;    
       месяц = мес;
       Таб.ВывестиСекцию("Шапка");
      
       Датамесяца = ДатаДок + Добавитьмесяц(ДатаДок,1);
       
       СуммаДолг = Сумма/Месяц;
       пока  СуммаДолг<сумма цикл
              СуммаДолг = СуммаДолг+СуммаДолг;   
               Таб.ВывестиСекцию("Долг");      
            конеццикла;
          
    адресо = константа.АдресОрганизации;
       ИНН = константа.ИНН;
       КПП = Константа.КПП;
       ОГРН = константа.ОГРН;
     
       Рсчет = Константа.РасчетныйСчет;
       Банк = константа.БанкОрганизации;
       Бик = Константа.Бик;
       Корсчет = константа.КоррСчет;
    таб.вывестисекцию("подвал");
     
          Таб.Опции(0,0,0,0);
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать","");
       
    КонецПроцедуры  
  5. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.508
    Симпатии:
    533
    Баллы:
    204
    текущая сумма долга делится на количество месяцев.
    потом полученный результат деления возрастает в геометрической прогрессии до тех пор, пока не превысит первоначальную сумму долга

Поделиться этой страницей