6
MobilSoyuz
08.12.11
✎
11:21
|
в первой форме
Процедура СписокКлиентов()
ОткрытьФормуМодально("Обработка.ВсеКлиенты",глВзятьКонтекст(Контекст));
КонтекстФормы = глВзятьКонтекст(Контекст);
Сообщить(КонтекстФормы);
КонецПроцедуры
во второй форме
Перем Элемент;
Процедура ПриОткрытии()
ВсеКлиенты.НоваяКолонка("ШтрихКод", "Строка",40, 0, "Штрих Код", 20);
ВсеКлиенты.НоваяКолонка("Фамилия", "Строка", 20, 0, "Фамилия", 20);
ВсеКлиенты.НоваяКолонка("Имя", "Строка", 20, 0, "Имя", 20);
ВсеКлиенты.НоваяКолонка("Отчество", "Строка", 20, 0, "Отчество", 20);
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Обрабатывать НеПомеченныеНаУдаление;
|Клиент = Справочник.Клиенты.ТекущийЭлемент;
|Группировка Клиент упорядочить по Клиент.Фамилия;
|";
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
СтатусВозврата(0);
Сообщить("Ошибка запроса по справочнику Клиенты","!!");
КонецЕсли;
n = 1;
Пока Запрос.Группировка("Клиент") = 1 Цикл
ВсеКлиенты.НоваяСтрока();
ВсеКлиенты.УстановитьЗначение(n,1,Запрос.Клиент.Наименование) ;
ВсеКлиенты.УстановитьЗначение(n,2,Запрос.Клиент.Фамилия) ;
ВсеКлиенты.УстановитьЗначение(n,3,Запрос.Клиент.Имя) ;
ВсеКлиенты.УстановитьЗначение(n,4,Запрос.Клиент.Отчество) ;
n=n+1;
КонецЦикла;
КонецПроцедуры
Процедура ПриЗакрытии()
Форма.Параметр = Элемент;
КонецПроцедуры
|
|