org » Поиск » HelpF.pro

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

QR код в 1С

Столкнулся с интересной задачей реализации генерации QR-кода в 1С 8.2 ( QR-код — матричный код (двухмерный штрихкод) ) Для генерации было использовано api от google (http://chart.apis.google.com/chart). Вот сайт, который работает с ним. После того, как вы вводите все параметры кода и нажимаете кнопку генерировать, получаем что-то вроде такой ссылки. По сути эта ссылка нам и нужна. Создав необходимый url можно скачать картинку, которая генерируется с помощью api.
И так в чем заключается подход:
1. Генерируем текст, который надо прописать в qr-коде.
2. Используя ссылку «http://chart.apis.google.com/chart?cht=qr&chs=230?230&chl=» +»Наш текст» скачиваем картинку.
3. Размещаем картинку в нашем табличном документе.
Код реализации:

Код 1C v 8.2 УП

 &НаСервере

Функция hex(Знач Значение)

    Значение=Число(Значение);

    Если Значение<=0 Тогда

        Результат="0";

    Иначе

        Значение=Цел(Значение);

        Результат="";

        Пока Значение>0 Цикл

            Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%16 + 1,1)+Результат;

            Значение=Цел(Значение/16) ;

        КонецЦикла;

    КонецЕсли;

    Если СтрДлина(Результат) < 2 Тогда



        Результат = "0" + Результат;



    КонецЕсли;

    Возврат "%" + Результат;

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



&НаСервере

Функция EncodeURL(URL)

    Рез = "";

    Для Сч = 1 По СтрДлина(URL) Цикл

        ch = Сред(URL,Сч,1);

        vch = КодСимвола(ch);



        Если ("A" <= ch ) И ( ch <= "Z") Тогда      // "A".."Z"

            Рез = Рез + ch;

        ИначеЕсли ("a" <= ch ) И ( ch <= "z") Тогда // "a".."z"

            Рез = Рез + ch;

        ИначеЕсли ("0" <= ch ) И ( ch <= "9") Тогда // "0".."9"

            Рез = Рез + ch;

        ИначеЕсли (ch = " ") ИЛИ ( ch = "+") Тогда          // space

            Рез = Рез + "+";

        ИначеЕсли (ch = "-" ) ИЛИ ( ch = "_")       // unreserved

            ИЛИ (ch = ".") ИЛИ (ch = "!")

            ИЛИ (ch = "~") ИЛИ (ch = "*")

            ИЛИ (ch = "") ИЛИ (ch = "(")

            ИЛИ (ch = ")") Тогда

            Рез = Рез + ch;

        ИначеЕсли (vch <= 127) Тогда        // other ASCII

            Рез = Рез + hex(vch);

        ИначеЕсли (vch <= 2047) Тогда       // non-ASCII <= 0x7FF

            Рез = Рез + hex(192 + Цел(vch / 64));

            Рез = Рез + hex(128 + (vch % 64));

        Иначе                   // 0x7FF < ch <= 0xFFFF

            Рез = Рез + hex(224 + Цел(vch / 4096));

            Рез = Рез + hex(128 + (Цел(vch / 64) % 64));

            Рез = Рез + hex(128 + (vch % 64));

        КонецЕсли;

    КонецЦикла;



    Возврат Рез;

КонецФункции // ()



&НаСервере

Функция СохранитьДвоичныйБуферВФайл(Буфер, ИмяФайла) Экспорт

    Поток = Новый COMОбъект("ADODB.Stream");

    Поток.Type = 1;  //Бинарный

    Поток.Mode = 3;

    Поток.Open();

    Поток.Write(Буфер);

    Поток.SaveToFile(ИмяФайла);

    Поток.Close();

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



&НаСервере

Функция НапечататьКодСервер(ЗаказСсылка)

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

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

    АдресНачало = "http://chart.apis.google.com/chart?cht=qr&chs=230x230&chl=";

    АдресКонец = ЗаказСсылка.Номер  + Символы.ПС + Заказссылка.Контрагент.Наименование;

    АдресКонец = СтрЗаменить(АдресКонец, " ", "+");

    АдресКонец = EncodeURL(АдресКонец);



    Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");

    Соединение.open("GET", АдресНачало + АдресКонец,0,,);

    Соединение.send(null);

    СохранитьДвоичныйБуферВФайл(Соединение.responseBody, ИмяВременногоФайла);



    //Печать

    Макет = Документы.ЗаказПокупателя.ПолучитьМакет("МакетПечатиКода");

    Область = Макет.ПолучитьОбласть("Код");

    Область.Рисунки.КодРисунок.Картинка = Новый Картинка(ИмяВременногоФайла);

    ТабДок.Вывести(Область);

    Возврат ТабДок;

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

Источник

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

Как получить Срез Последних на Каждую Дату

С задачей получения среза последних на каждую дату рано или поздно сталкиваются все. Безусловно, это задача достаточно просто решается запросом с соединением по максимальной дате из меньших или равных дат. Но эту же задачу можно решить и с помощью компоновки данных. Не будем рассуждать о том, какой из способов более производителен, все может зависеть от конкретной задачи.

Первый набор данных:
В качестве примера, создадим отчет по продажам, в котором отдельной колонкой будем выводить цену из прайса на дату продажи.
Создадим набор данных-запрос «ПродажиОбороты»:

Код 1C v 8.х

 ВЫБРАТЬ

    ПродажиОбороты.Период КАК Дата,

    ПродажиОбороты.Контрагент КАК Контрагент,

    ПродажиОбороты.Номенклатура КАК Номенклатура,

    ПродажиОбороты.КоличествоОборот КАК Количество,

    ПродажиОбороты.СтоимостьОборот КАК Стоимость

{ВЫБРАТЬ

    Дата,

    Контрагент.*,

    Номенклатура.*,

    Количество,

    Стоимость}

ИЗ

    РегистрНакопления.Продажи.Обороты({(&НачалоПериода)},

{(&КонецПериода)}, День, ) КАК ПродажиОбороты

{ГДЕ

    ПродажиОбороты.Период,

    ПродажиОбороты.Контрагент.*,

    ПродажиОбороты.Номенклатура.*,

    ПродажиОбороты.КоличествоОборот,

    ПродажиОбороты.СтоимостьОборот}

Рис. 1 Вкладка ресурсы набора данных ПродажиОбороты
title

Рис. 2 Настройки отчета

Сейчас наш отчет будет иметь следующий вид:
title

Рис. 3 Формирование отчета с одним набором данных

Теперь необходимо добавить в отчет колонку «Цена по прайсу», которая будет подтягиваться из регистра сведений «Цены номенклатуры» на дату продажи.
Второй набор данных:

Добавим второй набор данных-запрос «Цены», цены будем брать для фиксированного типа цен:

Код 1C v 8.х

 ВЫБРАТЬ

    &Дата КАК Дата,

    ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,

    ЦеныНоменклатурыСрезПоследних.Цена КАК Цена

{ВЫБРАТЬ

    Дата,

    Номенклатура.*,

    Цена}

ИЗ

    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(

            &Дата,

            Номенклатура = &Номенклатура

                И ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних

{ГДЕ

    (&Дата),

    ЦеныНоменклатурыСрезПоследних.Номенклатура.*,

    ЦеныНоменклатурыСрезПоследних.Цена}

В данном наборе данных три параметра: Дата, Номенклатура и тип цен. Из низ самые интересные Дата и Номенклатура. Они будут использованы при соединении наборов данных, причем параметр данных присутствует как в параметрах виртуальной таблицы, так и в выбранных полях.

Соединения наборов:
Приступим к основной «фишке» данного метода – соединениям наборов:
title

Рис. 4 Соединение наборов данных

Здесь самое основное правильно настроить параметры. Если указан параметр,то СКД передает в приемник связи параметры, указанные в соединении. Значениями этих параметров будут значения соответствующих полей источника связи.

Далее добавим поле цена в ресурсы и в выбранные поля.
title

Рис. 5 Вкладка ресурсы
title

Рис. 6 Выбранные поля

Результат:
Теперь можно формировать отчет. Проверим правильность работы отчета на примере «Дивана для отдыха».
title

Рис. 7 Итоговый отчет
Первоисточник

Как получить Срез Последних значений на Каждую Дату

То же самое простым запросом

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

Отправка sms из 1C через avisosms.ru.

Столкнулся с задачей отправки sms из 1С. Спасибо Якову за напутствие в решении данной задачи и указание сервиса avisosms.ru.

На сайте сервиса предоставлена документация по работе с ним. В частности сервис предлагает следующие варианты работы:
* JSON протокол
* email2SMS протокол
* HTTP GET протокол
* Удаленный доступ к телефонной книге
* XML протокол

После проб и ошибок с протоколом email2sms (ну не любит мой провайдер через smtp слать письма на не очень красивые адреса относя их к спаму и блокируя) был выбран вариант решения с JSON протоколом. Для краткой демонстрации работы сервера приведена небольшая конфигурация. Конфигурация написана на 1С Предприятие 8.2 с поддержкой работы веб-клиента. Для работы конфигурации необходимо заполнить константы:
* ПользовательСМС – Ваш логин в систему;
* ПарольСМС – Ваш пароль в систему;
* ПодписьСМС – Ваш адрес отправителя, который был создан в личном кабинете.

Конфигурация позволяет:
* Отправлять смс контрагенту, номер которого записан в соответствующем реквизите (номер пишем в формате 380ХХХХХХХХХХ);
* Получать статусы отправленных смс.

Ниже приведу код формирования запроса на отправку смс

Код 1C v 8.2 УП

 &НаСервере

Функция ОтправитьСервер()

    УспешнаяОтправка = Ложь;

    ПараметрJSON = "{'username': '" + Константы.ПользовательСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'password': '" + Константы.ПарольСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'request_type': 'send_message'";

    ПараметрJSON = ПараметрJSON +  ",'destination_address': '" + Объект.Контрагент.НомерТелефона+ "'";

    ПараметрJSON = ПараметрJSON +  ",'message': '" + Объект.ТекстСМС+ "'";

    ПараметрJSON = ПараметрJSON +  ",'source_address': '" + Константы.ПодписьСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",flash:'0'}";



    Попытка

        WinHttp=Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

        WinHttp.Option(2,"Windows-1251");

        WinHttp.Open("POST","http://api.avisosms.ru/sms/json/",0);

        WinHttp.SetRequestHeader("Accept-Language", "ru");

        WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

        WinHttp.setRequestHeader("Content-Language", "ru");

        WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

        WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");

        WinHttp.Send(ПараметрJSON);

        ТекстОтвет = WinHttp.ResponseText();

        Если Найти(ТекстОтвет, "OK_Operation_Completed") Тогда

            УспешнаяОтправка = Истина;

        КонецЕсли;

    Исключение

        Сообщить("Ошибка соединения:");

        Сообщить(ОписаниеОшибки());

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



    //Запись отправленной смс в историю

    Если УспешнаяОтправка Тогда

        ПозицияКодаНачало = Найти(ТекстОтвет, "messageId") + СтрДлина("messageId")+3;

        ПозицияКодаКонец = Найти(ТекстОтвет, "}");

        КодСМС = Сред(ТекстОтвет, ПозицияКодаНачало, ПозицияКодаКонец-ПозицияКодаНачало-1);



        СМСРассылка.ЗаписатьСМСВИсторию(Объект.Контрагент, Объект.ТекстСМС, КодСМС);

    Иначе

        Сообщить("Отправка смс не состоялась. Текст ошибки: " + ТекстОтвет);

    КонецЕсли;

    Возврат УспешнаяОтправка;

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

Источник

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

1C и Google Maps

была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было решено использовать геокодирование сервиса Google и Google Visualization для отображение элементов на карте.

Геокодирование – процесс преобразования адресов·(Украина, Киевская область, Киев, Крещатик 20) в географические координаты (широта 37.423021 и долгота -122.083739), которые можно использовать для размещения маркеров или расположения карты. Подробно про геокодирование можно почитать тут.

Для работы с геокодированием необходимо зарегистрировать ключ API карт Google.

Важный момент: если у вас программа работает в локальной сети и в Internet, то вам необходимо регистрировать два ключа. В зависимости от того, с какого места подключается пользователь к базе подставлять тот или иной ключ.

И так, собственно программная реализация.

В конфигурации есть две общих формы:
* Форма подбора координат. Данная форма формирует запрос на геокодирование и обрабатывает результат.
* Форма отображения объектов. Данная форма использует API визуализации Google. В частности данная форма использует визуализацию Map.

Запрос и обработка результата геокодирования.

Формирование запроса происходит с ключом output=csv, для вывода результата запроса в csv файл. После выполнения запроса проверяется код результата запроса и разбор csv файла на широту и долготу.

Код 1C v 8.2 УП

 #НаСервере

Процедура ОтправитьЗапросНаПоискКоординат()

   Город = Параметры.ОбъектПодбора.Город.Наименование;

   Страна = Параметры.ОбъектПодбора.Город.Владелец.Владелец.Наименование;

   Адрес = Параметры.ОбъектПодбора.Адрес;

   ПараметрПоиска = Страна + " " + Город + " " + Адрес;

 

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

   Ключ = Константы.КлючКарта.Получить();

   ТекстСсылки = "maps/geo?q=" + EncodeURL(ПараметрПоиска)+"&amp;output=csv&amp;oe=utf8&amp;sensor=false&amp;key=" + Ключ;

   ПроксиСервер = Неопределено;

   HTTPСервис = Новый HTTPСоединение("maps.google.com",,,,ПроксиСервер,Ложь);

   ПравильностьВыполнения = Истина;

 

   Попытка

      HTTPСервис.Получить(ТекстСсылки, АдресOutput);

   Исключение

      Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);

      ПравильностьВыполнения = Ложь;

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

 

   Если ПравильностьВыполнения Тогда

      // Распарсить результат ответа поиска

      Текст = Новый ТекстовыйДокумент;

      Текст.Прочитать(АдресOutput);

      РезультатПоиска = Текст.ПолучитьСтроку(1);

 

      КодРезультата = Лев(РезультатПоиска,3);

      РезультатПоиска = Сред(РезультатПоиска, 7, СтрДлина(РезультатПоиска));

 

      Если КодРезультата &lt;&gt; "200" Тогда

         Возврат;

      КонецЕсли;

 

      Широта = Число(Сред(РезультатПоиска,0,10));

      Долгота = Число(Сред(РезультатПоиска,12,10));

   КонецЕсли;

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

Формирование карты отображения
При формировании отображения объекта на карте к стандартному коду визуализации добавлен следующий:

Код 1C v 8.х

 if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

      else drawMap();

Это связано с тем, что платформа не хочет сразу обновлять фрейм поля html документа.

Код 1C v 8.2 УП

 #НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   СсылкаНаБазу = ПолучитьНавигационнуюСсылкуИнформационнойБазы();

   APIГугла = Константы.КлючКарта.Получить();

 

   ТаблицаОбъектовДляВывода = Новый ТаблицаЗначений;

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Наименование",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Город",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Адрес",Новый ОписаниеТипов("Строка"));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Широта",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   ТаблицаОбъектовДляВывода.Колонки.Добавить("Долгота",Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10,6)));

   Если Параметры.ОтображатьСОтветственными Тогда

      ТаблицаОбъектовДляВывода.Колонки.Добавить("Ответственный",Новый ОписаниеТипов("Строка"));

   КонецЕсли;

 

   Для Каждого ТекЭлемент Из Параметры.ОбъектыДляОтображения Цикл

      КоординатыОбъекта = ОбщийМодульКартаСервер.ПолучитьКоординатыОбъекта(ТекЭлемент.Значение.ОбъектПосещения);

      Если КоординатыОбъекта = Неопределено Тогда

         Продолжить;

      Иначе

         НоваяСтрока = ТаблицаОбъектовДляВывода.Добавить();

         НоваяСтрока.Наименование = ТекЭлемент.Значение.ОбъектПосещения.Наименование;

         НоваяСтрока.Город = ТекЭлемент.Значение.ОбъектПосещения.Город.Наименование;

         НоваяСтрока.Адрес = ТекЭлемент.Значение.ОбъектПосещения.Адрес;

         НоваяСтрока.Широта = КоординатыОбъекта[0];

         НоваяСтрока.Долгота = КоординатыОбъекта[1];

         Если Параметры.ОтображатьСОтветственными Тогда

            НоваяСтрока.Ответственный = ТекЭлемент.Значение.Ответственный.Наименование;

         КонецЕсли;

      КонецЕсли;

   КонецЦикла;

 

   ТекстСкрипта = "data.addRows(" + Строка(ТаблицаОбъектовДляВывода.Количество()) + ");";

   Сч = 0;

   Для Каждого ТекСтрока Из ТаблицаОбъектовДляВывода Цикл

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 0, " +СтрЗаменить(Строка(ТекСтрока.Широта),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 1, " +СтрЗаменить(Строка(ТекСтрока.Долгота),",",".") + ");";

      ТекстСкрипта = ТекстСкрипта + " data.setCell(" + Строка(Сч) + ", 2, '" +Строка(ТекСтрока.Наименование) + " "

      + Строка(ТекСтрока.Город) + " " + Строка(ТекСтрока.Адрес) + " " + ?(Параметры.ОтображатьСОтветственными, ".Ответственный: " + Строка(ТекСтрока.Ответственный), "") + " " + "');";

      Сч = Сч + 1;

   КонецЦикла;

СтраницаХТМЛ = "<html>

|  <head>

|    <script src=""http://maps.google.com/maps?file=api&v=2&key=" + APIГугла + """ type=""text/javascript""></script>

|    <script type=""text/javascript"" src=""http://www.google.com/jsapi""></script>

|  </head>

|

|  <body>

|    <div id=""map_div"" style=""width: 800px; height: 550px""></div>

|    <script type=""text/javascript"">

|

