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

Хранилище

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

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



> Обход списка документов          
MH.z Подменю пользователя
сообщение 04.07.12, 12:31
Сообщение #1

Говорящий
***
Группа: Пользователи
Сообщений: 75
Из: Харьков
Спасибо сказали: 0 раз
Рейтинг: 0

Пробую еще раз smile.gif
УПП редакция 1.3
Делаю обработку которая позволяет перезаписывать данные в регистр сведений.
Как можно сделать программно обход списка документов для получения ссылки на каждый документ. Документ ПлатежноеПоручениеИсходящее.
Вот сам код:
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.Ссылка.Контрагент КАК Контрагент,
        |    ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.СтавкаНДС,
        |    КонтрагентыОрганизаций.СтавкаНДСПриобретений
        |ИЗ
        |    Документ.ПлатежноеПоручениеИсходящее.РасшифровкаПлатежа КАК ПлатежноеПоручениеИсходящееРасшифровкаПлатежа
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтрагентыОрганизаций КАК КонтрагентыОрганизаций
        |        ПО ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.Ссылка.Контрагент = КонтрагентыОрганизаций.Контрагент
        |ГДЕ
        |    ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.Ссылка.ВидОперации = &ВидОперации
        |    И ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.Ссылка = &Ссылка";
        Запрос.УстановитьПараметр("ВидОперации", Перечисления.ВидыОперацийППИсходящее.ОплатаПоставщику);
        Запрос.УстановитьПараметр("Ссылка", Ссылка);
        РегистрыСведений.КонтрагентыОрганизаций.ВыбратьПоРегистратору(Ссылка).СтавкаНДСПриобретений = Выборка.СтавкаНДС;
        Результат = Запрос.Выполнить().Выгрузить();
        Для каждого Строка из Результат Цикл
            РегистрыСведений.КонтрагентыОрганизаций.ВыбратьПоРегистратору(Ссылка).СтавкаНДСПриобретений = Строка.СтавкаНДС;
        КонецЦикла;
    КонецЦикла;


Сообщение отредактировал MH.z - 04.07.12, 12:32

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

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Убрать эту строку, тогда будут выбраны все документы удовлетворяющие оставшемуся условию.
        |    И ПлатежноеПоручениеИсходящееРасшифровкаПлатежа.Ссылка = &Ссылка";



Signature
Личные бесплатные консультации не даю, для этого есть форум!

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


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

 

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