Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Заполнение таблицы из документа

Заполнение таблицы из документа
Я
   ParamPamPam
 
26.11.18 - 12:26
Не могу разобраться как реализовать заполнение 3х колонок в таблице формы из документа и настроить печать макета по каждой строке
[URL=http://vfl.ru/fotos/408a252a24356651.html][IMG]http://images.vfl.ru/ii/1543224158/408a252a/24356651_s.jpg[/IMG][/URL]

Код кнопки "загрузить"
НомерПоставщика     = *****;
    ПоставщикПоле         = Документ.Организация;    
    ПолучательПоле        = Документ.Контрагент;
    ДатаПоле            = (Формат(Документ.Дата, "ДЛФ=Д"));  
    СтранаПоле            = "Россия";     
    
    
    
    
    Для Каждого СтрокаТовары Из Документ.Товары Цикл          
        ТабТовары.Очистить();
        НоменклатураПоле            = СтрокаТовары.Номенклатура.Наименование;
        ТабТовар.ЗаполнитьЗн         = СтрокаТовары.НомерСтроки;
        ТабТовары.Номенклатура         = СтрокаТовары.Номенклатура.Наименование;
        Если СтрокаТовары.КоличествоМест = неопределено Тогда
            КоличествоМестПоле        = 0;
        Иначе
            КоличествоМестПоле         = СтрокаТовары.КоличествоМест;
        КонецЕсли;    
        
        ВесБруттоПоле                = СтрокаТовары.ЕдиницаИзмерения.Вес * СтрокаТовары.Количество;
        ВесНеттоПоле                = 0;
        ВесТарыПоле                 = 0;
        ВесПаллетаПоле              = 0;
        
    КонецЦикла;
    
КонецПроцедуры

Кнопка - Выбрать
НомерТовара = НомерТовараПоле;
    СтрокаТвр            = ТабТовары.Получить(НомерТовара);
    НоменклатураПоле    = НомерТовара.Номенклатура.Наименование;
    Если СтрокаТвр.КоличествоМест = неопределено Тогда
        КоличествоМестПоле  = 0;
    Иначе
        КоличествоМестПоле     = СтрокаТвр.КоличествоМест;
    КонецЕсли;
    ВесБруттоПоле        = СтрокаТвр.ЕдиницаИзмерения.Вес * СтрокаТвр.Количество;
    ВесНеттоПоле        = 0;
    ВесТарыПоле         = 0;
    ВесПаллетаПоле      = 0;


Хочу что бы по кнп Загрузить - подтянулись данные в поля и таблицу
По кнопке выбрать - оператор выбирал товар по строке из таблицы, вводил дополнительные значения вручную (Нетто и проч)и выводил на печать

Это возможно?
 
 
   ParamPamPam
 
1 - 26.11.18 - 12:27
<a href="http://vfl.ru/fotos/408a252a24356651.html"><img src="//images.vfl.ru/ii/1543224158/408a252a/24356651_s.jpg" alt="123" title="123" border="0"></a>
   ParamPamPam
 
2 - 26.11.18 - 12:29
   lamme
 
3 - 26.11.18 - 12:47
(0)
Это возможно?

Отвечаю
Это возможно!
   ParamPamPam
 
4 - 26.11.18 - 12:50
(3)
Вот скрин формы
[url=https://d.radikal.ru/d02/1811/d3/74792cad95f8.jpg][img]https://d.radikal.ru/d02/1811/d3/74792cad95f8t.jpg[/img][/url]

Подскажи пожал как обратится к строке в документе и заполнить ей таблицу в форме
   ParamPamPam
 
5 - 26.11.18 - 12:51
   lamme
 
6 - 26.11.18 - 12:52
в таблицу - что на форме - сделать поле
типа - КодСтрокиВДокументе
соовтетственно - заполнить ее правильно
и по этому полю уже делать соответствие строки таблицы на форме и строки документа
   lamme
 
7 - 26.11.18 - 12:52
через
МойДокумент.Товары.найти()
   lamme
 
8 - 26.11.18 - 12:54
только в таком варианте - у тебя это все не сохраниться нигде
и при посл печати - оператору заново надо будет колбасить данные
   lamme
 
9 - 26.11.18 - 12:54
а .. пардон
у тебя и так есть
   ТабТовар.ЗаполнитьЗн         = СтрокаТовары.НомерСтроки;
   ParamPamPam
 
10 - 26.11.18 - 13:29
(9) Немного переделал форму с таблицей. Добавил колонки ВесНетто и др. для ручного ввода в таблице. добавил поле на форму "номер строки" и кнопку "выбрать" что бы оператор глядя в таблицу выбрал из неё строку по её номеру и отправил на печать.
Как из макета обратится к таблице на форме?


ОбластьМакета = Макет.ПолучитьОбласть("Макет");
    
    ОбластьМакета.Параметры.Поставщик         = ПоставщикПоле;
    ОбластьМакета.Параметры.НомерПоставщика = НомерПоставщика;
    ОбластьМакета.Параметры.Получатель        = ПолучательПоле;
    ОбластьМакета.Параметры.Дата              = ДатаПоле;
    ОбластьМакета.Параметры.Страна            = ТабТовары.;
    //Нстр.СтранаПроисхождения;

    ОбластьМакета.Параметры.Номенклатура    = Нстр.Номенклатура;
    ОбластьМакета.Параметры.КоличествоМест    = Нстр.КоличествоМест;
    ОбластьМакета.Параметры.ВесБрутто        = Нстр.ВесБрутто;
    ОбластьМакета.Параметры.ВесНетто         = Нстр.ВесНетто;
    ОбластьМакета.Параметры.ВесТары            = Нстр.ВесТары;
    ОбластьМакета.Параметры.ВесПаллета        = Нстр.ВесПаллета;
 
 Рекламное место пустует
   lamme
 
11 - 26.11.18 - 13:34
а нафига вообще так сложно ?
отдельная форма для формирования печатной формы ...

не проще ли в самом документе в ТЧ сделать дополнительные колонки
и их  - или программно из реквизитов номенклатуры заполнять (вес-объем...)
или пусть пользователь заполняет в документе
или пусть пользователь заполняет в отдельной форме.

Плюс - при повторной печати этого же самого документа - все уже будет введено

Минус  - а если документ в закрытом периоде ...
   lamme
 
12 - 26.11.18 - 13:35
или сделать отдельный РС
куда писать все то - что пользователь заполнит один раз
тогда вопрос с датой запрета - отваливается.
Док провели - все .. записи есть.
док распровели - записей нет..
   lamme
 
13 - 26.11.18 - 13:35
и тд

Список тем форума
Рекламное место пустует  Рекламное место пустует
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Э. Йодан
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует