DESIGNER /F"D:\V8\Cfgs82\ИБ82" /ConfigurationRepositoryF "D:\V8\Cfgs82" /ConfigurationRepositoryN "Администратор" /ConfigurationRepositoryReport "D:\ByObject.mxl" -NBegin 1 -NEnd 2 –GroupByObject    

 DESIGNER /F"D:\V8\Cfgs82\ИБ82" /ConfigurationRepositoryReport "D:\ByComment.mxl" -NBegin 1 -NEnd 2 -GroupByComment   

 Процедура ПередЗаписью(Отказ)

Узел=ПланыОбмена.УдаленныеСклады.НайтиПоКоду("Оптовый");

Объект.ОбменДанными.Получатели.Удалить(Узел);

КонецПроцедуры   

 Процедура ВключитьРегистрацию(ОбменДанными, Склад) Экспорт 

//Получение узлов для конкретного склада 

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

  |   УдаленныеСклады.Ссылка

  |ИЗ

  |   ПланОбмена.УдаленныеСклады КАК УдаленныеСклады

  |

  |ГДЕ

  |   (УдаленныеСклады.Склад = &Склад ИЛИ

  |   УдаленныеСклады.Склад = &ПустойСклад) И

  |   УдаленныеСклады.Ссылка <> &ЭтотУзел";

 

Запрос.УстановитьПараметр("Склад", Склад);  

Запрос.УстановитьПараметр("ПустойСклад", 

Справочники.Склады.ПустаяСсылка());  

Запрос.УстановитьПараметр("ЭтотУзел", 

ПланыОбмена.УдаленныеСклады.ЭтотУзел());  

Выборка = Запрос.Выполнить().Выбрать();

 

// Регистрация изменений для выбранных узлов

Пока Выборка.Следующий() Цикл

ОбменДанными.Получатели.Добавить(Выборка.Ссылка);

КонецЦикла; 

КонецПроцедуры   

 Объект.НаименованиеПолное = Объект.Наименование;

Объект.Записать();   

 Если Ссылка.ПолучитьОбъект() = Неопределено Тогда 

//битая ссылка 

КонецЕсли;

// или так (НО ненадежно):

Если Лев(СокрЛП(Ссылка),18) = "<Объект не найден>" Тогда     

 // Еще вариант (действует для обьектов, которые имеют ссылку)

Попытка

  обьект=Ссылка.Ссылка;

Исключение

  сообщить("битая");

КонецПопытки;   

 Процедура УдалениеБитыхСсылок(ИмяРегистра,ТипРегистра,ТипРегистраЗ)

    МенеджерРегистра = ТипРегистра[ИмяРегистра];

    

    Запрос = Новый Запрос("

    |ВЫБРАТЬ Регистратор

    |ИЗ "+ТипРегистраЗ+"."+ИмяРегистра+" 

    |ГДЕ Регистратор.Ссылка ЕСТЬ NULL И НЕ Регистратор = &ПустаяСсылкаДокумента");

    Запрос.УстановитьПараметр("ПустаяСсылкаДокумента",Неопределено);

    

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        Набор = ТипРегистра[ИмяРегистра].СоздатьНаборЗаписей();

        Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);

        Набор.Записать();

        ОбработкаПрерыванияПользователя();

        Состояние(""+ТипРегистра+" "+ИмяРегистра);

    КонецЦикла;

КонецПроцедуры 

 



Процедура КнопкаВыполнитьНажатие(Кнопка)



    Для Каждого пРегистр из Метаданные.РегистрыСведений Цикл

        Подчинен        =    (пРегистр.РежимЗаписи = Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.ПодчинениеРегистратору);

        Если Подчинен Тогда

            УдалениеБитыхСсылок(пРегистр.Имя,РегистрыСведений,"РегистрСведений")

        КонецЕсли;    

    КонецЦикла; 

   

    Для Каждого пРегистр из Метаданные.РегистрыБухгалтерии Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыБухгалтерии,"РегистрБухгалтерии")

    КонецЦикла;

    

    Для Каждого пРегистр из Метаданные.РегистрыРасчета Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыРасчета,"РегистрРасчета")

    КонецЦикла;



    Для Каждого пРегистр из Метаданные.РегистрыНакопления Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыНакопления,"РегистрНакопления")

    КонецЦикла;

    

