Можно ли без указания регистратора сделать движение по регистру?

(3) Подписку чего?

(6) неправильные вопросы задаешь, не нужно тебе это , поверь

(10) журнал Мурзилка

можно даже для РН.
например, через xml =)

(12) опередил :)

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

(0) Проспорила что-ли?

Можно... вернее как поле регистратор будет заполнено, но самого объекта регистратор не будет... Если такой вариант устроит

2(6) Поле регистратор заполнить обязательно в наборе записей регистров.. но самого объекта может в этой базе и не быть...

(17) Это с указанием регистратора. Другой вопрос, что сслыка битая... :)

Нужна голо совалка...

так что за регистр? это великая тайна?

2(19) ссылка не битая. объекта нет.

(0) Я делаю это так. Открываю регистр сведений и колесиком мышки делаю по нему движения.

(23) Поднял настроение...)))

(15)Не говорите ему только, о моих глупых вопросах, а то не возьмет(

(25) Если это твое творение, в настройках регистра поставь "Режим записи" - Независимый и регистратор не будет нужен.

(0) Телепат-обработка?

2(26) серьезно? можно поставить в РН что он независимый?

А задание такое создать оборотный регистр, с измерением "Заказ" - Тип ДокументСсылка.ЗаказаПокупателя и 2 ресурса СуммаОплачена, естественно сделать движение подпиской, потому что нельзя править типовый механизм)

(29) все готовишься к спецу?

(28) ну может не все такие умные и начитаные как ты... большинство здесь только могут блеснуть умом и подколоть.. а помочь человеку мало кто..

(31)Вот, вот

(30)Готовлюсь в Роме на работу

К

2(31) так зачем ты подколол человека и сказал ему четвертьправду?

(29) Ну и причем здесь движение без регистратора?

а Рома знает, что ты к нему готовишься? а то может и не стоит:)

2(29) стоп, а где здесь в этом контексте про то что не нужно указывать регистратора?
вот подвписка твоя она на какое событие повешена?

(37)Я решила сюрприз сделать

(39) делаешь также как и в обработке проведения, единственное надо писать там например так:


                   Движение = Источник.Движения.ПартииТоваровПоЗаказам.Добавить();
                   Движение.ВидДвижения = ВидДвиженияНакопления.Приход;  
                   ЗаполнитьЗначенияСвойств(Движение,СтрокаПотребности);
                   Движение.Период = Источник.Дата;

(38)Сказали на регистр повесить подписку при записи, вот все думаю зачем)

(Источник, Отказ, РежимПроведения) - параметры процедуры обработчика

(41) Чтобы не вносить изменения в модули документов.

(42)Это если на документ повесить, то да на регистр тольео ПриЗаписи и ПередЗаписью

(43)А почему не на документ сделать подписку, а на регистр?

(41) В задании сказано: на регистр?

(46)Да, хочу понять в чем разница

(45) что ты нам мозги пудришь...) давай задание все

2(41) ну и отлично, а с чего ты взяла что ты внутри этой подписки ты не знаешь регистратора?

2(47) разница незначительна и она практического свойства.. однажды движений может не быть, или тебе покажется что их нет, и ты их не создашь. А в подписке на регистр они будут.
Поэтому лучше сделать и так и так.

поставь галочку "без регистратора" олололо

(47)
Ну при записи у тебя есть набор который записывается. В нем есть регистратор. Вот его и проставляй

(51)
Так что с галочкой "ололо" делать?

(52) а какое там значение регистратора ?

(54)
Правильное :)

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

(56) МишКа, здесь проблема в том что ты не понимаеш полносю сути задачи и не можеш ее нам обяснить.

Режим записи "Независимый" где у регистра накопления выставить, а то не найду

У кого есть типовая УПП?

(57) У меня есть более чем 10 отличий от Miss1C. )))

2(58) нет. тебе соврали.

(58) У регистра накопления нет режима записи "Независимый". Не слушай злых людей.

(58) Не ищи, это он либо произдевался с этим советом, либо просто туп

(58) Делай себе подписку на событие регистра. В чем сложность?

Задание такое, в Документ ЗаказПокупателя в форму списка, добавить 2 колонки, "СуммаОплачена", "СуммаОтгружена". Эти суммы берутся с оборотного регистра накопления "ВзаиморасчетыСКонтргентом", но только когда поле сделка не пустое.

Прицепилась к процедуре ПриПолученииДанныч:

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

   //ЗапросКодыДокументовКПК = Новый Запрос;
   //ЗапросКодыДокументовКПК.Текст =
   //"ВЫБРАТЬ
   //|    КодыДокументовКПК.УИД
   //|ИЗ
   //|    РегистрСведений.КодыДокументовКПК КАК КодыДокументовКПК
   //|ГДЕ
   //|    КодыДокументовКПК.Объект = &Объект";
   
   ТекстЗапросаОбщий = "ВЫБРАТЬ
                       |    ЗаказПокупателя.Ссылка,
                       |    ВЫБОР
                       |        КОГДА ЕСТЬNULL(АнулированныеДокументы.Документ, 0) = 0
                       |            ТОГДА ЛОЖЬ
                       |        ИНАЧЕ ИСТИНА
                       |    КОНЕЦ КАК Анулирован,
                       |    КодыДокументовКПК.УИД,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.Сделка,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаУпрПриход КАК СуммаОплачена,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаУпрРасход КАК СуммаОтгружена
                       |ИЗ
                       |    РегистрНакопления.ВзаиморасчетыСКонтрагентами.Обороты(, , , Сделка В (&СписокДокументов)) КАК ВзаиморасчетыСКонтрагентамиОбороты
                       |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказПокупателя КАК ЗаказПокупателя
                       |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АнулированныеДокументы КАК АнулированныеДокументы
                       |            ПО ЗаказПокупателя.Ссылка = АнулированныеДокументы.Документ
                       |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КодыДокументовКПК КАК КодыДокументовКПК
                       |            ПО ЗаказПокупателя.Ссылка = КодыДокументовКПК.Объект
                       |        ПО ВзаиморасчетыСКонтрагентамиОбороты.Сделка = ЗаказПокупателя.Ссылка
                       |ГДЕ
                       |    ЗаказПокупателя.Ссылка В(&СписокДокументов)";
   ЗапросОбщий = Новый Запрос(ТекстЗапросаОбщий);
   ЗапросОбщий.УстановитьПараметр("СписокДокументов", СписокДокументов);
   ТаблицаОбщая = ЗапросОбщий.Выполнить().Выгрузить();
   
       
   СтруктураОтбора = Новый Структура("Заказ",);
   Для Каждого Строка Из ОформленияСтрок Цикл
       
       ДанныеСтроки = Строка.ДанныеСтроки;
       
       ЭтоФорма2 = ДанныеСтроки.Форма2;
       Если ЭтоФорма2 Тогда
           Строка.ЦветФона = ЦветаСтиля.ЦветФормы2;
       КонецЕсли;
       
       СтруктураОтбора.Заказ = ДанныеСтроки.Ссылка;
       СтатусРазблокировки = Ложь;
       ОтпускРазблокирован = РегистрыСведений.РазблокировкаЗаказов.СрезПоследних(,СтруктураОтбора);
       Если ОтпускРазблокирован.Количество() > 0 Тогда
           СтрокаТаблицы = ОтпускРазблокирован[0];
           СтатусРазблокировки = СтрокаТаблицы.ОтгрузкаРазрешена;
       КонецЕсли;
       
       Ячейка = Строка.Ячейки.Разблокирован;
       Если СтатусРазблокировки Тогда
           Ячейка.ОтображатьКартинку = Истина;
           Ячейка.Картинка = БиблиотекаКартинок.ПроверитьПолучателейЭлектронныхПисем;
       Иначе
           Ячейка.ОтображатьКартинку = Ложь;
       КонецЕсли;
       
       //ЗапросКодыДокументовКПК.УстановитьПараметр("Объект", ДанныеСтроки.Ссылка);
       //РезультатЗапроса = ЗапросКодыДокументовКПК.Выполнить();
       //Если Не РезультатЗапроса.Пустой() Тогда
       //    Строка.Ячейки.КПК.ОтображатьКартинку = Истина;
       //    Строка.Ячейки.КПК.Картинка = БиблиотекаКартинок.ЗаголовокОтчета;
       //КонецЕсли;
       
       Документ = ДанныеСтроки.Ссылка;
       ИскомаяСтрока = ТаблицаОбщая.Найти(Документ);
       Если Не ИскомаяСтрока = Неопределено Тогда
           Если ИскомаяСтрока.Анулирован Тогда
               Строка.ЦветТекста = Новый Цвет(255, 0, 0);
           КонецЕсли;
           
           //ДанныеСтроки.СуммаОтгружена = ИскомаяСтрока.СуммаОтгружена;
           //ДанныеСтроки.СуммаОплачена = ИскомаяСтрока.СуммаОплачена;
           //
           Если ЗначениеЗаполнено(ИскомаяСтрока.УИД) Тогда
               Строка.Ячейки.КПК.ОтображатьКартинку = Истина;
               Строка.Ячейки.КПК.Картинка = БиблиотекаКартинок.ЗаголовокОтчета;
           КонецЕсли;
       КонецЕсли;

   КонецЦикла;
