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

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




>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 05.06.16, 9:54


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
Всем спасибо за помощь. Работает отлично. Тему можна закрывать.
Навсякий случай мой код под спойлером.

Функция формирует табличный документ с печатной формой накладной
// Функция формирует табличный документ с печатной формой накладной,
// разработанной методистами
//
// Возвращаемое значение:
//  Табличный документ - печатная форма накладной
//
Функция ПечатьДокумента()

    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Артикул";
        ТекстКодАртикул = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    Иначе
        ВыводитьКоды    = Ложь;
        Колонка         = "";
        ТекстКодАртикул = "Код";
    КонецЕсли;

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

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    НомерТЧ,
    |    НомерСтрокиТЧ,
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар,
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаИзмерения.Представление КАК ЕдиницаЦены,
    |    ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки КАК Скидка,
    |    ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка,
    |    ХарактеристикаНоменклатуры КАК Характеристика,
    |    СерияНоменклатуры КАК Серия
    |ИЗ 
    |    (ВЫБРАТЬ
    |        1 КАК НомерТЧ,
    |        МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ,
    |        Номенклатура         КАК Номенклатура,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения    КАК ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест,
    |        Цена                 КАК Цена,
    |        СтавкаНДС            КАК СтавкаНДС,
    |        ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок,
    |        РеализацияТоваровУслуг.СерияНоменклатуры    КАК СерияНоменклатуры,
    |        РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
    |        СУММА(Количество)    КАК Количество,
    |        СУММА(КоличествоМест)КАК КоличествоМест,
    |        СУММА(Сумма)         КАК Сумма,
    |        СУММА(СуммаНДС)      КАК СуммаНДС,
    |        Штрихкоды.Штрихкод   КАК Штрихкод
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
    |           ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
    |           ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец
    |                И РеализацияТоваровУслуг.ХарактеристикаНоменклатуры = Штрихкоды.ХарактеристикаНоменклатуры    
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест,
    |        Цена,
    |        СтавкаНДС,
    |        ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок,
    |        РеализацияТоваровУслуг.СерияНоменклатуры,
    |        РеализацияТоваровУслуг.ХарактеристикаНоменклатуры,
    |        Штрихкод
    |    ) КАК ВложенныйЗапросПоТоварам
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   2,
    |   РеализацияТоваровУслуг.НомерСтроки,
    |    РеализацияТоваровУслуг.Номенклатура,
    |    " + СтрокаВыборкиПоляСодержания + ",
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    NULL,
    |    Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены,
    |    NULL,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки,
    |    ПроцентАвтоматическихСкидок,
    |    NULL,
    |    NULL
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
    |       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
    |       ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    НомерТЧ, НомерСтрокиТЧ
    |";
    
    ЗапросТовары = Запрос.Выполнить().Выгрузить();



 i 

Не надо без надобности играться шрифтами. Это не форум для блондинок.
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #113235 · Ответов: 9 · Просмотров: 11365
 

>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 04.06.16, 13:18


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
ignsv @ Сегодня, 12:34 *,

Спасибо за ответ. Теперь выводит штрихкоды, но как-то криво. Есть разные позиции с разными х-ками., но выводить кучу одинаковых позиций с одинаковыми х-ками и с разными штрих-кодами.

Как Вы написали добавил РеализацияТоваровУслуг.ЕдиницаИзмерения, а за одно добавил:
"РеализацияТоваровУслуг.СерияНоменклатуры КАК СерияНоменклатуры,
РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,"
+
"РеализацияТоваровУслуг.ЕдиницаИзмерения,
РеализацияТоваровУслуг.СерияНоменклатуры,
РеализацияТоваровУслуг.ХарактеристикаНоменклатуры,"

код

//  Табличный документ - печатная форма накладной
//
Функция ПечатьДокумента()

    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Артикул";
        ТекстКодАртикул = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    Иначе
        ВыводитьКоды    = Ложь;
        Колонка         = "";
        ТекстКодАртикул = "Код";
    КонецЕсли;

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

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    НомерТЧ,
    |    НомерСтрокиТЧ,
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар,
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаИзмерения.Представление КАК ЕдиницаЦены,
    |    ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки КАК Скидка,
    |    ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка,
    |    ХарактеристикаНоменклатуры КАК Характеристика,
    |    СерияНоменклатуры КАК Серия
    |ИЗ 
    |    (ВЫБРАТЬ
    |        1 КАК НомерТЧ,
    |        МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ,
    |        Номенклатура         КАК Номенклатура,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения    КАК ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест,
    |        Цена                 КАК Цена,
    |        СтавкаНДС            КАК СтавкаНДС,
    |        ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок,
    |        РеализацияТоваровУслуг.СерияНоменклатуры    КАК СерияНоменклатуры,
    |        РеализацияТоваровУслуг.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
    |        СУММА(Количество)    КАК Количество,
    |        СУММА(КоличествоМест)КАК КоличествоМест,
    |        СУММА(Сумма)         КАК Сумма,
    |        СУММА(СуммаНДС)      КАК СуммаНДС,
    |        Штрихкоды.Штрихкод   КАК Штрихкод
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
    |           ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
    |           ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест,
    |        Цена,
    |        СтавкаНДС,
    |        ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок,
    |        РеализацияТоваровУслуг.СерияНоменклатуры,
    |        РеализацияТоваровУслуг.ХарактеристикаНоменклатуры,
    |        Штрихкод
    |    ) КАК ВложенныйЗапросПоТоварам
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   2,
    |   РеализацияТоваровУслуг.НомерСтроки,
    |    РеализацияТоваровУслуг.Номенклатура,
    |    " + СтрокаВыборкиПоляСодержания + ",
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    NULL,
    |    Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены,
    |    NULL,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки,
    |    ПроцентАвтоматическихСкидок,
    |    NULL,
    |    NULL
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
    |       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
    |       ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец

    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    НомерТЧ, НомерСтрокиТЧ
    |";
    
    ЗапросТовары = Запрос.Выполнить().Выгрузить();
"]



souvenirsplaster @ Сегодня, 13:26 *,

-----------------------------------------------------------------------------------------


Еще раз спасибо. С х-ками. разобрался, забил дописать: "... 
И РеализацияТоваровУслуг.ХарактеристикаНоменклатуры = Штрихкоды.ХарактеристикаНоменклатуры
".


-----------------------------------------------------------------------------------------



Теперь проблема с отображением макета. В заглавной ячейке не выводится названия "Код". Это не ошибка, это не доработка в коде.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #113220 · Ответов: 9 · Просмотров: 11365
 

>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 04.06.16, 10:14


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
Добавил строчки:
"ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец"
Но все равно есть ошибка:
"{Документ.РеализацияТоваровУслуг.МодульОбъекта(189)}: Помилка при виклику методу контексту (Выполнить)
ЗапросТовары = Запрос.Выполнить().Выгрузить();
через:
{(25, 3)}: Неоднозначне поле "ЕдиницаИзмерения"
<<?>>ЕдиницаИзмерения КАК ЕдиницаИзмерения,"

Подскажите как правильно сделать.

//  Табличный документ - печатная форма накладной
//
Функция ПечатьДокумента()

    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Артикул";
        ТекстКодАртикул = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.ШтрихКод Тогда
        ВыводитьКоды    = Истина;
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    Иначе
        ВыводитьКоды    = Ложь;
        Колонка         = "";
        ТекстКодАртикул = "Код";
    КонецЕсли;

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

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    НомерТЧ,
    |    НомерСтрокиТЧ,
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар,
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаИзмерения.Представление КАК ЕдиницаЦены,
    |    ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки КАК Скидка,
    |    ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка,
    |    ХарактеристикаНоменклатуры КАК Характеристика,
    |    СерияНоменклатуры КАК Серия
    |ИЗ 
    |    (ВЫБРАТЬ
    |        1 КАК НомерТЧ,
    |        МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ,
    |        Номенклатура         КАК Номенклатура,
    |        ЕдиницаИзмерения     КАК ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест,
    |        Цена                 КАК Цена,
    |        СтавкаНДС            КАК СтавкаНДС,
    |        ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок,
    |        СерияНоменклатуры    КАК СерияНоменклатуры,
    |        ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
    |        СУММА(Количество)    КАК Количество,
    |        СУММА(КоличествоМест)КАК КоличествоМест,
    |        СУММА(Сумма)         КАК Сумма,
    |        СУММА(СуммаНДС)      КАК СуммаНДС,
    |        Штрихкоды.Штрихкод      КАК Штрихкод
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
    |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
    |             ПО РеализацияТоваровУслуг.Номенклатура = Штрихкоды.Владелец
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест,
    |        Цена,
    |        СтавкаНДС,
    |        ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок,
    |        СерияНоменклатуры,
    |        ХарактеристикаНоменклатуры,
    |        Штрихкод
    |    ) КАК ВложенныйЗапросПоТоварам
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   2,
    |   РеализацияТоваровУслуг.НомерСтроки,
    |    РеализацияТоваровУслуг.Номенклатура,
    |    " + СтрокаВыборкиПоляСодержания + ",
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Количество,
    |    NULL,
    |    Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены,
    |    NULL,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки,
    |    ПроцентАвтоматическихСкидок,
    |    NULL,
    |    NULL
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    НомерТЧ, НомерСтрокиТЧ
    |";
    
    ЗапросТовары = Запрос.Выполнить().Выгрузить();
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #113218 · Ответов: 9 · Просмотров: 11365
 

>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 20.05.16, 15:12


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
Vofka @ Сегодня, 16:04 *,
Спасибо, буду знать. А как тогда может выглядеть данная строка, если не трудно напишите, пожалуйста.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #112676 · Ответов: 9 · Просмотров: 11365
 

>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 20.05.16, 14:50


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
Вот этот запрос. Программа остонавливается на строке | Штрихкод КАК Штрихкод Якобы не существует такого поля.

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

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    НомерТЧ,
    |    НомерСтрокиТЧ,
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК Товар,
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Штрихкод,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаИзмерения.Представление КАК ЕдиницаЦены,
    |    ЕдиницаИзмеренияМест.Представление КАК ЕдиницаМест,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки КАК Скидка,
    |    ПроцентАвтоматическихСкидок КАК АвтоматическаяСкидка,
    |    ХарактеристикаНоменклатуры КАК Характеристика,
    |    СерияНоменклатуры КАК Серия
    |ИЗ 
    |    (ВЫБРАТЬ
    |        1 КАК НомерТЧ,
    |        МИНИМУМ(НомерСтроки) КАК НомерСтрокиТЧ,
    |        Номенклатура         КАК Номенклатура,
    |        ЕдиницаИзмерения     КАК ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест КАК ЕдиницаИзмеренияМест,
    |        Цена                 КАК Цена,
    |        СтавкаНДС            КАК СтавкаНДС,
    |        ПроцентСкидкиНаценки КАК ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок КАК ПроцентАвтоматическихСкидок,
    |        СерияНоменклатуры    КАК СерияНоменклатуры,
    |        ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
    |        СУММА(Количество)    КАК Количество,
    |        СУММА(КоличествоМест)КАК КоличествоМест,
    |        СУММА(Сумма)         КАК Сумма,
    |        СУММА(СуммаНДС)      КАК СуммаНДС,    
     |        Штрихкод              КАК Штрихкод
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг        
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        ЕдиницаИзмерения,
    |        ЕдиницаИзмеренияМест,
    |        Цена,
    |        СтавкаНДС,
    |        ПроцентСкидкиНаценки,
    |        ПроцентАвтоматическихСкидок,
    |        СерияНоменклатуры,
    |        ХарактеристикаНоменклатуры
    |    ) КАК ВложенныйЗапросПоТоварам
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |   2,
    |   РеализацияТоваровУслуг.НомерСтроки,
    |    РеализацияТоваровУслуг.Номенклатура,
    |    " + СтрокаВыборкиПоляСодержания + ",
    |    Номенклатура.Код     КАК Код,
    |    Номенклатура."+ ТекстКодАртикул + " КАК КодАртикул,
    |    Количество,
    |    NULL,
    |    Номенклатура.ЕдиницаХраненияОстатков.Представление КАК ЕдиницаЦены,
    |    NULL,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    ПроцентСкидкиНаценки,
    |    ПроцентАвтоматическихСкидок,
    |    NULL,
    |    NULL
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    НомерТЧ, НомерСтрокиТЧ
    |";
    
    ЗапросТовары = Запрос.Выполнить().Выгрузить();
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #112674 · Ответов: 9 · Просмотров: 11365
 

>  помогите добавить колонку штрих-кода в форме Реализация товаров и услуг
souvenirsplaster
Отправлено: 20.05.16, 13:54


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 20.05.16
Пользователь №: 50194
Здравствуйте. Помогите пожалуйста добавить колонку штрих-кода в форму Реализация товаров и услуг (накладная).
Проблема в коде: "ошибка поле объекта не обнаружена ..."


------------------------------------------------------------------------
Моя конф.:
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)
------------------------------------------------------------------------

Нужно накладную как на картинке.



 ! 

Просто копипастом выкладывать ПОЛНОСТЬЮ весь код модуля - смысла нету
 
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #112670 · Ответов: 9 · Просмотров: 11365
 


Новые сообщения  Открытая тема (есть новые ответы)
 Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
 Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
 Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 27.04.24, 22:33
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!