КонецПроцедуры   

 &НаКлиенте

Процедура УдалитьДокумент(Команда)

   

        // Вставить содержимое обработчика.

        УдалитьДокументНаСервере(0);

   

КонецПроцедуры



&НаСервере

Процедура УдалитьДокументНаСервере(ПометкаУдаления)

   

        // Вставить содержимое обработчика.

        Перем УдаляемыйДокумент;

   

        УдаляемыйДокумент =Документы.РасходнаяНакладная.НайтиПоНомеру("000000004");

        Если ПометкаУдаления = 1 Тогда

                УдаляемыйДокумент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

        Иначе

                УдаляемыйДокумент.ПолучитьОбъект().Удалить();

        КонецЕсли;

   

КонецПроцедуры   

 //Установить пометку удаления документа

ТС=ЭлементыФормы.Список.ТекущиеДанные;

    ТД=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ТС.Номер, ТС.Дата);

    Если ТД.Пустая() Тогда

       Сообщить("Документ по номеру <такому то> не найден");

       возврат;

    КонецЕсли;

    ТД.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);   

 // Непосредственное удаление документов

Запрос = Новый Запрос("ВЫБРАТЬ

                          |    Заказы.Ссылка

                          |ИЗ

                          |    Документ.Заказы КАК Заказы

                          |ГДЕ

                          |    Заказы.ПометкаУдаления = ИСТИНА");

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

  ОбъектДокумент = Выборка.Ссылка.ПолучитьОбъект();

  ОбъектДокумент.Удалить();

КонецЦикла;   

 Д = СоздатьОбъект("Документ");

Д.ВыбратьДокументы(НачДата,КонДата);

Пока Д.ПолучитьДокумент() = 1 Цикл

   Сообщить(Д.ТекущийДокумент());

   Состояние(Д.ДатаДок);

   Д.Удалить();

КонецЦикла;

 Процедура КнопкаВыполнитьНажатие(Кнопка)

    Если Письмо.Основание.Пустая() Тогда

        Возврат

    КонецЕсли;



    // Открыть OpenOffice

    Попытка

        ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");

    Исключение

        Возврат // опен офис не установлен :-(

    КонецПопытки;



    // получим печатную форму и запишем её во временный XLS файл

    Заказ = Письмо.Основание.ПолучитьОбъект();



    //Получим печатную форму

    Расшифровка=Новый Структура;

    Расшифровка.Вставить("СсылкаНаВнешнююОбработку",Константы.ПФСчетаДляКлиента.Получить());

    Расшифровка.Вставить("ВидПечатнойФормы",Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма);

    Расшифровка.Вставить("НомерСтроки",1);

    тд = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Заказ, Расшифровка);



    ВременныйФайл =ПолучитьИмяВременногоФайла();

    ВременныйФайлXLS =ВременныйФайл + ".xls";

    ВременныйФайлPDF =ВременныйФайл + ".pdf";

    тд.Записать(ВременныйФайлXLS, ТипФайлаТабличногоДокумента.XLS97);



    // Преобразовываем временный xls файл В PDF

    Desktop        = ServiceManager.createInstance("com.sun.star.frame.Desktop");



    НастройкиОткрытия = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "Hidden";

    PropertyValue.Value = Истина;

    НастройкиОткрытия.SetValue(0, PropertyValue);

    ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлXLS, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный



    // Откроем файл в опене офисе

    ОпенОфис = Desktop.LoadComponentFromURL(ВременныйФайлXLS_какУРЛ, "_blank", 0, НастройкиОткрытия);



    //ПараметрыСтраницы = ОпенОфис.createInstance("com.sun.star.style.PageStyle");

    //ПараметрыСтраницы.ScaleToPagesX = 1;

    //

    // Установим масштаб, чтобы счёт помещался на одной странице вширь

    // страниц почему-то много, поэтому устанавливаем масштаб для всех

    Стили = ОпенОфис.StyleFamilies.getByName("PageStyles");

    Для поз = 0 по Стили.count - 1 Цикл

        МойСтиль = Стили.getByIndex(поз);

        МойСтиль.ScaleToPagesX = 1; // уместить на одной странице вширь

        //МойСтиль.PageScale = 50; // масштаб 50%

    КонецЦикла;



    НастройкиСохранения = Новый COMSafeArray("VT_VARIANT", 1);

    PropertyValue = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue");

    PropertyValue.Name = "FilterName";

    PropertyValue.Value = "calc_pdf_Export";

    НастройкиСохранения.SetValue(0, PropertyValue);



    ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить(ВременныйФайлPDF, "\", "/"); // приводим путь к файлу из виндового формата в опен офисный

    ОпенОфис.storeToURL(ВременныйФайлPDF_какУРЛ, НастройкиСохранения); // сохранили PDF файл

    ОпенОфис.close(-1);

    ОпенОфис = Неопределено;



    // С опеном офисом разобрались. Прикрепляем вложение к письму и удаляем временные файлы.

    //Файл = Новый Файл(ВременныйФайлPDF);

    объектПисьмо = Письмо.ПолучитьОбъект();

    стрВложение = объектПисьмо.Вложения.Добавить();

    стрВложение.ИмяФайла = "Счёт " + Строка(Заказ.Номер) + ".pdf";

    стрВложение.Файл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ВременныйФайлPDF));

    объектПисьмо.Записать();

    Попытка

        УдалитьФайлы(ВременныйФайлXLS);

        УдалитьФайлы(ВременныйФайлPDF);

    Исключение

    КонецПопытки;



