В общем на работе дали задание..есть регистр сведений с колонками Контрагент, ДоговорКонтрагента и т.д...и есть справочник Контрагенты..так вот..транзакции падают на договора тех контрагентов которые прописаны в этом регистре сведений..но там договора уже устарели..и надо будет вручную проставлять новые договора у этих контрагентов, которые в справочнике контрагенты отмечены как Основные договора..В общем прошу Вас подсказать с чего начать? сначала сделать запрос по справочнику контрагенты чтобы получить основные договора и уже после записать эти договора в регистр сведений..или их получить с помощью выборки? или еще как по другому?

Тема активна =) кстати..простите за бестактность, Всем привет!:)

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

(3) так выборкой или запросом?)))

Просто мне необходимо лишь проставить эти договора в регистр сведений..чтобы остальные колонки были не тронуты...)

(4) запросом конечно. Ну какая выборка, чего вы прикалываетесь?

(6) не прикалываюсь) просто мои знания в программировании ограничены)) читала лишь учебник Радченко))

Зачем бухгалтеру осваивать программирование?

(8) разве плохо знать еще и обратную сторону 1с чтобы вырости до Аудитора высшего класса)) и вообще пошла на это лишь для того чтобы облегчить себе жизнь..)

Пишите запрос к регистру типа
ВЫБРАТЬ
КОНТРАГЕНТ как Контрагент
Договор как Договор
из ИмяВашегоРегистра
А затем Создавайте набор записей,устанавливайте отбор по контрагенту,Устанавливайте договор основным а затем записывайте набор

даже договор не нужно выбирать

Кстати такой симпотичной дамочке как вы сделаем безвозмездно :)

Я записала вон так..без синонимов..
ВЫБРАТЬ
Контрагент,
ДоговорПоСмартКартам
ИЗ
РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам

(10) но разве запрос надо делать на регистр? а не на справочник?

у вас в регистре сидит корректная информация про контрагентов и некорректная про их договора я верно понял?

если да то пишите к регистру запроса там будете брать основной договор вместо проставленного

(14) и то и другое надо, если честно.

(15) Да..хочу проставить корректные договора которые в справочнике контрагенты указаны как Основной..

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

(17)  (18) Зачем же запрос по обе стороны если регистр заполнен верно.Пускай лучше к регистру запросик напишет и создает набор записей с отбором по контрагенту и основному договору

(17) так..два запроса..а как тогда их применить? я лишь получу данные..и после их сравнивать?

(19) (20) так..надо подумать)) я не так быстро перевариваю)

конфа скоко весит?

пришли я сделаю

сижу ...пинаю

(21) Запрос один.Второе действие это создатьМенеджерЗаписи()у регистра сведений

(23) (24) (25) конфигурация вроде большая будет...
у меня вроде копия была дома..может на флешке..сейчас посмотрю..

(23) 250 весит..

(26) так..на счет менеджера..сейчас набросать попробую..

(0) запросом выбрать все записи, создать набор, обойти в цикле выборку:
  запись = набор.добавить();
  ЗаполнитьЗначенияСвойств(Запись, Выборка);
  Запись.Договор = Выборка.Контрагент.ОсновнойДоговор;

потом набор записать.

(29) менеджер не тру, ломать так весь регистр.

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

Допилишь сама .Писал интуитивно

ABCКлассификацияПокупателей замени на свой регистр

+(31) чтоб не сломать, выбирай ВСЕ записи регистра и ВСЕ поля. отбор не надо будет, запишешь одним куском. если сцыкотно, делать в транзакции.

(32) (35) А что я могу сломать? сейчас на копии попробую)

(26) если новые контрагенты добавились. Тогда нужно и список контрагентов прошерстить.

а выборке условие поставь что договор в регистре не равен основному договору контрагента чтобы не изменять лишние записи

(37) там же не было постановки про новых контрагентов если я не ошибаюсь

(36) как успехи?

(37) и чем мы будем заполнять регистр ведь там скорее всего кроме контрагентов и договоров используется многой ненужной зурны

(36) все, что душе угодно)
(37) новый пускай добавляются обычным путем, редактируем лишь текущих

(41) Записала вот так..не ругайся если не правильно))
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|Контрагент,
|ДоговорПоСмартКартам
|ИЗ
|РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам";
РезультатЗапроса = Запрос.Выполнить();
ТекЗапись = РегистрыСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.СоздатьНаборЗаписей();
ТекЗапись.Отбор.Контрагент.Установить(Выборка.Контрагент);                      
ТекЗапись.Отбор.ДоговорПоСмартКартам.Установить(Выборка.ДоговорПоСмартКартам);
ТекЗапись.Прочитать();
Для каждого стр из ТекЗапись цикл
    стр.ДоговорПоСмартКартам = Выборка.Контрагент.ОсновнойДоговор;
КонецЦикла;
ТекЗапись.Записать(Истина);

но вышли ошибки...пока не поняла что к чему..
{Форма.Форма.Форма(52,39)}: Переменная не определена (Выборка)
ТекЗапись.Отбор.Контрагент.Установить(<<?>>Выборка.Контрагент);                        (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(53,49)}: Переменная не определена (Выборка)
ТекЗапись.Отбор.ДоговорПоСмартКартам.Установить(<<?>>Выборка.ДоговорПоСмартКартам); (Проверка: Толстый клиент (обычное приложение))
{Форма.Форма.Форма(56,32)}: Переменная не определена (Выборка)
    стр.ДоговорПоСмартКартам = <<?>>Выборка.Контрагент.ОсновнойДоговор; (Проверка: Толстый клиент (обычное приложение))

Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|Контрагент,
|ДоговорПоСмартКартам
|ИЗ
|РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам
|ГДЕ
|    Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.ДоговорПоСмартКартам <> Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.Контрагент.ОсновнойДоговор";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ТекЗапись = РегистрыСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.СоздатьНаборЗаписей();
ТекЗапись.Отбор.Контрагент.Установить(Выборка.Контрагент);                      
ТекЗапись.Отбор.ДоговорПоСмартКартам.Установить(Выборка.ДоговорПоСмартКартам);
ТекЗапись.Прочитать();
Для каждого стр из ТекЗапись цикл
    стр.ДоговорПоСмартКартам = Выборка.Контрагент.ОсновнойДоговор;
КонецЦикла;
ТекЗапись.Записать(Истина);

дальше разберешся сама?

получилося?

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

В общем на форме у меня лишь одна кнопка Выполнить..нажала и как будто что то произошло..посмотрела в регистр..но там все по прежнему..без изменений..

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|Контрагент,
|ДоговорПоСмартКартам
|ИЗ
|РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам
|ГДЕ
|    РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.ДоговорПоСмартКартам <> РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.Контрагент.ОсновнойДоговорКонтрагента";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ТекЗапись = РегистрыСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.СоздатьНаборЗаписей();
ТекЗапись.Отбор.Контрагент.Установить(Выборка.Контрагент);                      
ТекЗапись.Отбор.ДоговорПоСмартКартам.Установить(Выборка.ДоговорПоСмартКартам);
ТекЗапись.Прочитать();
Для каждого стр из ТекЗапись цикл
    стр.ДоговорПоСмартКартам = Выборка.Контрагент.ОсновнойДоговор;
КонецЦикла;
ТекЗапись.Записать(Истина);
        
КонецПроцедуры

может нужно сначало сделать эту процедуру &НаСервере, и уже после ссылаться на нее при нажатии кнопки?) вроде НаСервере или НаКлиенте тоже играет роль...

У тебя УФ?)
очень сомнительно, иначе код бы вообще не отработал, так как
НаКлиенте нету объекта "Запрос" ;)
Да, кстати, а регистр подченён регистратору или нет?

(49) Я не вижу тут конструкции

Пока Выборка.Следующий() Цикл

КонецЦикла

Нет..не подчинён..а уф это управляемая форма?) (51)

Вот что фотка в профиле делает...

(53)Ага, она) Управляемая форма)
и кстати (52)+ Нету цикла на выборку)

вроде в 8.1 нет управляемой формы..если я правильно понимаю..ну платформа у меня конечно 8.2, а вот конфигурация БП 1.6...

(54)а что там плохого? если не нравлюсь..то не надо на личности переходить(

(54)ой, прости) не так поняла..просто голова забита этой обработкой)

(55) так будет вернее?


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

ТекЗапись.Записать(Истина);
        
КонецПроцедуры

ТекЗапись.Записать(Истина);
поместите в цикл Выборка.Следующий()

(59) Не совсем.
Вот, держи:

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

(61) ошибка вышла...
{Форма.Форма.Форма(26)}: Ошибка при вызове метода контекста (Записать)
ТекЗапись.Записать(Истина);
по причине:
Запись не верна! Значение поля не соответствует установленному отбору: Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам: 01.03.0209, Майнская райСББЖ, №216 от 01.07.2013, 3 080, 41 253 080, ложь (Регистр сведений: Информация по работе контрагентов по смарт-картам; Номер строки: 1; Поле: ДоговорПоСмартКартам)

xD я догадывался о таком исходе)
А теперь второе.
Если поставить отбор только на контрагента, и менять потом договор, то это будут совершенно разные записи, то-есть у вас в регистре потом будет
Контр1 ДоговорНеправильный
Контр2 ДоговорПравильный

(62) Не может быть. Нет в этом коде отбора по договору, только  по контрагенту.

И вообще, я надеюсь, ты не на рабочей базе это делаешь?

(64) на копии)

блин) не Контр2, а всё тот же Контр1
Выход из ситуации возможен такой:
1. Получаете контрагентов запросом
2. Делаете набор с отбором по контрагенту
3. Читаете набор, грузите его во Таблицу Значений
4. Очищаете набор
5. Записываете набор
5. Заменяете в Таблице значений договор
6. Грузите Таблицу в набор
7. Записываете набор

>Если поставить отбор только на контрагента, и менять потом >договор, то это будут совершенно разные записи, то-есть у вас >в регистре потом будет
>Контр1 ДоговорНеправильный
>Контр2 ДоговорПравильный

(63) С фига ли?

(66) если честно я в ступоре)

(68) Вообще можно сделать все проще. Типа вот этого:

Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
|   Контрагент,
|    Контрагент.ОсновнойДоговорКонтрагента КАК ДоговорПоСмарткартам
|    Поле1,
|    Поле2,
|    Поле999999
|
|ИЗ
|   РегистрСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам
|";

ТекЗапись = РегистрыСведений.Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам.СоздатьНаборЗаписей();
ТекЗапись.Загрузить(Запрос.Выполнить.Выгрузить());
ТекЗапись.Записать(Истина);

В этом примере Поле1, Поле2, Поле99999  -- это поля регистра, который тебе нужно обновить.

Это мне все поля перечислять надо?) (69)

(70) Ну да, их там много? Легче всего это сделать с помощью конструктора запроса.

(69) вышла ошибка
{Форма.Форма.Форма(62)}: Поле объекта не обнаружено (Выполнить)
ТекЗапись.Загрузить(Запрос.Выполнить.Выгрузить());

(72) Смотри внимательнее. Эта строчка в начале есть?
Запрос = Новый Запрос;

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

(74) сделала) но тут другая ошибка...
{Форма.Форма.Форма(62)}: Ошибка при вызове метода контекста (Выполнить)
ТекЗапись.Загрузить(Запрос.Выполнить().Выгрузить());
по причине:
{(5, 5)}: Синтаксическая ошибка "Поле1,"
<<?>>Поле1,

(75) Вместо слов "Поле1", "Поле2" и "Поле99999" нужно перечислить названия полей регистра Ю_ИнформацияПоРаботеКонтрагентовПоСмартКартам. Я же не знаю какие они там у тебя. И лучше всего воспользоваться конструктором запроса.

А еще лучше попроси своего парня сделать это за тебя.

(76) я по сути скорее карьеристка) все время трачу на самообразование..на парней нет времени)) я как в Америке..выйду замуж лет к 40)))

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

и не проще было тогда * все столбцы выбрать?

(78) Нет, не проще. Тебе ведь нужно вместо договора из регистра подставить основной договор контрагента. Именно для этого нужна строка "Контрагент.ОсновнойДоговорКонтрагента КАК ДоговорПоСмарткартам" в запросе. С помощью нее мы подменяем значение реквизита ДоговорПоСмаркартам.

После этого мы по-сути загружаем готовый набор записей обратно в регистр.

(77) В России для построения карьеры не обязательно отказываться от всего остального. И вообще, по-настоящему успешный человек должен стараться развиваться во всех направлениях: карьера, семья, тело, дух, ум.

(79) Не получается все и сразу у меня пока)) надеюсь у меня руки не опустятся) а на счет программы пока нет возможности попробывать чтото..у подруги день рождение..сейчас поеду..завтра в обед снова попробую..если не получится-отпишусь здесь..Спасибо, друзья, что помогаете!

Всем ОГРОМНОЕ СПАСИБО! Все получилось..если кому интересно-вот  окончательный вариант:

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