1.ОткрытьПодбор("Справочник.Контрагенты",,Конт); Нужно выбирать группу клиентов
Процедура ИзменениеСпРДМ1(зн)
Если зн=1 тогда
Конт = "";
ОткрытьПодбор("Справочник.Контрагенты",,Конт);
ИначеЕсли зн=2 тогда
Стр = ВыбРДМ1.ТекущаяСтрока();
Если стр>0 тогда
ВыбРДМ1.УдалитьЗначение(Стр);
КонецЕсли;
ИначеЕсли зн=3 тогда
ВыбРДМ1.УдалитьВсе();
КонецЕсли;
КонецПроцедуры
2.ВыбРДМ1.ДобавитьЗначение(Эл.ТекущийЭлемент(), +"Группа "+Эл.ТекущийЭлемент().Наименование); название этой группы клиентов
Процедура ОбработкаПодбора1(Эл,Кон)
Если Эл.Вид()="Контрагенты" Тогда
Если ВыбРДМ1.Принадлежит(Эл.ТекущийЭлемент()) = 1 Тогда
Сообщить("уже присутствует в списке");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ВыбРДМ1.ДобавитьЗначение(Эл.ТекущийЭлемент(), +"Группа "+Эл.ТекущийЭлемент().Наименование);
// СписокКлиент.Установить(""+Эл,Эл.ТекущийЭлемент());
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура ИзменениеСпРДМ1(зн)
Если зн=1 тогда
Конт = "";
ОткрытьПодбор("Справочник.Контрагенты",,Конт);
ИначеЕсли зн=2 тогда
Стр = ВыбРДМ1.ТекущаяСтрока();
Если стр>0 тогда
ВыбРДМ1.УдалитьЗначение(Стр);
КонецЕсли;
ИначеЕсли зн=3 тогда
ВыбРДМ1.УдалитьВсе();
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура ОбработкаПодбора1(Эл,Кон)
Если Эл.Вид()="Контрагенты" Тогда
Если ВыбРДМ1.Принадлежит(Эл.ТекущийЭлемент()) = 1 Тогда
Сообщить("уже присутствует в списке");
СтатусВозврата(0);
Возврат;
КонецЕсли;
ВыбРДМ1.ДобавитьЗначение(Эл.ТекущийЭлемент(), +"Группа "+Эл.ТекущийЭлемент().Наименование);
// СписокКлиент.Установить(""+Эл,Эл.ТекущийЭлемент());
КонецЕсли;
КонецПроцедуры
Процедура ВыбратьКонтрагентов()
Если КоличествоСтрок()<>0 Тогда
Если Вопрос("Табличная часть документа не пустая, вы уверены в перезаполнении?",1)= 2 Тогда
Возврат;
КонецЕсли;
КонецЕсли;
УдалитьСтроки();
Запрос=СоздатьОбъект("Запрос");
ТекстЗапроса="
|Контрагент = Справочник.Контрагенты.ТекущийЭлемент;
|Группировка Контрагент без групп упорядочить по Контрагент.Наименование;
|Условие(Контрагент в ВыбРДМ1);
|";
СписокКонтрагентов = СоздатьОбъект("СписокЗначений");
Если глФильтрПоСправочнику("Контрагенты",0,0,ВыбКатегорияКонтрагентов,0,0,СписокКонтрагентов,ТекстЗапроса,0,0,"Контрагент,,,СписокКонтрагентов,,,,,")=0 Тогда
Возврат;
КонецЕсли;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка("Контрагент")=1 Цикл
НоваяСтрока();
Клиент =Запрос.Контрагент;
Деньги = 0;
Тонаж=0;
СуммаРД=0;
Доход = 0;
ВидПосещения=Перечисление.ВидКонтактовСКлиентами.ПоГрафику;
НомерЗаявкиТА="НЕТ"+"-"+(Запрос.Контрагент.КодСоответствия+ДатаДок);
ОрганизационоеВремя=Константа.ВремяНаЗаявку;
Если ПустоеЗначение(Клиент.ДатаЗакр)=0 Тогда
Если ДатаДок>=Клиент.ДатаЗакр Тогда
УдалитьСтроку();
КонецЕсли;
КонецЕсли;
КонецЦикла;
РасчитатьКолвоКлиентов();
КонецПроцедуры // ВыбратьЗаявки
! | Когда вы уже научитесь по людски код выделять? |