КонецПроцедуры   

 // Функция превращает табличный документ в PDF документ

// Возвращаемое значение: тип "Строка" - имя созданного PDF файла, 0 - в случае ошибки

// Параметры: ДанныеВыгрузки - Табличный или текстовый документ, который нужно выгрузить в PDF

//            ПутьВыгрузки - тип "Строка", путь для сохраниения PDF файла (без имени и расширения файла)

//            ИмяФайлаБезРасширения - тип "Строка", имя для вновь сформированного PDF файла

// Тестировалось на OpenOffice 3.x

Функция ВыгрузитьТабличныйДокументВPDF(ДанныеВыгрузки, ПутьВыгрузки, ИмяФайлаБезРасширения)       

    Если НЕ ЗначениеЗаполнено(ПутьВыгрузки) Тогда

        ПутьВыгрузки = КаталогВременныхФайлов();

    КонецЕсли;   

    ПутьВыгрузки         = ?(Прав(ПутьВыгрузки, 1) = "\", ПутьВыгрузки, ПутьВыгрузки + "\");

   

    РасширениеXSL         = ".xls";

    РасширениеPDF         = ".pdf";

    ПолноеИмяФайлаXLS     = ПутьВыгрузки + ИмяФайлаБезРасширения + РасширениеXSL;

    //Выгрузка данных печати в файл XLS   

#Если Клиент Тогда

    Состояние("Создание временного файла...");

#КонецЕсли

    Попытка

        Если         ТипЗнч(ДанныеВыгрузки) = Тип("ТабличныйДокумент") Тогда        

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        ИначеЕсли     ТипЗнч(ДанныеВыгрузки) = Тип("ТекстовыйДокумент") Тогда

            ДанныеВыгрузки.Записать(ПолноеИмяФайлаXLS, "XLS");

        Иначе

#Если Клиент Тогда

            Сообщить("Данные для выгрузки переданы в неподдерживаемом формате. Дальнейшее выполнение невозможно." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

            Возврат 0;

        КонецЕсли;

    Исключение

#Если Клиент Тогда

        Сообщить("Произошла ошибка при выгрузке временного файла. Возможно ошибка доступа к папке, в которую происходит запись." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

    КонецПопытки;

   

    Попытка

#Если Клиент Тогда

        Состояние("Открытие компоненты OpenOffice...");

#КонецЕсли

        ServiceManager    = Новый COMОбъект("com.sun.star.ServiceManager");       

       

        Скрипт             = Новый COMОбъект("MSScriptControl.ScriptControl");

        Скрипт.language    = "javascript";

        Скрипт.AddObject("OpenOffice", ServiceManager);

       

        //Открытие временного файла без отображения его окна

#Если Клиент Тогда           

        Состояние("Открытие временного файла...");

#КонецЕсли

        Скрипт.eval("Массив=new Array()");       

        Массив             = Скрипт.eval("Массив");   

        Скрипт.eval("Массив[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");

        Скрипт.eval("Массив[0].Name     = 'Hidden'");

        Скрипт.eval("Массив[0].Value = true");

       

        Скрипт.AddCode("function SetItem(ind,val){Массив[ind]=val}");       

        Скрипт.AddObject("ServiceManager",ServiceManager);

        Desktop         = ServiceManager.createInstance("com.sun.star.frame.Desktop");       

        Document         = Desktop.LoadComponentFromURL("file:///" + ПолноеИмяФайлаXLS, "_blank", 0, Массив);

       

        //Сохранение в PDF встроенными средствами OpenOffice

#Если Клиент Тогда           

        Состояние("Запись в PDF...");

#КонецЕсли

        Скрипт.eval("Массив2=new Array()");       

        Массив2     = Скрипт.eval("Массив2");       

        Скрипт.eval("Массив2[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");       

        Скрипт.eval("Массив2[0].Name  = 'FilterName'");

        Скрипт.eval("Массив2[0].Value = 'writer_pdf_Export'");

       

        ПолноеИмяФайлаPDF         = "file:///" + СтрЗаменить(ПолноеИмяФайлаXLS, РасширениеXSL, РасширениеPDF);

        ПолноеИмяФайлаPDF         = СтрЗаменить(ПолноеИмяФайлаPDF, ВРег(РасширениеXSL), РасширениеPDF);

        ПолноеИмяФайлаPDF        = СтрЗаменить(ПолноеИмяФайлаPDF, "\", "/");       

               

        Document.storeToURL(ПолноеИмяФайлаPDF, Массив2);

        Document.close(-1);        //Закрыть документ

       

        //Контрольная очистка переменных

        Document     = Неопределено;

        Desktop     = Неопределено;

       

        //Удаление временного файла

#Если Клиент Тогда           

        Состояние("Удаление временного файла...");

#КонецЕсли       

        Попытка

            УдалитьФайлы(ПолноеИмяФайлаXLS);

        Исключение

#Если Клиент Тогда           

            Сообщить("Произошла ошибка при удалении временного файла. Возможно, потребуется удалить его вручную." + Символы.ПС + ОписаниеОшибки());

#КонецЕсли

        КонецПопытки;

       

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "file:///", "");

        ПолноеИмяФайлаPDF = СтрЗаменить(ПолноеИмяФайлаPDF, "/", "\");

#Если Клиент Тогда

        Состояние("Выгрузка выполнена.");

        Предупреждение("Выгрузка выполнена." + Символы.ПС + ПолноеИмяФайлаPDF);       

#КонецЕсли

        Возврат ПолноеИмяФайлаPDF;

    Исключение

        Document.close(-1);

#Если Клиент Тогда

        Предупреждение(ОписаниеОшибки());

#КонецЕсли

        Возврат 0;

    КонецПопытки   

КонецФункции   

 

Объект.Товары.Удалить(Элементы.Товары.ТекущаяСтрока);   

 //Изображение, картинки (фотки):



ТекИзображение.Объект = СпрТкани.Ссылка;

ТекИзображение.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;

Хранилище = Новый ХранилищеЗначения(НоваяКартинка, Новый СжатиеДанных());

ТекИзображение.Хранилище = Хранилище.Получить();



// в этом месте он все выводит ...



ЭлементыФормы.ПолеКартинки1.Картинка = Хранилище.Получить();

ТекИзображение.Записать();   

 

//Табличный документ:

Процедура СохранитьВХранилищеНажатие(Элемент)

    ТабДок=Новый ТабличныйДокумент;    

    ТабДок.Вывести(ЭлементыФормы.ПолеТабличногоДокумента1);

    Хранилище=Новый ХранилищеЗначения(ТабДок);

    Записать();

КонецПроцедуры



Процедура ВосстановитьИзХранилищаНажатие(Элемент)

    ТабДок=Хранилище.Получить();

    Если ТабДок<>Неопределено Тогда

        ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(ТабДок);

    КонецЕсли;

КонецПроцедуры   

  //Произвольные файлы (двоичные данные):



ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл));   

 ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл),Новый СжатиеДанных(9));

   

 //Внешние обработки и отчеты:



Процедура ЗагрузитьОбработкуВХранилище(РеквизитТипХранилище)

   СтепеньСжатия = Новый СжатиеДанных(9); //9 максимум   

   РеквизитТипХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("c:\отчеты\отчет.epf", СтепеньСжатия));

КонецПроцедуры

  

Процедура ЗапуститьОбработкуИзХранилища(РеквизитТипХранилище)

   ИмяВременногоФайла = КаталогВременныхФайлов()+"отчет.epf";

   ДвоичныеДанные = РеквизитТипХранилище.Получить();

   ДвоичныеДанные.Записать(ИмяВременногоФайла);

   ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременногоФайла);

   ВнешняяОбработка.ПолучитьФорму().Открыть();

КонецПроцедуры    

 Если ТипЗнч(Хранилище) <> Тип("ДвоичныеДанные") Тогда

    ДвоичныеДанные = Хранилище.Получить();

Иначе

    ДвоичныеДанные = Хранилище;

КонецЕсли; 

ДвоичныеДанные.Записать(ИмяФайла);

   

 ЗапуститьПриложение(ИмяФайла);   

  РеквизитХранилище = Неопределено;   

 фл=Хранилище<>Неопределено;   

 фл=Хранилище.Получить()<>Неопределено;   

 &НаКлиенте

