Здравствуйте, форумчане!
Встал вопрос о ведении учета по ГТД и
вошел в ступор : Запись нового элемента в номенклатуре проходит безболезненно, а в подчиненный справочник СерийныеНомераНоменклатуры записываться не хочет: все время ошибка Поле Наименование недоступно для записи! Кто подскажет, что делать? Что я не так делаю?
Элем = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТабДок[н].Артикул);
Если Элем.Пустая() Тогда
Спр = Справочники.Номенклатура.СоздатьЭлемент();
Спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
Спр.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Спр.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмерения);
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ЦеноваяГруппа = Справочники.ЦеновыеГруппы.НайтиПоНаименованию(ЦеновыеГруппы);
Спр.ВестиУчетПоГТД = Истина;
Спр.Код = ТабДок[н].Артикул;
Спр.Наименование = ТабДок[н].Наименование;
Спр.Артикул = ТабДок[н].Артикул;
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ИспользоватьСерийныеНомера=Истина;
Спр.Родитель = Родитель.Ссылка;
Спр.Записать();
СпрСН = Справочники.СерийныеНомераНоменклатуры.СоздатьЭлемент();
СпрСН.Владелец = Спр.Ссылка;
СпрСН.Наименование = ТабДок[н].Наименование;
СпрСН.Код = ТабДок[н].НГТД;
СпрСН.Записать();
КонецЕсли;
Встал вопрос о ведении учета по ГТД и
вошел в ступор : Запись нового элемента в номенклатуре проходит безболезненно, а в подчиненный справочник СерийныеНомераНоменклатуры записываться не хочет: все время ошибка Поле Наименование недоступно для записи! Кто подскажет, что делать? Что я не так делаю?
Элем = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТабДок[н].Артикул);
Если Элем.Пустая() Тогда
Спр = Справочники.Номенклатура.СоздатьЭлемент();
Спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
Спр.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Спр.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмерения);
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ЦеноваяГруппа = Справочники.ЦеновыеГруппы.НайтиПоНаименованию(ЦеновыеГруппы);
Спр.ВестиУчетПоГТД = Истина;
Спр.Код = ТабДок[н].Артикул;
Спр.Наименование = ТабДок[н].Наименование;
Спр.Артикул = ТабДок[н].Артикул;
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ИспользоватьСерийныеНомера=Истина;
Спр.Родитель = Родитель.Ссылка;
Спр.Записать();
СпрСН = Справочники.СерийныеНомераНоменклатуры.СоздатьЭлемент();
СпрСН.Владелец = Спр.Ссылка;
СпрСН.Наименование = ТабДок[н].Наименование;
СпрСН.Код = ТабДок[н].НГТД;
СпрСН.Записать();
КонецЕсли;
По теме из базы знаний
- Учет штучных товаров, требующих уникального серийного номера
- "Учет серийных номеров" для типовой конфигурации УТ - доработанная версия
- Подбор номенклатуры из остатков на складе/в подразделении + Массовый ввод серийных номеров
- Учет товаров по сериям в типовых конфигурациях УТ 11.4, КА 2.4, ЕРП 2.4
- Копирование серийных номеров между документами и распределение между позициями товара
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
как вставлять в табл.часть документа (начальство требует) товар с одним артикулом и наименванием но разным номером гтд автоматической обработкой. Все время ругается такая позиция уже есть.
Кто знает?
>
Кому надо - решение предыдущего вопроса - заполнение номенклатуры, нгтд и серийныхномеровноменклатуры здесь:
Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, Ложь);
Если Группа.Пустая() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = КодГруппы;
Группа.Наименование = Фирма;
Группа.Записать();
ИначеЕсли Не Группа.ЭтоГруппа Тогда
Сообщить("Найден элемент справочника с указанным кодом!");
КонецЕсли;
КодЭлемента = ТабДок[н].IdФирмы;
//Заполнение справочника номенклатура
Родитель = Справочники.Номенклатура.НайтиПоКоду(КодЭлемента, Ложь);
Элем = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТабДок[н].Артикул);
Если Элем.Пустая() Тогда
Спр = Справочники.Номенклатура.СоздатьЭлемент();
Спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
Спр.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Спр.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмерения, Ложь);
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ЦеноваяГруппа = Справочники.ЦеновыеГруппы.НайтиПоНаименованию(ЦеновыеГруппы, Ложь);
Спр.ВестиУчетПоГТД = Истина;
Спр.Код = ТабДок[н].Артикул;
Спр.Наименование = ТабДок[н].Наименование;
Спр.НаименованиеПолное = ТабДок[н].Наименование;
Спр.Артикул = ТабДок[н].Артикул;
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ИспользоватьСерийныеНомера=Истина;
Спр.Родитель = Родитель.Ссылка;
Спр.Записать();
КонецЕсли;
// новый элемент в справочник НГТД
ЭлемНГТД = Справочники.НомераГТД.НайтиПоКоду(ТабДок[н].НГТД);
Если ЭлемНГТД.Пустая() Тогда
СпрНГТД = Справочники.НомераГТД.СоздатьЭлемент();
СпрНГТД.Код = ТабДок[н].НГТД;
СпрНГТД.СтранаПроисхождения = Справочники.СтраныМира.НайтиПоКоду(ТабДок[н].КодСтраны);
СпрНГТД.Записать();
КонецЕсли;
НовыйКод =ТабДок[н].Артикул + "-" + ТабДок[н].НГТД;
Если СтрДлина(НовыйКод)>50 Тогда
НовыйКод = Сред(НовыйКод, 1, 50);
КонецЕсли;
ЭлСпрСН = Справочники.СерийныеНомераНоменклатуры.НайтиПоКоду(НовыйКод,Ложь);
Если ЭлСпрСН.Пустая() Тогда
СпрСН = Справочники.СерийныеНомераНоменклатуры.СоздатьЭлемент();
СпрСН.Владелец = Спр.Ссылка;
СпрСН.Код = НовыйКод;
СпрСН.Записать();
КонецЕсли;
Кто знает?
>
Кому надо - решение предыдущего вопроса - заполнение номенклатуры, нгтд и серийныхномеровноменклатуры здесь:
Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, Ложь);
Если Группа.Пустая() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = КодГруппы;
Группа.Наименование = Фирма;
Группа.Записать();
ИначеЕсли Не Группа.ЭтоГруппа Тогда
Сообщить("Найден элемент справочника с указанным кодом!");
КонецЕсли;
КодЭлемента = ТабДок[н].IdФирмы;
//Заполнение справочника номенклатура
Родитель = Справочники.Номенклатура.НайтиПоКоду(КодЭлемента, Ложь);
Элем = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТабДок[н].Артикул);
Если Элем.Пустая() Тогда
Спр = Справочники.Номенклатура.СоздатьЭлемент();
Спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
Спр.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Товар;
Спр.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ЕдИзмерения, Ложь);
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ЦеноваяГруппа = Справочники.ЦеновыеГруппы.НайтиПоНаименованию(ЦеновыеГруппы, Ложь);
Спр.ВестиУчетПоГТД = Истина;
Спр.Код = ТабДок[н].Артикул;
Спр.Наименование = ТабДок[н].Наименование;
Спр.НаименованиеПолное = ТабДок[н].Наименование;
Спр.Артикул = ТабДок[н].Артикул;
Спр.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
Спр.ИспользоватьСерийныеНомера=Истина;
Спр.Родитель = Родитель.Ссылка;
Спр.Записать();
КонецЕсли;
// новый элемент в справочник НГТД
ЭлемНГТД = Справочники.НомераГТД.НайтиПоКоду(ТабДок[н].НГТД);
Если ЭлемНГТД.Пустая() Тогда
СпрНГТД = Справочники.НомераГТД.СоздатьЭлемент();
СпрНГТД.Код = ТабДок[н].НГТД;
СпрНГТД.СтранаПроисхождения = Справочники.СтраныМира.НайтиПоКоду(ТабДок[н].КодСтраны);
СпрНГТД.Записать();
КонецЕсли;
НовыйКод =ТабДок[н].Артикул + "-" + ТабДок[н].НГТД;
Если СтрДлина(НовыйКод)>50 Тогда
НовыйКод = Сред(НовыйКод, 1, 50);
КонецЕсли;
ЭлСпрСН = Справочники.СерийныеНомераНоменклатуры.НайтиПоКоду(НовыйКод,Ложь);
Если ЭлСпрСН.Пустая() Тогда
СпрСН = Справочники.СерийныеНомераНоменклатуры.СоздатьЭлемент();
СпрСН.Владелец = Спр.Ссылка;
СпрСН.Код = НовыйКод;
СпрСН.Записать();
КонецЕсли;
Peters012 пишет:
как вставлять в табл.часть документа (начальство требует) товар с одним артикулом и наименванием но разным номером гтд автоматической обработкой. Все время ругается такая позиция уже есть.
как вставлять в табл.часть документа (начальство требует) товар с одним артикулом и наименванием но разным номером гтд автоматической обработкой. Все время ругается такая позиция уже есть.
1) указывай в посте ккая версия ут и какая версия платформы у тебя - телепатов нема
2) каким кодом ты вставляешь? На каком этапе у тебя пишет, что добавить нельзя и что именно пишет
3) в какой именно документ ты вставляешь?? В реализацию точно можно вставлять
Добрый день! Подскажите, пожалуйста, каким образом в документе реализации вставлять номера ГТД? У нас одна позиция с разными номерами ГТД. Мы купили прогу (руководство захотело), а фирма небольшая, программиста нет, на вызов денег не выделяют. Я бухгалтер и приходится самой разбираться. Не у кого даже проконсультироваться. И честно говоря не очень получается разобраться. Помогите,плиз!
у нас УТ 11.0.7.13.
у нас УТ 11.0.7.13.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот