Подскажите, пож-ста, в рс должна попадать лишь одна запись за период получается (истина)т.е запись провел и должен сработать счетчик-запись с отбором по фильму/кинотеатру/количеству мест-в виде А/кинос/1, второй раз провел-запись формата А/Кинос/2 и т.д. 3, 4, 5 с утра туплю очень сильно не серчайте)
НаборЗаписей=РегистрыСведений.проданнобилетов.СоздатьНаборЗаписей();
    Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
    Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);
    НоваяЗапись=НаборЗаписей.Добавить();
    новаязапись.период=дата;
    НоваяЗапись.Кинотеатр=Кинотеатр;
    НоваяЗапись.фильм=фильм;
    //место=этотобъект.Место;
    //Пока место>-1 цикл ??счетчик?
        место=0;
        
    НоваяЗапись.количествомест= место+1;
    //конеццикла;
    НаборЗаписей.Записать(истина);
   //очисть после записи в РС
    ЭтотОбъект.место = неопределено;
    этотобъект.Ряд=неопределено;
    этотобъект.Сумма=неопределено;

РегистрыСведений.проданнобилетов - надеюсь так не будешь сдавать? с ошибками даже имена регистров, не позорь сообщество 1с, с одной "Н" слово продано!

Да и судя по задаче - классический регистр накопления должен быть, оборотный...

лень пока исправлять..

дело в том, что я через обработку делаю-без проведения документов

(0) Это оборотным регистром делается. Сведениями можно активные сеансы.

ну сделай запрос к регистру сначала, посчитай сколько уже мест, потом нужную цифру и пиши в регистр

ок-спасибо, меняю все на ложь и пусть потом считают)каждую запись -1, 1, 1)

(7) лучше перепроектируй систему, кривая реализация, чесно. Оборотные регистры, документы и т.д.

(4) Очень зря. Обработкой или нет - но событие покупки билетов должно фиксироваться документом.
Вообще, если немножко подумать...
Тогда регистр должен быть
1) остаточный регистр. На него закидываются места и по мере покупки списываются. Потом закрытие некупленных. Зато при любых нагрузках работа с актуальными местами будет быстрой.
2) оборотный регистр для нормального анализа и отчетности. Типа регистра продаж.

это все от кривого задания

а, точно нельзя никакой счетчик впихнуть?

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

начальник запретил документы

(11) ну где ты его хранить то будешь?

я на обучение просто

(13) ну и словите проблем, собственно уже сейчас ловите совершенно дурацкие проблемы

(11) > (6), что не получается то?

(2) имхо нужна просто сетка мест с признаком занято/свободно по каждому сеансу.

у меня все работает-хотелось улучшить

кстати, за советы перемоделировать-спасибо, подумаю на досуге!

(19) Метод набора записей "Прочитать" тебя спасет. Добавляешь в сабжевый код для получения старого значения.

хм..получить старое значение и + 1, так?

(22) Вот ты и смог описать алгоритм работы счетчика.

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

мы простых путей не ищем-только так "по дальней прокси через Китай"))

(25) Речь не о простых путях. Речь о подходах. С таким подходом можно только однопользовательскую систему реализовать, да и то с кучей оговорок. Как только появится второй кассир - всё. Сливай воду.

Подскажите пож-ста, вопрос такой, у меня есть записи в регистре сведений,в формате кинотеатр/фильм/кол-во мест,при продаже-продается один билет,в определенном кинотеатре на определенный фильм. Запись в регистре должна быть всего одна(истина). но при каждой так сказать"проводке" делаю через обработку без документов(так нужно, уж простите) количество мест увеличивается с шагам +1. В коде сначала сделал записи в регистр сведений, потом методом Прочитать() перебрал в цикле, и выбрал запись-вот тут проблема-место увеличивается лишь 1 раз, если сново провести за тот же период в том же кинотеатре и на тот же фильм-запись не меняется..
//запись по колличеству билетов
      НаборЗаписей=РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
      Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
      Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);
      НоваяЗапись=НаборЗаписей.Добавить();
      новаязапись.период=дата;
      НоваяЗапись.Кинотеатр=Кинотеатр;
      НоваяЗапись.фильм=фильм;
      НоваяЗапись.количествомест=1;
      НаборЗаписей.Записать();
      //изменитькол-во билетов
      НаборЗаписей = РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
      Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
      Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);

      НаборЗаписей.Прочитать();

Для Каждого Запись Из НаборЗаписей Цикл

// Чтение и сообщение данных полей записи.
Сообщить(Строка(Запись.Период) + " " + Строка(Запись.кинотеатр) + " " + Строка(Запись.фильм)+" "+строка(запись.количествомест));

// Изменение данных полей записи.
      
Запись.количествомест =запись.количествомест+1 ;

КонецЦикла;

а где Записать()  ?

//запись по колличеству билетов
    НаборЗаписей=РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
    Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
    Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);
    НоваяЗапись=НаборЗаписей.Добавить();
    новаязапись.период=дата;
    НоваяЗапись.Кинотеатр=Кинотеатр;
    НоваяЗапись.фильм=фильм;
    НоваяЗапись.количествомест=1;
    НаборЗаписей.Записать();
    //изменитькол-во билетов
    НаборЗаписей = РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
    Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
    Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);

    НаборЗаписей.Прочитать();

Для Каждого Запись Из НаборЗаписей Цикл

// Чтение и сообщение данных полей записи.
Сообщить(Строка(Запись.Период) + " " + Строка(Запись.кинотеатр) + " " + Строка(Запись.фильм)+" "+строка(запись.количествомест));

// Изменение данных полей записи.
    
Запись.количествомест =запись.количествомест+1 ;

КонецЦикла;

НаборЗаписей.Записать();

все есть..

(30) в 1с есть регистр: называется регистр сведений. Его основная фишка - каждому набору измерений соответствует ровно одна запись. У вас какие там измерения в вашем регистре?

кинотеатр и фильм, ресур-колвомест

Для Каждого Запись Из НаборЗаписей Цикл
   Запись.количествомест =запись.количествомест+1 ;
   Запись.Период=дата;
   запись.Кинотеатр=кинотеатр;
   запись.Фильм=фильм;
   Запись.Записать(истина);
КонецЦикла;     
если в цикле делать ругаеться на метод записать()

может запись.наборзаписей.записать()

Регистр периодический? А на струя?

делаю иначе-
НаборЗаписей = РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
    Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
    Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);

    НаборЗаписей.Прочитать();
    Если НаборЗаписей.Количество() = 0 Тогда
    НоваяЗапись=НаборЗаписей.Добавить();
    новаязапись.период=дата;
    НоваяЗапись.Кинотеатр=Кинотеатр;
    НоваяЗапись.фильм=фильм;
    НоваяЗапись.количествомест=1;

    ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
    Запись.КоличествоМест=запись.КоличествоМест+1;
   Запись.Период=дата;
   запись.Кинотеатр=кинотеатр;
   запись.Фильм=фильм;
    
            КонецЕсли;
            НаборЗаписей.Записать(истина);

первую запись по условие добавляет, а по второму условию ругаеться
{Обработка.Обработка2.Форма.Форма1.Форма(53)}: Поле объекта не обнаружено (КоличествоМест)
    Запись.КоличествоМест=запись.КоличествоМест+1;
хотя запись в рс сохранилась

(37) Почему Запись.КоличествоМест, а не НаборЗаписей[0].КоличествоМест

НаборЗаписей = РегистрыСведений.проданобилетов.СоздатьНаборЗаписей();
    Наборзаписей.Отбор.Фильм.Установить(ЭтотОбъект.фильм);
    Наборзаписей.Отбор.Кинотеатр.Установить(ЭтотОбъект.Кинотеатр);

    НаборЗаписей.Прочитать();
    Если НаборЗаписей.Количество() = 0 Тогда
    НоваяЗапись=НаборЗаписей.Добавить();
    новаязапись.период=дата;
    НоваяЗапись.Кинотеатр=Кинотеатр;
    НоваяЗапись.фильм=фильм;
    НоваяЗапись.количествомест=1;

ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
    новаязапись=наборзаписей[0];
    НоваяЗапись=НаборЗаписей.Добавить();
    количествомест=новаязапись.КоличествоМест;
       НоваяЗапись.количествомест=запись.КоличествоМест+1;
    
            КонецЕсли;
            НаборЗаписей.Записать(истина);

(39) А зачем добавлять если она уже есть?
ИначеЕсли НаборЗаписей.Количество() = 1 Тогда
    наборзаписей[0].количествомест = наборзаписей[0].КоличествоМест+1;
КонецЕсли;

спасибо  V01tk2010 работает..