Имя: Пароль:
1C
1С v8
Синхронизация документа реализация со счет фактурой
0 denis_solyanko
 
16.10.14
09:02
добрый день, нужно сделать чтобы документ реализации синхронизировался с документом СФ, то есть , если сделали счет фактуру на основании реализации. в дальнейшем при изменении реализации , при нажатии проведение в счет фактуре должны изменится данные идентично реализации, Это все  в конфе Альфа Авто . Нашел пример в утп
//Процедура синхронизирует данные документа отгрузки и подчинненой ему счет-фактуры
//
Процедура СинхронизироватьДанныеДокументаИСчетаФактуры(ДокументОбъект, Отказ, ВидСчетаФактуры = "СчетФактураВыданный") Экспорт
    
    //Если документ основания удален, то нет необходимости синхронизировать
    Если ДокументОбъект.ПометкаУдаления Тогда
        Возврат;
    КонецЕсли;
        
    //Попытаемся найти счет-фактуру
    СчетФактура = ОбщегоНазначения.НайтиПодчиненныйДокумент(ДокументОбъект.Ссылка, ВидСчетаФактуры);
    
    Если СчетФактура = Неопределено Тогда
        Возврат;
    КонецЕсли;
    
    Если ЗначениеЗаполнено(СчетФактура) И СчетФактура.ПодтвержденДокументамиОтгрузки Тогда
        
        НеобходимВыводСообщения = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ВыводитьСообщенияДляСчетовФактур");
        Если НеобходимВыводСообщения Тогда
            Если ВидСчетаФактуры = "СчетФактураВыданный" Тогда
                #Если Клиент Тогда    
                    Сообщить("Для документа отгрузки зарегистрирован счет-фактура: " + """" + СчетФактура + """, данные счета-фактуры перезаполнены данными документа-основания");
                Иначе         
                    Сообщить("Для документа поступления зарегистрирован счет-фактура: " + """" + СчетФактура + """, данные счета-фактуры перезаполнены данными документа-основания");
                #КонецЕсли
            КонецЕсли;            
        КонецЕсли;
        
        ОбъектСчетаФактуры = СчетФактура.ПолучитьОбъект();
        
        ПерезаполнитьСчетФактуру(ОбъектСчетаФактуры, ДокументОбъект, ВидСчетаФактуры, Отказ);
        
    КонецЕсли;
    
КонецПроцедуры    //СинхронизироватьДанныеДокументаИСчетаФактуры()
1 Banned
 
16.10.14
09:03
продолжай наблюдения
2 anatoly
 
16.10.14
09:48
(0) молодец. а в чем вопрос то?