Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: автоматическое создание документа на основании другого документа
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование управляемых форм 1С 8.2
афродита
Здравствуйте, у меня возникла вот такая проблема. Мне надо чтобы при создании документа Заявка автоматически создавался документ Счет-фактура с такими же полями что и Заявка. Ввод на основании я уже сделала а что дальше делать незнаю, помогите.
logist
Вопрос из разряда: Мне надо что бы машина ездила на бензине, бензин я уже залила, что делать дальше...
Vofka
афродита, в чем конкретно вопрос/проблема?
афродита
Проблема в том что я даже представлений не имею как эту задачу программно написать
Vofka
Как вы ввод на основании делали?
Petre
Сделать очень просто. Вариантов достаточно. Но в таких задачах есть очень много нюансов, которые напрямую влияют на вариант реализации данного функционала.
Rayne
Есть события документов (ПослеЗаписи, ОбработкаПроведения). Есть подписки на события (что гораздо лучше с точки зрения изменения конфигурации). С чем конкретно возникают сложности?
афродита
Я сделала через конструктор, чтобы Заявка была Основанием для Документа Счет_фактура. В модуле объекта получилось вот что:
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
    //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заявка") Тогда
        // Заполнение шапки
        Перевозчик = ДанныеЗаполнения.Грузоотправитель;
        Для Каждого ТекСтрокатовар Из ДанныеЗаполнения.товар Цикл
            НоваяСтрока = товар.Добавить();
            НоваяСтрока.количество = ТекСтрокатовар.Количество;
            НоваяСтрока.наименование = ТекСтрокатовар.наименование_груза;
            НоваяСтрока.ндс = ТекСтрокатовар.ндс;
            НоваяСтрока.заявка = ТекСтрокатовар.ссылка;
            НоваяСтрока.ставка_ндс = ТекСтрокатовар.ставка_ндс;
            НоваяСтрока.сумма = ТекСтрокатовар.Сумма;
            НоваяСтрока.сумма_с_ндс = ТекСтрокатовар.сумма_с_ндс;
            НоваяСтрока.цена = ТекСтрокатовар.Цена;
        КонецЦикла;
    КонецЕсли;
    //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры

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

попыталась реализовать, это все я написала в ПриЗаписи, он у меня ругается что в Процедура с указаным именем не определена: ОбновитьСчет_фактура(СвязанныйДокумент, Источник);
И дальше я в тупике, незнаю че и делать
Rayne
А процедура ОбновитьСчет_фактура(СвязанныйДокумент, Источник) где-то описывается? Судя по коду, это должна быть процедура, в которой собственно заполняется счет.
афродита
Да есть такая процедура:
Процедура ОбновитьСчет_фактура(ДокументЗаявка, Источник)
    
    // Заполняем одноименные реквизиты расходной накладной
    // из документа перемещения
    ЗаполнитьЗначенияСвойств(ДокументЗаявка, Источник, , "Номер");
    // Дату расходного ордера увеличиваем на 1 секунду
    // от даты документа перемещения
    ДокументЗаявка.Дата = Источник.Дата + 1;
    ДокументЗаявка.ВидОперации = Перечисления.ВидыОперацийСчет_фактура.Перемещение;
    ДокументЗаявка.ДокументПередачи = Источник.Ссылка;
    // Заполняем таб. часть "Товары" из документа перемещения
    ДокументЗаявка.Товар.Очистить();
    Для Каждого Стр Из Источник.Товар Цикл
        СтрокаТовар = ДокументЗаявка.Товар.Добавить();
        ЗаполнитьЗначенияСвойств(СтрокаТовар,Стр);
    КонецЦикла;    
    
КонецПроцедуры

Я ее вставила в код, 1с даже не поругалась, но при этом ничего не происходит. Когда я создаю/обновляю Заявки Документ Счет_фактура не создается. И как сделать так чтобы на когда я создаю,обновляю Заявку создавалось несколько документов, например счет-фактура и товарная накладная?
Rayne
Что говорит всезнающий отладчик?
хакерок
Цитата(афродита @ 20.05.14, 20:34) необходимо зарегистрироваться для просмотра ссылки
Я ее вставила в код, 1с даже не поругалась, но при этом ничего не происходит. Когда я создаю/обновляю Заявки Документ Счет_фактура не создается. И как сделать так чтобы на когда я создаю,обновляю Заявку создавалось несколько документов, например счет-фактура и товарная накладная?


Нужно создавать документ после того как записывалась Заявка?
jo_1010
Есть несколько вариантов как решить Авто ввод на основании:

Как я понимаю - проблема именно в вызове процедуры ОбработкаЗаполнения()?

1. Тогда берем, в Вашем случае, модуль формы документа "Заявка".
Т.к. для ввода на основании нам необходима ссылка на док.основание (т.е. на нашу Заявку), то вызывать ОбработкаЗаполнения() мы будем после записи Заявки.
2. Итак, в модуле формы заявки открываем/создаем обработчик ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) и делаем так:
 &НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
    Док = Документы.СчетФактура.СоздатьДокумент();
    
    Док.ОбработкаЗаполнения(Объект.Ссылка, Истина);
    Док.Дата = ТекущаяДата();  //или "= Объект.Дата", или "= любая другая дата"...
    Док.Записать(РежимЗаписиДокумента.Проведение);
КонецПроцедуры


3. ВАЖНО!!! для процедуры ОбработкаЗаполнения() (модуль документа СчетФактура) ОБЯЗАТЕЛЬНО должно быть прописано Экспорт. Вот так:
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка) Экспорт

и пробуем... (делал в 8.3, но в 8.2 тоже должно работать
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.