Версия для печати темы (https://pro1c.org.ua/index.php?s=41c07f7f604fbf9287267a7db5208c07&showtopic=62069)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Обработка Проведения не переносятся товары!

Автор: MOTOPARTNER 06.10.20, 23:55

Доброй ночи! Хочу при проведения документа реализация хочу создать автоматом документ счет на оплату, но как только нажимаю ОК в документе реализация 1С зависает
проблема начинается после

Для Каждого ТекСтрокаТовары Из Товары Цикл

если убрать перенос товаров то все нормально в документ счет все переносится, а вот как переносятся товары 1С зависает что не так?

    докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
    докСчет.Дата                        = ТекущаяДата();
    докСчет.Контрагент                    = Ссылка.Контрагент;
    докСчет.ДоговорКонтрагента            = Ссылка.ДоговорКонтрагента;
    докСчет.КратностьВзаиморасчетов        = Ссылка.КратностьВзаиморасчетов;
    докСчет.Организация                    = Ссылка.Организация;
    докСчет.ВалютаДокумента                = Ссылка.ВалютаДокумента;
    докСчет.СтруктурнаяЕдиница          = Ссылка.Сделка.СтруктурнаяЕдиница;
    докСчет.Реализация                    = Ссылка;
    докСчет.ЗаказПокупателя                = Ссылка.Сделка;
    докСчет.Склад                        = Ссылка.Склад;
    
    Для Каждого ТекСтрокаТовары Из Товары Цикл
            НоваяСтрока = Товары.Добавить();
            НоваяСтрока.ЕдиницаИзмерения             = ТекСтрокаТовары.ЕдиницаИзмерения;
            НоваяСтрока.Количество                     = ТекСтрокаТовары.Количество;
            НоваяСтрока.Номенклатура                 = ТекСтрокаТовары.Номенклатура;
            НоваяСтрока.Цена                        = ТекСтрокаТовары.Цена;
            НоваяСтрока.Сумма                        = ТекСтрокаТовары.Сумма;
            НоваяСтрока.ХарактеристикаНоменклатуры  = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
            НоваяСтрока.Коэффициент                 = ТекСтрокаТовары.Коэффициент;
    КонецЦикла;
    
    
    докСчет.Записать(РежимЗаписиДокумента.Запись);

Автор: Alegzander 07.10.20, 7:11

Цитата(MOTOPARTNER @ 07.10.20, 0:55) *
Для Каждого ТекСтрокаТовары Из Товары Цикл
НоваяСтрока = Товары.Добавить();

НоваяСтрока = докСчет.Товары.Добавить();

Автор: MOTOPARTNER 07.10.20, 9:18

Alegzander @ Сегодня, 8:11 * ,
Спасибо попробую

Alegzander @ Сегодня, 8:11 * ,
Вообще теперь не создается документ((((

Автор: sava1 07.10.20, 9:38

конфигурация ?

Автор: Alegzander 07.10.20, 9:39

MOTOPARTNER @ Сегодня, 10:18 * ,

Цитата(MOTOPARTNER @ 07.10.20, 10:18) *
Вообще теперь не создается документ((((


какая ошибка?

Автор: MOTOPARTNER 07.10.20, 9:45

Alegzander @ Сегодня, 10:39 * ,
нет ошибок тупо провожу документ реализация и все но док счет не создается



sava1 @ Сегодня, 10:38 * ,
УТ для укр. 2.3

Автор: Vofka 07.10.20, 9:46

Напишите после

докСчет.Записать(РежимЗаписиДокумента.Запись);


Сообщить(докСчет.Номер);

Автор: sava1 07.10.20, 9:53

попробуйте

докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
докСчет.Заполнить(Ссылка);

докСчет.ПолучитьФорму().Открыть();

Автор: MOTOPARTNER 07.10.20, 10:22

Vofka @ Сегодня, 10:46 * ,
не сообщает ((( странно...

sava1 @ Сегодня, 10:53 * ,
Тоже не создает(((

Автор: sava1 07.10.20, 10:54

права на документ есть ?

Автор: MOTOPARTNER 07.10.20, 11:19

sava1 @ Сегодня, 11:54 * ,
Есть

sava1 @ Сегодня, 11:54 * ,
СмотриТЕ
Если так то документ создается

    докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
    докСчет.Дата                        = ТекущаяДата();
    докСчет.Контрагент                    = Ссылка.Контрагент;
    докСчет.ДоговорКонтрагента            = Ссылка.ДоговорКонтрагента;
    докСчет.КратностьВзаиморасчетов        = Ссылка.КратностьВзаиморасчетов;
    докСчет.Организация                    = Ссылка.Организация;
    докСчет.ВалютаДокумента                = Ссылка.ВалютаДокумента;
    докСчет.СтруктурнаяЕдиница          = Ссылка.Сделка.СтруктурнаяЕдиница;
    докСчет.Реализация                    = Ссылка;
    докСчет.ЗаказПокупателя                = Ссылка.Сделка;
    докСчет.Склад                        = Ссылка.Склад;

    докСчет.Записать(РежимЗаписиДокумента.Запись);


Как только добавляю перенос товаров, все провожу док реализации проводится нет ошибок но и счет не создает

    докСчет = Документы.СчетНаОплатуПокупателю.СоздатьДокумент();
    докСчет.Дата                        = ТекущаяДата();
    докСчет.Контрагент                    = Ссылка.Контрагент;
    докСчет.ДоговорКонтрагента            = Ссылка.ДоговорКонтрагента;
    докСчет.КратностьВзаиморасчетов        = Ссылка.КратностьВзаиморасчетов;
    докСчет.Организация                    = Ссылка.Организация;
    докСчет.ВалютаДокумента                = Ссылка.ВалютаДокумента;
    докСчет.СтруктурнаяЕдиница          = Ссылка.Сделка.СтруктурнаяЕдиница;
    докСчет.Реализация                    = Ссылка;
    докСчет.ЗаказПокупателя                = Ссылка.Сделка;
    докСчет.Склад                        = Ссылка.Склад;
    
    Для Каждого ТекСтрокаТовары Из Товары Цикл
            НоваяСтрока = докСчет.Товары.Добавить();
            НоваяСтрока.ЕдиницаИзмерения             = ТекСтрокаТовары.ЕдиницаИзмерения;
            НоваяСтрока.Количество                     = ТекСтрокаТовары.Количество;
            НоваяСтрока.Номенклатура                 = ТекСтрокаТовары.Номенклатура;
            НоваяСтрока.Цена                        = ТекСтрокаТовары.Цена;
            НоваяСтрока.Сумма                        = ТекСтрокаТовары.Сумма;
            НоваяСтрока.ХарактеристикаНоменклатуры  = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
            НоваяСтрока.Коэффициент                 = ТекСтрокаТовары.Коэффициент;
    КонецЦикла;
    
    
    докСчет.Записать(РежимЗаписиДокумента.Запись);


Что-то с товаром не так... и странно что нет ошибок.


 ! 

https://pro1c.org.ua/index.php?act=announce&id=2: 1
 

Автор: sava1 07.10.20, 11:38

Вы пробовали создать документ тем кодом, что я привел ?
только тем - свой закомментируйте.
заполнение Товары - Вам писали - оно некорректно. Вы постоянно добавляете в Реализацию строки - практически это бесконечный цикл.

кстати - цены в пределах разрешенных ?

попробуйте перед

докСчет.Записать(РежимЗаписиДокумента.Запись);


вставить
докСчет.ОбменДанными.Загрузка = истина;

Автор: MOTOPARTNER 07.10.20, 11:54

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