Проведение в 1С:7.7

[Anonym]

Всем приветы.
Вопрос на первый взгляд глупый
Существует самописная база на Комплекснйо платформе. Впринципе когда писал, то все хранилось и получалось из документов. Тут давече решил всё-же пропробовать записать некоторые занчения в регистры. Но неожиданно выдается сообщение "Движения регистров не могут выполнятся у данного объекта".
В первую очередь были проверены флаги в данном документе (Разрешить проведение документа).

Судя по всему не учел какие-то ограничения по ресурсам или измерениям.
Но что?
Какие есть ограничения??

[Naumov]

Там же где флаг "Разрешить проведение документа"
нужно поставить флаг "Оперативный учет"

[ЛеКа]

Там же где флаг "Разрешить проведение документа"
нужно поставить флаг "Оперативный учет"

Немного не там (это в свойствах документа), а в том месте, где ставится флажок "Бухгалтерский учет"

[Aquad]

ЛеКа,

А причем здесь Бухучет ?!

Регистры - есть ОперУчет

[Аноним]

Уф-фф ... разобрался. Нда .... пытался сделать ДвижениеПриходВыполнить() на объект, созданный методом СоздатьОбъект()

Тут дальше вопрос возник. Ну вроде бы (тьфу-тьфу-тьфу) проведение прошло. Сделан отчетик, и теперь нужно на основе строк из ТаблицыЗначений постоить запрос в регистр. Т.е. задав параметры всех измерений получить значение ресурсов.
Регистр остатков.
Измерений 5 (меньше ну никак не выходит).

Какой метод можно использовать при условии что это все будет в цикла по ТаблицеЗначений??

[ЛеКа]

ЛеКа,

А причем здесь Бухучет ?!

Регистры - есть ОперУчет

Я имела ввиду, что флажок "Оперативный учет" находится не там, где "Разрешить проведение", т.е. в свойствах документа, а там, где и флажок "Бухгалтерский учет"

[Aquad]

ЛеКа

Тогда понятно !

Вопрос: Что вы хотите получить в результате ?
Методов много !

[Naumov]

ЛеКа, Я что-то не понял причину поправки.
ТОварищ уже нашел галку, на которую я сослался, ибо нужная ему находится в том же диалоговом окне...........

[Аноним]

Можно на ты.

Суть проблемы в следущем. Существует два независимых регистра.
Информация в них частично пересекается поэтому один вполне может служить контрольным значением для другого.
Оба - регистры остатков.
Отчет по нескольким измерениям выводит остатки одного из регистров в ТаблицуЗначений. Теперь мне нужно из второго, получить/дописать контрольное значение под каждую строку.
(строк в ТЗ от 260 до 4000).
Если первая часть (получение остатков из одного регистра) срабатывает, то вторая (Организовав цикл по строкам значение каждой строки использовать в запросе ко второму регистру)
Пробовал различные методы. В лучшем случае находит значения под первые две строчки (в случае организации второго цикла внутри и простого условия Если A=B Тогда.... ), а потом тишина.
Временный расчет делается.
РассчитатьРегистрыНа(ТекущаяДата()) тоже.

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

[Aquad]

Аноним,

Модуль в студию ... будем разбираться, почему тишина !

[Naumov]

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

Не хороше решение, может всетаки нужный столбец из Таблицы значений (ТЗ) в список значений и использовать список ка условие для единственного запроса. А потом уже в цикле по строкам ТЗ используя метод получить с соответствующими параметрами получать нужное значение?
p.s. Из вопроса я не очень понял что хочеться получить. Может Выложить текст - мы подкорректируем.

[Аноним]

Выкладываю, не судите слишком строго. Первый опыт работы с регистрами все-таки

СпрВГТД = СоздатьОбъект("Справочник.ВГТД");
СпрВГТД = СоздатьОбъект("Справочник.ПГТД");
РассчитатьРегистрыНа(ТекущаяДата());
СпрВГТД.ВыбратьЭлементы();
Пока СпрВГТД.ПолучитьЭлемент() = 1 Цикл
Если СпГТД.НайтиЗначение(СокрЛП(СпрВГТД.Наименование)) = 1 Тогда
ФТ1 = СпрВГТД.ТекущийЭлемент();
РегПотерь.ВременныйРасчет();
РегПотерь.УстановитьЗначениеФильтра(СокрЛП("ВГТД"),ФТ1);
РегПотерь.ВыбратьДвижение();
Пока РегПотерь.ПолучитьДвижение() = 1 Цикл
Таб.НоваяСтрока();
Таб.Танкер = РегПотерь.танкер+", "+РегПотерь.ДатаБЛ;
Таб.ГТД = СокрЛП(РегПотерь.ВГТД);
Таб.ПГТД = СокрЛП(РегПотерь.ПГТД)
Таб.НомерЖД = РегПотерь.ЖД;
Таб.ДатаЖД = РегПотерь.ДатаЖД;
таб.НомерЦистерны = РегПотерь.НомерЦистерны;
таб.БруттоГо = РегПотерь.БруттоГо;
Таб.НеттоГо = РегПотерь.НеттоГо;
Таб.ПотериБруттоП1 = РегПотерь.БруттоП1;
Таб.ПотериНеттоП1 = регПотерь.НеттоП1;
Таб.ПотериНеттоП2 = РегПотерь.НеттоП2;
КонецЦикла;
КонецЕсли;
КонецЦикла;


регСтанции.ВременныйРасчет();
РегСтанции.ОстаткиПолучить();
Таб.ВыбратьСтроки();
Пока таб.ПолучитьСтроку() = 1 Цикл
регСтанции.УстановитьЗначениеФильтра("НомерЖД",Таб.НомерЖД,1);
регСтанции.ВыбратьДвижение();
Пока регСтанции.ПолучитьДвижение() = 1 Цикл
Если (регСтанции.ВГТД = Таб.ВГТД) и
(РегСтанции.НомерЖД = таб.НомерЖД) и
(регСтанции.номерЦистерны = таб.НомерЦистерны) Тогда
Таб.Брутто1 = регСтанции.БруттоГО;
Таб.Нетто1 = регСтанции.неттоГо;
КонецЕсли;
КонецЦикла;
КонецЦикла;


И ещё один вопросик. Какой шрифт при попытке copy/past из модуля в Блокнот, Ворд и т.д. не превращаетя в псевдосимволы?
А то так набирать кусок модуля немного напряжно.

[Аноним]

P.S.
как видно из текста в качестве параметров запроса к регистру выступают несколько значений. Наверное стоит все таки описать измерения и ресурсы.
РегПотерь
Измерения:ВГТД, ПГТД, НомерЖД, НомерЦистерны
Ресурсы: БруттоГо, НеттоГо, БруттоП1, неттоП1, неттоП2

регСтанции
Измерения: Станция, ВГТД, НомерЖД, НомерЦистерны,
Ресурсы: БруттоГо, НеттоГо

[Aquad]

ещё один вопросик. Какой шрифт при попытке copy/past из модуля в Блокнот, Ворд и т.д. не превращаетя в псевдосимволы?
А то так набирать кусок модуля немного напряжно.

Когда нажимаете copy - смотрите, что бы тек раскладка была русская ...