arefaste/1C_Forums huggingface dataset:
Бухгалтерия строительной организации 2.0.64.5, та же БП 2.0.
Каким образом можно выставить сводный счет-фактуру по завершении строительства на возмещение ндс инвесторами,
чтобы в разделе 10 декларации ндс были указаны вместе со сводной все выставленные поставщиками фактуры по объекту, и в колонках 10,11,12 этого раздела отражались реквизиты этих счетов фактур?
Бухгалтера требуют, правильно ли, и кто как сдавал декларацию от имени застройщика?
---
@Sonya, может быть, вам будет достаточно просто обновить конфигурацию до последней? Предложение основано на вот этом обсуждении: http://www.solutions.1c.ru/forum/user/branch/buhstroy/stroy/theme?theme_id=666&sheet=1
---
@Sonya, может быть, вам будет достаточно просто обновить конфигурацию до последней? Предложение основано на вот этом обсуждении: http://www.solutions.1c.ru/forum/user/branch/buhstroy/stroy/theme?theme_id=666&sheet=1
---
Cooler, спасибо, сама не нашла, писала разработчику на линию поддержки - так у клиента нет подписки на ИТС отраслевой - не ответили. За что тогда им платить? Чтобы за 5 дней до сдачи сделали как надо? Сдали пока как смогли, может неправильно, пусть налоговая скажет как надо, учтем ваш отчет по ссылке.
---
Я сдавал декларацию от имени застройщика на УСН, в данном случае мы сдаем только Журнал учета счет-фактур, и его пришлось делать руками, т.к. в 1С:бухгалтерии 2.0 и 3.0. он не заполнялся (2.0.64.20 и 3.0.39.60). Вернее я переписывал сборку отчета, по умолчанию он тянул только комиссионную торговлю, т.е. в регистре "журнал полученных сч-ф" в графах СуммаНдсКомиссия, суммакомиссия для заполнения должны были быть цифры!
---
Glagoleva, если автор ветки является плательщиком НДС (а скорее всего это так, судя по необходимости сдать декларацию), то ваш совет для нее бесполезен: такие застройщики сдают все 11 разделов декларации, а журнал - нет, смотрите сами: http://infostart.ru/special/nds2015/
---
Glagoleva, так тоже делали, хотелось знать как правильно.
---
Ну да, ну да, вам говорят что сложно найти черную кошку в темной комнате, если её там нет.
Как создать собственный лог-файл для записи результатов работы внешней обработки?
---
```1c
    ФайлРегистрации = Новый ЗаписьТекста("C:\LogFile.txt", КодировкаТекста.ANSI, , Истина);

    ФайлРегистрации.Записать("Первое сообщение" + Символы.ПФ);

    ФайлРегистрации.Записать("Второе сообщение"+ Символы.ПФ);

    ФайлРегистрации.Закрыть();
```
---
```1c
    ФайлРегистрации = Новый ЗаписьТекста("C:\LogFile.txt", КодировкаТекста.ANSI, , Истина);

    ФайлРегистрации.Записать("Первое сообщение" + Символы.ПФ);

    ФайлРегистрации.Записать("Второе сообщение"+ Символы.ПФ);

    ФайлРегистрации.Закрыть();
```
Т.е. Выполняется замер в конфигураторе и имеем некоторые данные по клиентской (0.5 сек) и серверной функциям (1.5 сек).
Но общее затраченное время оказывается больше - т.е. пользователь получает отклик системы не через 2 сек, а например через 4 сек
Как определить вес сетевого обмена - сказали на партнеском форуме вроде есть ветка по этому вопросу (но у меня к нему сейчас доступа нет) - этот вариант хотелось бы узнать
---
Отнимите от разницы vrsrequest и vrsresponse с клиента длительность call с сервера. И будет вам счастье.
---
AnddnA, в окне результаты замера, галочка на "Для вызова процедур и функций включать время выполнения" стоит?
---
Это теоретический (методический вопрос): я правильно понял идея состоит в том, чтобы посмотреть величины с галокой "Для вызова процедур и функций включать время выполнения" и без нее - разница этих величин считается временем затраченным на сетевой обмен ?
---
AnddnA, для таких вещей КИП используют. Все же встроенный слишком упрощен.
---
ЦУП имеется в виду ?
там вроде ничего такого нет - я ошибаюсь ?
я не уточнил - работа однопользовательская/монопольная (никаких блокировок)
чисто замерить затраты на сетевые обмены (вопрос как-то должен очень просто решается )
---
AnddnA, да, ЦУП, который в корпоративный инструментальный пакет входит.
я не уточнил - работа однопользовательская/монопольная (никаких блокировок)
Боюсь спросить... база файловая на этом же компе?
---
нет серверная: сервер 1 с на одном компе, клиент на другом
тут дело вообще не в этом - это теоретический/методический вопрос - как 1с предлагает решать такие задачи
PS: у ЦУПа нет такого функционала
---
AnddnA, еще можно попробовать использовать встроенный в БСП замер. Если есть желание в этом разобраться.
---
когда-то баловался в 7.7, мерял трафик сниффером, смотрел сколько отчет килобайт ест
---
А чем не устраивает стандартный функционал "показатели производительности"?
---
ilyay,
Предполагаю, ято тут речь не о "не устарвивает", а вопрос "как устроено"
---
Зависит от объема передаваемых данных и их структуры (время на сериализацию + время передачи). в общем случае ничего точно измерить не получится, но осознать затраты поможет http://infostart.ru/public/198264/
---
Счетчик network interface смотрели?
С маршрутизацией в сети нет проблем?
Это то с анализа чего нужно начать при подозрении сети как узкого места.
---
Нагрузочный тест TPC-1C

http://www.gilev.ru/tpc1cgilv/
---
Отнимите от разницы vrsrequest и vrsresponse с клиента длительность call с сервера. И будет вам счастье.
Один мой знакомый программист утверждает, что есть комбинация клавиш для поиска команды в дереве конфигурации прям из редактора командного интерфейса подсистемы (сам он эту комбинацию забыл, спрашивал у меня).
А ведь действительно, похоже, нужная штука!
Кто знает?
---
copybases, нужно открывать из корня конфы - "Все подсистемы", и оттуда есть переход "Найти в дереве"
---
copybases, F1 :)
в данном случае Ctrl+T
---
spacecraft,
Комбинация Ctrl+T мне известна, но при открытии командного интерфейса из подсистемы она не работает.
А вот из корня конфы - другое дело!
Поэтому вознаграждение за самый точный ответ достаётся m-serg74.
Спасибо всем за участие!
---
copybases, такой комбинации нет.
---
copybases, нужно открывать из корня конфы - "Все подсистемы", и оттуда есть переход "Найти в дереве"
Собственно вопрос, есть отчет на скд, в нем данные выводятся в таблицу, вопрос как сделать вычисляемое поле, которое будет высчитывать разницу между соседними колонками , но ресурс в колонках один тот-же

Отчет вида
________01.01_Нужное поле___02.01_____Нужное поле
Цена_____75________75________100__________25
---
platon_, Спасибо

Вдруг кому пригодиться, сделал :

```1c
    ВычислитьВыражение("Среднее(цена)","Месяц",, "Предыдущая", "Предыдущая")
```

данное поле показывает предыдущий столбец в группировке Месяц а с ним уже можно как угодно играться.
---
Не у кого нет идей? очень нужно =( хотя-бы в каком направлении копать
---
Cool_vsi, надо както по-проще (но - понятно!) изложить - хотябы, а то, даже разбираться в ________01.01_Нужное поле___02.01_____Нужное поле
Цена_____75________75________100__________25мне лично влом, просто.
---
отчет анализ цен поступления в строках номенклатура и цена в колонках группировка по периоду, соответственно в каждой колонке ресурс ЦЕНА, как мне в каждой колонки добавить новый расчет цена предыдущий колонке минус цена текущей?
---
Хелп!!!
---
Сделай в колонках РАЗНЫЕ ресурсы. А для той колонки, где надо показать разницу, создай ещё один ресурс, как разницу.
---
как я сделаю из 1 ресурса н ное количество ресурсов? это только самому формировать таблицу и передовать ее в таблицу

пользователь ставит отбор год, группировка Месяц и за каждый месяц выводиться 12 цен, для группировки квартал будет 4 колонки...и т.д.
---
Смотрите в сторону ВычислитьВыражение() в вычисляемых полях. у вас идёт группировка по периодам.
---
platon_, Спасибо

Вдруг кому пригодиться, сделал :

```1c
    ВычислитьВыражение("Среднее(цена)","Месяц",, "Предыдущая", "Предыдущая")
```

данное поле показывает предыдущий столбец в группировке Месяц а с ним уже можно как угодно играться.
Как при групповой обработке объектов реализовать стратегию "либо все, либо ничего"?
---
```1c
    НачатьТранзакцию();

    // В переменной "ВыборкаДанных" содержатся данные для записи в справочник.
    Пока ВыборкаДанных.Следующий() Цикл
    ЭлементОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
    ЭлементОбъект.Код = Выборка.Код;
    ЭлементОбъект.Наименование = Выборка.Наименование;

    // Остальные реквизиты

    ЭлементОбъект.Записать();
    КонецЦикла;
    ЗафиксироватьТранзакцию();

    ОтменитьТранзакцию();
```
---
```1c
    НачатьТранзакцию();

    // В переменной "ВыборкаДанных" содержатся данные для записи в справочник.
    Пока ВыборкаДанных.Следующий() Цикл
    ЭлементОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
    ЭлементОбъект.Код = Выборка.Код;
    ЭлементОбъект.Наименование = Выборка.Наименование;

    // Остальные реквизиты

    ЭлементОбъект.Записать();
    КонецЦикла;
    ЗафиксироватьТранзакцию();

    ОтменитьТранзакцию();
```
Как из регистра сведений "РасчетчикиЗарплатыОрганизации" получить в виде массива всех расчетчиков зарплаты определенного подразделения организации?
---
```1c
    Функция ПолучитьМассивРасчетчиков(Подразделение)

    НаборЗаписей = РегистрыСведений.РасчетчикиЗарплатыОрганизации.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.ПодразделениеОрганизации.Установить(Подразделение);
    НаборЗаписей.Прочитать();
    МассивРасчетчиков = НаборЗаписей.ВыгрузитьКолонку("Пользователь");

    Возврат МассивРасчетчиков;

    КонецФункции
    Функция ПолучитьМассивРасчетчиков(Подразделение)

    Запрос = Новый Запрос;
    Запрос.Текст = "
    |ВЫБРАТЬ
    | РасчетчикиЗарплатыОрганизации.Пользователь КАК Расчетчик
    |ИЗ
    | РегистрСведений.РасчетчикиЗарплатыОрганизации КАК РасчетчикиЗарплатыОрганизации
    |ГДЕ
    | РасчетчикиЗарплатыОрганизации.ПодразделениеОрганизации = &Подразделение";

    Запрос.УстановитьПараметр("Подразделение", Подразделение);

    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    МассивРасчетчиков = Новый Массив;
    Пока Выборка.Следующий() Цикл
    МассивРасчетчиков.Добавить(Выборка.Расчетчик);
    КонецЦикла;

    Возврат МассивРасчетчиков;

    КонецФункции
```
---
```1c
    Функция ПолучитьМассивРасчетчиков(Подразделение)

    НаборЗаписей = РегистрыСведений.РасчетчикиЗарплатыОрганизации.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.ПодразделениеОрганизации.Установить(Подразделение);
    НаборЗаписей.Прочитать();
    МассивРасчетчиков = НаборЗаписей.ВыгрузитьКолонку("Пользователь");

    Возврат МассивРасчетчиков;

    КонецФункции
    Функция ПолучитьМассивРасчетчиков(Подразделение)

    Запрос = Новый Запрос;
    Запрос.Текст = "
    |ВЫБРАТЬ
    | РасчетчикиЗарплатыОрганизации.Пользователь КАК Расчетчик
    |ИЗ
    | РегистрСведений.РасчетчикиЗарплатыОрганизации КАК РасчетчикиЗарплатыОрганизации
    |ГДЕ
    | РасчетчикиЗарплатыОрганизации.ПодразделениеОрганизации = &Подразделение";

    Запрос.УстановитьПараметр("Подразделение", Подразделение);

    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();

    МассивРасчетчиков = Новый Массив;
    Пока Выборка.Следующий() Цикл
    МассивРасчетчиков.Добавить(Выборка.Расчетчик);
    КонецЦикла;

    Возврат МассивРасчетчиков;

    КонецФункции
```
Как добавить элементы в соответствие?
---
```1c
    ВозрастСотрудников.Вставить(Сотрудник, ВозрастСотрудника);

    ВозрастСотрудников [Сотрудник] = ВозрастСотрудника;
```
---
```1c
    ВозрастСотрудников.Вставить(Сотрудник, ВозрастСотрудника);

    ВозрастСотрудников [Сотрудник] = ВозрастСотрудника;
```
Как изменить значение реквизита и записать документ?
---
```1c
    ДокОбъект = СсылкаНаДокумент.ПолучитьОбъект();
    ДокОбъект.Ответственный = глТекущийПользователь;
    ДокОбъект.Записать();

    ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);

    ДокОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
```
---
```1c
    ДокОбъект = СсылкаНаДокумент.ПолучитьОбъект();
    ДокОбъект.Ответственный = глТекущийПользователь;
    ДокОбъект.Записать();

    ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);

    ДокОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
```
При нажатии кнопки "подобрать товары" в заказах клиентов выскакивает сообщение "Поле соглашение не заполнено".

 При этом соглашения мы вообще не используем, они отключены в соответвующих настройках crm.
Почему это возникаем? Как можно заставить работать кнопку "подобрать товары", гугление ничего не даёт. Куда копать?
---
vcspektr, а ничего ты не сделаешь кроме как переписать

```1c
    Процедура ОткрытьПодбор(Команда)

    Отказ = Ложь;
    Если Не ЗначениеЗаполнено(Объект.Соглашение)
    Или Не ЗначениеЗаполнено(Объект.Валюта) Тогда
    ОчиститьСообщения();
    СообщитьОбОшибкахОткрытияПодбора(Отказ);
    КонецЕсли;
    КонецЕсли;
    Если Отказ Тогда
    Возврат;
    КонецЕсли;
```
---
Неужели никто не сталкивался...
---
vcspektr, а ничего ты не сделаешь кроме как переписать

```1c
    Процедура ОткрытьПодбор(Команда)

    Отказ = Ложь;
    Если Не ЗначениеЗаполнено(Объект.Соглашение)
    Или Не ЗначениеЗаполнено(Объект.Валюта) Тогда
    ОчиститьСообщения();
    СообщитьОбОшибкахОткрытияПодбора(Отказ);
    КонецЕсли;
    КонецЕсли;
    Если Отказ Тогда
    Возврат;
    КонецЕсли;
```
---
m-serg74, спасибо, правда это я и сам знал. Думал может без хирургии как-то можно
---
А раньше соглашения использовались? Если их включить то все работает?
Как реализовать перетаскивание между элементами управления?
---
```1c
    Процедура НоменклатураНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

    // Получить значение, переданное системой.
    Значение = ПараметрыПеретаскивания.Значение;

    // В любом случае значением будет массив.
    МассивЗначений = Новый Массив;

    // Если перетаскивается группа, то в массив записываем входящие в нее элементы.
    Если Значение.ЭтоГруппа Тогда
    Выборка = Справочники.Номенклатура.Выбрать(Значение);
    Пока Выборка.Следующий() Цикл
    Если Не Выборка.ЭтоГруппа Тогда
    МассивЗначений.Добавить(Выборка.Ссылка);
    КонецЕсли;
    КонецЦикла;
    Иначе
    МассивЗначений.Добавить(Значение);
    КонецЕсли;

    // Заполненный массив записываем в параметры.
    ПараметрыПеретаскивания.Значение = МассивЗначений;

    КонецПроцедуры

    Процедура ТоварыПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    СтандартнаяОбработка = Ложь;

    КонецПроцедуры

    Процедура ТоварыПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    ПолученныйМассив = ПараметрыПеретаскивания.Значение;
    Если ТипЗнч(ПолученныйМассив) = Тип("Массив") Тогда
    Для Каждого Значение Из ПолученныйМассив Цикл
    НоваяСтрока = ДокументОбъект.Товары.Добавить();
    НоваяСтрока.Номенклатура = Значение;
    НоваяСтрока.Количество = 1;
    КонецЦикла;
    КонецЕсли;

    КонецПроцедуры
```
---
```1c
    Процедура НоменклатураНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

    // Получить значение, переданное системой.
    Значение = ПараметрыПеретаскивания.Значение;

    // В любом случае значением будет массив.
    МассивЗначений = Новый Массив;

    // Если перетаскивается группа, то в массив записываем входящие в нее элементы.
    Если Значение.ЭтоГруппа Тогда
    Выборка = Справочники.Номенклатура.Выбрать(Значение);
    Пока Выборка.Следующий() Цикл
    Если Не Выборка.ЭтоГруппа Тогда
    МассивЗначений.Добавить(Выборка.Ссылка);
    КонецЕсли;
    КонецЦикла;
    Иначе
    МассивЗначений.Добавить(Значение);
    КонецЕсли;

    // Заполненный массив записываем в параметры.
    ПараметрыПеретаскивания.Значение = МассивЗначений;

    КонецПроцедуры

    Процедура ТоварыПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    СтандартнаяОбработка = Ложь;

    КонецПроцедуры

    Процедура ТоварыПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)

    ПолученныйМассив = ПараметрыПеретаскивания.Значение;
    Если ТипЗнч(ПолученныйМассив) = Тип("Массив") Тогда
    Для Каждого Значение Из ПолученныйМассив Цикл
    НоваяСтрока = ДокументОбъект.Товары.Добавить();
    НоваяСтрока.Номенклатура = Значение;
    НоваяСтрока.Количество = 1;
    КонецЦикла;
    КонецЕсли;

    КонецПроцедуры
```
Добрый день!

В УТ 11 столкнулся с проблемой - как показать директору на что потрачено N рублей. Нашел в 11 детализацию расходов по статьям, но никак не могу найти способ вывести в отчете пояснения к ним. Специально в тестовом расходнике(кассовом) добавил в несколько полей полей пояснение "Интернет". В УТ 10.3 такое худо-бедно можно вывести в отчете. А как это сделать в 11?
---
Areal, настройкой отчета.
---
Забыл прикрепить скрины)
---
Areal, я так понимаю нужно, похожее...
---
Trucker,
Да, такое смог вывести, но пояснение к факту расхода никак не получается вывести
---
Areal, в принципе возможно.
---
Trucker,

