Консоль запросов для УФ универсальная 8.3.7.3
Реализован программный вызов консоли для захвата "рваного" запроса, МВТ и параметров.
В консоли реализована полная поддержка работы с таблицами значений.
Выборочный просмотр пакетов и временных таблиц.
Возможность выборочной выгрузки пакета запроса в ТЗ, с последующим её редактированием, сохранением на диск.
Использование сохранённой ТЗ в качестве параметра для других запросов.
Возможность обхода ТЗ в цикле с выполнением кода.
Отсутствуют ошибки при наличии уничтожения временных таблиц.
Замер времени выполнения каждого пакета запроса.
Приличное окно настройки типа (только для параметров запроса), лёгкое преобразование в список значений и обратно.
Поддержка дополнительных типов: ТЗ, Граница, Момент времени, Вид счёта, Вид движения и т.д.
Форматирование типа значения при выводе запроса (NULL, пустая ссылка, пустая строка и т.п.).
Наверное, самый лучший подбор ширины колонок.
Возможность добавлять листы для вывода результатов запросов.
Генерируется текст для конфигуратора с учётом количества результирующих пакетов, для каждого пакета можно настроить выборку или выгрузку и пересоздать текст....
Короче, лучше один раз увидеть ...
В консоли реализована полная поддержка работы с таблицами значений.
Выборочный просмотр пакетов и временных таблиц.
Возможность выборочной выгрузки пакета запроса в ТЗ, с последующим её редактированием, сохранением на диск.
Использование сохранённой ТЗ в качестве параметра для других запросов.
Возможность обхода ТЗ в цикле с выполнением кода.
Отсутствуют ошибки при наличии уничтожения временных таблиц.
Замер времени выполнения каждого пакета запроса.
Приличное окно настройки типа (только для параметров запроса), лёгкое преобразование в список значений и обратно.
Поддержка дополнительных типов: ТЗ, Граница, Момент времени, Вид счёта, Вид движения и т.д.
Форматирование типа значения при выводе запроса (NULL, пустая ссылка, пустая строка и т.п.).
Наверное, самый лучший подбор ширины колонок.
Возможность добавлять листы для вывода результатов запросов.
Генерируется текст для конфигуратора с учётом количества результирующих пакетов, для каждого пакета можно настроить выборку или выгрузку и пересоздать текст....
Короче, лучше один раз увидеть ...
Комментарии
Избранное
Подписка
Сортировка:
Древо
Маленький вопрос по первоисточникам, наработками этой консоли. Что взято за основу? Я всегда честно указываю источники. Даже уже не с целью авторства, а с целью функционала - какой она наследует функционал, а, главное, глюки?
Консолей то миллион. Мне даже для себя эти приходится дорабатывать. Особенно чтоб поля <NULL> и <Неопределено>, <ПустаяХарактеристика> и прочее в той же опере где лучше 1 раз увидеть.
Консолей то миллион. Мне даже для себя эти приходится дорабатывать. Особенно чтоб поля <NULL> и <Неопределено>, <ПустаяХарактеристика> и прочее в той же опере где лучше 1 раз увидеть.
(1) kostyaomsk, за основу взята моя прежняя разработка:
Заимствования со стороны:
1. Раскраску кода заимствовал из одной консоли, она раскрашивала строки таблицы значений при выводе сроки.
2. Идею обхода выгруженной табличной части в цикле подсказал коллега.
Заимствования со стороны:
1. Раскраску кода заимствовал из одной консоли, она раскрашивала строки таблицы значений при выводе сроки.
2. Идею обхода выгруженной табличной части в цикле подсказал коллега.
(1) kostyaomsk, Про глюки. Данная консоль унаследовала лишь часть функционала от "предшественницы". Консоль писалась заново с использовоанием части раннее созданных форм, алгоритмов. так называемое "ядро" переписано заново с учётом накопленного опыта прежних ошибок. Воя я уже сам нашёл недочёт - не все типы значений в ФормаВыбораТипа. В обработчик "ПриСозданииНаСервере" надо добавить строки:
ВывестиКоллекцию(Дерево, "ПланыСчетов" , "ПланСчетов");
ВывестиКоллекцию(Дерево, "ПланыВидовРасчета" , "ПланВидовРасчета");
ВывестиКоллекцию(Дерево, "БизнесПроцессы" , "БизнесПроцесс");
ВывестиКоллекцию(Дерево, "Задачи" , "Задача");
ВывестиКоллекцию(Дерево, "ПланыСчетов" , "ПланСчетов");
ВывестиКоллекцию(Дерево, "ПланыВидовРасчета" , "ПланВидовРасчета");
ВывестиКоллекцию(Дерево, "БизнесПроцессы" , "БизнесПроцесс");
ВывестиКоллекцию(Дерево, "Задачи" , "Задача");
(3)
Не помню когда последний раз запускал толстый клиент УФ, поэтому изменил код процедур открытия конструктора запросов под тонкий клиент:
соответственно код работает в 8.3.5 и выше.
По хорошему обрабатывать открытие конструктора нужно в зависимости от версии платформы, но у меня платформ ниже 8.3.5 нет, поэтому проверку не стал добавлять.
Полезную процедуру ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные стоит добавить в качестве кнопки по умолчанию.
Тогда процесс написания/ корректировки запроса руками становится гораздо комфортнее.
Не помню когда последний раз запускал толстый клиент УФ, поэтому изменил код процедур открытия конструктора запросов под тонкий клиент:
&НаКлиенте
Процедура КонструкторЗапроса(Команда)
ТекущиеДанные = Элементы.ДеревоЗапросов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Предупреждение("Выберите строку дерева запросов!");
Возврат;
КонецЕсли;
ТекДанныеДерева = Элементы.ДеревоЗапросов.ТекущиеДанные;
Если ТекДанныеДерева = Неопределено Тогда
Предупреждение("Не выбрана строка в дереве запросов!");
Возврат;
КонецЕсли;
Текст = СокрЛП(ТекДанныеДерева.Текст);
Попытка
КонструкторЗапроса = Новый КонструкторЗапроса(Текст);
КонструкторЗапроса.Показать(Новый ОписаниеОповещения("ПослеРедактированияЗапроса", ЭтотОбъект, ТекДанныеДерева));
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеРедактированияЗапроса(Текст, ЭлементДерева) Экспорт
Если Не ПустаяСтрока(Текст) Тогда
ЭлементДерева.Текст = Текст;
ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
Иначе
Модифицированность = Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура РедактироватьВыделенныйПакет(Команда)
Текст = Элементы.ДеревоЗапросовТекст.ВыделенныйТекст;
Если ПустаяСтрока(Текст) Тогда
Предупреждение("Не выделен пакет запроса для редактирования!");
Возврат;
КонецЕсли;
Попытка
КонструкторЗапроса = Новый КонструкторЗапроса(Текст);
КонструкторЗапроса.Показать(Новый ОписаниеОповещения("ПослеРедактированияПакета", ЭтотОбъект, Текст));
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
&НаКлиенте
Процедура ПослеРедактированияПакета(Текст, СтарыйТекст) Экспорт
Если НЕ ПустаяСтрока(Текст) Тогда
Элементы.ДеревоЗапросов.ТекущиеДанные.Текст = СтрЗаменить(Элементы.ДеревоЗапросов.ТекущиеДанные.Текст, СтарыйТекст, Текст);
ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
Иначе
Модифицированность = Ложь;
КонецЕсли;
КонецПроцедуры
Показатьсоответственно код работает в 8.3.5 и выше.
По хорошему обрабатывать открытие конструктора нужно в зависимости от версии платформы, но у меня платформ ниже 8.3.5 нет, поэтому проверку не стал добавлять.
Полезную процедуру ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные стоит добавить в качестве кнопки по умолчанию.
&НаКлиенте
Процедура ПроверитьЗапрос(Команда)
ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
КонецПроцедуры
Тогда процесс написания/ корректировки запроса руками становится гораздо комфортнее.
(11)akor77, Вот этот вариант работает и в 8.2.19 и в 8.3.6
Конструктор запросов работает и в толстом клиенте, и, если версия платформы 8.3.5 или выше, то и в тонком и в веб-клиентах.
В общем, если заменить код соответствующих процедур, то получится вполне себе универсальная консоль.
П.С.: В функции СравнениеСТекущейВерсией(ВерсияДляСравнения)
строка лишняя, она нивелирует передаваемый параметр.
&НаКлиенте
Процедура КонструкторЗапроса(Команда)
#Если НЕ ТолстыйКлиентУправляемоеПриложение Тогда
Если ВерсияПлатформыНиже835() Тогда
Сообщить("Внимание! Данная версия клиента платформы 1С: Предприятие
| не поддерживает запуск конструктора запросов.");
Возврат;
КонецЕсли;
#КонецЕсли
ТекущиеДанные = Элементы.ДеревоЗапросов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Предупреждение("Выберите строку дерева запросов!");
Возврат;
КонецЕсли;
Текст = СокрЛП(ТекущиеДанные.Текст);
КодПрограммы = "
|КонструкторЗапроса = Новый КонструкторЗапроса;
|Если Не ПустаяСтрока(Текст) Тогда
| КонструкторЗапроса.Текст = Текст;
|КонецЕсли;
|";
#Если ТолстыйКлиентУправляемоеПриложение Тогда
Попытка
КодПрограммы = КодПрограммы+ "
|КонструкторЗапроса.АвтоДобавлениеПредставлений = ТекущиеДанные.АвтоДобавлениеПредставлений;
|КонструкторЗапроса.РежимКомпоновкиДанных = ТекущиеДанные.РежимКомпоновкиДанных;
|
|Если КонструкторЗапроса.ОткрытьМодально() Тогда
| ТекущиеДанные.Текст = КонструкторЗапроса.Текст;
| ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
|КонецЕсли;
|";
Выполнить(КодПрограммы);
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
#Иначе
Попытка
КодПрограммы = КодПрограммы+ "
|КонструкторЗапроса.Показать(Новый ОписаниеОповещения(""ПослеРедактированияЗапроса"", ЭтотОбъект, ТекДанныеДерева));
|";
Выполнить(КодПрограммы);
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
#КонецЕсли
КонецПроцедуры
&НаКлиенте
Процедура ПослеРедактированияЗапроса(Текст, ЭлементДерева) Экспорт
Если Не ПустаяСтрока(Текст) Тогда
ЭлементДерева.Текст = Текст;
ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
Иначе
Модифицированность = Ложь;
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ВерсияПлатформыНиже835()
лРезультат = СравнениеСТекущейВерсией("8.3.5.1068");
Возврат ?(лРезультат = -1, Истина, Ложь);
КонецФункции // ВерсияПлатформыНиже835()
&НаКлиенте
Процедура РедактироватьВыделенныйПакет(Команда)
#Если НЕ ТолстыйКлиентУправляемоеПриложение Тогда
Если ВерсияПлатформыНиже835() Тогда
Сообщить("Внимание! Данная версия клиента платформы 1С: Предприятие
| не поддерживает запуск конструктора запросов.");
Возврат;
КонецЕсли;
#КонецЕсли
Текст = Элементы.ДеревоЗапросовТекст.ВыделенныйТекст;
Если ПустаяСтрока(Текст) Тогда
Предупреждение("Не выделен пакет запроса для редактирования!");
Возврат;
КонецЕсли;
КодПрограммы = "
|КонструкторЗапроса = Новый КонструкторЗапроса(Текст);
|";
#Если ТолстыйКлиентУправляемоеПриложение Тогда
Попытка
КодПрограммы = КодПрограммы+ "
|КонструкторЗапроса.АвтоДобавлениеПредставлений = Ложь;
|КонструкторЗапроса.РежимКомпоновкиДанных = Ложь;
|Если КонструкторЗапроса.ОткрытьМодально() Тогда
| Текст = КонструкторЗапроса.Текст;
| Элементы.ДеревоЗапросовТекст.ВыделенныйТекст = Текст;
|КонецЕсли;
|";
Выполнить(КодПрограммы);
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
#Иначе
Попытка
КодПрограммы = КодПрограммы+ "
|КонструкторЗапроса.Показать(Новый ОписаниеОповещения(""ПослеРедактированияПакета"", ЭтотОбъект, Текст));
|";
Выполнить(КодПрограммы);
Исключение
ОписаниеОшибки = ОписаниеОшибки();
Сообщить(ОписаниеОшибки());
Предупреждение(ОписаниеОшибки());
КонецПопытки;
#КонецЕсли
КонецПроцедуры
&НаКлиенте
Процедура ПослеРедактированияПакета(Текст, СтарыйТекст) Экспорт
Если НЕ ПустаяСтрока(Текст) Тогда
Элементы.ДеревоЗапросов.ТекущиеДанные.Текст = СтрЗаменить(Элементы.ДеревоЗапросов.ТекущиеДанные.Текст, СтарыйТекст, Текст);
ПроверитьТекстЗапроса_ПолучитьПараметры_ОбновитьДанные();
Иначе
Модифицированность = Ложь;
КонецЕсли;
КонецПроцедуры
ПоказатьКонструктор запросов работает и в толстом клиенте, и, если версия платформы 8.3.5 или выше, то и в тонком и в веб-клиентах.
В общем, если заменить код соответствующих процедур, то получится вполне себе универсальная консоль.
П.С.: В функции СравнениеСТекущейВерсией(ВерсияДляСравнения)
строка
ВерсияДляСравнения = "8.3.5.823";
Получилось повторить очистки текста запроса. Насколько я понял, нужно где-то хранить текст запроса при скрытой левой панели.
Последовательность действий на скринах (скрины пересортировались, поэтому смотреть на названия).
А к этой ошибке я так понял руки не дошли ;)
Последовательность действий на скринах (скрины пересортировались, поэтому смотреть на названия).
А к этой ошибке я так понял руки не дошли ;)
{(3)}: Метод объекта не обнаружен (Показать)
ДиалогОткрытияФайла.Показать(Оповещение);
ДиалогОткрытияФайла.Показать(Оповещение);
Прикрепленные файлы:
(77) dj_serega, про очистку текста запроса я понял, у меня эта ошибка тоже выходит. На днях буду искать причину. А вот это
{(3)}: Метод объекта не обнаружен (Показать)
ДиалогОткрытияФайла.Показать(Оповещение);
не могу воспроизвести. Что там с настройкой модальности и синхронности вызовов. для меня это пока ещё тёмный лес, надо разбираться. У меня всё работает.
ДиалогОткрытияФайла.Показать(Оповещение);
(80) Вот в статье нашел следующий текст:
У нас еще используется модальность. Поэтому не вижу метода: "ДиалогОткрытияФайла.Показать()".
В 8.3 без модальности СП дал эти методы:
Пожелалка:
1. Сделай, пожалуйста, переход к тексту пакета с таблицы "Временные таблицы". Аналогично как с результирующего табличного документа.
В принципе будет достаточно перейти на текст "поместить ..."
Следует обратить внимание, что объект ДиалогВыбораФайла не имеет метода Показать() в отличие от диалогов выбора цвета или шрифта, поскольку реализация этих диалогов существенно разная.
.
У нас еще используется модальность. Поэтому не вижу метода: "ДиалогОткрытияФайла.Показать()".
В 8.3 без модальности СП дал эти методы:
Выбрать (Choose)
Показать (Show)
Показать (Show)
Пожелалка:
1. Сделай, пожалуйста, переход к тексту пакета с таблицы "Временные таблицы". Аналогично как с результирующего табличного документа.
В принципе будет достаточно перейти на текст "поместить ..."
(82) dj_serega,
Следует обратить внимание, что объект ДиалогВыбораФайла не имеет метода Показать() в отличие от диалогов выбора цвета или шрифта, поскольку реализация этих диалогов существенно разная.
Похоже всё дело в старом релизе платформы, обнови платформу. У меня 8.3.5.1482, полёт нормальный, скорее всего предыдущая версия не поддерживает Показать() .
(90)
Походу так и есть Дело в релизах.
Рабочая база 8.3.5.1248. Просто взять и обновить не получится.
Посмотрим что там будет в 8.3.6. (кстати опять перенесли дату релиза).
Похоже всё дело в старом релизе платформы, обнови платформу. У меня 8.3.5.1482, полёт нормальный, скорее всего предыдущая версия не поддерживает Показать() .
.
Походу так и есть Дело в релизах.
Рабочая база 8.3.5.1248. Просто взять и обновить не получится.
Посмотрим что там будет в 8.3.6. (кстати опять перенесли дату релиза).
(10) dj_serega,
В тонком клиенте конструктор запроса работает только на платформе с версии 8.3.5 и выше.
В толстом клиенте конструктор запроса работает, но не работает в конфигурациях с интерфейсом - Такси где нет поддержки модальных окон.
Для Такси (без поддержки модальных окон) буду делать отдельную версию.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
В тонком клиенте конструктор запроса работает только на платформе с версии 8.3.5 и выше.
В толстом клиенте конструктор запроса работает, но не работает в конфигурациях с интерфейсом - Такси где нет поддержки модальных окон.
Для Такси (без поддержки модальных окон) буду делать отдельную версию.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
(12)
У меня: 8.3.5. Тонкий клиент. Такси. Модальность - Использовать.
Так вот и предлагаю реализовать конструктор для тонкого. Там же пара строчек кода ;)
8.3 не только под такси может работать. У нас половина пользователей на обычных управляемых, другая половина на такси.
В тонком клиенте конструктор запроса работает только на платформе с версии 8.3.5 и выше.
У меня: 8.3.5. Тонкий клиент. Такси. Модальность - Использовать.
В толстом клиенте конструктор запроса работает, но не работает в конфигурациях с интерфейсом - Такси где нет поддержки модальных окон.
Так вот и предлагаю реализовать конструктор для тонкого. Там же пара строчек кода ;)
Для Такси (без поддержки модальных окон) буду делать отдельную версию.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
8.3 не только под такси может работать. У нас половина пользователей на обычных управляемых, другая половина на такси.
(10)dj_serega
Для 8.3.5 решение в сообщении (7), чуть ниже добавлю универсальное решение.
(11)akor77
Знаю, в свое время делал пример консоли на управляемых формах, в которой можно было запускать конструктор запросов.
(12)akor77
Зачем?! Лучше сделать одну универсальную, чем 10 под разные платформы...
Поспешил. Не работает в тонком клиенте
Для 8.3.5 решение в сообщении (7), чуть ниже добавлю универсальное решение.
(11)akor77
В тонком клиенте на 8.2 он не будет работать.
Знаю, в свое время делал пример консоли на управляемых формах, в которой можно было запускать конструктор запросов.
(12)akor77
Для Такси (без поддержки модальных окон) буду делать отдельную версию.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
но она не будет работать в 8.2 ни в толстом ни в тонком клиентах.
Зачем?! Лучше сделать одну универсальную, чем 10 под разные платформы...
Скачивал версию 8.3.7.1 - консоль интересная, но постоянно выдает ошибки, приходится каждый раз дорабатывать код, почти под каждую процедуру (пример ошибки ниже), автор не присылает версию 8.3.7.2.
5 стартмани потрачены зря.
{(10)}: Ошибка при вызове метода контекста (ОткрытьМодально): При подписке ПереопределитьПолучаемуюФормуПрисоединенногоФайлаЗарплатаКад
(написать сообщение автору "в личку" не удалось - нет кнопки)
Прикрепленные файлы:
(21) dj_serega, Это хорошо! Жду результатов теста. Одну ошибку в версии 2.0 я уже нашёл. Но она мелкая и её легко устранить. Жду отзывов. К стати. Я уже сделал первый вариант для вызова консоли из файла на диске при отладке и собирать данные о "рваных" запросах, которве в БП и ЗУПе на УФ. На неделе буду тестировать. Надеюсь, что к выходным будет новая версия.
(22)
1. Сделать вопрос перед закрытием консольки (естественно учитывая модальность).
2. Опционально выводить или не выводить результат вычисления временных таблиц:
Сейчас в результате:
втСвернуто (0,019 мс.)
втПолный (0,151 мс.)
Результат1 (0,004 мс.)
Предлагаю так изменить ТЧ ВременыеТаблицы:
Пакет, Показать, Выгрузить, ОтобразитьВремяВыполнения, ОтобразитьКоличествоСтрок.
3. Добавить кнопки на форму для:
а) Управление видимостью левой панели (Дерево запросов, Параметры, Временные таблицы)
б) Управление видимостью Текста запроса
в) Управление видимостью результатов
4. Как-то не логичное наличие кнопок "скопировать в буфер" и "вставить из буфера" если после нажатия пишет "на сервере не доступно". Может как-то можно управлять их видимостью?
5. Не сохраняет и не загружает запросы :(
Я бы проверку так написал:
Может еще где встречается не смотрел. Но лучше "понатыкивать" таких проверок везде :)
6. Кнопочка "Добавить" страницу результата есть, а удалить нет :|
Пока всё :)
upd: А так консолько порадовало. Спасибо огромное. Буду писать тут о найденных "фичах" и пожелалках.
1. Сделать вопрос перед закрытием консольки (естественно учитывая модальность).
2. Опционально выводить или не выводить результат вычисления временных таблиц:
Сейчас в результате:
втСвернуто (0,019 мс.)
втПолный (0,151 мс.)
Результат1 (0,004 мс.)
Предлагаю так изменить ТЧ ВременыеТаблицы:
Пакет, Показать, Выгрузить, ОтобразитьВремяВыполнения, ОтобразитьКоличествоСтрок.
3. Добавить кнопки на форму для:
а) Управление видимостью левой панели (Дерево запросов, Параметры, Временные таблицы)
б) Управление видимостью Текста запроса
в) Управление видимостью результатов
4. Как-то не логичное наличие кнопок "скопировать в буфер" и "вставить из буфера" если после нажатия пишет "на сервере не доступно". Может как-то можно управлять их видимостью?
5. Не сохраняет и не загружает запросы :(
{Форма.Форма.Форма(1334)}: Ошибка при вызове метода контекста (НайтиПоИдентификатору)
ТекущаяСтрока = ДеревоЗапросов.НайтиПоИдентификатору(Элементы.ДеревоЗапросов.ТекущаяСтрока);
по причине:
Несоответствие типов (параметр номер '1')
ТекущаяСтрока = ДеревоЗапросов.НайтиПоИдентификатору(Элементы.ДеревоЗапросов.ТекущаяСтрока);
по причине:
Несоответствие типов (параметр номер '1')
Я бы проверку так написал:
ТекущаяСтрокаДереваЗапросов = Элементы.ДеревоЗапросов.ТекущаяСтрока;
Если ТекущаяСтрокаДереваЗапросов = Неопределено Тогда
Возврат;
КонецЕсли;
ТекущаяСтрока = ДеревоЗапросов.НайтиПоИдентификатору(ТекущаяСтрокаДереваЗапросов);
Может еще где встречается не смотрел. Но лучше "понатыкивать" таких проверок везде :)
6. Кнопочка "Добавить" страницу результата есть, а удалить нет :|
Пока всё :)
upd: А так консолько порадовало. Спасибо огромное. Буду писать тут о найденных "фичах" и пожелалках.
(38) Запрос первой строки дерева: "Выбрать Поле1 Поместить втПервыйЗапрос Из Справочник.ТМЦ КАК ТМЦ".
Добавляем подчиненную строку.
В ней пишем: "Выбрать * из втПервыйЗапрос КАК втПервыйЗапрос ГДЕ Поле1 = &Параметр1".
В результате должна получиться таблица из родителя строки но с условием.
Сейчас подчиненная строка не видит временные таблицы родителя. Ну или я не так выполнил запрос.
Если нужно могу со скринами объяснить.
(40) И про дерево не забыть ;)
(41)
Да. Но если колонок 10 то нужно на каждую так делать. В принципе это не горит, и сильно не мешает. Предлагаю добавить в самый конец списка доработок ;)
Пожелалки/фичи:
1. Результат не выгружается в виде дерева
2. Нужно изменить логику проверки корректности текста запроса. Нужно проверять не всегда, а только по кнопке. Я очень часто редактирую текст запроса в ручную. Обычно выполняется лишняя проверка при ctrl+v. Также при удалении части текста запроса.
3. Не забыть решить проблемку сохранением дерева запросов и их параметров.
4. После нажатия "Вывод текста запроса" получаю ошибку: "Задано неправильное имя атрибута стркутуры".
Добавляем подчиненную строку.
В ней пишем: "Выбрать * из втПервыйЗапрос КАК втПервыйЗапрос ГДЕ Поле1 = &Параметр1".
В результате должна получиться таблица из родителя строки но с условием.
Сейчас подчиненная строка не видит временные таблицы родителя. Ну или я не так выполнил запрос.
Если нужно могу со скринами объяснить.
(40) И про дерево не забыть ;)
(41)
там мышкой наведи на правую границу ячейки,
Да. Но если колонок 10 то нужно на каждую так делать. В принципе это не горит, и сильно не мешает. Предлагаю добавить в самый конец списка доработок ;)
Пожелалки/фичи:
1. Результат не выгружается в виде дерева
2. Нужно изменить логику проверки корректности текста запроса. Нужно проверять не всегда, а только по кнопке. Я очень часто редактирую текст запроса в ручную. Обычно выполняется лишняя проверка при ctrl+v. Также при удалении части текста запроса.
3. Не забыть решить проблемку сохранением дерева запросов и их параметров.
4. После нажатия "Вывод текста запроса" получаю ошибку: "Задано неправильное имя атрибута стркутуры".
(42) dj_serega, На счёт "Сейчас подчиненная строка не видит временные таблицы родителя." - это будет реализовано в следующей сборке. Я это назвал "рваный запрос", может это как-то по другому называется, то подскажите.
Сегодня мне удалось протестировать консоль в режиме функции, т.е. вызов консоли из модуля объекта. В задании было необходимо посмотреть как формируются проводки в БП 3.0. Тест прошёл успешно. Там консоль собирает "рваные запросы" как сучки на одну ветку. И при выполнении ветки (рекурсивный обход) запросов будет один МВТ на всех.
База была на сервере SQL. Путь к обработке прописывал серверный. В общем, всё сработало. Сегодня ещё подправил критические ошибки. Завтра, если успею, опишу и выложу. С перепроверкой согласен - перемудрил, надо сделать её только на горячих клавишах. Исправлю.
Сегодня мне удалось протестировать консоль в режиме функции, т.е. вызов консоли из модуля объекта. В задании было необходимо посмотреть как формируются проводки в БП 3.0. Тест прошёл успешно. Там консоль собирает "рваные запросы" как сучки на одну ветку. И при выполнении ветки (рекурсивный обход) запросов будет один МВТ на всех.
База была на сервере SQL. Путь к обработке прописывал серверный. В общем, всё сработало. Сегодня ещё подправил критические ошибки. Завтра, если успею, опишу и выложу. С перепроверкой согласен - перемудрил, надо сделать её только на горячих клавишах. Исправлю.
(43)
Крит при удалении последней строки дерева запросов.
МодульФормы.УдалитьПараметрыЗапроса(ИДСтроки).
В коде:
СтрДЗ.Родитель = Неопределено
Сегодня ещё подправил критические ошибки. Завтра, если успею, опишу и выложу.
Не сильно спешите :) Главное что бы стабильные релизы доработок/исправлений ;) Я к тому что в спешке можно где-то что-то упустить.
Крит при удалении последней строки дерева запросов.
МодульФормы.УдалитьПараметрыЗапроса(ИДСтроки).
В коде:
СтрДЗ.Родитель.Строки.Удалить(СтрДЗ);СтрДЗ.Родитель = Неопределено
Консоль запросов УФ 8.3.7.1
Сервис - Вызов консоля в отладчике
Ошибка
"{Обработка.КонсольЗапросовУФ.Форма.ФормаКодЗахватаЗапросаИзОтладчика.Форма(25)}: Преобразование значения к типу Булево не может быть выполнено
Если ПроверкаЗащитыОтОпасныхДействий.ПроверкаВключена Тогда
"
исправил ошибку
заменив код на
" Если ПроверкаЗащитыОтОпасныхДействий.ПроверкаВключена = Истина Тогда
"
1С:Предприятие 8.3 (8.3.11.3034)
ТАКАЯ ЖЕ ОШИБКА
1С:Предприятие 8.3 (8.3.13.1513)
Сервис - Вызов консоля в отладчике
Ошибка
"{Обработка.КонсольЗапросовУФ.Форма.ФормаКодЗахватаЗапросаИзОтладчика.Форма(25)}: Преобразование значения к типу Булево не может быть выполнено
Если ПроверкаЗащитыОтОпасныхДействий.ПроверкаВключена Тогда
"
исправил ошибку
заменив код на
" Если ПроверкаЗащитыОтОпасныхДействий.ПроверкаВключена = Истина Тогда
"
1С:Предприятие 8.3 (8.3.11.3034)
ТАКАЯ ЖЕ ОШИБКА
1С:Предприятие 8.3 (8.3.13.1513)
Прикрепленные файлы:
(20)
А можно навести порядок в версиях? Чтобы не просто слова "Файл для скачивания обновлён. ", а какая теперь стала версия.
Желательно с описанием.
И чтобы скачивающий видел не просто надпись "Консоль запросов для УФ 8.2, 8.3" а какая это версия. И мог сравнить со своей версией. И принять решение.
Описания версий можно взять из системы стандартов 1с
Нумерация редакций и версий
1. Номер очередной редакции конфигурации, начинается со следующего целого номера относительно предыдущей редакции. Для обозначения редакции обычно номер редакции объединяют через точку с номером подредакции, например: редакция 1.5, редакция 1.6 и т. д. Для новых конфигураций нумерация начинается с 1.0.
2. Все версии одной подредакции (включая альфа, ознакомительные, бета и финальные версии) нумеруются подряд. Нумерация версий начинается с 1.
3. Информация о номере редакции, номере подредакции и номере версии объединяются в полный номер версии конфигурации. Он указывается в свойстве Версия конфигурации и представляет собой строку символов следующего вида:
{Р|РР}.{П|ПП}.{З|ЗЗ}.{С|СС}
где:
Р - номер редакции (минимум 1 цифра, может занимать и больше разрядов);
П - номер подредакции (минимум 1 цифра, может занимать и больше разрядов);
З - номер версии (минимум 1 цифра, может занимать и больше разрядов);
С - номер сборки (минимум 1 цифра, может занимать и больше разрядов).
Пример:
1.6.4.7 – 7-я сборка, 4-ой версии, редакции 1.6
А можно навести порядок в версиях? Чтобы не просто слова "Файл для скачивания обновлён. ", а какая теперь стала версия.
Желательно с описанием.
И чтобы скачивающий видел не просто надпись "Консоль запросов для УФ 8.2, 8.3" а какая это версия. И мог сравнить со своей версией. И принять решение.
Описания версий можно взять из системы стандартов 1с
Нумерация редакций и версий
1. Номер очередной редакции конфигурации, начинается со следующего целого номера относительно предыдущей редакции. Для обозначения редакции обычно номер редакции объединяют через точку с номером подредакции, например: редакция 1.5, редакция 1.6 и т. д. Для новых конфигураций нумерация начинается с 1.0.
2. Все версии одной подредакции (включая альфа, ознакомительные, бета и финальные версии) нумеруются подряд. Нумерация версий начинается с 1.
3. Информация о номере редакции, номере подредакции и номере версии объединяются в полный номер версии конфигурации. Он указывается в свойстве Версия конфигурации и представляет собой строку символов следующего вида:
{Р|РР}.{П|ПП}.{З|ЗЗ}.{С|СС}
где:
Р - номер редакции (минимум 1 цифра, может занимать и больше разрядов);
П - номер подредакции (минимум 1 цифра, может занимать и больше разрядов);
З - номер версии (минимум 1 цифра, может занимать и больше разрядов);
С - номер сборки (минимум 1 цифра, может занимать и больше разрядов).
Пример:
1.6.4.7 – 7-я сборка, 4-ой версии, редакции 1.6
(27) Hitcher, Понял, буду указывать версию в названии. Для консоли может будет вполне достаточно номера версии и сборки? Никак не могу представить необходимость редакции и подредакции. Если делать 8.3.Х.Х, то не отражается 8.2, если сделать 8.2-8.3.Х.Х - это коряво всмотрится. Хотя, 8.3.Х.Х мне начинает нравиться.
Тогда сейчас выложена версия 8.3.2.0
Все согласны с такой нумерацией версий?
Тогда сейчас выложена версия 8.3.2.0
Все согласны с такой нумерацией версий?
(30) asved.ru,
Я бы повесил на ctrl+enter. Мне, например, это удобней ;) Я привык документы проводить по этому типовому сочетанию. Так же записывать справочники и тд.
(33) scape, Я это у себя поправил (25), надеюсь разработчик внесет в релиз.
Следующие пожелалки:
1. В результирующем табличном поле выравнивать не только по значению, но и иметь возможность выравнивать по заголовку. Бывает что в колонке нет данных, и не видно как называется колонка. Приходится наводить мышкой на колонку. А если таких много, то неудобно.
2. А можно в параметрах флаг "Список значений" вынести на форму списка параметров (и сделать там кнопку "СписокЗначений". Где Кнопка.Пометка = Истина если СЗ или ложь если это ссылка). Сейчас приходится входить в изменение типа, ставить флаг, закрывать форму.
3. Некорректно отображается ошибка в запросе.
Проверка пишет одно. А вход в конструктор запроса другое.
4. Все модальные окна открывать с блокированием владельца (тоесть консольки). Сейчас выполняется блокировка всего интерфейса.
Шикарно, если запрос будет выполняться по F5.
Я бы повесил на ctrl+enter. Мне, например, это удобней ;) Я привык документы проводить по этому типовому сочетанию. Так же записывать справочники и тд.
(33) scape, Я это у себя поправил (25), надеюсь разработчик внесет в релиз.
Следующие пожелалки:
1. В результирующем табличном поле выравнивать не только по значению, но и иметь возможность выравнивать по заголовку. Бывает что в колонке нет данных, и не видно как называется колонка. Приходится наводить мышкой на колонку. А если таких много, то неудобно.
2. А можно в параметрах флаг "Список значений" вынести на форму списка параметров (и сделать там кнопку "СписокЗначений". Где Кнопка.Пометка = Истина если СЗ или ложь если это ссылка). Сейчас приходится входить в изменение типа, ставить флаг, закрывать форму.
3. Некорректно отображается ошибка в запросе.
Проверка пишет одно. А вход в конструктор запроса другое.
4. Все модальные окна открывать с блокированием владельца (тоесть консольки). Сейчас выполняется блокировка всего интерфейса.
Прикрепленные файлы:
(35) dj_serega, Идея про "список значений" мне тоже понравилась.
А про ширину колонок, это всё по разному. Бывает булево с широченным названием колонки.
Но буду иметь в виду.
А для изменения ширины колонки нажми кнопку которая следующая за "Выполнить запрос" (зелёного карандаша) , там мышкой наведи на правую границу ячейки, курсор изменится и в этот момент кликни 2 раза. Ширина автоматом выравняется по самому широкому значению колонки.
А про ширину колонок, это всё по разному. Бывает булево с широченным названием колонки.
Но буду иметь в виду.
А для изменения ширины колонки нажми кнопку которая следующая за "Выполнить запрос" (зелёного карандаша) , там мышкой наведи на правую границу ячейки, курсор изменится и в этот момент кликни 2 раза. Ширина автоматом выравняется по самому широкому значению колонки.
Не сохраняются тексты обработки модулей для выгруженных таблиц. Очень надо.
Хотя сами таблицы сохраняются. Не уверен зачем, но иногда пригодиться может. Тут хотелось бы опцию - чтобы не перегружать сохраняемый файл.
Объясню зачем:
Часто консоль используется не только для получения какого либо результата, но и как достаточно универсальный инструмент обработки данных, где сначала выбирается результат (например ошибки в базе), а затем идет обработка на его исправление.
У меня в консоли для обычных форм есть дерево порядка с 20-30 запросами и обработками для них. Писать для каждого случая внешние обработки было бы неудобно, да и текст запроса там был бы не виден (т.е. управляемость ущербная).
И раз такие пожелания, добавьте новую кнопку рядом со сформировать (Выгрузить результат в ТЗ). для действий аналогичному установке галке в последней строке и открытии таблицы результата. В 99% случаев именно это требуется для обработок БД.
Хотя сами таблицы сохраняются. Не уверен зачем, но иногда пригодиться может. Тут хотелось бы опцию - чтобы не перегружать сохраняемый файл.
Объясню зачем:
Часто консоль используется не только для получения какого либо результата, но и как достаточно универсальный инструмент обработки данных, где сначала выбирается результат (например ошибки в базе), а затем идет обработка на его исправление.
У меня в консоли для обычных форм есть дерево порядка с 20-30 запросами и обработками для них. Писать для каждого случая внешние обработки было бы неудобно, да и текст запроса там был бы не виден (т.е. управляемость ущербная).
И раз такие пожелания, добавьте новую кнопку рядом со сформировать (Выгрузить результат в ТЗ). для действий аналогичному установке галке в последней строке и открытии таблицы результата. В 99% случаев именно это требуется для обработок БД.
Добрый! Обалденная консолька. Спасибо. Можно внесу свой вклад: допишите в процедуру УдалитьПереносы код
Очень облегчает жизнь, особенно двойные кавычки.
И еще: может лучше убрать флаг Защиты с таб.документа Результат? Не дает же ни скопировать текст, ничего толком. Флага Редактирования вполне достаточно.
Это мелочи, но так же приятно.
ТекущиеДанные.Текст = СтрЗаменить(ТекущиеДанные.Текст, "|", "");
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, """;", "");
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, """ВЫБРАТЬ", "ВЫБРАТЬ");
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, Символ(34) + Символ(34), Символ(34));
Очень облегчает жизнь, особенно двойные кавычки.
И еще: может лучше убрать флаг Защиты с таб.документа Результат? Не дает же ни скопировать текст, ничего толком. Флага Редактирования вполне достаточно.
Это мелочи, но так же приятно.
Доброе. Не могли бы ли Вы для удобства в процедуру УдалитьПереносы добавить пару строк:
ТекущиеДанные.Текст = СтрЗаменить(ТекущиеДанные.Текст, "|", "");
// <- добавить
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, """;", "");
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, """ВЫБРАТЬ", "ВЫБРАТЬ");
ТекущиеДанные.Текст = стрЗаменить(ТекущиеДанные.Текст, Символ(34) + Символ(34), Символ(34));
Показать
(58)
Тоесть у меня обработка, поэтому нужно скачать новую. Так как уже есть новый вариант. Хорошо. Спасибо.
(67) necropunk, Согласен. Но не писал об этом так как есть другие более важные замечания и пожелалки ;)
akor77 Спасибо большое за кнопулины по сворачиванию групп... Много удобностей и нововведений. ОЧЕНЬ круто!!! Продолжаю тестить новый релиз ;)
1. По кнопке "Сохранить файл запросов" ошибка:
Аналогично и по "открыть файл запросов".
2. Если свернуть левую панель, потом свернуть текст запроса. Развернуть текст запроса. Текст запроса пустой. Если при пустом тексте запроса отобразить левую панель, текст появляется.
Релизы нумеруются.
Тоесть у меня обработка, поэтому нужно скачать новую. Так как уже есть новый вариант. Хорошо. Спасибо.
Какой период с типом "ДатаВремя" ты имел ввиду? Опиши пример.
В параметрах запроса "&НачалоПериода", "&КонецПериода" или "&Период". Так вот в таблице параметров иногда проскакивает значение параметра с типом Дата и видом Дата а не ДатаВремя. Сейчас не могу повторить ошибку. Как только появится закриню.
(67) necropunk, Согласен. Но не писал об этом так как есть другие более важные замечания и пожелалки ;)
akor77 Спасибо большое за кнопулины по сворачиванию групп... Много удобностей и нововведений. ОЧЕНЬ круто!!! Продолжаю тестить новый релиз ;)
1. По кнопке "Сохранить файл запросов" ошибка:
{(3)}: Метод объекта не обнаружен (Показать)
ДиалогОткрытияФайла.Показать(Оповещение);
ДиалогОткрытияФайла.Показать(Оповещение);
Аналогично и по "открыть файл запросов".
2. Если свернуть левую панель, потом свернуть текст запроса. Развернуть текст запроса. Текст запроса пустой. Если при пустом тексте запроса отобразить левую панель, текст появляется.
УФ 8.3.2.29
1. Устанавливаем для пакета признак "Выгрузить".
2. Выполняем запрос,
результат - пакет в списке выделен полужирным шрифтом, есть кнопка открытия, по ее нажатии открывается форма таблицы значений.
3. Убираем для пакета признак "Выгрузить",
4. Выполняем запрос.
результат - пакет все еще выделен полужирным, кнопка открытия не исчезла, при нажатии на нее выходит ошибка:
{Обработка.КонсольЗапросовУФ.Форма.ФормаТаблицаЗначений.Форма(55)}: Поле объекта не обнаружено (А_20180406184202_ВТ_НагрузкиПоДатам)
лТаблица = СтруктураТЗ[ПараметрАдрес];
т.е. признак наличия выгруженной таблицы для конкретного пакета не сбрасывается при повторном выполнении запроса. (воспроизводится, если признак "Показать" = Ложь)
1. Устанавливаем для пакета признак "Выгрузить".
2. Выполняем запрос,
результат - пакет в списке выделен полужирным шрифтом, есть кнопка открытия, по ее нажатии открывается форма таблицы значений.
3. Убираем для пакета признак "Выгрузить",
4. Выполняем запрос.
результат - пакет все еще выделен полужирным, кнопка открытия не исчезла, при нажатии на нее выходит ошибка:
{Обработка.КонсольЗапросовУФ.Форма.ФормаТаблицаЗначений.Форма(55)}: Поле объекта не обнаружено (А_20180406184202_ВТ_НагрузкиПоДатам)
лТаблица = СтруктураТЗ[ПараметрАдрес];
т.е. признак наличия выгруженной таблицы для конкретного пакета не сбрасывается при повторном выполнении запроса. (воспроизводится, если признак "Показать" = Ложь)
Прикрепленные файлы:
(51) TODD22, Дома тестил на УФ 8.2 и в интерфейсе Такси на самописных конфигурациях. На демке бухгалтерии УФ. На тестовых базах при отладке. Без разницы где работать. Модальность используется в УФ 8.2. Так же работает в условиях где модальные окна не поддерживаются. на счёт асинхронности особо не заморачивался. Продукт создан для разработчика, а не пользователя. С интерфейсом Такси я недавно столкнулся и не обращал внимание на этот момент. Возможно, вылезут ошибки при нарушении последовательности открытия диалоговых окон. Надо будет это отдельно потестить.
нашел "фичу".
Можно повторить так:
Устанавливаем выгрузку ВТ в таблицу. Выполняем запрос. Выделяется полужирным текстом. Снимаем выгрузку. Выполняем запрос. Выделение остается. И при попытке открыть таблицу эта ругань.
{Обработка.КонсольЗапросовУФ.Форма.ФормаТаблицаЗначений.Форма(56)}: Поле объекта не обнаружено (А_20150910164353_втПродажиИтог)
лТаблица = СтруктураТЗ[ПараметрАдрес];
лТаблица = СтруктураТЗ[ПараметрАдрес];
Можно повторить так:
Устанавливаем выгрузку ВТ в таблицу. Выполняем запрос. Выделяется полужирным текстом. Снимаем выгрузку. Выполняем запрос. Выделение остается. И при попытке открыть таблицу эта ругань.
"Зафиксировать" работает как-то специфически... Вообще, мелких интерфейсных багов хватает, но пока не систематично, будет что-нибудь еще доставать - напишу. Еще не нашел как сделать постобработку запроса. Как обработать ТЗ если она параметр запроса (О_о) - нашел, а чтобы просто таблицу результата обежать и что-нибудь страшное с ней сделать - нет, возможно, плохо искал...
(69) necropunk, Надо установить флаг в самой правой колонке таблицы пакетов. Выполнить запрос, название пакета станет жирным шрифтом - это означает, что таблица выгружена. Кликаешь по колонке с названием и нажимаешь на просмотр (кнопка с лупой). Откроется форма для редактирования ТЗ. Под ТЗ есть текстовое поле "модуля" для кода. На командной панели есть кнопки, нажав на которые в "модуль" будет добавлен шаблон обхода в цикле. На счёт выгрузки деревьев, возьму на заметку. Со временем реализую.
Если с пустым деревом запросов вызвать меню открытия файла с запросами, а потом передумать - будет куча ошибок о несоответствии параметра:
{Форма.Форма.Форма(1334)}: Ошибка при вызове метода контекста (НайтиПоИдентификатору)
ТекущаяСтрока = ДеревоЗапросов.НайтиПоИдентификатору(Элементы.ДеревоЗапросов.ТекущаяСтрока);
по причине:
Несоответствие типов (параметр номер '1')
{Форма.Форма.Форма(1334)}: Ошибка при вызове метода контекста (НайтиПоИдентификатору)
ТекущаяСтрока = ДеревоЗапросов.НайтиПоИдентификатору(Элементы.ДеревоЗапросов.ТекущаяСтрока);
по причине:
Несоответствие типов (параметр номер '1')
А сложно допилить выводить состояния работы? Это конечно рюшечка, но... было бы красиво :)
Пример:
Пример:
&НаКлиенте
Процедура ВыполнитьЗапрос(Команда)
Если Объект.ОшибкиВЗапросе Тогда
Сообщить("Исправьте текст запроса!");
Возврат;
КонецЕсли;
// Дописать вот такое
Состояние("Выполняется запрос.");
// Или так
Состояние("Выполняется запрос: " + ИмяЗапросаВДереве);
ПоказатьПроцедура ВыполнитьЗапрос(Команда)
Если Объект.ОшибкиВЗапросе Тогда
Сообщить("Исправьте текст запроса!");
Возврат;
КонецЕсли;
// Дописать вот такое
Состояние("Выполняется запрос.");
// Или так
Состояние("Выполняется запрос: " + ИмяЗапросаВДереве);
Можно добавить обработку изменения типа параметра запроса с типом ПланыВидовХарактеристик
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
....
ВывестиКоллекцию(Дерево, "ПланыВидовХарактеристик" , "ПланВидовХарактеристик");
....
На 8.2 невозможно закрыть форму.
Сценарий - тонкий клиент 8.2, открываю форму обработки, ничего не делаю и тут же пытаюсь закрыть.
Выдается ошибка:
и все. форму невозможно закрыть без перезагрузки 1С :(
Сценарий - тонкий клиент 8.2, открываю форму обработки, ничего не делаю и тут же пытаюсь закрыть.
Выдается ошибка:
{Форма.Форма.Форма(90)}: Ошибка компиляции при вычислении выражения или выполнении фрагмента кода
Выполнить(КодВыполнения);
по причине:
{(3,26)}: Переменная не определена (Результат)
ПередЗакрытиемЗавершение(<<?>>Результат, Параметры);и все. форму невозможно закрыть без перезагрузки 1С :(
(85) artbear, Это разработчик немного налажал :(
Вместо "Результат" должен быть "Ответ"
Себе замените, а он посмотрит и исправит.
В любом случае за такую консольку на это можно закрыть глаза ;)
|Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет);
|ПередЗакрытиемЗавершение(Результат, Параметры);";Вместо "Результат" должен быть "Ответ"
Себе замените, а он посмотрит и исправит.
В любом случае за такую консольку на это можно закрыть глаза ;)
(103) AlexO, Привет, дружище!
Кто мешает развитию?
- Подавляющая личность (ПЛ).
Такой человек в основном занимается тем, что распространяет плохие новости, делает критические или враждебные замечания, обесценивает и вообще оказывает подавление. Он никогда не передает никаких хороших новостей или одобрительных замечаний.
Подавляющие личности просто отравляют все вокруг себя и оказывают влияние на свое окружение.
Такие люди являются хорошо замаскировавшимися сумасшедшими.
Все кто находится в тесном контакте с ПЛ очень часто испытывают то спады, то подъёмы, один день может много дел переделать, а потом ничего не может ничего. Если вы заметили это в себе, то ищите ПЛ-а.
Вся подноготная о подавляющих личностях хорошо раскрыта в этой книге:
Книга "Сады и подъёмы", автор Рут Мишнулл.
Если вас подавляют в семье, дома или на работе, обязательно научитесь выявлять ПЛ-ов.
Кроме того, подавлению обучают:
1. Подавляющее влияние: как и на чем любят играть любители обманывать, пугать, подавлять...
2. Подавляющее влияние: Подавляющее влияние 2: подавление авторитетом...
3. Подавляющее влияние 2: интриги, подставы, шантаж...
Кто мешает развитию?
- Подавляющая личность (ПЛ).
Такой человек в основном занимается тем, что распространяет плохие новости, делает критические или враждебные замечания, обесценивает и вообще оказывает подавление. Он никогда не передает никаких хороших новостей или одобрительных замечаний.
Подавляющие личности просто отравляют все вокруг себя и оказывают влияние на свое окружение.
Такие люди являются хорошо замаскировавшимися сумасшедшими.
Все кто находится в тесном контакте с ПЛ очень часто испытывают то спады, то подъёмы, один день может много дел переделать, а потом ничего не может ничего. Если вы заметили это в себе, то ищите ПЛ-а.
Вся подноготная о подавляющих личностях хорошо раскрыта в этой книге:
Книга "Сады и подъёмы", автор Рут Мишнулл.
Если вас подавляют в семье, дома или на работе, обязательно научитесь выявлять ПЛ-ов.
Кроме того, подавлению обучают:
1. Подавляющее влияние: как и на чем любят играть любители обманывать, пугать, подавлять...
2. Подавляющее влияние: Подавляющее влияние 2: подавление авторитетом...
3. Подавляющее влияние 2: интриги, подставы, шантаж...
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.