помогите добавить колонку штрих-кода в форме Реализация товаров и услуг , штрих-код в печатной форме
20.05.16, 13:54
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
Здравствуйте. Помогите пожалуйста добавить колонку штрих-кода в форму Реализация товаров и услуг (накладная). Проблема в коде:
"ошибка поле объекта не обнаружена ..." ------------------------------------------------------------------------
Моя конф.:
1С:Підприємство 8.2 (8.2.19.106)
"Управление торговым предприятием для Украины", редакция 1.2.
Разработка конфигурации: "ABBYY Ukraine", 2007-2015 (1.2.30.1) (http://v8.1c.ru/regional/RegionalSolutions_UA_UTP.htm)
Copyright © ООО "1C", 2007-2015
(http://www.1c.ru)
------------------------------------------------------------------------
Нужно накладную как на картинке.
! Просто копипастом выкладывать ПОЛНОСТЬЮ весь код модуля - смысла нету
Сообщение отредактировал Vofka - 20.05.16, 14:11
20.05.16, 14:50
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
Вот этот запрос. Программа остонавливается на строке
| Штрихкод КАК Штрихкод Якобы не существует такого поля.
Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | ДоговорКонтрагента.ВидДоговора КАК ВидДоговораКонтрагента, | ДоговорКонтрагента.ВедениеВзаиморасчетов КАК ДоговорВедениеВзаиморасчетов, | ДоговорКонтрагента.НаименованиеДляПечати КАК ДоговорНаименованиеДляПечати, | ДоговорКонтрагента.ВыводитьИнформациюОСделкеПриПечатиДокументов КАК ПечататьСделку, | Сделка, | Контрагент КАК Покупатель, | Организация, | Организация КАК Поставщик, // | Ответственный.ФизЛицо.Наименование КАК Отпустил, | ПредставительОрганизации КАК ПредставительПоставщика, | ВЫРАЗИТЬ(МестоСоставленияДокумента КАК СТРОКА(1000)) КАК МестоСоставленияДокумента, | ДоверенностьСерия, | ДоверенностьНомер, | ДоверенностьДата, | Получил, | ПолучилПоДругомуДокументу, | ДокументПодтверждающийПолномочия, | АдресДоставки, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); СтрокаВыборкиПоляСодержания = ОбработкаТабличныхЧастей.ПолучитьЧастьЗапросаДляВыбораСодержания("РеализацияТоваровУслуг"); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | НомерТЧ, | НомерСтрокиТЧ, | Номенклатура, | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | КоличествоМест, | ЕдиницаИзмерения.Представление КАК ЕдиницаЦены, | ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки КАК Скидка, | ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка, | ХарактеристикаНоменклатуры КАК Характеристика, | СерияНоменклатуры КАК Серия |ИЗ | (ВЫБРАТЬ | 1 КАК НомерТЧ, | МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ, | Номенклатура КАК Номенклатура, | ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок, | СерияНоменклатуры КАК СерияНоменклатуры, | ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | СУММА(Количество) КАК Количество, | СУММА(КоличествоМест)КАК КоличествоМест, | СУММА(Сумма) КАК Сумма, | СУММА(СуммаНДС) КАК СуммаНДС, | Штрихкод КАК Штрихкод | ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг | ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | СГРУППИРОВАТЬ ПО | Номенклатура, | ЕдиницаИзмерения, | ЕдиницаИзмеренияМест, | Цена, | СтавкаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | СерияНоменклатуры, | ХарактеристикаНоменклатуры | ) КАК ВложенныйЗапросПоТоварам | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | 2, | РеализацияТоваровУслуг.НомерСтроки, | РеализацияТоваровУслуг.Номенклатура, | " + СтрокаВыборкиПоляСодержания + ", | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Количество, | NULL, | Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены, | NULL, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | NULL, | NULL | |ИЗ | Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | НомерТЧ, НомерСтрокиТЧ |"; ЗапросТовары = Запрос.Выполнить().Выгрузить();
20.05.16, 15:12
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
Vofka @ Сегодня, 16:04
,
Спасибо, буду знать. А как тогда может выглядеть данная строка, если не трудно напишите, пожалуйста.
04.06.16, 10:14
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
Добавил строчки: "ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец"
Но все равно есть ошибка: "{Документ.РеализацияТоваровУслуг.МодульОбъекта(189)}: Помилка при виклику методу контексту (Выполнить)
ЗапросТовары = Запрос.Выполнить().Выгрузить();
через:
{(25, 3)}: Неоднозначне поле "ЕдиницаИзмерения"
<<?>>ЕдиницаИзмерения КАК ЕдиницаИзмерения,"
Подскажите как правильно сделать. // Табличный документ - печатная форма накладной // Функция ПечатьДокумента() ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда ВыводитьКоды = Истина; Колонка = "Артикул"; ТекстКодАртикул = "Артикул"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; Иначе ВыводитьКоды = Ложь; Колонка = ""; ТекстКодАртикул = "Код"; КонецЕсли; Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | ДоговорКонтрагента.ВидДоговора КАК ВидДоговораКонтрагента, | ДоговорКонтрагента.ВедениеВзаиморасчетов КАК ДоговорВедениеВзаиморасчетов, | ДоговорКонтрагента.НаименованиеДляПечати КАК ДоговорНаименованиеДляПечати, | ДоговорКонтрагента.ВыводитьИнформациюОСделкеПриПечатиДокументов КАК ПечататьСделку, | Сделка, | Контрагент КАК Покупатель, | Организация, | Организация КАК Поставщик, // | Ответственный.ФизЛицо.Наименование КАК Отпустил, | ПредставительОрганизации КАК ПредставительПоставщика, | ВЫРАЗИТЬ(МестоСоставленияДокумента КАК СТРОКА(1000)) КАК МестоСоставленияДокумента, | ДоверенностьСерия, | ДоверенностьНомер, | ДоверенностьДата, | Получил, | ПолучилПоДругомуДокументу, | ДокументПодтверждающийПолномочия, | АдресДоставки, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); СтрокаВыборкиПоляСодержания = ОбработкаТабличныхЧастей.ПолучитьЧастьЗапросаДляВыбораСодержания("РеализацияТоваровУслуг"); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | НомерТЧ, | НомерСтрокиТЧ, | Номенклатура, | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | КоличествоМест, | ЕдиницаИзмерения.Представление КАК ЕдиницаЦены, | ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки КАК Скидка, | ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка, | ХарактеристикаНоменклатуры КАК Характеристика, | СерияНоменклатуры КАК Серия |ИЗ | (ВЫБРАТЬ | 1 КАК НомерТЧ, | МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ, | Номенклатура КАК Номенклатура, | ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок, | СерияНоменклатуры КАК СерияНоменклатуры, | ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | СУММА(Количество) КАК Количество, | СУММА(КоличествоМест)КАК КоличествоМест, | СУММА(Сумма) КАК Сумма, | СУММА(СуммаНДС) КАК СуммаНДС, | Штрихкоды.Штрихкод КАК Штрихкод | ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды | ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец | ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | СГРУППИРОВАТЬ ПО | Номенклатура, | ЕдиницаИзмерения, | ЕдиницаИзмеренияМест, | Цена, | СтавкаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | СерияНоменклатуры, | ХарактеристикаНоменклатуры, | Штрихкод | ) КАК ВложенныйЗапросПоТоварам | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | 2, | РеализацияТоваровУслуг.НомерСтроки, | РеализацияТоваровУслуг.Номенклатура, | " + СтрокаВыборкиПоляСодержания + ", | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Количество, | NULL, | Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены, | NULL, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | NULL, | NULL | |ИЗ | Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | НомерТЧ, НомерСтрокиТЧ |"; ЗапросТовары = Запрос.Выполнить().Выгрузить();
04.06.16, 11:34
Завсегдатай
Группа: Местный
Сообщений: 193
Спасибо сказали: 60 раз
Рейтинг: 0
ошибка из-за того, что вы добавили регистр "штрихкоды" и там так же само есть реквизит ЕдиницаИзмерения, а так как в запросе пишется "ЕдиницаИзмерения" - без указания от куда брать его, то 1с дает ошибку. Например Если заменить на
РеализацияТоваровУслуг.ЕдиницаИзмерения
тогда будет норм. а вообще предлагаю не изменять запрос, а в цикле вывода строки получать штрихкод :
УправлениеРозничнойТорговлей.ПолучитьШтрихКод(сюда передаем владельца, единицу характеристику и т.д.)
- меньше изменений в типовом коде, но может немного дольше формировать, потестируйте, как вам будет оптимальней
Сообщение отредактировал ignsv - 04.06.16, 11:35
04.06.16, 13:18
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
ignsv @ Сегодня, 12:34
,
Спасибо за ответ. Теперь выводит штрихкоды, но как-то криво. Есть разные позиции с разными х-ками., но выводить кучу одинаковых позиций с одинаковыми х-ками и с разными штрих-кодами.
Как Вы написали добавил РеализацияТоваровУслуг.ЕдиницаИзмерения, а за одно добавил:
"РеализацияТоваровУслуг.СерияНоменклатуры КАК СерияНоменклатуры,
РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,"
+
"РеализацияТоваровУслуг.ЕдиницаИзмерения,
РеализацияТоваровУслуг.СерияНоменклатуры,
РеализацияТоваровУслуг.ХарактеристикаНоменклатуры,"
код // Табличный документ - печатная форма накладной // Функция ПечатьДокумента() ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда ВыводитьКоды = Истина; Колонка = "Артикул"; ТекстКодАртикул = "Артикул"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; Иначе ВыводитьКоды = Ложь; Колонка = ""; ТекстКодАртикул = "Код"; КонецЕсли; Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | ДоговорКонтрагента.ВидДоговора КАК ВидДоговораКонтрагента, | ДоговорКонтрагента.ВедениеВзаиморасчетов КАК ДоговорВедениеВзаиморасчетов, | ДоговорКонтрагента.НаименованиеДляПечати КАК ДоговорНаименованиеДляПечати, | ДоговорКонтрагента.ВыводитьИнформациюОСделкеПриПечатиДокументов КАК ПечататьСделку, | Сделка, | Контрагент КАК Покупатель, | Организация, | Организация КАК Поставщик, // | Ответственный.ФизЛицо.Наименование КАК Отпустил, | ПредставительОрганизации КАК ПредставительПоставщика, | ВЫРАЗИТЬ(МестоСоставленияДокумента КАК СТРОКА(1000)) КАК МестоСоставленияДокумента, | ДоверенностьСерия, | ДоверенностьНомер, | ДоверенностьДата, | Получил, | ПолучилПоДругомуДокументу, | ДокументПодтверждающийПолномочия, | АдресДоставки, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); СтрокаВыборкиПоляСодержания = ОбработкаТабличныхЧастей.ПолучитьЧастьЗапросаДляВыбораСодержания("РеализацияТоваровУслуг"); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | НомерТЧ, | НомерСтрокиТЧ, | Номенклатура, | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | КоличествоМест, | ЕдиницаИзмерения.Представление КАК ЕдиницаЦены, | ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки КАК Скидка, | ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка, | ХарактеристикаНоменклатуры КАК Характеристика, | СерияНоменклатуры КАК Серия |ИЗ | (ВЫБРАТЬ | 1 КАК НомерТЧ, | МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ, | Номенклатура КАК Номенклатура, | РеализацияТоваровУслуг.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок, | РеализацияТоваровУслуг.СерияНоменклатуры КАК СерияНоменклатуры, | РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | СУММА(Количество) КАК Количество, | СУММА(КоличествоМест)КАК КоличествоМест, | СУММА(Сумма) КАК Сумма, | СУММА(СуммаНДС) КАК СуммаНДС, | Штрихкоды.Штрихкод КАК Штрихкод | ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды | ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец | ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | СГРУППИРОВАТЬ ПО | Номенклатура, | РеализацияТоваровУслуг.ЕдиницаИзмерения, | ЕдиницаИзмеренияМест, | Цена, | СтавкаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | РеализацияТоваровУслуг.СерияНоменклатуры, | РеализацияТоваровУслуг.ХарактеристикаНоменклатуры, | Штрихкод | ) КАК ВложенныйЗапросПоТоварам | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | 2, | РеализацияТоваровУслуг.НомерСтроки, | РеализацияТоваровУслуг.Номенклатура, | " + СтрокаВыборкиПоляСодержания + ", | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | NULL, | Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены, | NULL, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | NULL, | NULL | |ИЗ | Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды | ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | НомерТЧ, НомерСтрокиТЧ |"; ЗапросТовары = Запрос.Выполнить().Выгрузить(); "]
souvenirsplaster @ Сегодня, 13:26
,
-----------------------------------------------------------------------------------------
Еще раз спасибо . С х-ками. разобрался, забил дописать: "...
И РеализацияТоваровУслуг.ХарактеристикаНоменклатуры = Штрихкоды.ХарактеристикаНоменклатуры
".
-----------------------------------------------------------------------------------------
Теперь проблема с отображением макета. В заглавной ячейке не выводится названия "Код". Это не ошибка, это не доработка в коде.
05.06.16, 9:54
Молчаливый
Группа: Пользователи
Сообщений: 6
Спасибо сказали: 1 раз
Рейтинг: 0
Всем
спасибо за помощь . Работает отлично. Тему можна закрывать.
Навсякий случай мой код под спойлером.
Функция формирует табличный документ с печатной формой накладной // Функция формирует табличный документ с печатной формой накладной, // разработанной методистами // // Возвращаемое значение: // Табличный документ - печатная форма накладной // Функция ПечатьДокумента() ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда ВыводитьКоды = Истина; Колонка = "Артикул"; ТекстКодАртикул = "Артикул"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда ВыводитьКоды = Истина; Колонка = "Код"; ТекстКодАртикул = "Код"; Иначе ВыводитьКоды = Ложь; Колонка = ""; ТекстКодАртикул = "Код"; КонецЕсли; Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | ДоговорКонтрагента.ВидДоговора КАК ВидДоговораКонтрагента, | ДоговорКонтрагента.ВедениеВзаиморасчетов КАК ДоговорВедениеВзаиморасчетов, | ДоговорКонтрагента.НаименованиеДляПечати КАК ДоговорНаименованиеДляПечати, | ДоговорКонтрагента.ВыводитьИнформациюОСделкеПриПечатиДокументов КАК ПечататьСделку, | Сделка, | Контрагент КАК Покупатель, | Организация, | Организация КАК Поставщик, // | Ответственный.ФизЛицо.Наименование КАК Отпустил, | ПредставительОрганизации КАК ПредставительПоставщика, | ВЫРАЗИТЬ(МестоСоставленияДокумента КАК СТРОКА(1000)) КАК МестоСоставленияДокумента, | ДоверенностьСерия, | ДоверенностьНомер, | ДоверенностьДата, | Получил, | ПолучилПоДругомуДокументу, | ДокументПодтверждающийПолномочия, | АдресДоставки, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг | |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); СтрокаВыборкиПоляСодержания = ОбработкаТабличныхЧастей.ПолучитьЧастьЗапросаДляВыбораСодержания("РеализацияТоваровУслуг"); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | НомерТЧ, | НомерСтрокиТЧ, | Номенклатура, | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | КоличествоМест, | ЕдиницаИзмерения.Представление КАК ЕдиницаЦены, | ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки КАК Скидка, | ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка, | ХарактеристикаНоменклатуры КАК Характеристика, | СерияНоменклатуры КАК Серия |ИЗ | (ВЫБРАТЬ | 1 КАК НомерТЧ, | МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ, | Номенклатура КАК Номенклатура, | РеализацияТоваровУслуг.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест, | Цена КАК Цена, | СтавкаНДС КАК СтавкаНДС, | ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок, | РеализацияТоваровУслуг.СерияНоменклатуры КАК СерияНоменклатуры, | РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | СУММА(Количество) КАК Количество, | СУММА(КоличествоМест)КАК КоличествоМест, | СУММА(Сумма) КАК Сумма, | СУММА(СуммаНДС) КАК СуммаНДС, | Штрихкоды.Штрихкод КАК Штрихкод | ИЗ | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды | ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец | И РеализацияТоваровУслуг.ХарактеристикаНоменклатуры = Штрихкоды.ХарактеристикаНоменклатуры | ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | СГРУППИРОВАТЬ ПО | Номенклатура, | РеализацияТоваровУслуг.ЕдиницаИзмерения, | ЕдиницаИзмеренияМест, | Цена, | СтавкаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | РеализацияТоваровУслуг.СерияНоменклатуры, | РеализацияТоваровУслуг.ХарактеристикаНоменклатуры, | Штрихкод | ) КАК ВложенныйЗапросПоТоварам | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | 2, | РеализацияТоваровУслуг.НомерСтроки, | РеализацияТоваровУслуг.Номенклатура, | " + СтрокаВыборкиПоляСодержания + ", | Номенклатура.Код КАК Код, | Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул, | Штрихкод, | Количество, | NULL, | Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены, | NULL, | Цена, | Сумма, | СуммаНДС, | ПроцентСкидкиНаценки, | ПроцентАвтоматическихСкидок, | NULL, | NULL | |ИЗ | Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды | ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | НомерТЧ, НомерСтрокиТЧ |"; ЗапросТовары = Запрос.Выполнить().Выгрузить();
i Не надо без надобности играться шрифтами. Это не форум для блондинок.
Сообщение отредактировал logist - 05.06.16, 18:42
08.03.20, 12:18
Молчаливый
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0
souvenirsplaster @ 05.06.16, 9:54
,
souvenirsplaster @ 05.06.16, 9:54
,
Привіт.
Шукаю зовнішній звіт для друку накладної з штрихкодом
Так як дописувати не вмію
Не нашли ответа на свой вопрос?
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!