Как Вы это сделали?
---
Areal, настройкой отчета.
---
Trucker,
СПАСИБО! Очень помогли!

В версии 11.1.7.60 это поле нужно добавлять в настройке "Выбранные поля"
---
Areal,

я тоже через стандартные инструменты настроил
---
Пояснения нужны к статье в целом иди к документам которыми расход прошел?
Если к документам - пишите в комментарий документов а в отчете - настройте вывод поля комментарий
Если к статье - добавте в наименование в скобочках например....
---
poyson, чем не подходит поле АналитикаРасхода.
---
poyson,
Пояснения к документу нужны, т.к. в статье или аналитике "ремонт автотранспорта" накопится 200 000р. и вызовет естественный вопрос - Что там сделали на такую сумму. Таких случаев немало в жизни предприятия, потому пояснения обязательно указывал в 10.3 и выводил в отчете. А тут никак не могу найти способ вывести "произвольные" данные(основание, комментарий в РКО или комментарий в аналитике РКО). Как этот тип данных можно вывести?
Подскажите такую вещь, что-то совсем туплю. Нужно изменить в документе "Реализация товаров и услуг" цену товара при этом эту реализацию менять нельзя. Пробую сделать документ "Корректировка реализации", указываю нужную сумму для товара, провожу а проводок нет.Недоуменно лезу в конфигуратор в модуль проведения документа и вижу такую строку (в самом начале цикла по обработке табличной части):

```1c
    Если ТаблицаДокумента.НП = 0 Тогда
    Продолжить;
    КонецЕсли;
```

Какового фига эта строка нужна и с каких пор у нас используется налог с продаж в документе Реализации? Смотрел самые последнии обновления, там ничего не исправлено. Если все правильно то как сделать корректировку?
---
Присоединяюсь к последнему участнику.
Хотелось бы уточнения что необходимо делать с реализацией в 7.7 Комплексная
---
Может не "Корректировка реализации", а "Корректировка отгрузки" ?
Тогда читай описание к документу:
Документ Корректировка отгрузки вводится в том случае, если после отгрузки товара
изменяется предполагаемый вид оплаты: с учетом или без учета НП.
...
---
А что за конфигурация?
---
Конфа Типовая 1с:Бухгалтерия 7.7. А как сделать то обычную корректировку реализации? Такая ситуация в документе реализации изменилась цена, соответственно нужно выставить измененную реализацию, измененную счет-фактуры и соответственно все изменения нужно отразить в книгах продаж,покупок. Каким документами посоветуете это все сделать? Гуглю, пока толком однозначного алгоритма так и не нашел.
---
Покопался в базе, я так понимаю что нужно сделать так:
1. Нахожу документ "отгрузка товаров, продукции", в документе изменилась только цена в сторону уменьшения. делаю корректирующую ручную проводку в Бухгалтерской справке по проводкам реализации. Проводки НДС не трогаю. Документом сторно пользоваться нельзя,т.к. отсторнирует все проводки и я не смогу корректно сделать корректировочный сф и правильный учет по НДС.
2. На основании документа Счет-фактура Выданный делаю документ "Корректировочный счет фактура" (документ проводок не делает)
3. т.к. изменилась цена в сторону уменьшения,то делаю на основании "Корректировочного счет фактуры" Запись книги покупок (если цены бы увеличилась нужно сделать запись книги продаж)
Правильно ли я все сделал?
---
Леха, на основании документа счет-фактура выданный,вы делаете корректировочный счет-фактуру с минусом на сумму уменьшения,т.е делаете сторно части "лишнего" НДС за корректируемый период,а не запись в книгу покупок.
---
Да, верно.
---
Здесь, как я понял речь идет о Бухгалтерии 7.7, верно?
Там надо, не меняя документа "отгрузка товаров, продукции", сделать "Бух справку", а затем Корректирующий СФ на основании СФ и еще запись в книгу покупок или продаж.

А как изменение цены или количества отражать в Комплексной 7.7 ?
Там делается "Реализация" и "Счет-фактура Выданный", а документов типа "Корректировки Реализации" из УПП здесь нет.
Как, не меняя старую "Реализацию" внести в нее корректировки? Каким документом? Как это правильно это оформлять?
---
Присоединяюсь к последнему участнику.
Хотелось бы уточнения что необходимо делать с реализацией в 7.7 Комплексная
Как найти элемент списка значений?
---
```1c
    ЭлементСписка = СписокСотрудников.НайтиПоЗначению(ИскомыйСотрудник);
    Если ЭлементСписка <> Неопределено Тогда
    Сообщить(СписокСотрудников.Индекс(ЭлементСписка));
    КонецЕсли;
```
---
```1c
    ЭлементСписка = СписокСотрудников.НайтиПоЗначению(ИскомыйСотрудник);
    Если ЭлементСписка <> Неопределено Тогда
    Сообщить(СписокСотрудников.Индекс(ЭлементСписка));
    КонецЕсли;
```
Как перебрать строки табличной части справочника?
---
```1c
    ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006");
    Для Каждого ТекущаяСтрока Из ЭлементСправочника.ВидыДеятельности Цикл
    Сообщить(ТекущаяСтрока.ВидДеятельности);
    КонецЦикла;
```
---
```1c
    ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006");
    Для Каждого ТекущаяСтрока Из ЭлементСправочника.ВидыДеятельности Цикл
    Сообщить(ТекущаяСтрока.ВидДеятельности);
    КонецЦикла;
```
Как организовать диалог выбора текстового файла?
---
```1c
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = ";
    Фильтр = "Текст(*,txt)|*.txt";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файл";

    Если ДиалогОткрытияФайла.Выбрать() Тогда
    ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;

    Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
    ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытия.Каталог = ";
    ДиалогОткрытия.МножественныйВыбор = Ложь;
    ДиалогОткрытия.Заголовок = "Выберите каталог";

    Если ДиалогОткрытия.Выбрать() Тогда
    ПутьККаталогу = ДиалогОткрытия.Каталог;
    КонецЕсли;
```
---
```1c
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = ";
    Фильтр = "Текст(*,txt)|*.txt";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файл";

    Если ДиалогОткрытияФайла.Выбрать() Тогда
    ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;

    Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
    ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытия.Каталог = ";
    ДиалогОткрытия.МножественныйВыбор = Ложь;
    ДиалогОткрытия.Заголовок = "Выберите каталог";

    Если ДиалогОткрытия.Выбрать() Тогда
    ПутьККаталогу = ДиалогОткрытия.Каталог;
    КонецЕсли;
```