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

Хранилище

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

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



> Внешняя печатная форма , Приходный ордер. Типовая форма № М-4          
1c_lam Подменю пользователя
сообщение 17.01.19, 12:11
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 9
Спасибо сказали: 0 раз
Рейтинг: 0

1С:Предприятие 8.3 (8.3.12.1616)
"Управление торговым предприятием для Украины", редакция 1.2. (1.2.48.1)
Доброго времени суток, Господа.
На данный момент есть необходимость создания внешней печатной формы "Приходный ордер. Типовая форма № М-4";
Мною реализовано изящно, но скомканное исполнение и ОДНА ПРОБЛЕМКА!
А именно, не представляю как заполнять КонНоменклатуры, согласно Классификатору единиц измерения. Код прикрепляю.
Просьба, подскажите как заполнить "Эти поля", всю голову сломал 09000000.gif



Код
Функция Печать() Экспорт
    Макет = ПолучитьМакет("ф4");
    //КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм"));
    //Макет.КодЯзыкаМакета = КодЯзыкаПечать;
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.ТолькоПросмотр = Истина;
    Макет = ПолучитьМакет("ф4");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка1");
    ОбластьШапка.Параметры.НомерДокумента = СсылкаНаОбъект.Номер;
    ОбластьШапка.Параметры.ДатаДокумента = Формат(СсылкаНаОбъект.Дата, "ДФ=dd.MM.yyyy; ДЛФ=");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка1");
    ОбластьСтрока.Параметры.НомДок = СсылкаНаОбъект.Номер;
    ОбластьСтрока.Параметры.Дата = Формат(СсылкаНаОбъект.Дата, "ДФ=dd.MM.yyyy; ДЛФ=");
    ОбластьСтрока.Параметры.Склад = СсылкаНаОбъект.СкладОрдер;
    ОбластьСтрока.Параметры.НаимПост = СсылкаНаОбъект.Контрагент;
    
    ОбластьСч_ТЧ = Макет.ПолучитьОбласть("Сч_ТЧ");
    ОбластьШапка2 = Макет.ПолучитьОбласть("ДопШап");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьСтрока2 = Макет.ПолучитьОбласть("Строка2");
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    
    
    //1-й ВАРиАнТ
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
    Запрос.Текст =  "ВЫБРАТЬ
                    |    ПоступлениеТоваровУслугТовары.Номенклатура,
                    |    ПоступлениеТоваровУслугТовары.Номенклатура.Код,
                    |    ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения,
                    |    ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения.Код,
                    |    ПоступлениеТоваровУслугТовары.Количество,
                    |    ПоступлениеТоваровУслугТовары.Цена,
                    |    ПоступлениеТоваровУслугТовары.Сумма,
                    |    ПоступлениеТоваровУслугТовары.СчетУчетаБУ
                    |ИЗ
                    |    Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
                    |ГДЕ
                    |    ПоступлениеТоваровУслугТовары.Ссылка = &ТекущийДокумент";
    
    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
//         //получаем код єтой ебаной Ед.Изм
//    ЗапросКод = Новый Запрос;
//    ЗапросКод.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
//    Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект);
//    ЗапросКод.Текст =            
//    "ВЫБРАТЬ
//    |    КлассификаторЕдиницИзмерения.Код
//    |ИЗ
//    |    Справочник.КлассификаторЕдиницИзмерения КАК КлассификаторЕдиницИзмерения
//    |ГДЕ
//    |    КлассификаторЕдиницИзмерения.Код = &Ссылка";
//      РезультатЗапросаКод = ЗапросКод.Выполнить();
//     Выборка = РезультатЗапросаКод.Выбрать();
//     Пока Выборка.Следующий() Цикл
//        ОбластьСтрока2.Параметры.КодН = Выборка.Код;
//        //ТабДок.Присоединить(ОбластьСтрока2);
//КонецЦикла;
     //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    
    
    
    ТабДок.Вывести(ОбластьШапка);
    ТабДок.Вывести(ОбластьСтрока);
    
    Запрос1 = Новый Запрос;
    Запрос1.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
    Запрос1.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |    ПоступлениеТоваровУслугТовары.СчетУчетаБУ
    |ИЗ
    |    Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
    |ГДЕ
    |    ПоступлениеТоваровУслугТовары.Ссылка = &ТекущийДокумент";
    
    
    
    РезультатЗапроса1 = Запрос1.Выполнить();    
    ВыборкаДетальныеЗаписи1 = РезультатЗапроса1.Выбрать();
    Пока ВыборкаДетальныеЗаписи1.Следующий() Цикл
        ОбластьСч_ТЧ.Параметры.Счет = ВыборкаДетальныеЗаписи1.СчетУчетаБУ;
        ТабДок.Присоединить(ОбластьСч_ТЧ);
    КонецЦикла;
    

    
    ТабДок.Вывести(ОбластьШапка2);
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
         ОбластьСтрока2 = Макет.ПолучитьОбласть("Строка2");
         ОбластьСтрока2.Параметры.Наименование = ВыборкаДетальныеЗаписи.Номенклатура;
         ОбластьСтрока2.Параметры.Номерноменклатуры = ВыборкаДетальныеЗаписи.НоменклатураКод;
         ОбластьСтрока2.Параметры.КодН = ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Код;
         ОбластьСтрока2.Параметры.ЕдИзм = ВыборкаДетальныеЗаписи.ЕдиницаИзмерения;
         ОбластьСтрока2.Параметры.КолвоДок = ВыборкаДетальныеЗаписи.Количество;
         ОбластьСтрока2.Параметры.КолвоДок1 = ВыборкаДетальныеЗаписи.Количество;
         ОбластьСтрока2.Параметры.Цена = ВыборкаДетальныеЗаписи.Цена;
         ОбластьСтрока2.Параметры.Сумма = ВыборкаДетальныеЗаписи.Сумма;
         ТабДок.Вывести(ОбластьСтрока2);
    КонецЦикла;
    ОбластьПробел = Макет.ПолучитьОбласть("Пробел");
    ОбластьПробел.Параметры.СумДок = СсылкаНаОбъект.СуммаДокумента;
    ТабДок.Вывести(ОбластьПробел);
    ТабДок.Вывести(ОбластьПодвал);      
    Возврат ТабДок;
    
    
КонецФункции



 ! 

Правила: 8
 


Сообщение отредактировал Vofka - 17.01.19, 12:21

awp Подменю пользователя
сообщение 17.01.19, 12:17
Сообщение #2

Почти ветеран
Иконка группы
Группа: Местный
Сообщений: 520
Спасибо сказали: 70 раз
Рейтинг: 51.3

1c_lam @ Сегодня, 12:11 * ,
Справочник "КлассификаторЕдиницИзмерения" - Макет "КлассификаторЕдиницИзмерения"


Signature
Бухгалтер - это не профессия! Это диагноз!

sava1 Подменю пользователя
сообщение 17.01.19, 12:56
Сообщение #3

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2684
Из: Проскуров
Спасибо сказали: 678 раз
Рейтинг: 656.7

Цитата(1c_lam @ 17.01.19, 12:11) *
Мною реализовано изящно,


Мне бы кто так сказал ....

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

1c_lam Подменю пользователя
сообщение 17.01.19, 13:12
Сообщение #4

Молчаливый
*
Группа: Пользователи
Сообщений: 9
Спасибо сказали: 0 раз
Рейтинг: 0

awp @ Сегодня, 12:17 * ,
Спасибо, обратите внимание на блок закоментированный, то я увидел где взять тот самый код, но я не представляю как его "вставить в мой макет, в мою форму. даже запрос организовал, но, он тянет все коды из классификатора, а заполняет каждые поля по товару одним (подозреваю первым) кодом. в Этом и загвоздочка 51000000.gif 51000000.gif

awp Подменю пользователя
сообщение 17.01.19, 13:30
Сообщение #5

Почти ветеран
Иконка группы
Группа: Местный
Сообщений: 520
Спасибо сказали: 70 раз
Рейтинг: 51.3

1c_lam @ Сегодня, 13:12 * ,
Меняем
ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения.Код,

НА
ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения.ЕдиницаПоКлассификатору


Мною реализовано не изящно, но думаю что то что нужно


Signature
Бухгалтер - это не профессия! Это диагноз!

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

1c_lam Подменю пользователя
сообщение 17.01.19, 14:19
Сообщение #6

Молчаливый
*
Группа: Пользователи
Сообщений: 9
Спасибо сказали: 0 раз
Рейтинг: 0

awp @ Сегодня, 13:30 * ,
Огромное спасибо, действительно, пытался "изяществовать" а надо делать просто и правильно.
Все получилось! 11000000.gif 15000000.gif 32000000.gif

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


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

 

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