8.х Помогите решить задачу!

чето какая-то задача запутанная... если у вас флаг может изменяться только при определенном статусе документа, то почему вы это не используете? при записи делайте проверку в этом плане. если статус такой-то, то меняем флаг, если другой, то не трогаем

т.е. вы при записи каждого документа меняете данные справочника?

да, именно так (при записи каждого нового документа ставиться значение флага справочника). но с определёнными условиями.

как мне всётаки добиться записи в справочник тех абонентов которые есть ТЧ документа???

#20St88 не работает...!(

Code:

Для Каждого СтрокаВедомость Из Ведомость Цикл
АбонентВыб = СтрокаВедомость.Абонент.ПолучитьОбъект();
АбонентВыб.Флаг = Флаг;
АбонентВыб.Записать();

КонецЦикла;

перед записью надо получить элемент справочника как обект

Если я правильно поняла и СтрокаВедомость.Абонент - это ссылка на элемент справочника

Спасибо огромное, немного видоизменил ваш код и воуля - работает!)

Вот собственно чего надо было добиться и как оно работает:

Процедура ПриОткрытии()

МенятьФлаг = ложь;

Если состояниеДокумента = "Открыт" тогда
Флажок1 = ЛОЖЬ
иначеесли состояниеДокумента = "Архив" тогда
флажок1 = ИСТИНА
иначеесли состояниеДокумента = "" тогда
состояниеДокумента=перечисления.СостояниеДокВедомость.Открыт;
флажок1 = ЛОЖЬ
конецесли;
//// проверка на флажок занятости

Если состояниеДокумента = "Открыт" тогда
МенятьФлаг = истина
Иначеесли состояниеДокумента = "Архив" тогда
МенятьФлаг = Ложь ;

конецесли;



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

Процедура ПриЗаписи(Отказ)
Если состояниеДокумента = "Открыт" и менятьФлаг = истина тогда

////меняем
Для Каждого СтрокаВедомость Из Ведомость Цикл
АбонентВыб = СтрокаВедомость.Абонент.ПолучитьОбъект();
АбонентВыб.ФлагЗанятости = ИСТИНА;
АбонентВыб.Записать();

КонецЦикла;




конецесли;
Если состояниеДокумента = "Архив" и менятьФлаг = истина тогда

Для Каждого СтрокаВедомость Из Ведомость Цикл
АбонентВыб = СтрокаВедомость.Абонент.ПолучитьОбъект();
АбонентВыб.ФлагЗанятости = ЛОЖЬ;
АбонентВыб.Записать();

КонецЦикла;

конецесли;

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

но щас нашёл другой косяк, если ТЧ в документе очистить и записать документ, то ппц, абоненты которые там были и имеют флаг занято так и будут занятыми и никак не снимут с себя флаг и не попадут больше в ТЧ документа!((( как решить эту проблему? после записи запретить редактирование ТЧ? - не вариант, т.к. там есть колонки которые надо будет потом редактировать....(

у строки есть обработчики события ПриУдалении и После удаления. Если очищаете построчно, то можно ими воспользоваться

решил проблему другим путём, но всё равно спасибо!!!

Code:

Процедура ПриОткрытии()

МенятьФлаг = ложь;

Если состояниеДокумента = "Открыт" тогда
Флажок1 = ЛОЖЬ;
иначеесли состояниеДокумента = "Архив" тогда
флажок1 = ИСТИНА ;
ЭлементыФормы.Ведомость.ТолькоПросмотр=Истина;
ЭлементыФормы.Панель1.Доступность=Ложь;
ЭлементыФормы.Кнопка8.Доступность=Ложь;
ЭлементыФормы.Номер=ложь;
ЭлементыФормы.Дата=ложь;
ЭлементыФормы.Подразделение=ложь;
ЭлементыФормы.Флажок1=ложь;
иначеесли состояниеДокумента = "" тогда
состояниеДокумента=перечисления.СостояниеДокВедомость.Открыт;
флажок1 = ЛОЖЬ
конецесли;
//// проверка на флажок занятости

Если состояниеДокумента = "Открыт" тогда
МенятьФлаг = истина
Иначеесли состояниеДокумента = "Архив" тогда
МенятьФлаг = Ложь ;

конецесли;

Если НЕ ЭтоНовый() Тогда
ЭлементыФормы.Ведомость.Колонки.Абонент.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.Договор.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.Адрес.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.НаселенныйПункт.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.ПГ2.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.ПГ3.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.ПГ4.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.АОГВ.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.ВПГ.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.ОП.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.СГБ.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.Прочее.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.Всего.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.НачислСумма.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.Колонки.Датадоговора.ИзменятьПозицию = ложь;
ЭлементыФормы.Ведомость.ИзменятьСоставСтрок = Ложь;
конецесли;

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

Здравствуйте. Это вариант приняли, НО попросили по возможности переделать и подогнать под "общий принцип конфигураци".
Вот что рекомендовали: Решение с использованием флага занятости абонента, не верное... для таких случаев гораздо лучше подойдет регистр сведений. Документ должен делать по нему проводки. При отмене проведения движения удаляются... тем самым отпадает необходимость в постоянных изменениях флага занятости у абонента. То, есть что сейчас сделано не в соответствии с общепринятыми принципами...

с чего начать? как это организовать? помогите пожалуйста

да использование регистра сведений, думаю, существенно облегчит вам жизнь. Для начала вам надо определиться со структурой этого регистра (скорее всего он будет подчинен регистратору - вашему документу). Далее надо добавить в обработчик проведения ващего дока формирование движений по этому регистру...

Что конкретно у вас не получается при использовании регистра?

Опыта работы с регистрами сведений не было, сейчас буду разбираться.
Начинаю с создания нового регистра, тип ставлю переодический, создаю измерение Абонет и ресур Флаг (тип булево) так? а где задать регистратор?

спасибо за оперативную помощь)

а он у вас периодический?

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

+1, просто сейчас 1с закрыта...

ну там выбрал подчинён регистратору, а сам регистратор где выбрать?) и переодичность лучше ставить - секунды? (два пользователя заполняют одновременно ведомости, выбрали одних и тех же абонентов, кто на секунду раньше записал свою ведомость, того и абоненты, правильно?)..)

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

Итак:
Создал РегистрСведений. Там сделал Измерения - Абонент (тип справочник.ссылка.абоненты) и Ресурсы - ФлагЗанятости(тип булево). указал переодический ( один день).
В документе указал что движения идут по этому регистру и написал в модуле дока пока это:

Code:

Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр ФлагАбонентов
Если состояниеДокумента = "Открыт" и менятьФлаг = истина Тогда
Для Каждого ТекСтрокаВедомость Из Ведомость Цикл
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = ТекСтрокаВедомость.Абонент;
Движение.ФлагЗанятости = ИСТИНА;
КонецЦикла;
КонецЕсли;
//////////////////
Если состояниеДокумента = "Архив" и менятьФлаг = истина Тогда
Для Каждого ТекСтрокаВедомость Из Ведомость Цикл
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = ТекСтрокаВедомость.Абонент;
Движение.ФлагЗанятости = ЛОЖЬ;
КонецЦикла;
КонецЕсли;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

в правильном направлении иду?)

нее так не работает, исправил на это:

Code:

[Если состояниеДокумента = "Открыт" и менятьФлаг = истина Тогда
Для Каждого СтрокаВедомость Из Ведомость Цикл
АбонентВыб = СтрокаВедомость.Абонент.ПолучитьОбъект();
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = АбонентВыб;
Движение.ФлагЗанятости = ИСТИНА;
КонецЦикла;
КонецЕсли;
//////////////////
Если состояниеДокумента = "Архив" и менятьФлаг = истина Тогда
Для Каждого СтрокаВедомость Из Ведомость Цикл
АбонентВыб = СтрокаВедомость.Абонент.ПолучитьОбъект();
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = АбонентВыб;
Движение.ФлагЗанятости = ЛОЖЬ;
КонецЦикла;
КонецЕсли;

Ругается, мол типа уже есть записи от 13.11.2012г, хотя смотрю отчётом по регистру своему, записий нету. но до этого с первым вариантом движений, каждой строки было штук по 20...)))

Вот так работает и пишит и при отмене проведения всё удаляет из регистра, НО почему количество записей в регистр ОДНОГО абонента, равно колличеству строк в таблице???

т.е. если 20 строк в таблице, то в регистре, 20-ть ПЕТРОВЫх, 20-ть ИВАНОВЫХ и т.д.
где ошибка?(

Code:

Если состояниеДокумента = "Открыт" и менятьФлаг = истина Тогда
Для Каждого СтрокаВедомость Из Ведомость Цикл
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = СтрокаВедомость.Абонент;
Движение.ФлагЗанятости = ИСТИНА;
КонецЦикла;
КонецЕсли;
//////////////////
Если состояниеДокумента = "Архив" и менятьФлаг = истина Тогда
Для Каждого СтрокаВедомость Из Ведомость Цикл
Движение = Движения.ФлагАбонентов.Добавить();
Движение.Период = Дата;
Движение.Абонент = СтрокаВедомость.Абонент;
Движение.ФлагЗанятости = ЛОЖЬ;
КонецЦикла;
КонецЕсли;

пройдитесь отладчиком, посмотрите

а в табличной части Ведомость сколько записей по "Иванову" ? 20 ... ? тогда все правильно