MonteCriZto
Владимир Сухарь

&НаКлиенте
Процедура УдалитьПолеИзЗапроса(Команда)
   
   ИмяТекКолонки = Элементы.РезультатЗапросатз.ТекущийЭлемент.Заголовок;
   
   Если ИмяТекКолонки=Неопределено Тогда 
      
      Сообщить("Колонка для удаления не определена"); 
      
   Иначе
      МассивСтрок = СтрРазделить(ТекстЗапроса,Символы.ПС); //Запрос->Массив строк по символу переноса
      ИндексыМассиваНаУдаление = Новый Массив; // для обхода и удаления
      
      // Удаляю поля с конца,т.к возможны пакеты
      ИндексПоследнего = МассивСтрок.ВГраница();
      
      Для Индекс = -ИндексПоследнего По 0 Цикл 
         
         ТекСтрока = МассивСтрок[-Индекс];
         // Т.к имя колонки = имени поля в запросе, проверяю окончание запроса на имя колонки
         Если СтрЗаканчиваетсяНа(ТекСтрока,ИмяТекКолонки+",") Тогда
            
            ИндексыМассиваНаУдаление.Добавить(-Индекс); // Запомниаю индекс удаления
         ИначеЕсли СтрЗаканчиваетсяНа(ТекСтрока,ИмяТекКолонки) Тогда
            // Последнее поле запроса нужно убрать запятую в предИдущей строке
            
            ТекЗнчСтр = МассивСтрок[-Индекс-1]; 
            МассивСтрок[-Индекс-1] = СтрЗаменить(ТекЗнчСтр,",","");
            
            ИндексыМассиваНаУдаление.Добавить(-Индекс);
         КонецЕсли; 
         
      КонецЦикла; 
      
      // по индексам удалим строки 
      Для каждого Элемента из ИндексыМассиваНаУдаление Цикл 
         
         МассивСтрок.Удалить(Элемента); 
         
      КонецЦикла;
      
      ТекстЗапроса = СтрСоединить(МассивСтрок,Символы.ПС);// соберем обратно текст запроса из нового массива
   КонецЕсли;
   
КонецПроцедуры

&После("ПриСозданииНаСервере")
Процедура Расш1_ПриСозданииНаСервере(Форма, ПараметрыРазмещения)

&После("ПриСозданииНаСервере")
Процедура Расш1_ПриСозданииНаСервере(Форма, Знач ПараметрыРазмещения)

ВЫБРАТЬ
   ГотОтчБезИерархии.Подразделения КАК Подразделения,
   ГотОтчБезИерархии.СтатьиЗатрат КАК СтатьиЗатрат,
   ГотОтчБезИерархии.Сумма КАК Сумма,
   ГотОтчБезИерархии.Регистратор КАК Регистратор,
   ПодразделенияОрганизацийДополнительныеРеквизиты.Значение КАК АльтернативнаяИерархия
ИЗ
   ГотОтчБезИерархии КАК ГотОтчБезИерархии
      ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПодразделенияОрганизаций.ДополнительныеРеквизиты КАК ПодразделенияОрганизацийДополнительныеРеквизиты
      ПО ГотОтчБезИерархии.Подразделения = ПодразделенияОрганизацийДополнительныеРеквизиты.Ссылка
         И (ПодразделенияОрганизацийДополнительныеРеквизиты.Свойство.Наименование = "АльтернативнаяИерархия")