| medvalex | Дата: Воскресенье, 13.08.2017, 20:34 | Сообщение # 1 |
|
Майор
Группа: Проверенные
Сообщений: 86
Репутация: 58
Статус: Оффлайн
| Очень удобна недавно появившаяся возможность вывести строки табличного поля (Динамический список, консоль запросов) в табличный документ/таблицу значений. Есть пожелания по дальнейшему улучшению:
1) Похоже, что не работает опция Отображать пустые. Пример: вывожу явно выбранные запросом Null, Неопределено, "" , при этом в полученном со включенной опцией "Отображать пустые" табличном документе они все выведены просто как не заполненные ячейки. Скриншот в приложении. Наиболее часто используемый сценарий вывода в Excel - чтобы а) выводились явно значения <Null> ; б) пустое число выводилось как 0 ; в) всё остальное выводилось как не заполненная ячейка.
2) Опция "Колонки идентификаторов" очень полезна, но она имеет смысл только для полей со ссылочным типом. Не приходят в голову сценарии использования колонки идентификаторов для примитивных типов, т.к. они будут совпадать по значению с самой исходной колонкой, или это не так?
3) Встроить значения в расшифровки ячеек - возможно, имеет смысл написать более подробную подсказку по опции. Непонятно, что меняет опция, т.к. расшифровка присутствует при любом значении этой опции.
Если кому-то знакома задача по выводу только значений Null, скрытию других пустых значений, а также выводу только идентификаторов без указания типов, ниже привожу пример макроса, которым можно очистить всё, что нужно, после экспорта в эксель через стандартную команду платформы у табличного поля "Вывести список...":
Sub заменитьВсеИР()
' Очищает лишние значения после экспорта из консоли запросов Инструментов разработчика 1С
Cells.Replace What:="00000000-0000-0000-0000-000000000000*", Replacement:="", LookAt:=xlPart
Cells.Replace What:=".CatalogRef.*", Replacement:="", LookAt:=xlPart
Cells.Replace What:=".DocumentRef.*", Replacement:="", LookAt:=xlPart
Cells.Replace What:=".EnumRef.*", Replacement:="", LookAt:=xlPart
Cells.Replace What:="<Пустая строка>", Replacement:="", LookAt:=xlPart
Cells.Replace What:="<Пустое число>", Replacement:="0", LookAt:=xlPart
'Cells.Replace What:="<Null>", Replacement:="", LookAt:=xlPart
End Sub
Написано по состоянию на версию 4.20:
ОС: Windows x86 version 6.1 Service Pack 1 (Build 7601)
Платформа: 8.3.10.2168
Конфигурация: 1С:MDM Управление нормативно справочной информацией, редакция 2.0 (2.0.2.16)
Режим БД: файловый
Приложение: Обычное приложение 32б
От имени администратора Windows: Да
Режим совместимости: Версия8_3_7
Инструменты разработчика: Портативные 4.20p
Сообщение отредактировал medvalex - Воскресенье, 13.08.2017, 20:54 |
| |
| |
| tormozit | Дата: Понедельник, 14.08.2017, 00:05 | Сообщение # 2 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 6172
Репутация: 156
Статус: Оффлайн
| Спасибо.
1. Исправлено в 4.21
2. Согласен. Пожелание записал.
3. Исправлено в 4.21
|
| |
| |
