"У меня стоит задача.<br>К документу ПКО я прекрепил функцию которая при нажатие на Ок,Записать,Провести<br>Создает\пополняет файлик тхт.<br>С этим все верно.<br>Но есть одно но, нужно чтобы функция срабатывала только тогда когда документ проведен, а не только записан.<br>Тоесть щас у меня функция создания файла находитсья в процедуре<br>Процедура ПриЗаписи() <br> Перем ОписаниеОш;<br> <br> Если глМожноЗаписатьДокумент(Контекст)=0 Тогда<br> СтатусВозврата(0); <br> ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента)=1 Тогда<br> СтатусВозврата(0); <br> Иначе<br> Если глПриЗаписиДокОснСФКонтр(Контекст, ВидСчетаФактуры, "ЗаписьКнигиПродаж", НачКонтрагент, НачДоговор, НачФирма, ОписаниеОш, НачСумма) = 0 Тогда<br> Предупреждение(ОписаниеОш, 60);<br> СтатусВозврата(0);<br> Иначе<br> Если глПриЗаписиДокОснСФВал(Контекст, ВидСчетаФактуры, "ЗаписьКнигиПродаж", НачВалюта, НачКурс, ОписаниеОш) = 0 Тогда<br> Предупреждение(ОписаниеОш, 60);<br> СтатусВозврата(0);<br> Иначе<br> НачВалюта = Валюта;<br> НачКурс = Курс;<br> НачКонтрагент = Контрагент;<br> НачДоговор = Договор;<br> НачФирма = Фирма; <br> НачСумма = Сумма;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br><br> Если КодОперации = глКО.ВозвратПодотчетныхСумм Тогда<br> Контрагент = """";<br> Договор = """";<br> <br> Счет = """";<br> Субконто1 = """";<br> Субконто2 = """";<br> Субконто3 = """";<br><br> СчетНУ = """";<br> СубконтоНУ1 = """";<br> СубконтоНУ2 = """";<br> СубконтоНУ3 = """";<br><br> ИначеЕсли КодОперации = глКО.Прочее Тогда<br> Контрагент = """";<br> Договор = """";<br> <br> ФизЛицо = """";<br> АвансовыйОтчет = """";<br> Иначе<br> Счет = """";<br> Субконто1 = """";<br> Субконто2 = """";<br> Субконто3 = """";<br><br> СчетНУ = """";<br> СубконтоНУ1 = """";<br> СубконтоНУ2 = """";<br> СубконтоНУ3 = """";<br> <br> ФизЛицо = """";<br> АвансовыйОтчет = """";<br> КонецЕсли; <br><br><br> Конст = Константа.Биллинг.Наименование; <br> Текст = СоздатьОбъект("Текст");<br> ТекстДок = СоздатьОбъект("Текст");<br> Список = СоздатьОбъект("СписокЗначений");<br> /// Создание файла ПКО.txt <br> Список.ДобавитьЗначение(НомерДок);<br> Список.ДобавитьЗначение(ДатаДок);<br> Список.ДобавитьЗначение("Контрагент: "+ДокОснование.Контрагент);<br> Кол=0; //Количество Наименований номенклатуры в документ Реализацие.<br> Биллинг="Ложь";<br> Пока(ДокОснование.ПолучитьСтроку() > 0) Цикл<br> Сообщить(Конст);<br> Сообщить(ДокОснование.Номенклатура.Наименование);<br> Если ДокОснование.Номенклатура.Наименование = Конст Тогда<br> Биллинг="Истина";<br> Список.ДобавитьЗначение(ДокОснование.Номенклатура.Наименование);<br> КонецЕсли; <br> Кол=Кол+1; <br> КонецЦикла;<br> Список.ДобавитьЗначение(ДокОснование.СуммаВзаиморасчетов);<br> <br> Если (Кол=1) и (Биллинг="Истина") Тогда<br> Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); <br> Если ФС.СуществуетФайл("C:\ПКО.txt")=1 Тогда <br> Сообщить("Фаил существует");<br> ТекстДок.Открыть("C:\ПКО.txt");<br> ТекстДок.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); <br> ТекстДок.Записать("C:\ПКО.txt"); <br> Иначе<br> Сообщить("Фаила не существует");<br> Текст.Записать("C:\ПКО.txt");<br> КонецЕсли;<br> КонецЕсли; <br> Список.УдалитьВсе();// очищаем список <br> <br>/// Конец Создание файла ПКО.txt<br><br> <br>КонецПроцедуры // ПриЗаписи() <br><br><br>Как зделать чтобы файлик перезаписывался только если документ проводиться(тоесть сразу после проводки).<br>"