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

Хранилище

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

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



> Автозаполнение таб. части документа          
rpervak Подменю пользователя
сообщение 30.11.15, 16:25
Сообщение #1

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Здравствуйте !
1С:Предприятие 8.2 (8.2.19.121)
УПП 1.3.39.1

Помогите, пожалуйста. Есть документ. В нем таб. часть "Заказы".

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

КонецПроцедуры


Спасибо !

Petre Подменю пользователя
сообщение 30.11.15, 16:38
Сообщение #2

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Документ = СтрокаТабличнойЧасти.ЗаказПокупателя;

И помните, что первая строка уже существует - это текущая.


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

Vofka Подменю пользователя
сообщение 30.11.15, 16:42
Сообщение #3

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

Документ = ЭлементыФормы.Товары.ТекущиеДанные.ЗаказПокупателя;


Сообщение отредактировал Vofka - 30.11.15, 16:42

rpervak Подменю пользователя
сообщение 30.11.15, 16:53
Сообщение #4

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Цитата(Petre @ 30.11.15, 16:38) *
Документ = СтрокаТабличнойЧасти.ЗаказПокупателя;

И помните, что первая строка уже существует - это текущая.


Цитата
err {Документ.ФормированиеПаллет.Форма.ФормаДокумента.Форма(423)}: Итератор для значения не определен
Для Каждого СтрТовар Из ТабЗнач Цикл


Сообщение отредактировал Vofka - 30.11.15, 17:11

Petre Подменю пользователя
сообщение 30.11.15, 16:55
Сообщение #5

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Пока ТабЗнач.Следующий() Цикл


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

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

rpervak Подменю пользователя
сообщение 30.11.15, 16:55
Сообщение #6

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Цитата(Vofka @ 30.11.15, 16:42) *
Документ = ЭлементыФормы.Товары.ТекущиеДанные.ЗаказПокупателя;



Вы имели ввиду:
Документ = ЭлементыФормы.Заказы.ТекущиеДанные.ЗаказПокупателя;


Цитата
err {Документ.ФормированиеПаллет.Форма.ФормаДокумента.Форма(423)}: Итератор для значения не определен
Для Каждого СтрТовар Из ТабЗнач Цикл


Сообщение отредактировал Vofka - 30.11.15, 17:10

Petre Подменю пользователя
сообщение 30.11.15, 16:55
Сообщение #7

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

А внутри цикла СтрТовар заменить на ТабЗнач.


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

rpervak Подменю пользователя
сообщение 30.11.15, 17:05
Сообщение #8

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Спасибо ! Уже заработало, но мне
НоваяСтрока = Заказы.Добавить();
добавляет строку ниже, а как сделать, что бы данные попадали в текущую строку ?


Vofka Подменю пользователя
сообщение 30.11.15, 17:10
Сообщение #9

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

rpervak, не надо выделять НЕ код тегами кода!

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

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Извините, не буду.

Как вариант можно удалять 1-ю строку. Но он, кажется, не конструктивный ?

Petre Подменю пользователя
сообщение 30.11.15, 17:27
Сообщение #11

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Либо удалять первую строку, либо добавить флаг первой строки и условие в цикле: если первая строка - заполняем текущую строку, если не первая - создаем новые.


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

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

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

Говорящий
***
Группа: Пользователи
Сообщений: 73
Спасибо сказали: 2 раз
Рейтинг: 0

Спасибо всем ! Тему закрываю.

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


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

 

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