КонецПроцедуры - -  Типовая без моих доработок.


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

   //ЗапросКодыДокументовКПК = Новый Запрос;
   //ЗапросКодыДокументовКПК.Текст =
   //"ВЫБРАТЬ
   //|    КодыДокументовКПК.УИД
   //|ИЗ
   //|    РегистрСведений.КодыДокументовКПК КАК КодыДокументовКПК
   //|ГДЕ
   //|    КодыДокументовКПК.Объект = &Объект";
   
       ТекстЗапросаОбщий = "ВЫБРАТЬ
                       |    ЗаказПокупателя.Ссылка,
                       |    ВЫБОР
                       |        КОГДА ЕСТЬNULL(АнулированныеДокументы.Документ, 0) = 0
                       |            ТОГДА ЛОЖЬ
                       |        ИНАЧЕ ИСТИНА
                       |    КОНЕЦ КАК Анулирован,
                       |    КодыДокументовКПК.УИД,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.Сделка,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаУпрПриход КАК СуммаОплачена,
                       |    ВзаиморасчетыСКонтрагентамиОбороты.СуммаУпрРасход КАК СуммаОтгружена
                       |ИЗ
                       |    РегистрНакопления.ВзаиморасчетыСКонтрагентами.Обороты(, , , Сделка В (&СписокДокументов)) КАК ВзаиморасчетыСКонтрагентамиОбороты
                       |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЗаказПокупателя КАК ЗаказПокупателя
                       |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.АнулированныеДокументы КАК АнулированныеДокументы
                       |            ПО ЗаказПокупателя.Ссылка = АнулированныеДокументы.Документ
                       |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КодыДокументовКПК КАК КодыДокументовКПК
                       |            ПО ЗаказПокупателя.Ссылка = КодыДокументовКПК.Объект
                       |        ПО ВзаиморасчетыСКонтрагентамиОбороты.Сделка = ЗаказПокупателя.Ссылка";
                     
   ЗапросОбщий = Новый Запрос(ТекстЗапросаОбщий);
   ЗапросОбщий.УстановитьПараметр("СписокДокументов", СписокДокументов);
   ТаблицаОбщая = ЗапросОбщий.Выполнить().Выгрузить();
   
       
   СтруктураОтбора = Новый Структура("Заказ",);
   Для Каждого Строка Из ОформленияСтрок Цикл
       
       ДанныеСтроки = Строка.ДанныеСтроки;
       
       ЭтоФорма2 = ДанныеСтроки.Форма2;
       Если ЭтоФорма2 Тогда
           Строка.ЦветФона = ЦветаСтиля.ЦветФормы2;
       КонецЕсли;
       
       СтруктураОтбора.Заказ = ДанныеСтроки.Ссылка;
       СтатусРазблокировки = Ложь;
       ОтпускРазблокирован = РегистрыСведений.РазблокировкаЗаказов.СрезПоследних(,СтруктураОтбора);
       Если ОтпускРазблокирован.Количество() > 0 Тогда
           СтрокаТаблицы = ОтпускРазблокирован[0];
           СтатусРазблокировки = СтрокаТаблицы.ОтгрузкаРазрешена;
       КонецЕсли;
       
       Ячейка = Строка.Ячейки.Разблокирован;
       Если СтатусРазблокировки Тогда
           Ячейка.ОтображатьКартинку = Истина;
           Ячейка.Картинка = БиблиотекаКартинок.ПроверитьПолучателейЭлектронныхПисем;
       Иначе
           Ячейка.ОтображатьКартинку = Ложь;
       КонецЕсли;
       
       //ЗапросКодыДокументовКПК.УстановитьПараметр("Объект", ДанныеСтроки.Ссылка);
       //РезультатЗапроса = ЗапросКодыДокументовКПК.Выполнить();
       //Если Не РезультатЗапроса.Пустой() Тогда
       //    Строка.Ячейки.КПК.ОтображатьКартинку = Истина;
       //    Строка.Ячейки.КПК.Картинка = БиблиотекаКартинок.ЗаголовокОтчета;
       //КонецЕсли;
       
       Документ = ДанныеСтроки.Ссылка;
       ИскомаяСтрока = ТаблицаОбщая.Найти(Документ);
       Если Не ИскомаяСтрока = Неопределено Тогда
           Если ИскомаяСтрока.Анулирован Тогда
               Строка.ЦветТекста = Новый Цвет(255, 0, 0);
           КонецЕсли;
           
           ДанныеСтроки.СуммаОтгружена = ИскомаяСтрока.СуммаОтгружена; //Мiss1C
           ДанныеСтроки.СуммаОплачена = ИскомаяСтрока.СуммаОплачена;
           
           Если ЗначениеЗаполнено(ИскомаяСтрока.УИД) Тогда
               Строка.Ячейки.КПК.ОтображатьКартинку = Истина;
               Строка.Ячейки.КПК.Картинка = БиблиотекаКартинок.ЗаголовокОтчета;
           КонецЕсли;
       КонецЕсли;

   КонецЦикла;