|      google.load(""visualization"", ""1"", {packages:[""map"">);

|      google.setOnLoadCallback(drawMap);

|      function checkIfGoogleLoad() {

|        if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);

|		else drawMap();

|      }

|      function drawMap() {

|        var data = new google.visualization.DataTable();

|        data.addColumn('number', 'Lat');

|        data.addColumn('number', 'Lon');

|        data.addColumn('string', 'Name');" + ТекстСкрипта + "

|        var map = new google.visualization.Map(document.getElementById('map_div'));

|        map.draw(data, {showTip: true, mapType: 'normal'});

|      }

|      checkIfGoogleLoad();

|    </script>

|  </body>

|</html>"; 

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

Андрей Данилюк

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

Печать в PDF

Столкнулся с вопросом печати счета на оплату сразу в pdf.
Решение: установка виртуального принтера bioPDF скачать можно тут. И прописывание в 1с следующего кода:

Код 1C v 8.х

 

    Попытка

        ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");

    Исключение

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

            Предупреждение("Не удалось подключиться к PDF-принтеру!", 60);

        #КонецЕсли

        Возврат;

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

    ПДФ_принтер_имя = ПДФ_принтер.GetPrinterName();

    ИмяФайла = Константы.КаталогФайловПДФ.Получить() +"" + Заголовок + ".pdf";



    ПДФ_принтер.SetValue("output",    ИмяФайла);

    ПДФ_принтер.SetValue("ConfirmOverwrite", "yes");

    ПДФ_принтер.SetValue("ShowSaveAS",   "never");

    ПДФ_принтер.SetValue("ShowSettings",  "never");

    ПДФ_принтер.SetValue("ShowPDF",    "no");

    ПДФ_принтер.SetValue("Target",    "printer");



    ПДФ_принтер.SetValue("Subject",  "Report generated at " + ТекущаяДата());

    ПДФ_принтер.SetValue("UseThumbs", "yes");

    ПДФ_принтер.SetValue("Zoom",  "100");



    ПДФ_принтер.SetValue("WatermarkFontSize", "10");

    ПДФ_принтер.SetValue("WatermarkTransparency", "50");

    ПДФ_принтер.SetValue("WatermarkVerticalPosition", "bottom");

    ПДФ_принтер.SetValue("WatermarkHorizontalPosition", "right");

    ПДФ_принтер.SetValue("WatermarkVerticalAdjustment", "3");

    ПДФ_принтер.SetValue("WatermarkHorizontalAdjustment", "1");

    ПДФ_принтер.SetValue("WatermarkRotation", "90");

    ПДФ_принтер.SetValue("WatermarkColor", "#ff0000");

    ПДФ_принтер.SetValue("WatermarkOutlineWidth", "1");

    ПДФ_принтер.WriteSettings(True);



    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;

    ПечатныйДокумент.АвтоМасштаб = Истина;

    ПечатныйДокумент.Напечатать();

Как выяснилось во время печати в pdf есть проблема с передачей прозрачности картинки. Если вставлять прозрачную печать в счет поверх подписи, то в pdf-документе печать будет непрозрачной и затрет все собой. У меня был частный случай, когда печать находилась на одном и том же месте документа и за ней постоянно было одно и то же. Решением в данном случае стала генерация картинки печати с фоном, на котором она должна быть и вставка её в макет.

Так же решением может быть печать не в pdf а xps документ. Там с прозрачностью все нормально.
Автор: Андрей Данилюк

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

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

Создание XML файла выгрузки Работников организации с Группировкой по Подразделению

Нужен XML файл выгрузки данных вида(выделю как код 8-рки, т.к. выделение xlm кода нет):

Код 1C v 8.х

 <?xml version="1.0" encoding="UTF-8"?>

<orgstructure>

	<department dep_id="7ebb913c-e9c6-11dc-a4f2-0017311416a1" dep_name="генеральный директор" dep_code="П100">

		<orgposition user_id="ba68bb79-c377-11dc-a4ca-0017311416a1" user_position_id="ba68bb78-c377-11dc-a4ca-0017311416a1" user_position="генеральный директор" user_is_active="1"/>

	</department>

	<department dep_id="8132fe4a-0789-11dd-887b-001d60f0496c" dep_name="Бухгалтерия" dep_code="П200">

		<orgposition user_id="21448456-15b0-11dd-80a1-00145e3710ab" user_position_id="3c948267-df80-11dc-a4e8-0017311416a1" user_position="специалист" user_is_active="0"/>

		<orgposition user_id="d299614a-df9d-11dc-a4e8-0017311416a1" user_position_id="53082fda-edf4-11dd-af3e-00145e3710ab" user_position="заместитель главного бухгалтера" user_is_active="1"/>

		<orgposition user_id="8132fe6c-0789-11dd-887b-001d60f0496c" user_position_id="d299614d-df9d-11dc-a4e8-0017311416a1" user_position="секретарь" user_is_active="1"/>

		<orgposition user_id="2e81c20e-f190-11dc-a4fb-0017311416a1" user_position_id="2e81c20d-f190-11dc-a4fb-0017311416a1" user_position="бухгалтер" user_is_active="0"/>

		<orgposition user_id="ba68bb7e-c377-11dc-a4ca-0017311416a1" user_position_id="53082fd9-edf4-11dd-af3e-00145e3710ab" user_position="главный бухгалтер" user_is_active="1"/>

		<orgposition user_id="9893f85a-0403-11df-a872-00215aa545b4" user_position_id="53073825-e5e6-11dc-a4ef-0017311416a1" user_position="делопроизводитель" user_is_active="1"/>

	</department>

	<department dep_id="6bb91f72-e077-11dd-bf56-00145e3710ab" dep_name="Отдел Продаж" dep_code="П300">

		<department dep_id="6bb91f73-e077-11dd-bf56-00145e3710ab" dep_name="Клиентский сервис" dep_code="П310">

			<orgposition user_id="02ad5122-e231-11dd-bf56-00145e3710ab" user_position_id="6bb91f6c-e077-11dd-bf56-00145e3710ab" user_position="Специалист" user_is_active="1"/>

		</department>

		<department dep_id="6bb91f74-e077-11dd-bf56-00145e3710ab" dep_name="Менеджеры" dep_code="П320">

			<orgposition user_id="02584921-с235-11dd-bf56-00145e3710ab" user_position_id="7bb98f6c-e577-11dd-bf56-00145e3710ab" user_position="Менеджер" user_is_active="1"/>

		</department>

	</department>

</orgstructure>

Вот код:

Код 1C v 8.х

 Процедура ОбойтиУровеньДерева(Строки, Запись)

	Для каждого Строка из Строки Цикл

		Если ПустаяСтрока(Строка(Строка.Сотрудник)) Тогда

			Запись.ЗаписатьНачалоЭлемента("department");

			Запись.ЗаписатьАтрибут("dep_id", Строка(Строка.ПодразделениеОрганизации.УникальныйИдентификатор()));

			Запись.ЗаписатьАтрибут("dep_name", Строка(Строка.ПодразделениеОрганизации));

			Запись.ЗаписатьАтрибут("dep_code", СокрЛП(Строка(Строка.ПодразделениеОрганизации.Код)));

			ОбойтиУровеньДерева(Строка.Строки, Запись); 

			Запись.ЗаписатьКонецЭлемента();  

		Иначе

			Запись.ЗаписатьНачалоЭлемента("orgposition");

			Запись.ЗаписатьАтрибут("user_id", Строка(Строка.Сотрудник.УникальныйИдентификатор()));

			Запись.ЗаписатьАтрибут("user_position_id", Строка(Строка.Должность.УникальныйИдентификатор()));

			Запись.ЗаписатьАтрибут("user_position", Строка(Строка.Должность));

			Запись.ЗаписатьАтрибут("user_is_active", ?(Строка.ПричинаИзмененияСостояния = Перечисления.ПричиныИзмененияСостояния.Увольнение,"0","1"));

			ОбойтиУровеньДерева(Строка.Строки, Запись); 

			Запись.ЗаписатьКонецЭлемента();  

		КонецЕсли

	КонецЦикла; 

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





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

ПутьКФайлу = "D:\Vigruzka_"+Формат(ТекущаяДата(),"ДФ=YYYYMMdd")+".xml";	

Запись = Новый ЗаписьXML;

Запись.ОткрытьФайл(ПутьКФайлу, "UTF-8"); 

Запись.ЗаписатьОбъявлениеXML(); //<?xml version="1.0" encoding="UTF-8"?>

Запись.ЗаписатьНачалоЭлемента("orgstructure");

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

Запрос.Текст="

|ВЫБРАТЬ

|	РаботникиОрганизацийСрезПоследних.Сотрудник,

|	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации КАК ПодразделениеОрганизации,

|	РаботникиОрганизацийСрезПоследних.Должность,

|	РаботникиОрганизацийСрезПоследних.Период,

|	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Порядок КАК ПодразделениеОрганизацииПорядок,

|	РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния

|ИЗ

|	РегистрСведений.РаботникиОрганизаций.СрезПоследних(&dateper, ) КАК РаботникиОрганизацийСрезПоследних

|

|УПОРЯДОЧИТЬ ПО

|	ПодразделениеОрганизацииПорядок

|ИТОГИ ПО

|	ПодразделениеОрганизации ИЕРАРХИЯ

|АВТОУПОРЯДОЧИВАНИЕ

|";

Запрос.УстановитьПараметр("dateper", ТекущаяДата());

Результат = Запрос.Выполнить();

Дерево = Результат.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

ОбойтиУровеньДерева(Дерево.Строки, Запись);

Запись.ЗаписатьКонецЭлемента();     

Запись.Закрыть();  

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

Категория: XML, DBF, TXT, CSV

Краткий пример работы с OpenOffice.org Writer и Microsoft Office Word

Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word. Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном каталоге с обработкой: Скачивать файлы может только зарегистрированный пользователь!

Файл Шаблона - Primer.doc:
От: {Организация}
Кому: {Контрагент}
Ждем акт сверки взаиморасчетов!
Директор /{Директор}/

Необходимо заменить в шаблоне ключевые слова в скобках {}, на указанные значения, вот примерный код обработки:

Код 1C v 7.x

 

//рдТаблицаЗамен - Таблица значений:

// {Организация} ООО "Контора"

// {Контрагент} ООО "Должник"

// {Директор} Дядя Вася

ПечатьИзШаблона(рдТаблицаЗамен, "Primer.doc");



// Функция преобразует Windows имя файла в URL OpenOffice                      

Функция ПреобразоватьВURL(ИмяФайла)

	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/"); 	

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



Функция ОбработкаФайлаШаблона(ИмяШаблона) Экспорт

	                                              

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

	Путь = "";	Имя = "";

	ФайлОбработки = РасположениеФайла(Путь, Имя);

	

	КаталогШаблонов = Путь;       

	ПолноеИмяШаблона = КаталогШаблонов + ИмяШаблона;

	

	РезультатОбработки = 0;

	                         

	// Проверка на существование 

	ЕстьШаблон = 0;

	Если ФС.СуществуетФайл(КаталогШаблонов + ИмяШаблона) = 0 Тогда  

		Сообщить("Файл " + ИмяШаблона + " не найден в каталоге шаблонов печатных форм! Обратитесь к системному администратору!", "!!!");    					   		

	Иначе

		ЕстьШаблон = 1;

	КонецЕсли;                  

	

	// Копирование во временный каталог

	                        

	Если ЕстьШаблон = 1 Тогда 

		ФС.КопироватьФайл(ПолноеИмяШаблона, ИмяФайла, 0);

	КонецЕсли;                                                            

	

	// Проверка копирования

	

	Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда 

		РезультатОбработки = 1;  

	Иначе

		Сообщить("Не удалось скопировать шаблон во временный файл.");

	КонецЕсли;

	

	Возврат РезультатОбработки; 	

	

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



Процедура ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен)  

	

	ТекПроцессор = рдТекстовыйПроцессор.ПолучитьЗначение(рдТекстовыйПроцессор.ТекущаяСтрока());

	

	Если ТекПроцессор = "OOoWriter" Тогда 

		

		// Открыть OpenOffice 

		

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

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

		

		

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

		Scr.Language="javascript";

		Scr.Eval("Args=new Array()");

		Args = Scr.Eval("Args"); 

		Scr.AddObject("ServiceManager", ServiceManager);

		

		// Откроем шаблон

		

		ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args); 

		

		// Заменяем ключевые поля на нужные значения

		                         

		Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();

		

		Для x=1 По ТаблицаЗамен.КоличествоСтрок() Цикл

			

			Replace.SearchString  = ТаблицаЗамен.ПолучитьЗначение(x, 1);

			Replace.ReplaceString = ТаблицаЗамен.ПолучитьЗначение(x, 2);

			ТекстовыйПроцессор.ReplaceAll(Replace);

			

		КонецЦикла;

		

	Иначе                        		

		

		// Открываем MS Office Word

		

		Попытка

			ТекстовыйПроцессор = СоздатьОбъект("Word.Application"); 

		Исключение 			

			Сообщить("Не удалось создать объект Microsoft Office Word!", "!!!");

			Возврат;			

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

		

		// Открываем шаблон

		

		ТекстовыйПроцессор.Visible = 0; 

		ТекстовыйПроцессор.Documents.Open(ИмяФайла,, -1);

		Fnd = ТекстовыйПроцессор.ActiveDocument.Range().Find;

		Fnd.ClearFormatting();

		Fnd.Forward = -1;  

		

		// Заменяем ключевые поля на нужные значения

		

		ТаблицаЗамен.ВыбратьСтроки();

		Пока ТаблицаЗамен.ПолучитьСтроку() = 1 Цикл  

			Fnd.Execute(ТаблицаЗамен.Найти,,,,,,,,, ТаблицаЗамен.Заменить, 2);   

		КонецЦикла;  

		

		ТекстовыйПроцессор.Visible = -1;    

		ТекстовыйПроцессор.Activate(); 

		

	КонецЕсли;

	



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

//*****************************************************************************

Процедура ПечатьИзШаблона(ТаблицаЗамен, ИмяФайлаШаблона) Экспорт

	            

	// Проверим, есть ли нужный шаблон	

	Если ОбработкаФайлаШаблона(ИмяФайлаШаблона) = 0 Тогда

		Возврат;

	КонецЕсли;              

	

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

	

	// Открываем в текстовом процессоре файл шаблона	

	ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен);

	

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

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

Пример подключения из Windows 7 к удаленной ИБ 1C 8.х через VPN

Задача: Ноутбук с Windows 7 (Домашняя версия) должен работать с офисной ИБ 1С8. В офисе компьютеры объединены в домен, соответственно контроллер домена не пускает «чужой» компьютер к своим ресурсам.

Переустанавливать ОС крайне нежелательно, всевозможные попытки изменения настроек домена результатов не дали. Выход достаточно прост.

Для нормальной работы необходимо:

1. На контроллере домена создать VPN соединение;
2. На ноутбуке настроить подключение к этому VPN соединению;
3. На ноутбуке изменить файл маршрутизации к сетевому ключу 1С8.

После установки платформы 1С, до подключения VPN, при запуске программа выдает сообщение:
«Ошибка при выполнении файловой операции …»

После подключения к сети через VPN при стандартном файле netstart.ini выдается сообщение:
«Не обнаружен ключ защиты программы»

Для поиска ключа в сети необходимо изменить этот файл (он находится в папке “C:\Prorgam Files\1cv81\bin\conf”). Для его изменения нужно обладать правами администратора на ноутбуке.

Файл nethasp.ini должен содержать строки:

Код

[NH_COMMON]
NH_IPX = Disabled
NH_NETBIOS = Disabled
NH_TCPIP = Enabled

[NH_IPX]

[NH_NETBIOS]

[NH_TCPIP]

NH_SERVER_ADDR = 192.168.0.10
NH_PORT_NUMBER = 475
NH_TCPIP_METHOD = UDP
NH_USE_BROADCAST = Disabled

При этом HASP драйвер ноутбука напрямую через порт 475 обращается к компьютеру с установленным ключем. Компьютер с адресом 192.168.0.10 (где находится ключ 1С) должен иметь постоянный (статический) адрес в сети, иначе этот файл придется постоянно редактировать.

Лишние настройки в файле nethasp.ini сбивают нормальную работу программы. Все эти настройки также работают с ОС Vista.
Автор: daulberg

Категория: Администрирование

Метод сортировки числового ряда "пузырьком"

Функция осуществляет сортировку числового ряда (в массиве) от малого к большему http://ru.wikipedia.org/wiki/Сортировка_пузырьком методом "пузырька"[/url] Область применения достаточно широка.

Код 1C v 8.х

 

Функция СортировкаПузырьком(МассивЭлементов) Экспорт

	// Количество просмотров массива - по количеству числа его элементов

	Для просмотр = 0 По МассивЭлементов.Количество()-1 Цикл

		// Собственно, просмотр массива

		Для индекс = 0 По МассивЭлементов.Количество()-1 Цикл

			// Если достигли конца массива то прервём цикл,

                        // чтобы не выполнять условие ниже

			Если индекс = МассивЭлементов.Количество()-1 Тогда

				Прервать;

			КонецЕсли;

			// Сравнение элементов и их перестановка (если требуется)

			Если МассивЭлементов[индекс] > МассивЭлементов[индекс+1] Тогда

				СтаршийЭлемент = МассивЭлементов[индекс];

				МладшийЭлемент = МассивЭлементов[индекс+1];

				МассивЭлементов[индекс] = МладшийЭлемент;

				МассивЭлементов[индекс+1] = СтаршийЭлемент;

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	Возврат МассивЭлементов;

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

Категория: Полезные, Универсальные Функции

Загрузка данных из XML файла в Таблицу Значений и вывод в Табличный документ

Код 1C v 7.x

 Перем ИмяПути,ИмяФайла;     

Перем xmlParser;



//пример чтения xml файла.

Функция УстановитьКомпоненту()

 Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда

  Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда

   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 

   Возврат 0;

  КонецЕсли;

 КонецЕсли;

 Попытка

  xmlParser = СоздатьОбъект("Addin.XmlParser") ;

 Исключение 

  Сообщить("Не удалось создать объект Addin.XmlParser!");

  Возврат 0;

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

 Возврат 1;

КонецФункции  // УстановитьКомпоненту



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

  стрИмяФайла=ИмяПути+ИмяФайла;  

  таб=СоздатьОбъект("ТаблицаЗначений");

  таб.НоваяКолонка("Ф","Строка",50,0);

  таб.НоваяКолонка("И","Строка",50,0);

  таб.НоваяКолонка("О","Строка",50,0);

  таб.НоваяКолонка("ДатаР","Дата");

  таб.НоваяКолонка("_01","Число",16,2);

  таб.НоваяКолонка("_02","Число",16,2);

  таб.НоваяКолонка("_03","Число",16,2);

  таб.НоваяКолонка("_04","Число",16,2);

  таб.НоваяКолонка("_05","Число",16,2);

  таб.НоваяКолонка("_06","Число",16,2);

  таб.НоваяКолонка("_07","Число",16,2);

  таб.НоваяКолонка("_08","Число",16,2);

  таб.НоваяКолонка("_09","Число",16,2);

  таб.НоваяКолонка("_10","Число",16,2);

  таб.НоваяКолонка("_11","Число",16,2);

  таб.НоваяКолонка("_12","Число",16,2);

  таб.НоваяКолонка("СумГод","Число",18,2);

  таб.НоваяКолонка("ОблГод","Число",18,2);

  таб.НоваяКолонка("УдерГод","Число",18,2);

  таб.НоваяКолонка("Индекс","Строка",6,0);

  таб.НоваяКолонка("Регион","Строка",2,0);

  таб.НоваяКолонка("Город","Строка",20,0);

  таб.НоваяКолонка("Улица","Строка",20,0);

  таб.НоваяКолонка("Дом","Строка",5,0);

  таб.НоваяКолонка("Корпус","Строка",5,0);

  таб.НоваяКолонка("Квартира","Строка",5,0);

  Документ=xmlParser.СоздатьДокумент();  

  Документ.Загрузить(стрИмяФайла);   

   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);

   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 

    таб.НоваяСтрока();

    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 

    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  

    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 

     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);

     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;

     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;

     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;

     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;

     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);

     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     

      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда

	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда

       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда

       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда

       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда

       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда

       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда

       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      Иначе

      	/////// 

      КонецЕсли;

     КонецЦикла;

    КонецЦикла;  

    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  

    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     

     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);

	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");

     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     

         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 

         ИмяМес="";

      СумМес=0;

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда

           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;

      КонецЕсли;  

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда

           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;

      КонецЕсли;  

      Если ПустоеЗначение(ИмяМес)=0 Тогда

       Если ИмяМес="01" Тогда

        таб._01=СумМес;  

       ИначеЕсли ИмяМес="02" Тогда

        таб._02=СумМес;    

       ИначеЕсли ИмяМес="03" Тогда

        таб._03=СумМес;    

       ИначеЕсли ИмяМес="04" Тогда

        таб._04=СумМес;    

       ИначеЕсли ИмяМес="05" Тогда

        таб._05=СумМес;    

       ИначеЕсли ИмяМес="06" Тогда

        таб._06=СумМес;    

       ИначеЕсли ИмяМес="07" Тогда

        таб._07=СумМес;    

       ИначеЕсли ИмяМес="08" Тогда

        таб._08=СумМес;    

       ИначеЕсли ИмяМес="09" Тогда

        таб._09=СумМес;    

       ИначеЕсли ИмяМес="10" Тогда

        таб._10=СумМес;    

       ИначеЕсли ИмяМес="11" Тогда

        таб._11=СумМес;    

       ИначеЕсли ИмяМес="12" Тогда

        таб._12=СумМес;    

       КонецЕсли;

      КонецЕсли;

     КонецЦикла;   

     

УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");

НалПер=УзелНалПер.ПолучитьУзел(0);

Если НалПер.Наименование="СГДНалПер" Тогда

      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;

      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;

      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;

 КонецЕсли;  

    //тут еще берем данные

 КонецЦикла;  

 Состояние(Сч);

КонецЦикла;          

   Т=СоздатьОбъект("Таблица");

   Т.ИсходнаяТаблица("Таблица");

   таб.выбратьСтроки();          

   Т.ВывестиСекцию("Шапка");    

   нпп=1;

   Пока таб.ПолучитьСтроку()=1 Цикл

    Т.ВывестиСекцию("Текст");    

    нпп=нпп+1;

   КонецЦикла;     

   Т.ТолькоПросмотр(1);

      Т.Опции(0, 0, 1, 0);

  // Т.ОбластьПечати(2);

   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);

   Т.Показать("Прочитали из XML");   

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



Процедура Выбрать()

 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );

 Если ПустоеЗначение(ИмяФайла)=0 Тогда

   PathSbitn=ИмяПути+ИмяФайла;

 КонецЕсли;

КонецПроцедуры //Выбрать       



Процедура ПриОткрытии()

 ИмяФайла ="";

 ИмяПути = "P:";     

 res=УстановитьКомпоненту();  

// Сообщить(res);

КонецПроцедуры //ПриОткрытии

Пример файла XML :

Код

<?xml version="1.0" encoding="windows-1251"?>
<НДФЛ2 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ВерсФорм="4.00001" ВерсПрог="НП 10.31" ИдФайл="ДОХОД_2НДФЛ">
<Справка>
<ОбщСвИЧ>
<ГодДох>2006</ГодДох>
<НомСпр>1</НомСпр>
<ДатаСпр>26.03.2007</ДатаСпр>
<ИФНСНА>7777</ИФНСНА>
</ОбщСвИЧ>
<ИстДох>
<СвНАЮЛ>
<ИННЮЛ>1234567890</ИННЮЛ>
<КПП>12345678</КПП>
<НаимОрг>ООО Рога и Копыта</НаимОрг>
<ОКАТО>12345678901</ОКАТО>
</СвНАЮЛ>
</ИстДох>
<ПолучДох>
<ФИО>
<Фамилия>Иванов</Фамилия>
<Имя>Иван</Имя>
<Отчество>Иванович</Отчество>
</ФИО>
<Статус>1</Статус>
<ДатаРожд>24.01.1973</ДатаРожд>
<Гражданство>643</Гражданство>
<УдЛичн>
<КодУдЛичн>21</КодУдЛичн>
<СерНомДок>12 01 012345</СерНомДок>
</УдЛичн>
<АдрМЖРФ>
<Индекс>123456</Индекс>
<КодРегион>77</КодРегион>
<Город>Энн г</Город>
<Улица>Ленина ул</Улица>
<Дом>99</Дом>
<Корпус>5</Корпус>
<Кварт>12</Кварт>
</АдрМЖРФ>
</ПолучДох>
<СвДохСтав>
<Ставка>35</Ставка>
<ДохВыч>
<НомМес>02</НомМес>
<КодДоход>2610</КодДоход>
<СумДоход>252.15</СумДоход>
</ДохВыч>
<ДохВыч>
<НомМес>07</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<ДохВыч>
<НомМес>10</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<СГДНалПер>
<СГДСумм>252.15</СГДСумм>
<ОблСумм>252.15</ОблСумм>
<НИОблСумм>88</НИОблСумм>
<НУОблСумм>88</НУОблСумм>
<ВозврСуммПЛ>0</ВозврСуммПЛ>
<ЗачСуммПЛ>0</ЗачСуммПЛ>
<УдСуммПЛ>0</УдСуммПЛ>
<ДолгНП>0</ДолгНП>
<ДолгНА>0</ДолгНА>
<ВзыскИФНС>0</ВзыскИФНС>
</СГДНалПер>
</СвДохСтав>
</Справка>
</НДФЛ2>

Категория: XML, DBF, TXT, CSV

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Оптимальным решением является установка Bullzip PDF Printer . После установки в системе появляется виртуальный принтер, с помощью которого можно "печатать" в файл pdf из любого приложения. Программа бесплатная, работает в терминале и имеет поддержку русского языка.
После установки, можно печатать напрямую используя код:

Код 1C v 8.х

 

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

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

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

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

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

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

Здесь функция ПолучитьПринтерПоУмолчанию() нужна для того чтобы вернуть печатной форме принтер по умолчанию, т.к. если напечатать без предварительного просмотра то печать пойдет на виртуальный PDF принтер BullzipPDFPrinter.

Код 1C v 8.х

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

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2&#8243;»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

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

Печать в PDF используя bioPDF

Категория: Администрирование

Маркировка ключей защиты 1С:Предприятия

Для 1С 8 в настоящий момент используется 4 типа ключей:
title

- Однопользовательский. Это HASP HL Basic. Ключ синего цвета, не имеет внутренней памяти и персонального номера.
title

- Сетевой. HASP HL Net. Ключ красного цвета, имеет персональный номер и внутреннюю память в которой записано количество лицензий.
title

- Ключ на 32х битный сервер 1С:Предприятие. HASP HL Pro.У ключа есть маркировка ENSR8 Ключ фиолетового цвета, с внутренней памятью (фактически не используется) и уникальным идентификатором.
title

- Ключ на 64х битный сервер 1С:Предприятие. HASP HL Max. Ключ зеленого цвета. У ключа есть маркировка EN8SA, при этом данный ключи поддерживает 32-битный сервер (если у клиента есть лицензия на 64-битный сервер, он может, не меняя ключа, использовать также и 32-битную версию). C внутренней памятью (фактически не используется) и уникальным идентификатором.

Разобрались с цветами, попытаемся понять буковки:
В первой строчке ключа его тип и максимальное количество лицензий.
Hasp4 или Н4 - тип ключа.
М1 - локальный с памятью 112 байт
NetXX - сетевой, где ХХ - количество лицензий.
Других 1С пока не использует.
Во второй строчке первые пять знаков - код разработчика (заказчика) ключа.
В приложении к 1С - это назначение ключа.
ORGL8 - пользовательский от восьмерки.
ENSR8 - сервер предприятия восьмерки 32x.
EN8SA - сервер предприятия восьмерки 64x.
Остальные знаки никакого интереса не представляют.

Подробнее:
Серверные ключи:
1С:Предприятие 8.0 (8.1, 8.2) Лицензия на сервер (х32) маркируется "H4 M1 Pro ENSR8" (фиолетовый цвет ключа)
1С:Предприятие 8.0 (8.1, 8.2) Лицензия на сервер (x64) маркируется "H4 M1 Max EN8SA" (зеленый цвет ключа)

Однопользовательские ключи: (синий цвет ключа)
Ключи для всех версий программ маркируются "H4 M1 ORGL8"
Сетевые (многопользовательские) ключи: (красный цвет ключа)

Ключи маркируются в зависимости от числа клиентских лицензий:
Программы группы "1С:Бухгалтерия 8" маркируются "H4 NET5 ORGL8"
Ключи на 5 пользователей маркируются "H4 NET5 ORGL8"
Ключи на 10 пользователей маркируются "H4 NET10 ORGL8"
Ключи на 20 пользователей маркируются "H4 NET20 ORGL8"
Ключи на 50 пользователей маркируются "H4 NET50 ORGL8"
Ключи на 100 пользователей маркируются "H4 NET100 ORGL8"
Ключи на 300 пользователей маркируются "NET250+ ORG8A"
Ключи на 500 пользователей маркируются "NET250+ ORG8B"

Комплекты ключей:
Комплект из 2 ключей "1С:Предприятие 8 Управление производственным предприятием" на 10 пользователй + сервер, а так же комплект из 2 ключей "1С:Предприятие 8 Комплексная автоматизация" на 10 пользователей + сервер, ключи маркируются "H4 NET10 ORGL8" и "H4 M1 ENSR8"
Комплект из 2 ключей "1С:Предприятие 8 Учебный комлект" на 20 пользователей + сервер, ключи маркируются "H4 NET20 ORGL8" и "H4 M1 ENSR8"

Данная система маркировки была введена для удобства идентификации ключа разработчиками и пользователями программного обеспечения.
Для установки однопользовательского и серверного ключей достаточно установить драйвер ключа защиты и вставить ключ защиты в порт.

Для установки многопользовательского ключа защиты требуется определить, какая из машин в сети будет являться сервером. Далее нужно установить на этот компьютер драйвер ключа защиты (HASP4_driver_setup.zip) и службу ключа защиты (HASP_LM_setup.zip), после чего вставить ключ защиты в порт.

Для 1С 7
Сетевые ключи - Красные
Локальные - Серые
+ на ключе шла расшифровка ACC- Бухгалтерия, TRD- Торговля, SAL - Зарплата

Программы однопользовательской группы:
Программы группы "1С:Бухгалтерия 7.7" маркируются "H4 M1 ACCNT"
Программы группы "1С:Зарплата и кадры 7.7" маркируются "H4 M1 QXDXD"
Программы группы "1С:Торговля и склад 7.7" маркируются "H4 M1 WRBQB"
Программы группы "1С:Предприятие 7.7 Комплексная" маркируются "H4 M1 WRBQB"

Программы сетевой (многопользовательской) группы:
Программы группы "1С:Предприятие 7.7 Бухгалтерский учет" маркируются "H4 Net5 ACCNT"
Программы группы "1С:Предприятие 7.7 Зарплата + Кадры" маркируются "H4 Net5 QXDXD"
Программы группы "1С:Предприятие 7.7 Торговля + Склад" маркируются "H4 Net5 WRBQB"
Программы группы "1С:Предприятие 7.7 Комплексная поставка" маркируются "H4 Net5 WRBQB"
Программы группы "1С:Предприятие 7.7 Налогоплательщик" маркируются "H4 Net5 TAXPR"
Программы группы "1С:Предприятие 7.7 Небольшая фирма" маркируются "ACCNT" / "WRBQB" / "QXDXD"
Программы группы "1С:Предприятие 7.7 Управление распределенными информационными базами" маркируются "H4 Net5 DISTR"
Программы группы "1С:Предприятие 7.7 Web-расширение" маркируются "H4 Net5 W31CK"

Категория: Администрирование