Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Другие решения на платформе "1С:Предприятие 8"]

Копирование реквизит элемента один в другую

Prikum
активный пользователь
онлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №31
 
11.09.2012 10:48

Вообще то я говорил про то что тебе пишут на форуме. Я просил привести свой код полностью и посмотри тот код что я привел из типовой, он явно отличается от твоего куска, который работать не будет.

EL Khan
читатель
офлайн
Дата регистрации: 10.02.2012
Сообщений: 92
Пост №32
 
11.09.2012 10:57

"вы написали<br> <br><pre>ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();             ТекЗапись.Владелец       = Ссылка;       ТекЗапись.ЕдиницаИзмерения = ЕдиницаХраненияОстатков;       ТекЗапись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;       ТекЗапись.Качество       = Справочники.Качество.Новый;       ТекЗапись.Штрихкод       = РаботаСТорговымОборудованием.СформироватьШтрихКод();       Попытка       ТекЗапись.Записать();       Исключение       ОбщегоНазначения.СообщитьОбОшибке("Ошибка при записи штрихкода: " + ИнформацияОбОшибке().Описание);       КонецПопытки; </pre><br><br> <br>но в моей 8.1 нет такого Измерения как ТекЗапись.Качество. потом объясните пожалуйста, что это РаботаСТорговымОборудованием.СформироватьШтрихКод(); ШК же у меня в реквизите Номенклатура"

Prikum
активный пользователь
онлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №33
 
11.09.2012 11:00

Ладно, я больше не буду тебя терзать, не хочешь думать, не надо! Я же уже говорил, что не собираюсь за тебя писать код, пример тебе привел, осталось просто немного подумать и подставить свои значения, тем более что опять не привел код все своей процедуры.

EL Khan
читатель
офлайн
Дата регистрации: 10.02.2012
Сообщений: 92
Пост №34
 
11.09.2012 11:23

"вот<br> <br> <br><pre>Процедура КнопкаВыполнитьНажатие(Кнопка)//делаю отборЗапрос = Новый Запрос;Запрос.Текст =        "ВЫБРАТЬ| Номенклатура.Ссылка|ИЗ| Справочник.Номенклатура КАК Номенклатура|ГДЕ| Номенклатура.Ссылка " +?(ВГруппеИлиРавно="равно","=&Ссылка", "В ИЕРАРХИИ (&Ссылка)"); Запрос.УстановитьПараметр("Ссылка",Товар); Результат = Запрос.Выполнить().Выбрать(); Пока Результат.Следующий() ЦИКЛСсылка = Результат.Ссылка;Сообщить(Ссылка.Наименование); Если Ссылка.ЭтоГруппа Тогда Продолжить;КонецЕсли;// тут пытаюсь записатьТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();       ТекЗапись.Владелец                         = Справочник.<Номенклатура.Наименование>; ТекЗапись.ЕдиницаИзмерения       = ЕдиницаХраненияОстатков; ТекЗапись.ТипШтрихкода                  = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128; ТекЗапись.ПредставлениеШтрихкода = Справочники.<Номенклатура.Штрихкод>; ТекЗапись.Штрихкод                         = РаботаСТорговымОборудованием.СформироватьШтрихКод();      Попытка       ТекЗапись.Записать(); Исключение       ОбщегоНазначения.СообщитьОбОшибке("Ошибка при записи штрихкода: " + ИнформацияОбОшибке().Описание); КонецПопытки;КонецПроцедуры </pre>"

Prikum
активный пользователь
онлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №35
 
11.09.2012 11:34

"<pre>Процедура КнопкаВыполнитьНажатие(Кнопка)<br><br>//делаю отбор<br><br>// непонятно зачем делать отбор, если в процедуре доступен сам "Товар"<br>//<br>//<br><br>Запрос = Новый Запрос;<br>Запрос.Текст =             "ВЫБРАТЬ<br>|      Номенклатура.Ссылка<br>|ИЗ<br>|      Справочник.Номенклатура КАК Номенклатура<br>|ГДЕ<br>|      Номенклатура.Ссылка " +?(ВГруппеИлиРавно="равно","=&Ссылка", "В ИЕРАРХИИ (&Ссылка)");       <br>Запрос.УстановитьПараметр("Ссылка",Товар);       <br>Результат = Запрос.Выполнить().Выбрать();       <br>Пока Результат.Следующий() ЦИКЛ<br>//Ссылка = Результат.Ссылка;<br> // Надо так :<br> Номенклатура = Результат.Ссылка.ПолучитьОбъект();<br>//Сообщить(Ссылка.Наименование);             <br>Сообщить(Номенклатура)<br>Если Номенклатура.ЭтоГруппа Тогда       Продолжить;<br>КонецЕсли;<br><br>// тут пытаюсь записать<br><br>ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();       <br>ТекЗапись.Владелец                         = Номенклатура.ссылка; <br>ТекЗапись.ЕдиницаИзмерения       = ЕдиницаХраненияОстатков; // непонятно это откуда берется <br>ТекЗапись.ТипШтрихкода                  = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128; <br>ТекЗапись.ПредставлениеШтрихкода = Номенклатура.Штрихкод; <br>ТекЗапись.Штрихкод                         = Номенклатура.Штрихкод;<br>      Попытка       ТекЗапись.Записать(); <br>Исключение       ОбщегоНазначения.СообщитьОбОшибке("Ошибка при записи штрихкода: " + ИнформацияОбОшибке().Описание); <br>КонецПопытки;<br>КонецПроцедуры </pre><br><br> <br><pre> </pre><br><br>Запрос не смотрел."

EL Khan
читатель
офлайн
Дата регистрации: 10.02.2012
Сообщений: 92
Пост №36
 
11.09.2012 11:49

"с запросом нет проблем<br> <br><pre>// непонятно зачем делать отбор, если в процедуре доступен сам "Товар"</pre><br><br> <br>Товар - это Имя поле ввода<br> <br>на счет ЕдиницаХраненияОстатков <br> <br> <br><pre>НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();НайденнаяЕдиницаОбъект.Наименование            = БазоваяЕдиницаИзмерения.Наименование;НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения;НайденнаяЕдиницаОбъект.Коэффициент             = 1;НайденнаяЕдиницаОбъект.Владелец             = Ссылка;Попытка НайденнаяЕдиницаОбъект.Записать();Исключение Сообщить("Не удалось записать единицу: " + ОписаниеОшибки(), СтатусСообщения.Важное);Отказ = Истина;Возврат;КонецПопытки; </pre><br><br> <br>а все вместе, так<br> <br><pre>Процедура КнопкаВыполнитьНажатие(Кнопка)<br><br>Запрос = Новый Запрос;<br>Запрос.Текст =             "ВЫБРАТЬ<br>|      Номенклатура.Ссылка<br>|ИЗ<br>|      Справочник.Номенклатура КАК Номенклатура<br>|ГДЕ<br>|      Номенклатура.Ссылка " +?(ВГруппеИлиРавно="равно","=&Ссылка", "В ИЕРАРХИИ (&Ссылка)");       <br>Запрос.УстановитьПараметр("Ссылка",Товар);       <br>Результат = Запрос.Выполнить().Выбрать();       <br>Пока Результат.Следующий() ЦИКЛ<br>//Ссылка = Результат.Ссылка;<br> // Надо так :<br> Номенклатура = Результат.Ссылка.ПолучитьОбъект();<br>//Сообщить(Ссылка.Наименование);             <br>Сообщить(Номенклатура)<br>Если Номенклатура.ЭтоГруппа Тогда       Продолжить;<br>КонецЕсли;<br><br>// тут пытаюсь записать<br><br>НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент(); <br>НайденнаяЕдиницаОбъект.Наименование            = БазоваяЕдиницаИзмерения.Наименование; <br>НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = БазоваяЕдиницаИзмерения; <br>НайденнаяЕдиницаОбъект.Коэффициент             = 1; <br>НайденнаяЕдиницаОбъект.Владелец             = Ссылка;<br> Попытка <br>НайденнаяЕдиницаОбъект.Записать(); <br>Исключение <br>Сообщить("Не удалось записать единицу: " + ОписаниеОшибки(), СтатусСообщения.Важное); <br>Отказ = Истина; <br>Возврат; <br>КонецПопытки;<br><br>ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();       <br>ТекЗапись.Владелец                         = Номенклатура.ссылка; <br>ТекЗапись.ЕдиницаИзмерения       = НайденнаяЕдиницаОбъект.Ссылка; // беру ссылку из ранее записанного <br>ТекЗапись.ТипШтрихкода                  = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128; <br>ТекЗапись.ПредставлениеШтрихкода = Номенклатура.Штрихкод; <br>ТекЗапись.Штрихкод                         = Номенклатура.Штрихкод;<br>      Попытка       ТекЗапись.Записать(); <br>Исключение       ОбщегоНазначения.СообщитьОбОшибке("Ошибка при записи штрихкода: " + ИнформацияОбОшибке().Описание); <br>КонецПопытки;<br>КонецПроцедуры </pre>"

Prikum
активный пользователь
онлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №37
 
11.09.2012 11:52

"тут :<br>> НайденнаяЕдиницаОбъект.Владелец             = Ссылка;<br>надо:<br>НайденнаяЕдиницаОбъект.Владелец             = Номенклатура.Ссылка;"

EL Khan
читатель
офлайн
Дата регистрации: 10.02.2012
Сообщений: 92
Пост №38
 
11.09.2012 11:54

все, можно применять?

Prikum
активный пользователь
онлайн
Дата регистрации: 18.02.2002
Сообщений: 21001
Пост №39
 
11.09.2012 11:56

> все, можно применять?<br>Да откуда же я знаю? Попробуй и отпишись о результате.

EL Khan
читатель
офлайн
Дата регистрации: 10.02.2012
Сообщений: 92
Пост №40
 
11.09.2012 12:08

ошибок нет, ед изм записала, а ШК нет

Показывать по 10 20 40 сообщений

Читают тему:

2 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация