ean » Поиск » HelpF.pro

Результаты по ключевому слову: ean

Чтение RTF файлов через OpenOffice.

Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(

Код 1C v 7.x

 // Пример от  Jaap Vduul 

// Пример чтения таблицы из OpenOffice:

// =====================================    

    ServiceManager     = СоздатьОбъект("com.sun.star.ServiceManager");

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

    script             = СоздатьОбъект("ScriptControl");

    script.Language     = "vbs";

    script.AddCode

    (

        "Dim Parameters()

        |   

        |Sub InitParameters(Size)

        |     

        |    Erase Parameters

        |

        |    If Size > 0 Then 

        |        Redim Parameters(Size - 1) 

        |    End If

        |

        |End Sub

        |    

        |Sub SetParameter(ServiceManager, Name, Value, Index)

        |

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

        |    PropertyValue.Name     = Name

        |    PropertyValue.Value     = Value

        |    

        |    Set Parameters(Index) = PropertyValue

        |

        |End Sub

        |    

        |Sub SetBooleanParameter(ServiceManager, Name, Value, Index)

        |    

        |    SetParameter ServiceManager, Name, Cbool(Value), Index

        |

        |End Sub

        |

        |Function LoadDocument(ComponentLoader, URL, TargetFrameName, SearchFlags)

        |   

        |    Set LoadDocument = ComponentLoader.loadComponentFromURL(URL, TargetFrameName, SearchFlags, Parameters)

        |

        |End Function

        |

        |Sub CloseDocument(Document)

        |

        |    Document.Close True

        |

        |End Sub"

    );

       

    script.Run("InitParameters", 2);

    script.Run("SetBooleanParameter", ServiceManager, "ReadOnly",     1, 0);

    script.Run("SetBooleanParameter", ServiceManager, "Hidden",         1, 1);



    URL = ПреобразоватьВURL(КаталогПриказов + НомерПриказа + ".rtf");

    Документ = script.Run("LoadDocument", Desktop, URL, "_blank", 0);

    Таблица = Документ.TextTables.getByIndex(0); // ссылка на первую таблицу



    ВсегоСтрок         = Таблица.getRows().getCount();

    ВсегоСтолбцов     = Таблица.getColumns().getCount();

     

    Для ИндексСтроки = 1 По (ВсегоСтрок - 1) Цикл // ИндексСтроки = 1, т.к. пропускаем заголовок

        Для ИндексСтолбца = 0 По (ВсегоСтолбцов - 1) Цикл

            Ячейка = Таблица.getCellByPosition(ИндексСтолбца, ИндексСтроки);

            ТекстЯчейки = Ячейка.getString();

        КонецЦикла;

    КонецЦикла;



    script.Run("CloseDocument", Документ);

Категория: Работа с Microsoft Office и OpenOffice

Как закрепить шапку таблицы отчета?

Код 1C v 8.х

 // Пример от  sergeante   Фиксирует шапку при любых отборах.

Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка = 0) Экспорт

    Если Фиксировать Тогда

        Область = ТабДок.НайтиТекст(Строка,,,,Истина);

        ТабДок.ФиксацияСверху = ?(ЗначениеЗаполнено(Область), Область.Верх + Поправка, 0);    

    Иначе

        ТабДок.ФиксацияСверху = 0;

    КонецЕсли; 

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

Код 1C v 8.х

  // Пример от i-rek

   ПроцессорВывода.НачатьВывод(); 



    ТаблицаЗафиксирована = Ложь;

    Пока Истина Цикл

        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();

         Если ЭлементРезультата= Неопределено Тогда

            Прервать;     

         Иначе     

            ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);

            Если Не ТаблицаЗафиксирована И ЭлементРезультата.ЗначенияПараметров.Количество() >  0 Тогда

                ТаблицаЗафиксирована = Истина;

                Таб.ФиксацияСверху = Таб.ВысотаТаблицы;

              КонецЕсли;

         КонецЕсли;

    КонецЦикла;

    ПроцессорВывода.ЗакончитьВывод();

Код 1C v 8.х

 // Пример от Kashemir

Процедура глВывестиРезультатКомпоновкиСАвтофиксациейСтрок( Таб, 

                                                            ПроцессорКомпоновкиДанных, 

                                                            ЭлементыРасшировки,

                                                             Знач МассивИгнорируемыхПолей = Неопределено, 

                                                            РазрешитьПрерывание = Истина) Экспорт 

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Таб);

 ПроцессорВывода.НачатьВывод();

 ФиксацияВыполнена = Ложь;

 Если МассивИгнорируемыхПолей = Неопределено Тогда

     МассивИгнорируемыхПолей = Новый Массив;

 КонецЕсли; 

 Пока Истина Цикл

     ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();

     Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда

         Прервать;

     КонецЕсли;

     

     // Автофиксация 

     Если Не ФиксацияВыполнена Тогда

         Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл

             Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

                 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();

                 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл

                     Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда

                         Таб.ФиксацияСверху = Таб.ВысотаТаблицы;

                         ФиксацияВыполнена = Истина;

                         Прервать;

                     КонецЕсли;

                 КонецЦикла;

                 Если ФиксацияВыполнена Тогда

                     Прервать;

                 КонецЕсли;

             КонецЕсли;

         КонецЦикла;

     КонецЕсли;

     

     ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);

     Если РазрешитьПрерывание Тогда

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

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

         #КонецЕсли 

     КонецЕсли; 

 КонецЦикла;

 ПроцессорВывода.ЗакончитьВывод();

 

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

Категория: Схема Компоновки Данных

При заполнении регламентированных отчетов, неверно отображается штрих-код Категория: 1С Общие вопросы - Обычные формы

Использование программы rundll32.exe в 1С Категория: COM-объекты, WMI, WSH

Пример регистрации файла шрифта

Код 1C v 8.х

 

	ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив;

	ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF");

	ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF");

	Попытка

		objShell = Новый COMОбъект("Shell.Application");

		objFolder = objShell.Namespace(20);

		ПутьККаталогуШрифтов = objFolder.Items().Item().Path;

		Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда

			ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\";

		КонецЕсли;

		ФайлШрифтаСуществует = Ложь;

		Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл

			ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта);

			Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда

				ФайлШрифтаСуществует = Истина;

				Прервать;

			КонецЕсли;

		КонецЦикла;

		Если НЕ ФайлШрифтаСуществует Тогда

			ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\";

			СоздатьКаталог(ВремКаталог);

			ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0];

			Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта);

			objFolder.CopyHere(ВремФайлШрифта);

			УдалитьФайлы(ВремКаталог);

		КонецЕсли;

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

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

	Исключение

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

Категория: COM-объекты, WMI, WSH