Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Табличная часть - Возможность установить только просмотр на всю таблицу и не возможность добавить к тому столбец исключения          
Gigi Подменю пользователя
сообщение 22.04.19, 11:04
Сообщение #1

Оратор
*****
Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0

Всем привет!
Опять не хотел выходить на форум.
Короче... я вижу что с этой системой начинаешь решать одну ерунду ... потом видишь что слишком много времени уходит на ее решение и вопрос так и не решен.
И думаешь про себя ... делать больше нечего возиться со всем этим ... Поэтому в итоги просто вынужден бросить ... так как других дел валом.
Поэтому и тут вынужден опять выходить на форум и опять по поводу очередной ерунды.
Поэтому уважаемые не могли бы объяснить почему в системе 1С вот в таком стиле не получается?
ТекущийПользовательИмя=FxSub_Пользователи.ТекущийПользователь("Имя");
Если ТекущийПользовательИмя<>"Программер" Тогда
Элементы.["ТЧимя"].ТолькоПросмотр=Истина;
Элементы.ТЧимяФлажокДляПечати.ТолькоПросмотр=Ложь;
КонецЕсли;

Что нужно в итоги...
Что бы все колонки ТЧ были под "ТолькоЧтение", кроме одной из них.
Сделать это опционально не удобно ...
Ибо для этого нужно на каждый столбец вручную ставить: "ТолькоПросмотр". И все это ради одного несчастного столбца. А таких таблиц куча...
И представьте на каждую таблицу для каждого столбца нужно ставить "ТолькоПросмотр". А ведь уважающему себя программисту делать больше нечего кроме как заниматься этой х@й . Тем более, что для этого ведь куча других дел. Более важных.
Именно поэтому вынужден опять выходить на форум ..
Пожалуйста подскажите по быстрому ... как сделать эту ерунду. На которую не охота тратить время.
Что бы все колонки табличной части (НЕ ВАЖНО КАК ОНИ НАЗЫВАЮТСЯ) были под "ТолькоПросмотр", кроме одной колонки с именем на пример: "ФлажокДляПечати". И как сделать этой процедурно.
Я догадываюсь что для этого нужна процедура обхода всех элементов колонок ТЧ с нужным условием. Ибо система 1С ведь не умеет устанавливать параметр на все колонки , кроме указанного исключения.
И именно поэтому опять требует от программиста мудохаться с этой ерундой. И это наверно потому что сильно "блещет" гуманным отношением к не нему.
Ладно... опять извините ... просто опять делюсь приятными "ощущениями" от системы.
Короче ... кто ни будь не может скинуть код процедуры ... просто готовый код.
Сам шарил, но не нашел как можно обойти колонки табличной части... и не охота на это тратить время..
Так что нужен готовый код по быстрому.
Буду признателен!

Gigi Подменю пользователя
сообщение 22.04.19, 12:32
Сообщение #2

Оратор
*****
Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0

Gigi @ Сегодня, 13:23 * ,
// Открытие формы
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ТекущийПользовательИмя=FxSub_Пользователи.ТекущийПользователь("Имя");
Если ТекущийПользовательИмя<>"Программер" Тогда
Элементы["ТЧ"].ТолькоПросмотр=Истина;
КонецЕсли;    
КонецПроцедуры

//Кнопка контекстоного менью  табличной части
&НаКлиенте
Процедура ФлажокУстановитьСнять(Команда)
ТекущаяСтрока=Элементы.["ТЧ"].ТекущиеДанные;
Если  ТекущаяСтрока.ФлажокДляПечати=Истина Тогда
ТекущаяСтрока.ФлажокДляПечати=Ложь;    
Иначе
ТекущаяСтрока.ФлажокДляПечати=Истина;    
КонецЕсли;
КонецПроцедуры

Спасибо за ноль отклика ..))
Вот как решил....
Надо же .... Вместо того что бы пользователь просто нажимал на эти несчастные флажки одной колонки ТЧ. Вместо этого он должен нажать на левую кнопку мыши и найти в контекстном меню строку: "Флажок распечатки - Установить/Снять " и нажать на нее. И только так обозначить те строки ТЧ который нужно распечатать.
Ничего не поедаешь ... как сама система гуманна к программисту так и программист к пользователю.
Так что вынужден был так ... так как меньше требует возни...
Нежели сидеть и для каждой колонки кроме одной из них устанавливать "ТолькоПросмотр". Потому что система 1С иначе не умеет. "Круто".
Ладно! Пока!

sava1 Подменю пользователя
сообщение 22.04.19, 13:34
Сообщение #3

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

типо так

Для каждого Колонка из Элементы.ТЧ.Колонки Цикл
       Если Колонка.Имя = "Флаг" тогда
                Колонка.ТолькоЧтение = 1;
       Иначе
                Колонка.ТолькоЧтение = ложь;
       КонецЕсли;
КонецЦикла

Спасибо сказали: Gigi,

Gigi Подменю пользователя
сообщение 22.04.19, 14:32
Сообщение #4

Оратор
*****
Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0

sava1 @ Сегодня, 14:34 * ,
Для каждого Колонка из Элементы.ТЧ_Показания.Колонки  Цикл
   Если Колонка.Имя = "ФлажокДляПечати" тогда
        Колонка.ТолькоЧтение = ложь;
   Иначе
        Колонка.ТолькоЧтение = Истина;
   КонецЕсли;
КонецЦикла

Аж магарич сделал бы Вам если так работал бы ))
Думаете я так не пробовал?
В том и дело что поле "Колонки " не находит... Что и пишет: "Поле объекта не обнаружено (Колонки)"
И вообще... такой строки в списке свойств Элементы.ТЧ.... как "Колонки " и нет.
Так что... ладно... проехали забили ...и забыли.
Но спасибо..
Хотя конечно лучше было бы путем обхода... чем выше указанным... через контекстное меню.

sava1 Подменю пользователя
сообщение 22.04.19, 14:59
Сообщение #5

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

обход на клиенте/сервере ?

пардон - вместо Колонки - ПодчиненныеЭлементы

Сообщение отредактировал sava1 - 22.04.19, 15:01

Спасибо сказали: Gigi,

Gigi Подменю пользователя
сообщение 22.04.19, 16:03
Сообщение #6

Оратор
*****
Группа: Пользователи
Сообщений: 498
Спасибо сказали: 5 раз
Рейтинг: 0

sava1 @ Сегодня, 15:59 * ,
Ладно спасибо ... попробую ...
Гууу... по предыдущей теме
По этой рекомендации на форуме
пока ничего не делал... времени не было... поэтому тот уже другой, более важный вопрос тоже повис..
Но как освобожусь придется продолжить тему если будут вопросы .. Равно как эту ... если и по этой они возникнут.
Ладно спасибо ... Пока!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 24.04.24, 21:14
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!