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

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

КонецЦикла;   

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

	// код обработки, например л=л+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, КоличествоИтераций);

КонецЕсли;

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

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

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

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

 Функция GetClientOrders()

    МассивЗаказовПокупателейТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ArrayOfClientOrders");

    ЗаказПокупателяТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrder");

    ЗаказПокупателяСтрокаТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrderRow");

    НоменклатураТип = ФабрикаXDTO.Тип("http://company.com/1C/Nomenclature", "Nomenclature");

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

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

        "ВЫБРАТЬ

        |	ЗаказПокупателя.Ссылка,

        |	ЗаказПокупателя.Номер,

        |	ЗаказПокупателя.Дата

        |ИЗ

        |	Документ.ЗаказПокупателя КАК ЗаказПокупателя";

    Результат = Запрос.Выполнить();

    Выборка = Результат.Выбрать();

    Если Выборка.Количество() = 0 Тогда

        Возврат Null;

    КонецЕсли;

    МассивЗаказовПокупателей = ФабрикаXDTO.Создать(МассивЗаказовПокупателейТип);

    

    Пока Выборка.Следующий() Цикл

        ЗаказПокупателя = ФабрикаXDTO.Создать(ЗаказПокупателяТип);

        ЗаказПокупателя.Number = Выборка.Номер;

        ЗаказПокупателя.Date = Выборка.Дата;

            Для каждого Строка Из Выборка.Ссылка.Товары Цикл

            ЗаказПокупателяСтрока = ФабрикаXDTO.Создать(ЗаказПокупателяСтрокаТип);

            Номенклатура = ФабрикаXDTO.Создать(НоменклатураТип);

            Номенклатура.Code = Строка.Номенклатура.Код;

            Номенклатура.Name = Строка.Номенклатура.Наименование;

            ЗаказПокупателяСтрока.Nomenclature = Номенклатура;

            ЗаказПокупателяСтрока.Count = Строка.Количество;

            ЗаказПокупателя.Products.Добавить(ЗаказПокупателяСтрока);

        КонецЦикла;

        МассивЗаказовПокупателей.ClientOrder.Добавить(ЗаказПокупателя);

    КонецЦикла;

    Возврат МассивЗаказовПокупателей;

КонецФункции   

 Док = Метаданные.Документы; 

СписокДокументов = Новый СписокЗначений(); 



СписокДокументов.Добавить(Док.ПлатежноеПоручениеИсходящее, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеПоручениеВходящее, , Ложь); 

СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь); 

СписокДокументов.Добавить(Док.АккредитивПолученный, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежныйОрдерСписаниеДенежныхСредств, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежныйОрдерПоступлениеДенежныхСредств, , Ложь); 



Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда 

	Для Каждого НазваниеДокумента из СписокДокументов Цикл 

		Если НазваниеДокумента.Пометка Тогда 

			ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка(); 

			ФормаСписка.Открыть(); 

		КонецЕсли; 

	КонецЦикла; 

КонецЕсли;

   

  // Получить форму выбора справочника как подчиненную форме документа 

ФормаСписка = Справочники.Номенклатура.ПолучитьФормуСписка( , ЭтаФорма); 

// Открыть полученную форму 

ФормаСписка.Открыть();    

  ФормаВыбора = Справочники.Номенклатура.ПолучитьФормуВыбора( , ЭтаФорма); 

ФормаВыбора.Заголовок	= "Выберите товар!";

Выбрано = ФормаВыбора.ОткрытьМодально();    

  // Если Отобрать = Истина, то откроется выборка справочника без элементов у которых ГруппыПользователей.ВсеПользователи

Если Отобрать Тогда

   ФормаВыбора = Справочники.ГруппыПользователей.ПолучитьФормуВыбора();

   ФормаВыбора.Отбор.Ссылка.Установить(Справочники.ГруппыПользователей.ВсеПользователи);

   ФормаВыбора.Отбор.Ссылка.ВидСравнения = ВидСравнения.НеРавно;     	   

 Иначе    

       ФормаВыбора = Справочники.Пользователи.ПолучитьФормуВыбора();       

 КонецЕсли;    

    // укажем что выбирать только элементы

    ФормаВыбора.ПараметрВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Элементы;    

    ВыбранноеЗначение = ФормаВыбора.ОткрытьМодально();    

  Процедура ПолеВводаНачалоВыбора(Элемент, СтандартнаяОбработка) 



	// Запретить стандартную обработку. 

	СтандартнаяОбработка = Ложь; 



	// Получить форму выбора справочника как подчиненную полю ввода. 

	ФормаВыбора = Справочники.Номенклатура.ПолучитьФормуВыбора( , Элемент); 



	// Открыть полученную форму 

	ФормаВыбора.Открыть(); 



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



Процедура ПолеВводаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) 

	// Отключить стандартную обработку (при необходимости). 

	СтандартнаяОбработка = Ложь; 



	ПолученноеЗначение = ВыбранноеЗначение; 

	// Дальнейшая обработка значения.  

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

 // Параметры:

//		ИНН - строка - проверяемый индивидуальный номер налогоплательщика,

//		ВладелецИНН - ПеречислениеСсылка.ЮрФизЛицо - тип владельца ИНН: физлицо или юрлицо

Функция ИННСоответствуетТребованиям(Знач ИНН, ВладелецИНН) Экспорт



	ИНН = СокрЛП(ИНН);

	ДлинаИНН =  СтрДлина(ИНН);



	Если НЕ ТолькоЦифрыВСтроке(ИНН) Тогда

		Возврат Ложь;

	КонецЕсли;



	Если ДлинаИНН = 10  и ВладелецИНН = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда



		КонтрольнаяСумма = 0;



		Для Н = 1 По 9 Цикл



			Если 	  Н = 1 Тогда

				Множитель = 2;

			ИначеЕсли Н = 2 Тогда

				Множитель = 4;

			ИначеЕсли Н = 3 Тогда

				Множитель = 10;

			ИначеЕсли Н = 4 Тогда

				Множитель = 3;

			ИначеЕсли Н = 5 Тогда

				Множитель = 5;

			ИначеЕсли Н = 6 Тогда

				Множитель = 9;

			ИначеЕсли Н = 7 Тогда

				Множитель = 4;

			ИначеЕсли Н = 8 Тогда

				Множитель = 6;

			ИначеЕсли Н = 9 Тогда

				Множитель = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма = КонтрольнаяСумма + Цифра * Множитель;

			

		КонецЦикла; 

		

		КонтрольныйРазряд = (КонтрольнаяСумма %11) %10;

		

		Если КонтрольныйРазряд <> Число(Сред(ИНН,10,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	ИначеЕсли ДлинаИНН =12 и ВладелецИНН = Перечисления.ЮрФизЛицо.ФизЛицо Тогда

		

		КонтрольнаяСумма11 = 0;

		КонтрольнаяСумма12 = 0;

		

		Для Н=1 По 11 Цикл

			

			// Расчет множителя для 11-го и 12-го разрядов

			Если Н = 1 Тогда

				Множитель11 = 7;

				Множитель12 = 3;

			ИначеЕсли Н = 2 Тогда

				Множитель11 = 2;

				Множитель12 = 7;

			ИначеЕсли Н = 3 Тогда

				Множитель11 = 4;

				Множитель12 = 2;

			ИначеЕсли Н = 4 Тогда

				Множитель11 = 10;

				Множитель12 = 4;

			ИначеЕсли Н = 5 Тогда

				Множитель11 = 3;

				Множитель12 = 10;

			ИначеЕсли Н = 6 Тогда

				Множитель11 = 5;

				Множитель12 = 3;

			ИначеЕсли Н = 7 Тогда

				Множитель11 = 9;

				Множитель12 = 5;

			ИначеЕсли Н = 8 Тогда

				Множитель11 = 4;

				Множитель12 = 9;

			ИначеЕсли Н = 9 Тогда

				Множитель11 = 6;

				Множитель12 = 4;

			ИначеЕсли Н = 10 Тогда

				Множитель11 = 8;

				Множитель12 = 6;

			ИначеЕсли Н = 11 Тогда

				Множитель11 = 0;

				Множитель12 = 8;

			КонецЕсли; 

			

			Цифра = Число(Сред(ИНН,Н,1));

			КонтрольнаяСумма11 = КонтрольнаяСумма11 + Цифра * Множитель11;

			КонтрольнаяСумма12 = КонтрольнаяСумма12 + Цифра * Множитель12;

			

		КонецЦикла; 

		

		КонтрольныйРазряд11 = (КонтрольнаяСумма11 %11) %10;

		КонтрольныйРазряд12 = (КонтрольнаяСумма12 %11) %10;

		

		Если КонтрольныйРазряд11 <> Число(Сред(ИНН,11,1))

			ИЛИ КонтрольныйРазряд12 <> Число(Сред(ИНН,12,1)) Тогда

			Возврат Ложь;

		КонецЕсли; 

		

	Иначе		

		Возврат Ложь;		

	КонецЕсли; 	

	Возврат Истина;	

КонецФункции   

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

МассивТипов.Добавить(Тип("СправочникСсылка.ФизЛица")); 



// Добавить другие типы.



ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 



ПолученноеЗначение = Неопределено; 

ВвестиЗначение(ПолученноеЗначение, "Выберите значение:", ОписаниеВозможныхТипов);