Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Вопрос по табличной части документа          
СветланаТ. Подменю пользователя
сообщение 28.06.12, 12:05
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 7
Спасибо сказали: 0 раз
Рейтинг: 0

Добрый день. у меня такой вопрос: в ТЧ я создала реквисит МойНомер, который должен заполнятся как Предыдущий номер+1, если КоличествоСтрок в таблице<>0.
&НаКлиенте
Процедура ТабличнаяЧастьПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
если Объект.ТабличнаяЧасть.Количество()<>0 тогда
     отказ=истина;
     НоваяСтрока = Объект.ТабличнаяЧасть.Добавить();
     ИсхСтрока = Элементы.ТабличнаяЧасть.ТекущиеДанные;
     НоваяСтрока.Номер=ИсхСтрока.Номер+1;
     Элементы.ТабличнаяЧасть.ТекущаяСтрока=Элементы.ТабличнаяЧасть.ТекущаяСтрока + 1;
    конецесли;
конецесли;    

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

Тут все работает, но если активна не последняя строка, то прибавляет к активной. какнайти именно последнюю строку и новый номер считать от неё?

logist Подменю пользователя
сообщение 28.06.12, 12:18
Сообщение #2

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2539 раз
Рейтинг: 0

зачем Вам это нужно, если у ТЧ есть стандартный реквизит "НомерСтроки"?


Цитата
какнайти именно последнюю строку и новый номер считать от неё?

вероятно так:
&НаКлиенте
Процедура ТабличнаяЧастьПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Если Объект.ТабличнаяЧасть.Количество() Тогда
Отказ = Истина;
НоваяСтрока = Объект.ТабличнаяЧасть.Добавить();
НоваяСтрока.МойНомер = Объект.ТабличнаяЧасть.Количество()+1;
КонецЕсли;    

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


Сообщение отредактировал logist - 28.06.12, 12:20


Signature
Личные бесплатные консультации не даю, для этого есть форум!

СветланаТ. Подменю пользователя
сообщение 28.06.12, 12:39
Сообщение #3

Молчаливый
*
Группа: Пользователи
Сообщений: 7
Спасибо сказали: 0 раз
Рейтинг: 0

стандартный реквизит руками нельзя править пользователю

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

logist Подменю пользователя
сообщение 28.06.12, 12:54
Сообщение #4

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2539 раз
Рейтинг: 0

Цитата(СветланаТ. @ 28.06.12, 13:05) *
какнайти именно последнюю строку

Цитата(СветланаТ. @ 28.06.12, 13:39) *
который пользователь ввел в первой строке

Ничего не понятно...


&НаСервере
Функция ПолучитьНовыйМойНомер()
КолонкаМойНомер = Объект.ТабличнаяЧасть.Выгрузить(,"МойНомер");
КолонкаМойНомер.Сортировать("МойНомер Убыв");

Возврат КолонкаМойНомер[0].МойНомер + 1;
КонецФункции

&НаКлиенте
Процедура ТабличнаяЧастьПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Если Объект.ТабличнаяЧасть.Количество() Тогда
Отказ = Истина;
НоваяСтрока = Объект.ТабличнаяЧасть.Добавить();
НоваяСтрока.МойНомер = ПолучитьНовыйМойНомер();
КонецЕсли;    

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


Signature
Личные бесплатные консультации не даю, для этого есть форум!

СветланаТ. Подменю пользователя
сообщение 28.06.12, 13:21
Сообщение #5

Молчаливый
*
Группа: Пользователи
Сообщений: 7
Спасибо сказали: 0 раз
Рейтинг: 0

Спасибо огромное за помощь. все заработало:)

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 15.06.25, 2:19
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!