Форум программистов, компьютерный форум, киберфорум
1С: Собственные программы
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Супер-модератор
Эксперт 1СЭксперт по компьютерным сетямЭксперт HardwareЭксперт Windows
 Аватар для Maks
9272 / 5055 / 606
Регистрация: 13.03.2013
Сообщений: 17,867
Записей в блоге: 17
1C 8.x

Получить данные из последней строки табличной части справочника

02.08.2025, 12:14. Показов 834. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Приветствую, коллеги!
Есть справочник "ТерифыМобильнойСвязи" с реквизитом "ОператорМобильнойСвязи" (тип СправочникСсылка.ОператорыМобильнойСвязи ) и табличной частью "УсловияТарифа".
В данной ТЧ есть реквизиты Дата(дата), Минуты(число), Интернет(число), АбонентскаяПлата(строка) и ПрочиеУсловия(строка).

Есть документ "СимКарты" с ТЧ "ПараметрыУчета", которая содержит аналогичные реквизиты, в частности Тариф с ссылкой на выше упомянутый справочник, а также Минуты/Интернет(/АбонентскаяПлата/ПрочиеУсловия.

Необходимоо сделать так, чтобы при выборе тарифа автоматически подставлялись значения Минуты/Интернет(/АбонентскаяПлата/ПрочиеУсловия согласно выбранному тарифу и самое главное, это должна быть последняя строка из ТЧ справочника.

Понимаю, что нужен запрос в процедуру "ТарифПриИзменении", но в силу отсутствия знаний и опыта пока не понимаю, что именно писать в запросе.

Собственно, прошу Вашей помощи.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
02.08.2025, 12:14
Ответы с готовыми решениями:

Программное заполнение табличной части документа из табличной части справочника
Доброго! Ситуация, поставившая меня в тупик. Имеем 1с 8.2 УФ Имеем справочник "Работ" Имеем...

Значение строки табличной части получить в табличной части другого документа
Есть документ ПриходнаяНакладная (товар приходит от поставщика по его цене), с табличной частью...

Получить данные из столбца последней строки в табличной части
Добрый день. Есть документ, в нем табличная часть произвольным количеством строк. Среди столбцов...

3
Супер-модератор
Эксперт 1СЭксперт по компьютерным сетямЭксперт HardwareЭксперт Windows
 Аватар для Maks
9272 / 5055 / 606
Регистрация: 13.03.2013
Сообщений: 17,867
Записей в блоге: 17
02.08.2025, 13:20  [ТС]
Разобрался:
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
39
40
41
42
43
44
45
46
47
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ТарифыУсловияТарифа.Ссылка КАК Ссылка,
    |   МАКСИМУМ(ТарифыУсловияТарифа.НомерСтроки) КАК НомерСтроки,
    |   ТарифыУсловияТарифа.Дата КАК Дата,
    |   ТарифыУсловияТарифа.Минуты КАК Минуты,
    |   ТарифыУсловияТарифа.Интернет КАК Интернет,
    |   ТарифыУсловияТарифа.АбонентскаяПлата КАК АбонентскаяПлата,
    |   ТарифыУсловияТарифа.ПрочиеУсловия КАК ПрочиеУсловия,
    |   ТарифыУсловияТарифа.Ссылка.ОператорМобильнойСвязи КАК ОператорМобильнойСвязи
    |ИЗ
    |   Справочник.Тарифы.УсловияТарифа КАК ТарифыУсловияТарифа
    |ГДЕ
    |   ТарифыУсловияТарифа.Ссылка В(&Ссылки)
    |
    |СГРУППИРОВАТЬ ПО
    |   ТарифыУсловияТарифа.Ссылка,
    |   ТарифыУсловияТарифа.Дата,
    |   ТарифыУсловияТарифа.Минуты,
    |   ТарифыУсловияТарифа.Интернет,
    |   ТарифыУсловияТарифа.АбонентскаяПлата,
    |   ТарифыУсловияТарифа.ПрочиеУсловия,
    |   ТарифыУсловияТарифа.Ссылка.ОператорМобильнойСвязи";
    
    Ссылки = Новый Массив;
    Для каждого мСтрока Из Объект.ПараметрыУчета Цикл
        Если ЗначениеЗаполнено(мСтрока.Тариф) Тогда
            Ссылки.Добавить(мСтрока.Тариф);
        КонецЕсли;
    КонецЦикла;
 
    Запрос.УстановитьПараметр("Ссылки", Ссылки);
 
    РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
 
    Пока Выборка.Следующий() Цикл
        Для каждого мСтрока Из Объект.ПараметрыУчета Цикл
            Если мСтрока.Тариф = Выборка.Ссылка И Объект.ОператорМобильнойСвязи = Выборка.ОператорМобильнойСвязи Тогда
                мСтрока.Минуты = Выборка.Минуты;
                мСтрока.Интернет = Выборка.Интернет;
                мСтрока.АбонентскаяПлата = Выборка.АбонентскаяПлата;
                мСтрока.ПрочиеУсловия = Выборка.ПрочиеУсловия; 
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
0
 Аватар для Scratchsv
1434 / 212 / 85
Регистрация: 04.03.2020
Сообщений: 742
02.08.2025, 14:52
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
&НаКлиенте
Процедура ПараметрыУчетаТарифПриИзменении(Элемент)
    
    ТекущиеДанные = Элементы.ПараметрыУчета.ТекущиеДанные;
    Если Элементы.ПараметрыУчета.ТекущиеДанные = Неопределено Тогда Возврат КонецЕсли;
    
    ЗаполнитьЗначенияСвойств(ТекущиеДанные, ПараметрыУчетаТарифПриИзмененииНаСервере(ТекущиеДанные.Тариф));
    
КонецПроцедуры
 
&НаСервереБезКонтекста
Функция ПараметрыУчетаТарифПриИзмененииНаСервере(Знач Тариф)
    
    Запрос = Новый Запрос(
        "ВЫБРАТЬ
        |   ТарифыМобильнойСвязиУсловияТарифа.Ссылка.ОператорМобильнойСвязи КАК ОператорМобильнойСвязи,
        |   *
        |ИЗ
        |   Справочник.ТарифыМобильнойСвязи.УсловияТарифа КАК ТарифыМобильнойСвязиУсловияТарифа
        |ГДЕ
        |   ТарифыМобильнойСвязиУсловияТарифа.Ссылка = &Ссылка
        |   И ТарифыМобильнойСвязиУсловияТарифа.НомерСтроки В
        |           (ВЫБРАТЬ МАКСИМУМ(НомерСтроки) ИЗ Справочник.ТарифыМобильнойСвязи.УсловияТарифа ГДЕ Ссылка = &Ссылка)");
 
    Запрос.УстановитьПараметр("Ссылка", Тариф);
    РезультатЗапроса = Запрос.Выполнить();
    
    Результат = Новый Структура;
    Для каждого Поле Из РезультатЗапроса.Колонки Цикл Результат.Вставить(Поле.Имя); КонецЦикла;
    
    Выборка = РезультатЗапроса.Выбрать();
    Если Выборка.Следующий() Тогда ЗаполнитьЗначенияСвойств(Результат, Выборка); КонецЕсли;
    
    Возврат Результат;
    
КонецФункции
1
 Аватар для Аватар
5393 / 1465 / 513
Регистрация: 31.05.2012
Сообщений: 5,153
02.08.2025, 17:43
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
выбрать
      Условия2.Ссылка,
      Условия2.Минуты,
      Условия2.Интернет,
      Условия2.АбонентскаяПлата,
      Условия2.ПрочиеУсловия,
      Условия2.Ссылка.ОператорМобильнойСвязи
   из справочник.Тарифы.УсловияТарифа КАК Условия2
   внутреннее соединение
   (выбрать
      Условия1.Ссылка КАК Ссылка,
      МАКСИМУМ(Условия1.НомерСтроки) КАК НомерСтроки
    из Справочник.Тарифы.УсловияТарифа КАК Условия1
    где Условия1.Ссылка В(&Ссылки)
    СГРУППИРОВАТЬ ПО Условия1.Ссылка) как номерастрок
  по Условия2.Ссылка=номерастрок.Ссылка и условия2.НомерСтроки=номерастрок.НомерСтроки
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
02.08.2025, 17:43
Помогаю со студенческими работами здесь

Заполнение табличной части одного документа из табличной части другого документа
Здравсвуйте. 1С 8.2. Есть документ Приход и документ Расход. Оба документа имеют табличные части -...

Запрос. Условие: строка из первой табличной части равна любой строке из другой табличной части
Есть документ "РаспределениеМатериаловНаВыпуск". У этого документа имеется "Форма документа". На...

Заполнение Табличной Части документа из Табличной Части другого документа
Здравсвуйте. 1С 8.2 Есть два документа ТоварнаяНакладная.Накладная с реквизитами МассаБрутто и...

Заполнение табличной части одного документа из табличной части этого же документа
Здравсвуйте. 1С 8.2. Есть документ в этом документе 2 табличные части В 1 табличной части...

Автоматическое заполнение табличной части документа из табличной части другого
Добрый день. Совсем недавно начал изучать 1С и пока не могу найти решения собственной задачи)...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru