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

Хранилище

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

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



> ПередНачаломДобавления, копирование строки ТЧ          
logist Подменю пользователя
сообщение 04.04.12, 19:37
Сообщение #1

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

Вопрос возможно до ужаса детский smile.gif
Нужно при копировании строки, в новой очистить пару реквизитов. Как это сделать?

Вариант типа
Отказ = Истина;
НоваяСтрока = Объект.ТЧ.добавить();
ИсхСтрока = Элементы.ТЧ.ТекущиеДанные;
НоваяСтрока.Реквизит1 = ИсхСтрока.Реквизит1;
<...>

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

1С:Предприятие 8.2 (8.2.15.289)


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

Vofka Подменю пользователя
сообщение 04.04.12, 19:59
Сообщение #2

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

В вопросе сказано очистить, а в коде сказано скопировать. Вот для скопировать:

НоваяСтрока = Объект.ТЧ.добавить();
ИсхСтрока = Элементы.ТЧ.ТекущиеДанные;
Для Каждого Колонка ИЗ Объект.ТЧ.Колонки Цикл
   НоваяСтрока[Колонка.Имя] = ИсхСтрока[Колонка.Имя];
КонецЦикла;


Для удалить, я думаю, сообразите smile.gif

Сообщение отредактировал Vofka - 04.04.12, 19:59

Ardi Подменю пользователя
сообщение 04.04.12, 20:01
Сообщение #3

Живет на форуме
***********
Гений телепатии и социального моделирования
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0

ТабличноеПоле.ПередНачаломДобавления (TableBox.BeforeAddRow)
ТабличноеПоле (TableBox)
ПередНачаломДобавления (BeforeAddRow)
Синтаксис:
ПередНачаломДобавления(<Отказ>, <Копирование>)
Параметры:
<Отказ>
Тип: Булево. Признак отказа от добавления строки. Если в теле процедуры-обработчика установить данному параметру значение Истина, строка не будет добавлена.
Значение по умолчанию: Ложь
<Копирование>
Тип: Булево. Определяет режим копирования. Если установлено Истина, то происходит копирование строки.
Описание:
Возникает перед началом интерактивного добавления строки.


Signature
Услуги 1С программиста 8.2, 7.7 (Плохо, дорого, очередь). Киев.

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

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

Vofka это всё хорошо, я сначала рассматривал именно такой вариант, только в Управляемом у ТабЧасти нет "Колонки"...


Ardi спасибо что так низко оценили мои знания, но синтаксис-помощником я умею пользоваться.


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

Vofka Подменю пользователя
сообщение 04.04.12, 20:37
Сообщение #5

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Цитата(logist @ 04.04.12, 21:12) *
только в Управляемом у ТабЧасти нет "Колонки"

Бросайте наконец этот управляемый интерфейс smile.gif

logist Подменю пользователя
сообщение 04.04.12, 21:25
Сообщение #6

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

Цитата(Vofka @ 04.04.12, 21:37) *
Бросайте наконец этот управляемый интерфейс smile.gif

это разговор для отдельной темы, но если есть спрос, зачем бросать.


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

Small sa Подменю пользователя
сообщение 05.04.12, 7:57
Сообщение #7

Говорящий
***
Группа: Пользователи
Сообщений: 52
Из: Санкт-Петербург
Спасибо сказали: 12 раз
Рейтинг: 0

[необходимо зарегистрироваться для просмотра ссылки]

Спасибо сказали: logist,

MATEVI Подменю пользователя
сообщение 05.04.12, 9:25
Сообщение #8

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2203
Из: Одесса
Спасибо сказали: 968 раз
Рейтинг: 796.3

Цитата(Vofka @ 04.04.12, 21:37) *
Бросайте наконец этот управляемый интерфейс

Как это бросайте icon_cuss.gif Я только начал например smile.gif Пишу "нетленку"

Я вот такое изобрел. Копирую выборочные реквизиты строки.
&НаСервере
Процедура СкопироватьРеквизитыСтроки(ИсхНом,НовНом)

    ТекСтрока = Объект.Оплата.НайтиПоИдентификатору(ИсхНом-1);
    НовСтрока = Объект.Оплата.НайтиПоИдентификатору(НовНом-1);
    
    СтруктураРеквизитовКопирования = Новый Структура("Валюта,Курс,Кратность,Сумма");
    ТабличныеЧасти = Метаданные.Документы.ПриходныйКассовыйОрдер.ТабличныеЧасти.Оплата;
    
    Для каждого Реквизит ИЗ ТабличныеЧасти.Реквизиты  Цикл
        
        Если СтруктураРеквизитовКопирования.Свойство(Реквизит.Имя) Тогда            
            НовСтрока[Реквизит.Имя] = ТекСтрока[Реквизит.Имя];                
        КонецЕсли;

    КонецЦикла


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

&НаКлиенте
Процедура ОплатаПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
    
    Отказ=Истина;

    Если Копирование Тогда
        
        СтрокаТЧ    = Элементы.Оплата.ТекущиеДанные;
        НовСтр      = Объект.Оплата.Добавить();

        СкопироватьРеквизитыСтроки(СтрокаТЧ.НомерСтроки,НовСтр.НомерСтроки);    
        
    КонецЕсли;


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


Единственный момент что после удаления строки. Вылетает. Надо или записывать или что то я не учел.
Проверять на неопределено и выходить думаю не подходит.

logist Подменю пользователя
сообщение 14.04.12, 13:42
Сообщение #9

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

Все спасибо за помощь, решение оказалось простым:
ЗаполнитьЗначенияСвойств(Приемник, Источник,, СписокИсключений);


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

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


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

 

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