Форум Программирование Общие вопросы программирования (Dev)

[СКД] Данные нижеприведенного запроса по контактной информации контрагентов выводятся с помощью СКД в табличный документ.

1. 23.12.16 15:20 Сейчас в теме
1. Как отобразить колонку АДРЕС в группировках? 

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


При группировке данных по контрагентам отчет выводится в виде




Однако известно, что у каждого контрагента всегда введен один адрес и пользователи хотят видеть его в отдельной колонке на уровне группировки, а не в детальных записях. Каким образом, не изменяя текст запроса, можно получить отчет в виде




2. Следующий запрос выводит в отчет, построенный на основе СКД, список авансовых отчетов.. 

ВЫБРАТЬ
	АвансовыйОтчет.Номер,
	АвансовыйОтчет.Дата,
	АвансовыйОтчет.СуммаДокумента
ИЗ
	Документ.АвансовыйОтчет КАК АвансовыйОтчет


Получается отчет виде


Дата Номер Сумма документа
09.06.09 00000000002 2 400,00
19.06.09 00000000003 401 000,00
13.11.09 00000000004 1 200,00


Каким образом сделать так, чтобы номер выводился в отчет без лидирующих нулей?


Дата Номер Сумма документа
09.06.09 2 2 400,00
19.06.09 3 401 000,00
13.11.09 4 1 200,00
+ – Ответить
Ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. allgorhythm 23.12.16 22:53 Сейчас в теме
Второй пункт я сделал сам,
в принципе это - не сложно,
делаем форму отчета,
в ней сами прописываем команду Сформировать и
в ней пишем код ниже: 

&НаКлиенте
Процедура Сформировать(Команда)
	Для Ном=1 По Результат.ВысотаТаблицы Цикл
		Область = Результат.Область("R"+Ном+"C2");
		Пока Найти(Область.Текст, "0") Цикл
			Область.Текст = СтрЗаменить(Область.Текст, 0, "");
		КонецЦикла
	КонецЦикла;	
	          
КонецПроцедуры
Показать
+ – Ответить
3. Denis_CFO 43 24.12.16 05:58 Сейчас в теме
(2) боюсь при таком подходе у вас будут выводится номера не верные... Вы же все нули заменяете... У вас из 101 номера 11 получится....
+ – Ответить
4. Denis_CFO 43 24.12.16 06:11 Сейчас в теме
(2) 
&НаКлиенте
Процедура Сформировать(Команда)
    Для Ном=1 По Результат.ВысотаТаблицы Цикл
        Область = Результат.Область("R"+Ном+"C2");
        Пока Лев(Область.Текст, 1) = "0" Цикл
                 Область.Текст = Сред(Область.Текст, 2);
        КонецЦикла
    КонецЦикла;    
КонецПроцедуры
Показать
+ – Ответить
5. allgorhythm 25.12.16 17:41 Сейчас в теме
(4) Да. Нолики не теряются,
выкладываю нормальный код по этому вопросу. 


&НаКлиенте
Процедура Сформировать(Команда)
	СформироватьСРВ();	
	Для Ном=1 По Результат.ВысотаТаблицы Цикл
	    Область = Результат.Область("R"+Ном+"C2");
	    Пока Лев(Область.Текст, 1) = "0" Цикл
	             Область.Текст = Сред(Область.Текст, 2);
		КонецЦикла
	КонецЦикла;	
	          
КонецПроцедуры

&НаСервере
Процедура СформироватьСРВ()
	Результат.Очистить();
	СКД = РеквизитФормыВЗначение("Отчет",Тип("ОтчетОбъект")).ПолучитьСКД(); 
	КомпМак = Новый КомпоновщикМакетаКомпоновкиДанных;
	ПроцКД = Новый ПроцессорКомпоновкиДанных;
	ПроцКД.Инициализировать(КомпМак.Выполнить(СКД, СКД.НастройкиПоУмолчанию));
	
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.ОтображатьПроцентВывода = Ложь;
	ПроцессорВывода.УстановитьДокумент(Результат);
	ПроцессорВывода.Вывести(ПроцКД, Ложь);
	
КонецПроцедуры
Показать


В модуле объекта 
Функция ПолучитьСКД() Экспорт
 возврат ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
КонецФункции // ПолучитьМакет() Экспорт()
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
1С: Заказы - ошибка получения клиентов  0.5 $m Dev
Добрый день. Не получается в расширении добавить реквизит на форму.  0.1 $m Dev
Калькуляция себестоимости, непонятное распределение суммы НЗП по статьям затрат  1 $m БУ
работа с периодом  0.3 $m Dev
Групповая установка доступа к командам внешних отчетов  0.01 $m Публикации v8 1cv8.cf
Помогите, пожалуйста, понять, как вытащить данные из регистра накопления в ТЧ документа  0.18 $m Dev УТ11 v8 ИТ-компания 1С Программист
Поддержка и синхронизация нескольких частично одинаковых расширений  0.11 $m Групповая разработка EDT
Боевая БД и БД отладки (лицензии)  0.14 $m Admin 8.3.14 Linux
Изменился "ПервыйВидВремени" в программе  0.32 $m Dev УПП1
Помогите добавить в запрос поле с выборкой со счета 90.03  0.87 $m Dev
Почему 27 счёт не попадает в поле счёт учёта ?  0.27 $m Dev БГУ
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара  0.9 $m Dev
Ошибка СУБД при входе в базу 1С  0.55 $m Admin СУБД PostgreSQL
Работа с файлами на мобильном клиенте  0.3 $m MobileDev v8::Mobile
Грейды программистов 1с  10 $m Общие вопросы управления
MDF SQL ищу битый файл для теста DataNumen SQL Recovery  1 $m Utils
Авторизация в мобильном приложении 1С  0.01 $m MobileDev v8 1cv8.cf
Как получить значение имея НавигационнуюСсылку к полю  0.25 $m Dev
Мобильный клиент. Android. Обрезает строку ввода от сканера  0.35 $m MobileDev
Не приходит письмо от apple после ввода карты для оплаты.  5 $m MobileDev