Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
1C 8.x

Как отразить на форме документа видимость Подразделения в ТЧ расшифровка?

18.05.2023, 09:44. Показов 3815. Ответов 58

Студворк — интернет-сервис помощи студентам
Ребята всем привет! говорю сразу, я не программист, только учусь)
Работаю аналитиком в компании.
У меня такой вопрос.
Как включить видимость подразделения в тч расшифровка как без разбиения так и списком?

Вот как делаю я:

1. затащила документ в расширение
2. в модуле формы написала процедуру

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Процедура СТ_УстановитьВидимостьДоступностьЭлементовРасшифровкиБезРазбиения()
                Если Объект.РасшифровкаПлатежа.Количество() Тогда
 
        ПоказыватьПодразделение = (Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ПрочаяВыдачаДенежныхСредств) 
            ИЛИ ((Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВыдачаДенежныхСредствПодотчетнику) 
                    И НЕ ЗначениеЗаполнено(Объект.РасшифровкаПлатежа[0].СТ_Проект));
        Элементы.РасшифровкаБезРазбиенияПодразделение.Видимость = ПоказыватьПодразделение;
        Элементы.РасшифровкаПлатежаПодразделение.Видимость = ПоказыватьПодразделение;
        Если ПоказыватьПодразделение И Объект.ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВыдачаДенежныхСредствПодотчетнику Тогда
            Элементы.РасшифровкаБезРазбиенияПодразделение.Заголовок = "Подразделение (косв.)";
               КонецЕсли;
 
 
КонецПроцедуры

3. в процедуре ПриОткрытии добавила код:

1C
1
2
3
4
5
6
7
8
&После("ПриОткрытии")
&НаКлиенте
Процедура СТ_ПриОткрытииПосле(Отказ)
 
    УстановитьВидимостьДоступностьЭлементовРасшифровкиБезРазбиения();  
        
 
КонецПроцедуры

Сейчас все отображается, но как только я выбираю нужное подразделение и нажимаю записать или провести, оно тут же исчезает, а когда заново открываю документ или переключаю тумблер например Списком, опять появляется это поле подразделение но уже очищенное.

Ребятки, помогите пожалуйста!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.05.2023, 09:44
Ответы с готовыми решениями:

ЗУП 3.1. Тест Профессионал. Для изменения наименования подразделения, в печатной форме ранее введенного документа
Доброго дня!!! 1. Достаточно изменить наименование подразделения в справочнике и заново сформировать печатную форму 2. Необходимо...

Как отразить изменения в Форме - в Таблице?
Уважаемые коллеги, Помогите, пожалуйста справиться с задачей (Access 2007): Я сформировал в БД таблицу, сделал удобную форму, начал...

Как отразить на форме последнюю запись с другой формы
Добрый день! сразу скажу, что Акцесс на уровне чайника, языков не знаю. Есть форма Трудовой договор, где можно выбрать сотрудника из уже...

58
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
18.05.2023, 23:58  [ТС]
Студворк — интернет-сервис помощи студентам
Без всякого сомнения, Вы лучший! И без всяких там деферамб! я очень Вам благодарна!

да, так и есть, в таблице тоже принудительно вывела подразделение. Но все же, если указать два разных подразделения, не должна ли система записать в регистр эти разные Подразделения? Ведь если Списком указаны разные Подразделения, они по идее должны записываться в регистр под разными данными?
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
19.05.2023, 00:01
Лучший ответ Сообщение было отмечено Svetik_003 как решение

Решение

В своем расширении убираете галку Активно. Загружаете мое расширение, убирает галки Безопасный режим и Защита от опасных действий. Проверяйте работу. Установить подразделение в РасшифровкаБез и сохранить. Все сохраняется, после закрытия и вновь открытия Работает
Вложения
Тип файла: zip Расширение1.zip (47.2 Кб, 5 просмотров)
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 00:03  [ТС]
Спасибо большое!
а не нарушится работа других модулей в этом расширении?
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
19.05.2023, 00:08
Цитата Сообщение от Svetik_003 Посмотреть сообщение
по идее должны записываться в регистр под разными данными?
По идеи должны. Но... По стандартному коду НЕ ДОЛЖЕН заполняться реквизит таблицы Подразделение (только в хоз операции Прочие и Депозиты) и значит, что программа даже не делает попытки разнести по разным подразделениям. Код НЕ выполняется. Кроме визуального обозначения надо искать где выполняется этот код и заставлять его работать

Добавлено через 2 минуты
Цитата Сообщение от Svetik_003 Посмотреть сообщение
а не нарушится работа других модулей в этом расширении?
Ничего не нарушится. там только три процедуры Две устанавливающие видимость и одна из модуля менеджера.
Но все это бесполезно. Цель не будет достигнута. Вы увидите информацию и подразделении расходов, но не распределите расходы на неё, т.к. код не отработает
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 00:09  [ТС]
Спасибо Вам ОГРОМНОЕ! Уж не знаю как величать Вас в реальной жизни, но Вы просто волшебник!
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
19.05.2023, 00:12
Мое расширение только продемонстрировать что решение верное и работает. Почему у вас нет - надо разбираться. Соответственно все что вы добавили в свое расширение кроме - работать не будет, отключено

Добавлено через 21 секунду
Svetik_003, Сработало?
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 00:12  [ТС]
Еще время есть, сейчас буду проходить отладкой по каждому действию.
Может что увижу подходящее
Вам ГОРОМАДНИШЕЕ СПАСИБО! очень внимательный, очень отзывчивый человечек! Спасибо!
0
19.05.2023, 00:14

Не по теме:

Svetik_003, Пожалуйста. А я спать )))

0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 00:16  [ТС]
отдыхайте!
Приятных Вам сновидений!
Еще раз спасибо!

Добавлено через 1 минуту
не совсем мне понятно как именно загрузить Ваше расширение, но Вам уже нужно отдыхать!
Надеюсь, все получится! Вам СПАСИИИББООО!
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 13:18  [ТС]
Добрый день сэр Ланселот!
Вы говорили, что нужно обязательно прочитать,
все работает отлично, все как надо! Спасибо Вам большое!
немного смущает, когда на закладке Расшифровка - > Списком,
при добавлении в ТЧ строки, и при выборе статьи ДДС, Подразделение исчезает. а когда записываешь документ, снова возвращается. Я так понимаю, нужно или обновить форму или прочитать?
Хотела спросить, в какой процедуре лучше вызвать?
Заранее благодарна за ответ!
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
19.05.2023, 14:33
Цитата Сообщение от Svetik_003 Посмотреть сообщение
Хотела спросить, в какой процедуре лучше вызвать?
В любой по окончанию какого-то запланированного действия, которое меняет значения в открытой форме
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 14:45  [ТС]
я вызвала ПриИзменении всей ТЧ Расшифровка, но к сожалению не чего не изменилось, Так же пробовала ПриИзменении самих реквизитов ТЧ (разных) так же без изменений. Или Это нужно делать не с ТЧ, а полностью с формой?
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
19.05.2023, 14:54
Лучший ответ Сообщение было отмечено Svetik_003 как решение

Решение

Конечно с формой
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
19.05.2023, 14:56  [ТС]
Спасибо за ответ! Сейчас буду пробовать
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
25.05.2023, 19:35  [ТС]
Добрый день сер Ланселот!
подскажите пожалуйста, а что нужно, что бы код выполнялся и все же данные попадали в регистры при проводке документа?
Буду чрезвычайно Вам благодарна за ответ!
0
 Аватар для Kamazov
5 / 4 / 2
Регистрация: 05.01.2022
Сообщений: 393
25.05.2023, 20:18
Цитата Сообщение от Svetik_003 Посмотреть сообщение
подскажите пожалуйста, а что нужно, что бы код выполнялся и все же данные попадали в регистры при проводке документа?
Для этого вроде надо в документе настроить движения в конструкторе движения, ну или самому прописывать код.
Миниатюры
Как отразить на форме документа видимость Подразделения в ТЧ расшифровка?  
0
 Аватар для Svetik_003
0 / 0 / 0
Регистрация: 18.05.2023
Сообщений: 34
25.05.2023, 20:23  [ТС]
Милый ты мой человечек, речь идет о типовой конфигурации, где все гораздо сложнее... Но тебя благодарю за то, что включился в наш диалог
0
 Аватар для Kamazov
5 / 4 / 2
Регистрация: 05.01.2022
Сообщений: 393
25.05.2023, 20:44
Цитата Сообщение от Svetik_003 Посмотреть сообщение
Милый ты мой человечек, речь идет о типовой конфигурации, где все гораздо сложнее... Но тебя благодарю за то, что включился в наш диалог
Ну тогда самому прописывать код типа такого:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Процедура ОбработкаПроведения(Отказ, Режим)
     //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр РасходТоплива 
    Движения.РасходТоплива.Записывать = Истина;
    Движение = Движения.РасходТоплива.Добавить();
    Движение.Период = Дата;
    Движение.Транспорт = ТранспортноеСредство;
    Движение.Водитель = Водитель;
    Движение.ВидТС = ВидТС;
    Движение.ВидТоплива = ВидТоплива;
    Движение.Количество = ИзрасходованоЛитров;
 
    // регистр ПробегТранспорта 
    Движения.ПробегТранспорта.Записывать = Истина;
    Для Каждого ТекСтрокаМаршруты Из Маршруты Цикл
        Движение = Движения.ПробегТранспорта.Добавить();
        Движение.Период = Дата;
        Движение.Транспорт = ТранспортноеСредство;
        Движение.ВидТС = ВидТС;
        Движение.Водитель = Водитель;
        Движение.Пробег = ТекСтрокаМаршруты.Расстояние;
    КонецЦикла;
 
    // регистр ПробегТранспорта 
    Движения.ПробегТранспорта.Записывать = Истина;
    Движение = Движения.ПробегТранспорта.Добавить();
    Движение.Период = Дата;
    Движение.Транспорт = ТранспортноеСредство;
    Движение.ВидТС = ВидТС;
    Движение.Водитель = Водитель;
    Движение.Пробег = ПройденныйПуть;
 
    
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
 КонецПроцедуры

Если есть иные способы, то сам хотел бы узнать про них. Знание - это сила.
0
Эксперт 1С
6614 / 1763 / 642
Регистрация: 16.01.2015
Сообщений: 7,312
26.05.2023, 12:03
Svetik_003, Идем по коду проведения, ищем где проводится Подразделение, смотрим какие наложены условия, добавляем свое условие, чтобы проводилось и когда нам надо или убираем условие, чтобы проводилось всегда
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.05.2023, 12:03
Помогаю со студенческими работами здесь

Видимость и не видимость кнопки на форме
Как, в Лазарус, сделать так, чтобы на форме кнопка сначала была не видна, а при наведении на то место, где должна быть кнопка она...

Как в форме СЗВ-6-3 за 2011 год отразить начисления по больничным листам?
Помогите плизз срочно нужно сдавать отчет! Ну тут возникает проблема... Не могу в форме СЗВ-6-3 за 2011 год отразить начисления по...

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

Выполняет группировку по полю Тип подразделения таблице ПОДРАЗДЕЛЕНИЯ. Для каждой группы вычисляет минимальное и макс
8) Выполняет группировку по полю Тип подразделения таблице ПОДРАЗДЕЛЕНИЯ. Для каждой группы вычисляет минимальное и максимальное значения...

Отразить данные считанные из текстового документа на графике функции
Здравствуйте. Вообще не шарю :cry: Существует некая программа,которая выводит в консоль значения,записанные в текстовом документе. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
59
Ответ Создать тему
Новые блоги и статьи
Рефакторинг программы уравнивания.
Massaraksh7 26.05.2026
Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений.
Massaraksh7 25.05.2026
Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает
anaschu 24.05.2026
Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .
Модель здравосохранения 17. Планы на выгорание
anaschu 23.05.2026
Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона
russiannick 23.05.2026
Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .
Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой
anaschu 23.05.2026
Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .
Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15
anaschu 23.05.2026
Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул
anaschu 23.05.2026
Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru