Доброй ночи! Хочу при проведения документа реализация хочу создать автоматом документ счет на оплату, но как только нажимаю ОК в документе реализация 1С зависает
проблема начинается после
Для Каждого ТекСтрокаТовары Из Товары Цикл
если убрать перенос товаров то все нормально в документ счет все переносится, а вот как переносятся товары 1С зависает что не так?
докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
докСчет.Дата = ТекущаяДата();
докСчет.Контрагент = Ссылка.Контрагент;
докСчет.ДоговорКонтрагента = Ссылка.ДоговорКонтрагента;
докСчет.КратностьВзаиморасчетов = Ссылка.КратностьВзаиморасчетов;
докСчет.Организация = Ссылка.Организация;
докСчет.ВалютаДокумента = Ссылка.ВалютаДокумента;
докСчет.СтруктурнаяЕдиница = Ссылка.Сделка.СтруктурнаяЕдиница;
докСчет.Реализация = Ссылка;
докСчет.ЗаказПокупателя = Ссылка.Сделка;
докСчет.Склад = Ссылка.Склад;
Для Каждого ТекСтрокаТовары Из Товары Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
НоваяСтрока.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
КонецЦикла;
докСчет.Записать(РежимЗаписиДокумента.Запись);
Alegzander @ Сегодня, 8:11
,
Спасибо попробую
Alegzander @ Сегодня, 8:11
,
Вообще теперь не создается документ((((
конфигурация ?
MOTOPARTNER @ Сегодня, 10:18
,
Alegzander @ Сегодня, 10:39
,
нет ошибок тупо провожу документ реализация и все но док счет не создается
sava1 @ Сегодня, 10:38
,
УТ для укр. 2.3
Напишите после
докСчет.Записать(РежимЗаписиДокумента.Запись);
Сообщить(докСчет.Номер);
попробуйте
докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
докСчет.Заполнить(Ссылка);
докСчет.ПолучитьФорму().Открыть();
Vofka @ Сегодня, 10:46
,
не сообщает ((( странно...
sava1 @ Сегодня, 10:53
,
Тоже не создает(((
права на документ есть ?
sava1 @ Сегодня, 11:54
,
Есть
sava1 @ Сегодня, 11:54
,
СмотриТЕ
Если так то документ создается
докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
докСчет.Дата = ТекущаяДата();
докСчет.Контрагент = Ссылка.Контрагент;
докСчет.ДоговорКонтрагента = Ссылка.ДоговорКонтрагента;
докСчет.КратностьВзаиморасчетов = Ссылка.КратностьВзаиморасчетов;
докСчет.Организация = Ссылка.Организация;
докСчет.ВалютаДокумента = Ссылка.ВалютаДокумента;
докСчет.СтруктурнаяЕдиница = Ссылка.Сделка.СтруктурнаяЕдиница;
докСчет.Реализация = Ссылка;
докСчет.ЗаказПокупателя = Ссылка.Сделка;
докСчет.Склад = Ссылка.Склад;
докСчет.Записать(РежимЗаписиДокумента.Запись);
докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
докСчет.Дата = ТекущаяДата();
докСчет.Контрагент = Ссылка.Контрагент;
докСчет.ДоговорКонтрагента = Ссылка.ДоговорКонтрагента;
докСчет.КратностьВзаиморасчетов = Ссылка.КратностьВзаиморасчетов;
докСчет.Организация = Ссылка.Организация;
докСчет.ВалютаДокумента = Ссылка.ВалютаДокумента;
докСчет.СтруктурнаяЕдиница = Ссылка.Сделка.СтруктурнаяЕдиница;
докСчет.Реализация = Ссылка;
докСчет.ЗаказПокупателя = Ссылка.Сделка;
докСчет.Склад = Ссылка.Склад;
Для Каждого ТекСтрокаТовары Из Товары Цикл
НоваяСтрока = докСчет.Товары.Добавить();
НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
НоваяСтрока.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
КонецЦикла;
докСчет.Записать(РежимЗаписиДокумента.Запись);
! | https://pro1c.org.ua/index.php?act=announce&id=2: 1 |
Вы пробовали создать документ тем кодом, что я привел ?
только тем - свой закомментируйте.
заполнение Товары - Вам писали - оно некорректно. Вы постоянно добавляете в Реализацию строки - практически это бесконечный цикл.
кстати - цены в пределах разрешенных ?
попробуйте перед
докСчет.Записать(РежимЗаписиДокумента.Запись);
докСчет.ОбменДанными.Загрузка = истина;
sava1 @ Сегодня, 12:35
,
сделал как написано результата нет
sava1 @ Сегодня, 12:38
,
всем большое спасибо работает проблема была в другом еще один документ создавало и код был написан перед этим и до создания счета не доходило. еще раз спасибо
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua