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

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

КонецЦикла;   

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

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

КонецЕсли;

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

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

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

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

 USE acc_main

ALTER DATABASE acc_main SET RECOVERY SIMPLE

DBCC SHRINKFILE (acc_main, 50);

ALTER DATABASE acc_main SET RECOVERY FULL   

 BACKUP LOG BaseDB TO DISK = '<D:\Backup\Base_Log.trn'

DBCC SHRINKFILE (BaseDB_Log, 20) WITH NO_INFOMSGS   

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

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

		"ВЫБРАТЬ

		|	Номенклатура.Ссылка,

		|	Номенклатура.Наименование

		|ИЗ

		|	Справочник.Товары КАК Номенклатура

		|ГДЕ

		|	Номенклатура.Наименование ПОДОБНОПараметрСтрокаПоиска";

	

	Запрос.УстановитьПараметр("ПараметрСтрокаПоиска", ПараметрСтрокаПоиска);

	

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

	

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

	

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		// Вставить обработку выборки ВыборкаДетальныеЗаписи

	КонецЦикла;   

 РезультатПоиска.Параметры.УстановитьЗначениеПараметра("ПараметрСтрокаПоиска", "%" + СтрокаПоиска + "%");   

 Процедура ПриОткрытии()



Путь = КаталогИБ() + "DialMail.dll";

Если ЗагрузитьВнешнююКомпоненту(Путь) = 0 Тогда Сообщить("Неудачная попытка загрузить DialMail.dll"); КонецЕсли;



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

 Процедура ОтправитьПочту()

ОтправкаПочты = СоздатьОбъект("AddIn.SMTP");

ОтправкаПочты.РабочийКаталог=СокрЛП(КаталогИБ());

ОтправкаПочты.УстановитьКодировкуИСпособКодирования(14, 1);

ОтправкаПочты.MakeContentDescriptionTag = 0;

ОтправкаПочты.ПочтоваяПрограмма = "Имя почтовой программы";

//В моем случае ошибки пишутся в отдельный каталог в текстовые файлы, имена которых соответствуют дате.

ВыбФайл = СокрЛП(КаталогОшибок) +"\"+ СокрЛП(ДатаЧисло(ТекущаяДата())) + СокрЛП(ДатаМесяц(ТекущаяДата()))+ СокрЛП(ДатаГод(ТекущаяДата())) + ".txt";

//имя файла - вложения должно быть в кавычках.

ВыбФайл = """" + ВыбФайл + """";

// От кого, Кому, Копии - это адреса почты.

ОтправкаПочты.СоздатьПисьмо(ОтКого,Кому,СокрЛП(СпрПочта.Копии),"Ошибки обмена в " + СокрЛП(Константа.Магазин.Наименование),,"Данное письмо сформировано автоматически. Смотри вложение",СокрЛП(ВыбФайл));

Если ОтправкаПочты.Подключиться("smtp.mail.ru","25",ИмяПользователя,Пароль)=0 тогда

Сообщить("Не смогли подключиться к SMTP-серверу");

КонецЕсли;

Если ОтправкаПочты.ОтправитьВсеПисьма(0,1,0) = -100 Тогда

Сообщить("Успешно отправлено");

КонецЕсли;

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

 Получ=СоздатьОбъект("AddIn.POP3");

Отпр=СоздатьОбъект("AddIn.SMTP");

Получ.РабочийКаталог="c:\Export\";

Отпр.РабочийКаталог="c:\Import\";

  //Глобальный модуль

========================================

Перем КонтекстНашейФормы Экспорт;

...

Процедура ВзятьКонтекст(Конт) Экспорт

   КонтекстНашейФормы=Конт;

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



Процедура ОсвободитьКонтекст() Экспорт

   КонтекстНашейФормы=-1;

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

...

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)

   ...

   Если КонтекстНашейФормы<>-1 тогда

     КонтекстНашейФормы.КоличествоСобытий=КоличествоСобытий+1;   

     КонтекстНашейФормы.Форма.Обновить(0);

   КонецЕсли;

   ...

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

...

КонтекстНашейФормы=-1;

========================================



Модуль нашей формы

========================================

Перем Дозвон;



Процедура ПриОткрытии()

   ...

   ЗагрузитьВнешнююКомпоненту("DialMail.dll");

   Дозвон=СоздатьОбъект("AddIn.RasDial");



   ВзятьКонтекст(Конт);

   ...

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



Процедура ПриЗакрытии()

   ...

   ОсвободитьКонтекст(Конт)

   ...

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



Процедура НашДозвон()

   Дозвон.Дозвониться("Мое соединение",

	"логин","пароль","p1055555",1);

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

        pop3.ПолучитьВсеПисьма(0,1,1);

       pop3.Отключиться();

 ##Если &ИспользоватьОграничениеПоОрганизации ИЛИ &ИспользоватьОграничениеПоФизическиеЛица ##Тогда

ТекущаяТаблица ИЗ #ТекущаяТаблица КАК ТекущаяТаблица

    ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ

        СоставГруппы.Ссылка КАК ГруппаПользователей

    ИЗ

        Справочник.ГруппыПользователей.ПользователиГруппы КАК СоставГруппы

    ГДЕ

        СоставГруппы.Пользователь = &ТекущийПользователь) КАК ГруппыПользователей

    ПО (ИСТИНА)

                ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК ОбособленныеПодразделения

                ПО ОбособленныеПодразделения.ГоловнаяОрганизация = ТекущаяТаблица.#Параметр(1)

                И НЕ ОбособленныеПодразделения.ГоловнаяОрганизация = ЗНАЧЕНИЕ(Справочник.Организации.ПустаяСсылка)

                ИЛИ ОбособленныеПодразделения.Ссылка = ТекущаяТаблица.#Параметр(1)

ГДЕ (НЕ 1 В

                    (ВЫБРАТЬ ПЕРВЫЕ 1

                        1 КАК ПолеОтбора

                    ИЗ

                        РегистрСведений.НазначениеВидовОбъектовДоступа КАК НазначениеВидовОбъектовДоступа

                    ГДЕ

                        НазначениеВидовОбъектовДоступа.ГруппаПользователей = ГруппыПользователей.ГруппаПользователей

                        И ВЫБОР

                               ##Если &ИспользоватьОграничениеПоОрганизации ##Тогда

                            КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Организации)

                                ТОГДА ВЫБОР

                                        КОГДА 1 В

                                                (ВЫБРАТЬ ПЕРВЫЕ 1

                                                    1

                                                ИЗ

                                                    (ВЫБРАТЬ

                                                        1 КАК ПолеОтбора

                                                    ) КАК Оптмизация ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиПравДоступаПользователей КАК НастройкиПравДоступаПользователей

                                                        ПО

                                                            НастройкиПравДоступаПользователей.ОбъектДоступа = ОбособленныеПодразделения.Ссылка

                                                                И НастройкиПравДоступаПользователей.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Организации)

                                                                И (НастройкиПравДоступаПользователей.Пользователь = НазначениеВидовОбъектовДоступа.ГруппаПользователей

                                                                    ИЛИ НастройкиПравДоступаПользователей.Пользователь = ЗНАЧЕНИЕ(Справочник.ГруппыПользователей.ВсеПользователи)))

                                            ТОГДА ИСТИНА

                                        ИНАЧЕ ЛОЖЬ

                                    КОНЕЦ

                               ##КонецЕсли

                               

                               ##Если &ИспользоватьОграничениеПоФизическиеЛица ##Тогда

                            КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.ФизическиеЛица)

                                ТОГДА ВЫБОР

                                        КОГДА 1 В

                                                (ВЫБРАТЬ ПЕРВЫЕ 1

                                                    1

                                                ИЗ

                                                    Справочник.ФизическиеЛица КАК ФизическиеЛица ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиПравДоступаПользователей КАК НастройкиПравДоступаПользователей

                                                        ПО

                                                            НастройкиПравДоступаПользователей.ОбъектДоступа = ФизическиеЛица.ГруппаДоступаФизическогоЛица

                                                                И НастройкиПравДоступаПользователей.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.ФизическиеЛица)

                                                                                                                                                                                                                                                           И НастройкиПравДоступаПользователей.ОбластьДанных = ЗНАЧЕНИЕ(Перечисление.ОбластиДанныхОбъектовДоступа.ФизическиеЛицаДанные)

                                                                И (НастройкиПравДоступаПользователей.Пользователь = НазначениеВидовОбъектовДоступа.ГруппаПользователей

                                                                    ИЛИ НастройкиПравДоступаПользователей.Пользователь = ЗНАЧЕНИЕ(Справочник.ГруппыПользователей.ВсеПользователи))

                                                ГДЕ

                                                    ФизическиеЛица.Ссылка = ТекущаяТаблица.#Параметр(2))

                                            ТОГДА ИСТИНА

                                        ИНАЧЕ ЛОЖЬ

                                    КОНЕЦ

                               ##КонецЕсли

                               

                            ИНАЧЕ ИСТИНА

                        КОНЕЦ = ЛОЖЬ))

                        И НЕ ГруппыПользователей.ГруппаПользователей ЕСТЬ NULL

##КонецЕсли

   

 Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу



СтрокаАдреса = "ivanov@mail.com"; // проверяемый адрес

//CтрокаАдреса = ЭлементыФормы.ПолеВводаАдреса.Значение;  //проверяемый адрес для элемента формы



RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы  с регулярными выражениями

RegExp.MultiLine = Ложь;    // истина — текст многострочный, ложь — одна строка

RegExp.Global = Истина;     // истина — поиск по всей строке, ложь — до первого совпадения

RegExp.IgnoreCase = Истина; // истина — игнорировать регистр строки при поиске

RegExp.Pattern = Шаблон;    // шаблон (регулярное выражение) для проверки  корректности e-mail

Если RegExp.Test(СтрокаАдреса) Тогда

     Сообщить("Корректный адрес");

Иначе

     Сообщить("Некорректный адрес");

КонецЕсли;   

 RegExp = CreateObject("VBScript.RegExp");

 Процедура М_МонтажПриИзменении(Элемент)

ЭлементыФормы.М_Монтажник.Видимость = М_Монтаж;

ЭлементыФормы.М_ДатаМонтажа.Видимость = М_Монтаж;

ЭлементыФормы.НадписьМ_Монтажник.Видимость = М_Монтаж;

ЭлементыФормы.НадписьМ_ДатаМонтажа.Видимость = М_Монтаж;

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

 // Движения по документу

Если Не Отказ Тогда

 ДвиженияПоРегистрам(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоУслугам, ТаблицаПоТаре, Отказ, Заголовок);

 Если М_Монтаж тогда

  РаботаСДиалогами.ПроверитьЗадачиПоОбъекту(Ссылка);

 КонецЕсли;

КонецЕсли;    

 Процедура ПроверитьЗадачиПоОбъекту(ОбъектЗадачи) Экспорт



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

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

|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1

| *

|ИЗ

| Задача.ЗадачиПользователя.ЗадачиПоИсполнителю(

| &ТекПользователь,

| Выполнена = ЛОЖЬ И Объект = &ОбъектЗадачи)

|";

Запрос.УстановитьПараметр("ТекПользователь", ПараметрыСеанса.ТекущийПользователь);

Запрос.УстановитьПараметр("ОбъектЗадачи" , ОбъектЗадачи);

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

Если НЕ РезультатЗапроса.Пустой() Тогда

Выполнение = Вопрос("Обнаружены незавершенные задачи по заданному объекту!" + Символы.ПС + " Желаете просмотреть список этих задач вместо создания новой?", РежимДиалогаВопрос.ДаНет, 0);

Если Выполнение = КодВозвратаДиалога.Да Тогда

 ОткрытьЗадачиТекущегоПользователя(ОбъектЗадачи);

 Возврат;

 КонецЕсли;

КонецЕсли;



// Сознание Задачи

НоваяЗадача = Задачи.ЗадачиПользователя.СоздатьЗадачу();

НоваяЗадача.Объект = ОбъектЗадачи;

НоваяЗадача.Оповещение = Истина;



Если ТипЗнч(ОбъектЗадачи) = Тип("ДокументСсылка.ЗаказПокупателя") тогда

 Если ОбъектЗадачи.М_Монтаж тогда

  НоваяЗадача.Наименование = "Напоминание менеджеру о сборке комплекта по: " + ОбъектЗадачи.Метаданные().Синоним;

  НоваяЗадача.Дата = ТекущаяДата();

  НоваяЗадача.СрокОповещения = ОбъектЗадачи.М_ДатаМонтажа;

  НоваяЗадача.Инициатор = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Исполнитель = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Записать();



  //   Напоминание мастеру

  НоваяЗадача = Задачи.ЗадачиПользователя.СоздатьЗадачу();

  НоваяЗадача.Дата = ТекущаяДата();

  НоваяЗадача.Объект = ОбъектЗадачи;

  НоваяЗадача.Инициатор = ОбъектЗадачи.Ответственный;

  НоваяЗадача.Оповещение = Истина;

  НоваяЗадача.Исполнитель = ОбъектЗадачи.М_Монтажник;

  НоваяЗадача.Наименование = "Напоминание мастеру о сборке комплекта по: " + ОбъектЗадачи.Метаданные().Синоним;

  НоваяЗадача.СрокОповещения = ОбъектЗадачи.М_ДатаМонтажа - 24 * 60 * 60;

  НоваяЗадача.Записать();

 КонецЕСли;

Иначе

 НоваяЗадача.Наименование = "Напоминание по объекту: " + ОбъектЗадачи.Метаданные().Синоним;

 ФормаНовой = НоваяЗадача.ПолучитьФорму();

 ФормаНовой.Открыть();

КонецЕсли;

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