КонецПроцедуры  - - Переделала запрос и добавила 2 колонки

(58) (63) Прочти пост с самого начала и найде мне строку где говорится про регистр накопления!!!!!!!

(65)Но при открытии формы быстродействие упало, и при пролистывании документов, 1С подсвапливает

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

(68)
Кто решил?

Вот что бывает, когда людям делать нечего.

(69)Начальник

(68) Ну делай регистр накопления. Ставь туда регистратора из исходного регистра.
Только чую я, не удастся сильно ускориться таким образом.

(71) Какой у тебя начальник.... хороший!

(73)Не то слово

(71)
Прикольно. Т.е. типовой регистр ВзаиморасчетыСКонтрагентом вы оборотным сделали (хотя он регистр остатков), а вот в процедуру проведения влезать нельзя :)
Уверена, что у этот регистр не остаточный?

Хотя тебе не остатки нужны

(68) Может, вы решили сделать регистр сведений с "кешем" информации по оборотам?

(74) К такому бы начальнику еще б серединник и конечник соответствующие. Вообще ништяк было бы.
Ну делай подписку, раз начальник решил. Чего уж теперь.

(75) на основании регистра остатков формируется три виртуальных таблицы. угадай какие

(79)
Кули угадывать? ТС написала "оборотный" регистр, что я сразу пошел проверять

(80) Она много чего пишет... сначала она говорила про регистр сведений вотздесь (23) потом оказалось что я тупой, потому что в регистре сведений нету режима записи...

ТС троллит, хотя тема выбрана достаточно остроумно, но тем не менее - троллит!!! Имхо

(68) На какое событие?....

(77) +1
ИМХО, тут нужен непериодический независимый регистр сведений.
Вопрос только в какой момент туда писать данные о суммах оплаты и отгрузки.

А есть еще вариант для начала переписать дебилистические запросы из (65).
Почему, например, статус ОтпускРазблокирован не получить тоже в запросе, а не использовать для этого объектные методы СрезПослених?
вот это я вообще не понял:

"ВЫБОР
|  КОГДА ЕСТЬNULL(АнулированныеДокументы.Документ, 0) = 0
|     ТОГДА ЛОЖЬ
|    ИНАЧЕ ИСТИНА
|  КОНЕЦ КАК Анулирован

бред какой-то.

(74) Блин всегда верил что в Киеве самые мега спецы Украины собрались, а попадаются такие шо мне по сравнению с ними не стыдно)))
А не проще сделать обработку журнал документов, что бы скорость нормальная была?

(77)+

(84) На Украине самые красивые девчины, это факт !

(86)Спасибо, но это не новость)

(87) на самом деле вот как правильно:
http://s1.ipicture.ru/uploads/20120918/N76SBNUf.png

(88)У меня 8.1

обновись

(90)Не было такого задания)

(91)
За дополнительную инициативу попросишь бонус

(81) (23) не она написала, так что да, ты тупой... Ну не тупой, просто невнимательный...

2(88) Не стыдно врать девушкам? Тем более в фотошопе?

(94)
С чего ты взял, что это девушка ? :)

(85)Он вас не спасет, напишите нормально запрос и не надо регистров

2(95) так я и думал, что насчет вранья никто оправдываться не станет...

(97)
Я?

(97)Так это не он был))

100

2(99) я заметил. и то что ты не стал, тоже заметил. :)

(99)
Ископаемым джентельменам пофиг от кого защищать :)

(101)что не стал?

(28) Если такой умный и внимательный то почему задал такой тупой вопрос и решил что я говорю о РН ?

(0) Да

(102) ага, мутный ископаемый воду мутит

2(104) а о чем же ты говорил, родной?

2(104) понятно что ты говорил о РС - и именно поэтому я сказал что ты говоришь ЧЕТВЕРТЬправду. если учесть что есть еще РН, РБ и РР, а о каком регистре ты ведешь речь, и с чего ты взял что у автора именно РС и ей как-то поможет твоя подсказка ты не сказал.

в бощем все тебя тут запомнили, и веры тебе отныне на четверть. :)