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

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

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Массовое формирование Реализации на основании Заказов

Автор: Constantus 14.08.17, 12:02

Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)

Имеется несколько Заказов контрагентов. Возможно ли ли выделив эти заказы сделать массово (нажатием одной кнопки) столько же Реализаций?
Лень нажимать на "Сделать на основании" для каждого Заказа :-)

Автор: Vofka 14.08.17, 12:07

Возможно.

Автор: Constantus 14.08.17, 12:09

Vofka @ Сегодня, 15:07 * ,


Понял :-) А как? В смысле программно?

Автор: podcast 14.08.17, 12:25

Constantus @ Сегодня, 13:09 * ,
Сделать обработку с ТЧ Заказы, и потом в цикл для каждого создать Реализацию, как то так.

Автор: Flexy 14.08.17, 13:06

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

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua