Для каждого ТекСтрока Из КоллекцияСтрок Цикл

// код обработки

КонецЦикла;   

 Пока л < КолСтрок Цикл

	// код обработки, например л=л+1;

КонецЦикла;   

 Для л=0 по КолСтрок Цикл

// код обработки, например л=л+1;

КонецЦикла   

 ~НачалоЦикла:

Если л <> КоличествоИтераций Тогда 

// код обработки, например л=л+1;

	Перейти ~НачалоЦикла;

КонецЕсли;   

 &НаКлиенте

Процедура ВыполнитьКод(Команда)

 

    /// Как организовать цикл в 1с 8.3, 8.2

 

    // Для Цикл

    Для Счетчик = 1 По 5 Цикл

        Сообщить(Счетчик); // 1 2 3 4 5

    КонецЦикла;

 

    // Для Каждого Цикл

 

    Дни = Новый Массив();

    Дни.Добавить("Понедельник");

    Дни.Добавить("Вторник");

    Дни.Добавить("Среда");

 

    Для Каждого Элемент Из Дни Цикл

        Сообщить(Элемент); // Понедельник Вторник Среда

    КонецЦикла;

 

    // Пока Цикл

    Счетчик = 0;

    Пока Счетчик < Дни.Количество() Цикл        

        Сообщить(Дни[Счетчик]); // Понедельник Вторник Среда

        Счетчик = Счетчик + 1;     

    КонецЦикла;     

 

    /// Как организовать обратный цикл в 1с 8.3, 8.2     

 

    Счетчик = Дни.Количество() - 1;     

    Пока Счетчик >= 0 Цикл

        Сообщить(Дни[Счетчик]); // Среда Вторник Понедельник

        Счетчик = Счетчик - 1;

    КонецЦикла;

 

    /// Как прервать цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик > 2 Тогда

            Прервать;

        КонецЕсли;

        Сообщить(Счетчик); // 1 2

    КонецЦикла;

 

    /// Как принудительно продолжить цикл в 1с 8.3, 8.2

 

    Для Счетчик = 1 По 5 Цикл

        Если Счетчик <> 3 Тогда

            Продолжить;

        КонецЕсли;

 

        Сообщить(Счетчик); // 3

    КонецЦикла;   

 

КонецПроцедуры

   

 Для н = 0 по КоличествоИтераций Цикл

КакиеТоДействия();

КонецЦикла;   

 Для Каждого ЭлементКоллекции из Коллекция Цикл

КакиеТоДействия();

КонецЦикла;   

 Пока н <> КоличествоИтераций Цикл

КакиеТоДействия();

н = н + 1;

КонецЦикла;   

 ~НачалоЦикла:

Если н <> КоличествоИтераций Тогда

КакиеТоДействия();

н = н + 1;

Перейти ~НачалоЦикла;

КонецЕсли;   

 Процедура РекурсивныйЦикл(н, КоличествоИтераций)

КакиеТоДействия();

Если н <> КоличествоИтераций Тогда

РекурсивныйЦикл(н+1, КоличествоИтераций);

КонецЕсли;

КонецПроцедуры   

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

 ПриемникТестовогоЗначения = Элем;   

 ПриемникТестовогоЗначения = ТестовыйМассив.Получить(н);   

 Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

    ЦветКрасный = Новый Цвет(255,130,124);

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;



        Если ДанныеСтроки.Ссылка.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;

    КонецЦикла;

КонецПроцедуры   

 ДанныеСтроки.Ссылка.НеПолученТовар   

 Функция ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок)

    Массив = Новый Массив;

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Массив.Добавить(ОформлениеСтроки.Данныестроки.Ссылка);

    КонецЦикла;

    Возврат Массив;

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)   

 Функция ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления)



    Запрос = Новый Запрос;

    Запрос.Текст =

        "ВЫБРАТЬ

        |   ПриходнаяНакладнаяБезнал.Ссылка,

        |   ПриходнаяНакладнаяБезнал.НеПолученТовар

        |ИЗ

        |   Документ.ПриходнаяНакладнаяБезнал КАК ПриходнаяНакладнаяБезнал

        |ГДЕ

        |   ПриходнаяНакладнаяБезнал.Ссылка В(&МассивСсылокОформления)";



    Запрос.УстановитьПараметр("МассивСсылокОформления", МассивСсылокОформления);



    Возврат Запрос.Выполнить().Выгрузить();

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)()   

  Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)



    ЦветКрасный = Новый Цвет(255,130,124);



    МассивСсылокОформления = ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок);

    ТаблицаДанныхОформленияСтрок = ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления);



    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;

        СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Ссылка");



        Если СтрокаОформленияСтрок.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;



    КонецЦикла;



КонецПроцедуры