Процедура ПоКнопкеУдалитьКонтрагента(Команда)

   

   Режим = РежимДиалогаВопрос.ДаНетОтмена;

    Ответ = Вопрос("Удалить непосредственно? Да - удалить, Нет - пометка удаления",Режим, 0);

   

    Если Ответ = КодВозвратаДиалога.Да Тогда

          УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Ложь);

    ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда

        УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Истина);

   КонецЕсли;

   

КонецПроцедуры



&НаСервере

Процедура УдалитьКонтрагента(УдаляемыйКонтрагент, ПометкаНаУдаление)

   

    Если ПометкаНаУдаление = Истина Тогда

        УдаляемыйКонтрагент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина, Истина);

    Иначе

        УдаляемыйКонтрагент.ПолучитьОбъект().Удалить();

    КонецЕсли;       

   

КонецПроцедуры   

 СпрСотр = Справочники.Сотрудники;

СпрСотр.Удалить(); //непосредственное удаление



СпрСотр.УстановитьПометкуУдаления (Истина); //пометка на удаление

СпрСотр.УстановитьПометкуУдаления (Ложь); //снять пометку на удаление



//можно проверить, помечен ли элемент на удаление

//есть свойство ПометкаУдаления, оно имеет тип Булево - Истина или Ложь

Пометка = СпрСотр.ПометкаУдаления; //обратите внимание: это свойство

Если Пометка = Истина Тогда

.....//элемент помечен на удаление

КонецЕсли;    

  спр=СоздатьОбъект("Справочник.Материалы");

// далее необходимо найти элемент и 

// Удалить элемент справочника, на который установлена переменная спр, можно так:

спр.Удалить(1); //собственно удаление элемента



// Установить пометку на удаление элемента справочника можно так:

спр.Удалить(0); //пометка элемента на удаление

// впоследствии можно снять установленную пометку удаления

спр.СнятьПометкуУдаления();