Пример. ПокаУсловиеЦикла Цикл//тело цикла КонсцЦикла;
Пример.
Процедура КнопкаВыполнитьНажатие(Кнопка) //пометить на удаление все поля помеченные на удаление для Каждого стр из полесписка1 цикл // цикл приравневание строк перем если стр.Пометка ТОГДА //если помеченная строка тогда пер=стр.Значение.получитьобъект(); //пер равна наиденной строке ССЫЛКА пер.пометкаудаления=истина; //пометить на удаление пер.записать(); //записать в таблицу измененния конецесли; конеццикла; КонецПроцедуры
Процедура ПриОткрытии() //вывести при загрузке контрагентов мен=справочники.контрагенты; // выб=мен.Выбрать(); //делаем выборку по строкам пока выб.Следующий() цикл // делаем выборку по строкам если выб.ЭтоГруппа=ложь тогда // проверка на папку полесписка1.Добавить(выб.ссылка,выб.код); //работаем теперь с ССЫЛКА-наименование но отображается код конецесли; конеццикла;
КонецПроцедуры
Процедура кнопка1Нажатие(Элемент) для Каждого стр из полесписка1 цикл // переход по строкам стр.Пометка=Истина; конеццикла; // Вставить содержимое обработчика. КонецПроцедуры
Процедура Кнопка2Нажатие(Элемент) //удалить пометки для Каждого стр из полесписка1 цикл // стр.Пометка=ложь; конеццикла;
КонецПроцедуры
Процедура Кнопка3Нажатие(Элемент) //инверсии-если истина то ложь для Каждого стр из полесписка1 цикл // если стр.Пометка=Истина тогда стр.Пометка=ложь; иначе стр.Пометка=Истина; конецесли; конеццикла;
КонецПроцедуры
Процедура ПолеВвода1ПриИзменении(Элемент)//при выборе элемента из справочника вывести всю строку из справочника //для Каждого стр из полеввода1 цикл ТабличноеПоле1.Очистить(); выб=справочники.товары.выбрать(полеввода1);//находим ссылку в таблице товары которая соответствует выбранному продукту пока выб.следующий() цикл нов=ТабличноеПоле1.Добавить(); нов.код=выб.код; нов.наим=выб.наименование; нов.артик=выб.артикул; конеццикла; конецПроцедуры
|