lap_soft

&НаСервере
Процедура ВыбратьОбъектыИзЖРНаСервере(ДатаНачала,ДатаОкончания)
   отбор = новый структура("ДатаНачала,ДатаОкончания",ДатаНачала,ДатаОкончания);   
   массивСобытий =  новый массив;
   массивСобытий.Добавить("_$Data$_.New");
   массивСобытий.Добавить("_$Data$_.Post");
   массивСобытий.Добавить("_$Data$_.Unpost");
   массивСобытий.Добавить("_$Data$_.Update");
   Отбор.Вставить("Событие",массивСобытий);
   
   Список1 = новый таблицаЗначений;
   ВыгрузитьЖурналРегистрации(Список1, отбор, "Данные");
   
   Список1.Свернуть("Данные","");
   зн1=Список1.Количество();
   пока зн1>0 Цикл
      зн1=зн1-1;
      зн=Список1[зн1];
      Если не ЗначениеЗаполнено(зн.Данные) Тогда
         Список1.Удалить(зн1);
      КонецЕсли; 
   КонецЦикла; 
   Список1.Колонки.Найти("Данные").Имя="СсылкаНаОбъект";
   объект.ПереносимыеОбъекты.Загрузить(Список1);
   
КонецПроцедуры

&НаКлиенте
Процедура ВыбратьОбъектыИзЖР(Команда)
   
   Если 0=1 Тогда // тут нельзя полдня выбрать :(
      
      ПеременнаяТипаСтандартныйПериод = Новый СтандартныйПериод; 
      
      
      Диалог = Новый ДиалогРедактированияСтандартногоПериода(); 
      Диалог.Период = ПеременнаяТипаСтандартныйПериод; 
      Диалог.Период.Вариант=ВариантСтандартногоПериода.ПроизвольныйПериод; 
      Если Диалог.Редактировать() Тогда 
         ПеременнаяТипаСтандартныйПериод = Диалог.Период; 
         ВыбратьОбъектыИзЖРНаСервере(ПеременнаяТипаСтандартныйПериод.ДатаНачала,ПеременнаяТипаСтандартныйПериод.ДатаОкончания);
      КонецЕсли;
      
   иначеесли 1=1 тогда
      ДатаНачала=ТекущаяДата();
      ВвестиДату(ДатаНачала,"ВВедите Дату Начала",ЧастиДаты.ДатаВремя);
      
      ДатаОкончания=ТекущаяДата();
      ВвестиДату(ДатаОкончания,"ВВедите Дату Окончания",ЧастиДаты.ДатаВремя);
      Если ЗначениеЗаполнено(ДатаНачала) Тогда 
         ВыбратьОбъектыИзЖРНаСервере(ДатаНачала,ДатаОкончания);
      КонецЕсли;
      
   КонецЕсли; 
   
   
КонецПроцедуры