nod » Поиск » HelpF.pro

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

Как узнать текущие релизы 7.7 для Украины

Код 1C v 7.x

 



Функция ПолучитьВерсии()

Перем Url, HtmlTab, Строк, Р, НомСтроки, Таб, Версия, ДатаВремя;	

	ОчиститьОкноСообщений();

	СтатусВозврата(0);

	Url = "http://www.1c.ru/ukraina/support/release.jsp?time=" + _GetPerformanceCounter();

	Сообщить(Url);

	IE = СоздатьОбъект("InternetExplorer.Application");

	IE.Navigate(Url);	

	Пока (IE.readyState <> 4) Или (IE.Busy = -1) Цикл

		Состояние("Получение страницы... " + Url);

	КонецЦикла; 

	HtmlTab = IE.Document.getElementsByTagName("table").item(4).rows(0).cells(4).childNodes.item(10);

	Строк	= HtmlTab.rows.length;

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

	Таб.НоваяКолонка("Версия"	, "Строка");

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

	Таб.НоваяКолонка("Время"	, "Строка");

	Таб.НоваяКолонка("Продукт"	, "Строка");

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если Р.cells.length <> 3 Тогда

			Продолжить;

		КонецЕсли;

		Версия = Р.cells(2).innerText;

		Если Найти(Версия, "7.70.") = 0 Тогда

			Продолжить;

		КонецЕсли;

		ДатаВремя = Р.cells(0).innerText;

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

		Таб.Дата 	= ДатаВремя;

		Таб.Время 	= Сред(ДатаВремя, 12);

		Таб.Продукт	= Р.cells(1).innerText;

		Таб.Версия	= Версия;

	КонецЦикла;

	Таб.Сортировать("Дата-,Время-");

	Возврат Таб;

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

Категория: HTML, JS, VML

КД: Передача параметров из выгрузки в загрузку (в т.ч. и на ранние стадии) при обмене из 7.7 в 8.х

Кратко суть проблемы можно озвучить цитатой из документации: "Передача параметра из источника в приемник доступна только при обмене между информационными базами на платформе 1С:Предприятие 8".

Ниже излагается способ передачи глобальных параметров при таком обмене без правки выгруженного из КД 2 модуля выгрузки и без правки самой КД 2.

Итак, в обработчике ПередВыгрузкойДанных пишем код:

Код 1C v 8.2 УП

 УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр1");

УстановитьАтрибут(УзелПарам,"Тип","Строка");

ЗаписатьЭлемент(УзелПарам,"Значение","Значение нашего параметра 1");

ДобавитьПодчиненный(rootNode,УзелПарам);





УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр2");

УстановитьАтрибут(УзелПарам,"Тип","Булево");

ЗаписатьЭлемент(УзелПарам,"Значение","true");

ДобавитьПодчиненный(rootNode,УзелПарам);

после этого данные параметры будут абсолютно штатно загружены в стандартной обработке "Универсальный обмен данными в формате XML (2.1.5)".

Ещё хотелось бы заметить, что содержимое обработчика ПослеЗагрузкиПараметров при таком обмене также не выгружается в файл обмена. Исправить данную оплошность можно так же, записав в обработчике ПередВыгрузкойДанных

Код 1C v 8.2 УП

 АлгПослеЗагрузкиПараметров=

"СтрокаКода1;"+РазделительСтрок+

"СтрокаКода2;"+РазделительСтрок+

"СтрокаКода3;";

ЗаписатьЭлемент(rootNode,"АлгоритмПослеЗагрузкиПараметров",АлгПослеЗагрузкиПараметров);

Нюанс: чтобы иметь параметры на ранних стадиях загрузки, например, в обработчиках ПередЗагрузкойДанных или ПередОбработкой в ПОД (правилах очистки данных), нужно помещать выгружаемые параметры в корень узла с выгружаемыми данными:

Код 1C v 8.2 УП

 ИмяПараметра="НашПараметр1";

ТипПараметра="Строка";

ЗначениеПараметра="Значение нашего параметра 1";



// Устанавливаем значение параметра в обработчике ПередЗагрузкойДанных

УзелПравил=rootNode.getElementsByTagName("ПравилаОбмена").item(0);

УзелПередЗагрузкой=УзелПравил.getElementsByTagName("ПередЗагрузкойДанных").item(0);

КоллУзлов=УзелПередЗагрузкой.childNodes;

Для НомУзла=0 По КоллУзлов.length-1 Цикл

    ТекУзел=КоллУзлов.item(НомУзла);

    Если (ТекУзел.nodeType=3) Тогда

        // текст элемента

        ТекУзел.nodeValue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+

            ЗначениеПараметра+?(ТипПараметра="Строка","""","")+";"+РазделительСтрок+РазделительСтрок+

            ТекУзел.nodeValue;

        Прервать;

    КонецЕсли;

КонецЦикла;

Автор: andrewks - Источник

Категория: Конвертация данных, Обмен, Перенос

Управляем 1С со стороны используя web-сервис

Передача команд 1С на выполнение через ссылки в письме.
web-сервисы помогают интегрировать 1С с различными программами, делая её более гибкой. Статей в интеренете достаточно можно, но в основном там описывается выгрузка из 1С, обмен между двумя 1С или 1С и каким-то мощным программным продуктом написанным на C или других языках.
Для меня же была поставлена задача возможности управление 1С через браузер. Как пример: обрабатывать завершение задачи БП в 1С по ссылке в письме (примерно такого типа http://site.ru/?user=000000001&bp=000000555, т.е. отсюда видно, что пользователь 000000001 хочет закрыть задачу 000000555), т.е. пользователь со своего смартфона не имеющего доступа к 1С как таковому, должен получить возможность управлять ею извне. Собственно, более сложной задачей можно поставить написание собственных web-форм, более легких и компактных, с произвольным дизайном для управления 1С.
Задача с точки зрения написания кода 1С очень легкая. Основная сложность заключалась в освоении HTML и JavaScript для управления извне. Начальные знаний по этому вопросу я подчерпнул из статьи Примеры пользования web сервисов 1С из браузера.

Настройка 1С
Для возможности использовать 1С в вебе необходимо:
1. Установить модуль расширения веб-сервера;
title

2. Настроить Windows: доустановить компоненты IIS и настроить проверку подлинности. Всё это можно прочитать в статье Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS.

Программирование 1С
Теперь можно приступить к конфигурированию.
title

1. Создадим Web-сервис Input:
1.1. Input имеет операцию InputData которая принимает два параметра: User и Command, и возвращает параметр типа "boolean (http://www.w3.org/2001/XMLSchema)". Текст функции InputData:

Код 1C v 8.х

 Функция InputData(User, Command)



    обДанные = Справочники.Данные.СоздатьЭлемент();



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



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

1.2. Устанавливаем для Input URI пространства имен = "http://infostart.ru". Здесь может быть любое уникальное имя, обычно это ссылка на сайт.
1.3. Устанавливаем для Input имя файла публикации = "input.1cws". Это имя web-сервиса к которому будем устанавливать соединение.
2. Для наглядности примера создадим справочник Данные, все параметры оставим по умолчанию.
3. Публикуем нашу конфигурацию и web-сервис: Администрирование -> Публикация на веб сервере...
title

На этом конфигурирование заканчивается, всё остальное сделает за нас 1С.

Разработка HTML страницы
Эта часть далась для меня тяжело, т.к. я ещё только делаю первые шаги в этой теме. Буду рад замачаниям и советам. А так, я постараюсь объяснить всё на пальцах тем, кто как и я знаком по большей части с 1С.
После установки ISS (я уже давал ссылку в начале статьи) на диске C появится каталог C:\inetpub\wwwroot, в этом каталоге располагается сайт. Для локальной машины (на которой установили ISS) он виден так http://localhost/, ну а для пользователей извне, как-то так http://infostart.ru (по правде там немного сложнее, но не суть, мы сейчас не про это). Заглавная страница сайта будет грузиться из файла index.htm каталога C:\inetpub\wwwroot
title

Исходники файлов можно скачать здесь: Скачивать файлы может только зарегистрированный пользователь!

Код файла index.htm попытаюсь объяснить как могу, т.к. сам некоторые моменты не понимаю:

Код

[html xmlns="http://www.w3.org/1999/xhtml"] // Неважно. Используется в XHTML для объявления пространства имен.
[head] // Предназначен для хранения других элементов, цель которых — помочь браузеру в работе с данными.

[meta http-equiv="Content-Type" content="text/html; charset=utf-8" /] // Неважно. Мета-теги используются для указания описания.

[title]Тест веб сервиса 1С[/title] // Неважно. Определяет заголовок документа, то что видит пользователь как текст вкладки.

[script type="text/javascript" src="../js/connect1c.js"] [/script] // Важно. Подключение JavaScript библиотек. В моём случае это мой модуль соединения с 1С.
[script type="text/javascript" src="../js/parameters.js"] [/script] // Важно. А это модуль обработки параметров строки браузера.

[/head]

[body] // Предназначен для хранения содержания веб-страницы (контента), отображаемого в окне браузера.
[p id="response1C"][/p] // Важно. Метка response1C, куда вернёться ответ запроса 1С.
[/body]

[script type="text/javascript"] // Важно. Начало основного скрипта, который выдёргивает из строки браузера всё что идёт дальше знака вопроса,
а дальше парсит по определенному алгоритму. В нашем случае будут искаться ключевые слова "user=" и "command=".

user = GetParameter("user"); // Важно. Находим значение user. Сам метод GetParameter находится в библиотеке parameters.js, о которой поговорим чуть позже.
command = GetParameter("command"); // Важно. Находим значение command.

Inquiry1C(user, command); // Важно. Запрос к 1С с найденными параметрами. Сам метод Inquiry1C находится в библиотеке connect1c.js

[/script]

[/html]

Заменил < на [, а > - ], замените перед использованием обратно.
Рассмотрим библиотеку parameters.js, которая находится в папке C:\inetpub\wwwroot\js
f

Код

unction GetParameter(pName) { // Сам метод я нашёл на просторах интернета.

search = window.location.search; // window.location - это по сути URL, метод search этого объекта возвращает часть адреса после символа "?", включая символ "?".

begin = search.indexOf(pName) + pName.length + 1; // Вычисляем позицию начала строки значения параметра для вырезания. +1 - в нашем случае это знак "=".
Итого, для search = "?user=007" мы найдём позицию начала равной 6 (нумерация с нуля).
end = search.indexOf('&', begin); // Находим позицию конца выражения. В нашем случае, разделение параметров осуществляется знаком "&", и если мы его не найдём,
то позицией конца будет последний символ строки search (смотри дальше код).

if (end == -1) {
end = search.length;
};

return unescape(search.substring(begin, end)); // Метод unescape возвращает строку, содержащую данные типа charString (не знаю зачем это надо,
но видимо такое приведение типа здесь необходимо). Ну а метод substring - извлекает подстроку из строки.

}
Теперь рассмотрим библиотеку connect1c.js, которая также находится в папке C:\inetpub\wwwroot\js
function Inquiry1C(pUser, pCommand) { // Основной метод этой библиотеки. Запрос к 1С.

XMLHTTP = CreateRequestObject(); // Создание XML HTTP запроса. Сам метод я узнал из википедии.

XMLHTTP.open('POST', '../TestWeb/ws/Input.1cws', true, "Admin", "1"); // Создаём соединение типа POST, где второй параметр - адрес; параметр true - значит асинхронное,
то есть браузер не будет ждать ответа сервера, а продолжит работу; далее пользователь и пароль с правами на операцию InputData (этот тот метод, который мы написали в 1С),
саму операцию можно выполнять в привилегированном режиме, чтобы не мучиться с правами для пользователя Admin.

XMLHTTP.onreadystatechange = function() {WhenAnswering1C(XMLHTTP)}; // Когда 1С отработает, автоматически сработает метод WhenAnswering (о нём чуть ниже по тексту этой библиотеки).

XMLHTTP.send(''
+ ' '
+ ' '
+ ''
+ pUser + ' '
+ ''
+ pCommand + ' '
+ ' '); // Отправка XML запроса, где описывается метод к исполнению в 1С, с переданными параметрами из нашей строки URL.
// Строку запроса можно раскурить минут за 5

}

function CreateRequestObject() { // Чудо метод из википедии "Пример использования". По сути, ничего сложного.
if (typeof XMLHttpRequest === 'undefined') {
XMLHttpRequest = function() {
try { return new ActiveXObject("Msxml2.XMLHTTP.6.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP.3.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP"); }
catch(e) {}
try { return new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e) {}
throw new Error("This browser does not support XMLHttpRequest.");
};
}
return new XMLHttpRequest();
}

function WhenAnswering1C(pXMLHTTP) { // Метод, который срабатывает после обработки запроса 1С.

status = StausRequest(pXMLHTTP); // Вычисляется статус для отправки сообщения пользователю (о нём чуть ниже).
document.getElementById("response1C").appendChild(document.createTextNode(status)); // Вывод на экран в помеченную область response1C (о ней я писал в основном файле).
Метод getElementById возвращает ссылку на узел документа.
Метод appendChild добавляет нод в конце списка дочерных нодов элемента, т.е. встраивает в нашу область нужный нам текст.

}

function StausRequest(pXMLHTTP) // Определение статуса.
{
status = "";
if (pXMLHTTP.readyState == 4) { // Опять же, читая википедию можно понять, readyState - это текущее состояние объекта (0 — не инициализирован, 1 — открыт,
2 — отправка данных, 3 — получение данных и 4 — данные загружены).
if (pXMLHTTP.status != 200) { // status - HTTP-статус в виде числа (404 — «Not Found», 200 — «OK» и т. д.)
status = "Запрос завершился неудачно. Ответ сервера: " + pXMLHTTP.responseText; // responseText -текст ответа на запрос.
Если состояние не 3 или 4, возвращает пустую строку.
}
else {
if (RequestSuccessful(pXMLHTTP)) { // Проверка ответа от 1С (о нём чуть ниже).
status = "Запрос отработан.";
}
else {
status = "Запрос был отклонён.";
};

};
};

return status;
}

function RequestSuccessful(pXMLHTTP) { // Проверка ответа от 1С. Здесь мы получим возвращаемое от 1С значение (в нашем случае 1С может вернуть тип булево).

DOM = pXMLHTTP.responseXML.getElementsByTagName("return")[0]; // responseXML - Текст ответа на запрос в виде XML, который затем может быть обработан посредством DOM.
Если состояние не 4, возвращает null.
response = DOM.childNodes[0].data; // Достаём данные из ответа.

return response == "true"; // Если правда, то правда

По правде, я не смог преобразовать сроку в булево, поэтому пришлось оставить так.

}

Проверка
Открываем браузер и вводим строку "localhost/?user=007&command=hello world!":
title

После чего можно открыть 1С и убедиться что создался элемент справочника:
title

На этом пример ознакомления управления 1С извне можно считать законченным

Автор: Soloist

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Принудительная установка пароля пользователям, работающим без пароля!

Чтоб заставить всех, кто работает без пароля, установить пароль. Можно применить программный ограничитель. Для этого в модуле приложения добавляем функцию:

Код 1C v 8.х

 //am+

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



    ТекПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();

    Если Не ТекПользовательИБ.ПарольУстановлен Тогда

        ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

        ФВП.Заголовок = "Установите пароль на вход в 1С (не менее 6 симв.)";

        ФВП.ОткрытьМодально();

        Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

            Пароль1 = ФВП.Пароль;

            Если СтрДлина(Пароль1)<6 Тогда

                Предупреждение("Длина пароля должна быть не менее 6 символов!");

                Возврат Ложь;

            КонецЕсли;

            ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");

            ФВП.Заголовок = "Повторите новый пароль";

            ФВП.ОткрытьМодально();

            Если ЗначениеЗаполнено(ФВП.Пароль) Тогда

                Пароль2 = ФВП.Пароль;

                Если Пароль1<>Пароль2 Тогда

                    Предупреждение("Не совпадают пароли!");

                    Возврат Ложь;

                Иначе

                    ТекПользовательИБ.Пароль = Пароль1;

                    ТекПользовательИБ.Записать();

                    Возврат Истина;

                КонецЕсли;

            Иначе

                Возврат Ложь;

            КонецЕсли;

        Иначе

            Возврат Ложь;

        КонецЕсли;

    Иначе

        Возврат Истина;

    КонецЕсли;



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

//am-

и в предопредленной процедуре ПриНачалеРаботыСистемы (мы не можем использовать ПередНачаломРаботыСистемы т.к. в ней еще не существует окна программы и нет возможности открыть общую форму ввода пароля) делаем вызов

Код 1C v 8.х

 //am+

Если Не ПроверитьИзменитьПарольПользователя() Тогда

    ЗавершитьРаботуСистемы(Ложь);

    Возврат;

КонецЕсли;

//am-

источник

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

Настройка MS SQL Server 2005 для 1С

Для комфортной работы пользователей с 1С:Предприятием необходимым условием является регламентное выполнение следующих процедур:
* Обновление статистики
* Чистка процедурного кеша
* Резервное копирование
title

Настройка выполнения обновления статистики
В Окне SQL Server Menegement Studio - кликнем правой мышкой по пункту Планы обслуживания (Menegement->Maintenance Plans) и запустим
Maintenance Plan Wizard - кликая кнопку Next заполним наименование, описание и т.д. На странице выбора задач (S_elect Maintenance Tasks)
устанавливаем флажок Update Statistics. Далее, на странице Define Update Statistics Task в поле Databases выбираем одну или несколько баз, статистику которых будем обновлять.
Рекомендую такое расписание: каждый день, каждые 2 часа.

Чистка процедурного кеша
Чистка процедурного кэша выполняетсяследующим скриптом:

Код SQL

 Use [Имя_Базы1]

DBCC FREEPROCCACHE

go

Use [Имя_Базы2]

DBCC FREEPROCCACHE

go

Use [Имя_БазыN]

DBCC FREEPROCCACHE

go

Рекомендую такое расписание: каждый день, один раз. Я сделал запуск перед началом рабочего дня (например, в 6:00) - выполнении задачи не влияет на работу пользователей.
Самое интересное - это настройка резервного копирования...

Резервное копирование (backup)
В Окне SQL Server Menegement Studio - кликнем правой мышкой по пункту Планы обслуживания (Menegement->Maintenance Plans) и запустим Maintenance Plan Wizard - кликая кнопку Next заполним наименование, описание и т.д. На странице выбора задач (S_elect Maintenance Tasks) устанавливаем флажок Back Up Database (Full).
Расписание - я делаю каждый день (лучше, но не обязательно, когда с базой никто не работает, например, ночью).
Т.к. файлы backup большого размера, то для экономии места на диске я запускаю .bat-файл (автоматическое архивирование при помощи бесплатной программы 7zip) обычным планировщиком задач Windows .

Пусть, файлы backup находятся в каталоге F:\SQL_backUp\, а архиватор 7-zip установлен в C:\Program Files\7-Zip\ тогда файл такой:

Код DOS Batch File

 F:

cd F:\SQL_backUp\

for %%R IN (*.bak) DO "C:\Program Files\7-Zip\7z.exe" a %%R.7z %%R

for %%R in (*.bak) do del "%%R" /Q

Автор: Лучинский Владимир

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

Распределенная информационная база. Пошаговая инструкция и подводные камни.

В этом материале подробная инструкция по настройке обмена РИБ для 1С:Предприятие 8 и проблемы, с которыми столкнулся автор.

1. Создание узлов
Создаем новые узлы (главный и подчиненный): в пользовательском режиме "Операции / Планы обмена/Полный"
title

Выберем план обмена "Полный"
Создаем две записи:
- первую запись назовем "ЦБ" (главный узел), код укажем "ЦБ",
- вторую запись назовем "Подчиненный узел", код укажем "ПУ".
title

Значек с зеленным кружком - "ЦБ" (главный узел)

Для подчиненного узла нажимаем на иконку "Создать начальный образ". (Потребуется монопольный доступ)
title

Создать начальный образ
Далее в открывшемся окне заполняем параметры новой базы. По окончании нажимаем кнопку "Готово"
title

Создание начального образа ИБ
Начнется создание начального образа подчиненного узла распределенной информационной базы, по окончании появится сообщение "Создание начального образа успешно завершено". Жмем кнопку "ОК".
Добавляем базу подчиненного узла в список баз, запускаем ее.
В этой подчиненной базе открываем полный план обмена - значок "ЦБ красный, это значит, что этот узел является главным для информационно базы, в которой мы находимся.

2. Настройка префиксов
Для каждой базы, в настройках параметров учета (в УПП "Сервис / Параметры учета") на закладке "Обмен данными", устанавливаем префиксы. Это делается для того чтобы не возникало конфликтов в номерах и кодах документов и справочников, созданных в двух базах.
Для автообмена, устанавливаем галочку "Использовать механизм автоматического обмена..."
title

Закладка "Обмен данными"

3. Добавляем настройку обмена данными между узлами
Открываем: "Сервис \Распределенная информационная база (РИБ)\Настроить узлы РИБ"
Нажимаем "Добавить", откроется окно "Настройка обмена данными"
title

Настройка обмена данными

Нажимаем на значок "Выполнить обмен по текущей настройке"
title

Выполнить обмен по текущей настройке

Теперь о "подводных камнях"
1. Обмен данными может выполняться в автоматическом режиме и может быть инициализирован в следующих случаях:
* При запуске программы. Обмен будет выполняться при запуске программы,
* При завершении работы с программой. Обмен будет выполняться перед завершением пользователем работы с программой,
* При появлении каталога. Обмен будет выполнен только в том случае, если каталог указанный пользователем был невиден, а в настоящий момент стал виден. Настройка может быть использована для выполнения автоматического обмена при подключении к локальной сети или flash карты. Программа периодически будет проверять видимость указанного в настройках каталога и отмечать его текущее состояние,
* При появлении файла. Рекомендуется использовать данные режим, когда нужно выполнить обмен, если появляется входящий файл обмена данными. В этом случае, достаточно указать полный путь к входящему файлу обмена данными. Программа периодически анализирует наличие файла, и как только он появится, будет выполнен обмен, а после обмена этот файл будет принудительно УДАЛЕН (это делается для того, что бы процедура обмена не выполнялась постоянно),
* Периодический обмен данными. Обмен будет выполняться согласно настройкам периодического обмена данными. Если информационная база работает в файл-серверном режиме, то периодический обмен выполняется только у пользователя, который указан в параметрах учетной политики как "Пользователь для регламентных заданий в файловом режиме". В Клиент-серверном варианте обмен выполняется на сервере 1C:Предприятия.

У меня Клиент-серверный вариант - для работы регламентного автообмена пришлось перегружать сервер

2. Кодировка Windows.
Обмен прерывался ошибкой - так как не происходит сжатие файла. Это из-за ошибки кириллицы в командной строке при сжатии.
Лечится исправлением кодировок в реестре.
Например, для Windows Server 2008 -

Код

REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"
"1255"="c_1251.nls"

3. Создавая копию базы (например, для доработки) в клиент-серверном варианте, НЕОБХОДИМО, чтобы РЕГЛАМЕНТНЫЕ ЗАДАНИЯ КОПИИ базы были ВЫКЛЮЧЕНЫ.
title

Блокировка регламентных заданий для копии ВКЛ

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

Категория: Конвертация данных, Обмен, Перенос

Добавление поддержки нестандартного штрих-кода в обработке ПечатьЭтикеток

Обработка ПечатьЭтикеток использует компоненту "1С:Печать штрихкодов"(доступную на диске ИТС) для печати штрих-кодов(далее ШК). Эта компонента поддерживает следующие типы штрих-кодов: EAN8, EAN13, EAN128, Code39, Code128.

Что делать если на предприятии используется отличный ШК, например Interleave 2 of 5, для которго есть системный шрифт @IDAutomationSHI25M, используемый для вывода ШК на экран или на принтер.

Рассмотрим как проще всего добавить поддержку этого типа ШК в обработке ПечатьЭтикеток.

Первым делом скопируем общий макет Этикетка в макет для вывода нашего штрих-кода ЭтикеткаInterleave. В этом макете надо удалить элемент управления, связанный с компонентой "1С:Печать штрихкодов". И оформить центральное поле как параметр табличного документа ШтрихКод, выводимый шрифтом @IDAutomationSHI25M.
title

Далее разрешаем запуск обработки даже с неустановленной компонентой т.к. для вывода нашего ШК компонента не нужна. Для этого комментируем строчку в модуле формы обработки:

Код 1C v 8.х

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

    Попытка

        КомпонентШК = Новый COMОбъект("V8.Barcod.1");

        Макет                   = ПолучитьОбщийМакет("Этикетка");

        ЭтикеткаОбласть         = Макет.ПолучитьОбласть(1,1,4,2);

        ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = "1111111111116";

    Исключение

        Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!

                 |Возможна печать только штрих-кодов Interleave!", СтатусСообщения.Важное);

        //Отказ = Истина;

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



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

В общем модуле УправлениеРозничнойТорговлей также есть место проверки на компоненту

Код 1C v 8.х

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

// Печать этикеток со штрих-кодом

//

Процедура ПечатьЭтикеток(Товары = Неопределено) Экспорт



//am+ Эта проверка нам не нужна, во первых она выполняется ПередОткрытием в форме обработки.

// Кроме того у нас есть тип штрихкода, который печататется без компоненты.

//Попытка

// КомпонентШК = Новый COMОбъект("V8.Barcod.1");

//Исключение

// Сообщить("Компонента 1С:Печать штрихкодов не установлена на данном компьютере!", СтатусСообщения.Важное);

// Возврат;

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

//am-

В обработке есть место, где выполняется проверка типа ШК. Наш ШК сейчас не пройдет проверку и печать выполнена не будет. Чтоб печать выполнялась необходимо исправить функцию в общем модуле УправлениеРозничнойТорговлей.

Код 1C v 8.х

 

// Возвращает значение типа штрих-кода для использования в ЭУ

// "1С:Печать штрих-кодов"

//

// Параметры

//  ТипКода -   ПланыВидовХарактеристик.ТипыШтрихкодов - тип, значение для которого

//              нужно получить

//

// Возвращаемое значение:

//   Число, которое может быть присвоено свойству ЭУ "ТипКода"

//

Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода) Экспорт

    Перем Значение;



    Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда

        Значение = 0;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда

        Значение = 1;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда

        Значение = 2;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда

        Значение = 3;

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда

        Значение = 4;



//am+

    ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

        Значение = 100;

//am-



    Иначе

        Значение = -1;

    КонецЕсли;



    Возврат Значение;

КонецФункции // ПолучитьЗначениеТипаШтрихкодаДляЭУ()

Мы на завершающем этапе, вносим изменения непосредственно в обработку.

Код 1C v 8.х

 Процедура Печать(ТаблицаТоваров) Экспорт



    //am+ Так как у нас два разных макета, то нам нельзя смешивать типы ШК

    //    печатаемые в разных макетах. Выполним проверку.



    флВремЕстьInterleave = Ложь;

    флВремЕстьНеInterleave = Ложь;

    Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл

        Если СтрокаИзСписка.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда

            флВремЕстьInterleave = Истина;

        Иначе

            флВремЕстьНеInterleave = Истина;

        КонецЕсли;

        Если флВремЕстьInterleave и флВремЕстьНеInterleave Тогда

            Предупреждение("В списке одновременно встречаются штрих-коды несовместимых типов,

                           |Штрих-коды Interleave необходимо печатать отдельно от остальных!");

            Возврат;

        КонецЕсли;

    КонецЦикла;

    //am-



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

    Таб.ИмяПараметровПечати =   "ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка"+СокрЛП(ИмяКомпьютера());

    //am+ Используем наш макет.

    Если флВремЕстьInterleave Тогда

        Макет                   = ПолучитьОбщийМакет("ЭтикеткаInterleave");

    Иначе

    //am-

        Макет                   = ПолучитьОбщийМакет("Этикетка");

    КонецЕсли;



    //am+ Некоторые строки в нашем макете не заработают, необходимо добавить условие.

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;

    КонецЕсли;



    //am+

    Если Не флВремЕстьInterleave Тогда

    //am-

        РисунокШтрихкод.Расположить(ОбластьШтрихкод);

    КонецЕсли;





        Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод,

            СтрокаИзСписка.ТипШтрихкода) Тогда

            //am+ здесь мы установим размер шрифта (об этом в конце статьи) и зададим параметр ШтрихКод нашего макета для вывода

            Если флВремЕстьInterleave Тогда

                ЭтикеткаОбласть.Параметры.Установить(0,

              СформироватьШтрихКодДляМакетаЭтикеткаInterleave(СтрокаИзСписка.ШтрихКод));

                ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт =

              Новый Шрифт(ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт,,РезмерШрифтаInterleave);

            Иначе

            //am-

                Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;

                    ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;

                Исключение

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

            КонецЕсли;

Последний штрих это добавить регулятор размера шрифта (в коде переменная РезмерШрифтаInterleave) на форму обработки:
title

источник

Категория: Штрих-код (barcode)

Создание и работа с БД MySQL из 1С

Появилась необходимость выложить часть данных из 1С в открытый доступ большому числу пользователей.
Что бы не нарушать условий лицензирования и обеспечить безопасность данных, было принято решение развернуть новую базу на MySQL. Так как особо модерировать ее никто не хочет, пришлось сделать управление MySQL-ной БД из 1С, и начал с создания структуры БД. Итак:
Создаем 2 справочника неирархических, один подчинен другому.
а. Таблицы
б. Колонки

Таблицы - реквизиты:
Автокод - Булево (Определяет необходимость нумеровать запись уникальным кодом, или отдать нумерование на откуп MySQL)
Таблицы - колонки:
ТипДанных - Число (в коде определим тип хранящихся данных по числу)
Длина - Число (длина хранящихся данных)
МожетБытьНоль - булево (может ли хранится пустое значение)
Связь - СсылкаНа таблицу (С которой есть связь все к одному)

Заполняем значениями справочники...

Теперь подключаемся:

Код 1C v 8.х

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

СтрокаПодключения =   "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=" + константы.lk_БД.Получить() + ";PWD=" + константы.lk_Пароль.Получить() + ";PORT=3306;SERVER=" + константы.lk_Сервер.Получить() + ";UID=" + константы.lk_Пользователь.Получить() + ";";

Connection.Open(СокрЛП(СтрокаПодключения));

Сначала удалим таблицы если они есть:

Код 1C v 8.х

     Результат = Новый COMОбъект("ADODB.Command");

    Результат.ActiveConnection = Connection; // работаем через это соединение

    Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

    Результат.CommandType = "adCmdText";

   

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

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

    |   Таблицы.Наименование КАК Таблица

    |   ИЗ

    |    Справочник.Таблицы КАК Таблицы";

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

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

        Результат.CommandText =        " D_rop TABLE IF EXISTS " + ВыборкаТаблиц.Таблица + " ;";

        Результат.Execute();

    КонецЦикла;

Теперь приступим к созданию таблиц БД:

Код 1C v 8.х

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

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

    |    Таблицы.Наименование КАК Таблица,

    |    Колонки.Наименование КАК Колонка,

    |    Колонки.ТипДанных,

    |    Колонки.Длина,

    |    Колонки.МожетБытьНоль,

    |    Колонки.Связь.Наименование КАК Связь

    |ИЗ

    |    Справочник.Колонки КАК Колонки

    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Таблицы КАК Таблицы

    |        ПО Колонки.Владелец = Таблицы.Ссылка

    |

    |ИТОГИ ПО

    |    Таблица";

   

    ВыборкаТаблиц = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

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

 

        Скрипт =         " CREATE TABLE " + ВыборкаТаблиц.Таблица + " ( " + символ(13) +

        " " + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + " int(11) NOT NULL " + ?(Справочники.Lk_Таблицы.НайтиПоНаименованию(ВыборкаТаблиц.Таблица).АвтоКод,"auto_increment","") + "," + символ(13);

       

        Выборка = ВыборкаТаблиц.Выбрать();

        Строчека = "" ;

        Ключики = "";

       

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

         Строчека = Строчека + "`" + Выборка.Колонка + "` " + ПолучитьПродолжениеСкрипта(Выборка.ТипДанных,Выборка.длина,Выборка.МожетБытьНоль) + "," + символ(13);

           

            ЕСли ЗначениеЗаполнено(Выборка.Связь) Тогда

                Ключики = Ключики + ", KEY `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` (`" + Выборка.Колонка + "`),

                | CONSTRAINT `FK_" + ВыборкаТаблиц.Таблица + "-" + Выборка.Колонка + "` FOREIGN KEY (`" + Выборка.Колонка + "`) REFERENCES `" + Выборка.Связь + "` (`" + ПолучитьКолонкуID(Выборка.Связь) + "`)" + Символ(13)    ;   

            КонецЕсли;               

        КонецЦикла;

       

        Скрипт = Скрипт + Строчека;

        Скрипт = Скрипт + "  PRIMARY KEY  (" + ПолучитьКолонкуID(ВыборкаТаблиц.Таблица) + ") " + символ(13) +  Ключики +

        " ) ENGINE=InnoDB DEFAULT CHARSET=utf8;";

        Сообщить("Таблица создана: " + ВыборкаТаблиц.Таблица);

        Результат.CommandText =        скрипт;

        Результат.Execute();

     КонецЦикла;

    Connection.Close();

И под закуску недостающие функции, использованные в основном тексте:

Код 1C v 8.х

 Функция ПолучитьКолонкуID(зн) экспорт

    ПрефиксКончился = Ложь;

    Колонка = "";

    Для сч = 1 по СтрДлина(зн) Цикл

              Символик = Mid(зн,Сч, 1);

             

          Если ПрефиксКончился Тогда

        Колонка = Колонка + Символик;     

          КонецЕсли;

 

             

              Если Символик = "_" Тогда

                  ПрефиксКончился = Истина;

              КонецЕсли;

             

          КонецЦикла;

          Если Колонка = "" Тогда

              Колонка = зн;

          КонецЕсли;

          Колонка = Колонка + "ID";

          Возврат Колонка;

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

Предполагается что название таблиц идут с префиксом например: prefix_NameTable

Код 1C v 8.х

 Функция ПолучитьПродолжениеСкрипта(ТипД,ДлинаД,Ноль) экспорт

   

    Если ТипД = 1 тогда  //строка

     Зн = " varchar(" + Строка(ДлинаД) + ") " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 2 Тогда     //число

     Зн = " int(11) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 3 Тогда          //смаллчисло

     Зн = " smallint(6) " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли типД = 4 тогда    //текст

     Зн = " text";

    ИначеЕсли ТипД = 5 тогда // дата

     Зн = " date " + ?(Ноль, "null","NOT NULL");

    ИначеЕсли ТипД = 6 Тогда          //смаллчисло

     Зн = " bit(1) " + ?(Ноль, "null","NOT NULL");

 ИначеЕсли ТипД = 7 Тогда // Дата и время

          Зн = " dateTime " + ?(Ноль, "null","NOT NULL");

 КонецЕсли;   

         

    Возврат Зн;

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

Источник

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

Структура и название таблиц использыемых для хранения данных в БД 1С 8.х

Данные, которые определяют логику функционирования системы на базе 1С:Предприятия, относятся к информационной базе. Хранение информационной базы осуществляется в базе данных с виде набора таблиц, для чего 1С:Предприятие 8.1 может использовать одну из четырех систем управления базами данных (СУБД):
* Встроенную в 1С:Предприятие 8.1 (файловый вариант информационной базы). В этом случае все данные информационной базы хранятся в файле с именем 1Cv8.1CD. Этот файл имеет двоичный формат и по сути является базой данных для встроенной в 1С:Предприятие 8.1 СУБД.
* Microsoft SQL Server (клиент-серверный вариант информационной базы). Все данные информационной базы хранятся в базе данных Microsoft SQL Server.
* PostgreSQL (клиент-серверный вариант информационной базы). Все данные информационной базы хранятся в базе данных PostgreSQL.
* IBM DB2 (клиент-серверный вариант информационной базы). Все данные информационной базы хранятся в базе данных IBM DB2.

На уровне объектов базы данных (таблиц, полей, индексов и т. п.) как файловый так и клиент-серверный вариант информационной базы имеют сходный формат (отличающийся несущественными деталями). Некоторая информация об этом формате содержится ниже.

Вся информационная база представляется в базе данных в виде набора таблиц. Среди них есть несколько таблиц, которые обязательно присутствуют в представлении любой информационной базы:

* Config - основная конфигурация информационной базы. Эта конфигурация соответствует реальной структуре данных и используется 1С:Предприятием 8.0 в режиме Предприятия.
* ConfigSave - конфигурация, редактируемая Конфигуратором. Конфигурация из ConfigSave переписывается в Config при выполнении "Обновления конфигурации базы данных" в Конфигураторе, а наоборот - при выполнении в Конфигураторе операции "Конфигурация - Конфигурация базы данных - Вернуться к конфигурации БД".
* Files содержит служебную информацию, например, о работе с хранилищем конфигурации.
* Params содержит параметры информационной базы. Среди них:
=> Список пользователей информационной базы.
=> Национальные настройки информационной базы.
=> Таблица соответствия объектов метаданных и объектов базы данных (таблиц, полей, индексов).
=> Некоторая другая информация.
* _YearOffset - смещение дат в базе данных. Эта таблица создается только при использовании Microsoft SQL Server.
* DBSchema содержит информацию о структуре базы данных 1С:Предприятия и определяет другие объекты базы данных, используемые данной информационной базой.

При старте 1С:Предприятие проверяет наличие в информационной базе перечисленных таблиц и в случае отсутствия какой-нибудь из них выдается сообщение "информационная база разрушена". Отсутствие всех перечисленных таблиц означает, что информационная база пустая. В последнем случае эти таблицы будут созданы.

Перечень и структура других таблиц базы данных определяется конкретной конфигурацией, а именно, определенными в ней объектами метаданных. Имя каждой таблицы состоит из буквенного префикса и следующего за ним номера. Префикс определяет назначение таблицы, а номер позволяет различать таблицы одинакового назначения, относящиеся к разным объектам метаданных. Если в качестве СУБД используется IBM DB2, то описанную структуру имеют не имена таблиц, а их псевдонимы.

Если в конфигурации определен хотя бы один план обмена с установленным флагом "Распределенная информационная база", то будут созданы следующие таблицы:

* _ConfigChangeRec - таблица регистрации изменений объектов конфигурации.
* _ConfigChangeRec_ExtProps - таблица имен файлов измененных внешних свойств объектов конфигурации.

Ниже перечислены различные объекты метаданных, которым могут соответствовать те или иные таблицы.

* Константы
=> _Consts содержит текущие значения всех констант, определенных в конфигурации.
=> _ConstsChangeRec - таблица регистрации изменений констант. Создается, если хотя бы одна константа участвует хотя бы в одном плане обмена.
* Планы обмена
=> _Node<n> - таблица плана обмена.
=> _Node<n>_VT<k> - табличная часть плана обмена, создается для каждой табличной части.
* Справочники
=> _Reference<n> - таблица справочника.
=> _Reference<n>_VT<k> - табличная часть справочника - для каждой табличной части.
=> _ReferenceChangeRec<n> - таблица регистрации изменений справочника. Создается, если справочник участвует хотя бы в одном плане обмена.
* Документы
=> _Document<n> - таблица документов для каждого объекта метаданных "документ".
=> _Document<n>_VT<k> - табличная часть документа - для каждой табличной части каждого документа.
=> _DocumentChangeRec<n> - таблица регистрации изменений объекта метаданных типа "документ". Создается для каждого объекта метаданных типа "документ", если он участвует хотя бы в одном плане обмена.
* Последовательности документов
=> _Sequence<n> - таблица регистрации документов - для каждой последовательности.
=> _SequenceBoundary<n> - таблица границ последовательности - для каждой последовательности.
=> _SequenceChangeRec<n> - таблица регистрации изменений последовательности. Создается для каждой последовательности, которая участвует хотя бы в одном плане обмена.
* Журналы документов.
=> _DocumentJournal<n> - таблица журнала документов, создается для каждого журнала документов.
* Перечисления
=> _Enum<n> - таблица перечисления - по одной для каждого перечисления.
* Планы видов характеристик
=> _Chrc<n> - основная таблица плана видов характеристик.
=> _Chrc<n>_VT<k> - табличная часть плана видов характеристик - для каждой табличной части.
=> _ChrcChangeRec<n> - таблица регистрации изменений плана видов характеристик. Создается, если план видов характеристик участвует хотя бы в одном плане обмена.
* Планы счетов
=> _Acc<n> - основная таблица плана счетов.
=> _Acc<n>_ExtDim<k> - таблица видов субконто плана счетов, создается для плана счетов в том случае, если максимальное количество субконто больше нуля.
=> _Acc<n>_VT<k> - табличная часть плана счетов, создается для каждой табличной части плана счетов.
=> _AccChangeRec<n> - таблица регистрации изменений плана счетов. Создается, если план счетов участвует хотя бы в одном плане обмена.
* Планы видов расчета
=> _CalcKind<n> - основная таблица плана видов расчета.
=> _CalcKind<n>_BaseCK - таблица базовых видов расчета, создается для плана видов расчета в случае, если его свойство "Зависимость от базы" имеет значение, отличное от "Не зависит".
=> _CalcKind<n>_DisplacedCK - таблица вытесняемых видов расчета, создается для плана видов расчета в случае, если у него установлен флаг "Использует период действия".
=> _CalcKind<n>_LeadingCK - таблица ведущих видов расчета - для каждого плана видов расчета.
=> _CalcKindDN<n> - вспомогательная таблица для порядка вытеснения, создается, если у плана видов расчета установлен флаг "Использует период действия".
=> _CalcKind<n>_VT<k> - табличная часть плана видов расчета, создается для каждой табличной части.
=> _CalcKindChangeRec<n> - таблица регистрации изменений плана видов расчета. Создается, если план видов расчета участвует хотя бы в одном плане обмена.
* Регистры сведений
=> _InfoReg<n> - таблица движений регистра сведений.
=> _InfoRegChangeRec<n> - таблица регистрации изменений регистра сведений. Создается, если регистр сведений участвует хотя бы в одном плане обмена.
* Регистры накопления
=> _AccumReg<n> - таблица движений регистра накопления.
=> _AccumRegTotals<n> - таблица итогов регистра накопления, если регистр поддерживает остатки.
=> _AccumRegTurnovers<n> - таблица оборотов регистра накопления, если регистр поддерживает обороты.
=> _AccumRegChangeRec<n> - таблица регистрации изменений регистра накопления. Создается, если регистр накопления участвует хотя бы в одном плане обмена.
=> _AccumRegOptions - таблица настроек хранения итогов регистров накопления одна на все регистры накопления.
* Регистры бухгалтерии
=> _AccntReg<n> - таблица движений регистра бухгалтерии.
=> _AccntRegED<n> - таблица значений субконто регистра бухгалтерии, создается в том случае, если он ссылается на план счетов, у которого максимальное количество субконто больше нуля.
=> _AccTtl0<n> - таблица итогов по счету.
=> _AccTtl<i><n> - где i от 1 до максимального количества субконто. Таблица итогов по счету с количеством видов субконто равным i.
=> _AccTtlC<n> - таблица итогов оборотов между счетами, только для регистра бухгалтерии поддерживающего корреспонденцию.
=> _AccntRegChangeRec<n> - таблица регистрации изменений регистра бухгалтерии. Создается, если регистр бухгалтерии участвует хотя бы в одном плане обмена.
=> _AccntRegOptions - таблица настроек хранения итогов одна на все регистры бухгалтерии.
* Регистры расчета
=> _CalcReg<n> - таблица движений регистра расчета.
=> _CalcRegActPer<n> - таблица фактических периодов действия для регистра расчета, создается, если у регистра расчета установлен флаг "Период действия".
=> _CalcRegChangeRec<n> - таблица регистрации изменений регистра расчета. Создается для каждого регистра расчета, участвующего хотя бы в одном плане обмена.
=> _CalcRegRecalc<n> - таблица перерасчета регистра расчета, создается для каждого перерасчета.
=> _CalcRegRecalcChangeRec<n> - таблица регистрации изменений перерасчета. Создается, если перерасчет участвует хотя бы в одном плане обмена.
* Бизнес-процессы
=> _BPRoutePoint<n> - таблица точек маршрута бизнес-процесса для каждого бизнес-процесса.
=> _BusinessProcess<n> - основная таблица бизнес-процесса.
=> _BusinessProcess<n>_VT<k> - табличная часть бизнес-процесса для каждой табличной части.
=> _BusinessProcessChangeRec<n> - таблица регистрации изменений бизнес-процесса. Создается для каждого бизнес-процесса, участвующего хотя бы в одном плане обмена.
* Задачи
=> _Task<n> - основная таблица задачи.
=> _Task<n>_VT<k> - табличная часть задачи для каждой табличной части.
=> _TaskChangeRec<n> - таблица регистрации изменений в задачах. Создается для каждого объекта метаданных типа "задача", который участвует хотя бы в одном плане обмена.

При использовании IBM DB2 префиксы псевдонимов таблиц начинаются не с символа подчеркивания, а сразу с буквенной части.

Количество этих таблиц зависит от функциональности конфигурации и может быть достаточно большим. В штатном режиме 1С:Предприятие не выполняет проверку их наличия, а также целостности и непротиворечивости содержащихся в них данных. Поэтому важно, чтобы база данных, в которой размещена информационная база 1С:Предприятия 8.1, была защищена от несанкционированного доступа и ее модификация выполнялась только средствами 1С:Предприятия. Для проверки необходимо использовать функцию "Администрирование - Тестирование и исправление", встроенную в конфигуратор.

Важно также, чтобы резервное копирование и восстановление базы данных, хранящей информационную базу, выполнялось только целиком. С этой целью рекомендуется использование средств резервного копирования баз данных, встроенных в в используемую СУБД. Резервное сохранение файлового варианта информационной базы может быть выполнено копированием файла 1Cv8.1CD.

В конфигураторе есть специальная функция: Администрирование - Выгрузить информационную базу. С ее помощью можно выгрузить в указанный файл (файл выгрузки) все данные, относящиеся к информационной базе, и больше никакие. Обратная ей функция "Загрузить информационную базу" позволяет в текущую информационную базу вместо существующих загрузить все данные из файла выгрузки. Эти функции также можно использовать для резервного копирования данных информационной базы как в файловом так и в клиент-серверном варианте.

Как просмотреть структуру таблиц информационной базы?

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

Пример переноса данных из 1С 7.7 в 8.1 посредством XML файла

Код 1C v 7.x

    xmldoc = CreateObject("Msxml2.DOMDocument");

xmlDoc.loadXML("<root/>");

nodeRoot = xmlDoc.documentElement;

расходы = xmlDoc.createElement("СправочникРасходы");

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

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент()=1 цикл

	расход = xmlDoc.createElement("Расход");

	расход.setAttribute("Код",Спр.Код);

	расход.setAttribute("Наименование",Спр.Наименование);

	расход.setAttribute("Родитель",Строка(Спр.Родитель));

	расход.setAttribute("Цена",Строка(Спр.Цена.Получить(ТекущаяДата())));

	расход.setAttribute("Количество",Строка(Спр.Количество));

	расход.setAttribute("ЭтоГруппа",Строка(Спр.ЭтоГруппа()));

	расходы.appendChild(расход);

КонецЦикла;

nodeRoot.appendChild(расходы);

ДвижениеСчетов = xmlDoc.createElement("ДвижениеСчетов");

рег = СоздатьОбъект("Регистр.Счет");

рег.ВыбратьДвижения();

Пока Рег.ПолучитьДвижение()=1 цикл

	Движение = xmlDoc.createElement("Движение");	

	Движение.setAttribute("Приход",Строка(Рег.Приход));

	Движение.setAttribute("Дата",Строка(Рег.ТекущийДокумент().ДатаДок));

	Движение.setAttribute("Описатель",Строка(Рег.Описатель));

	Движение.setAttribute("СтатьяРасходов",Строка(Рег.СтатьяРасходов));

	Движение.setAttribute("СтатьяПоступлений",Строка(Рег.СтатьяПоступлений));

	Движение.setAttribute("Кто",Строка(Рег.Кто));

	Движение.setAttribute("Кому",Строка(Рег.Кому));

	Движение.setAttribute("Остаток",Строка(Рег.Остаток));

	Движение.setAttribute("Количество",Строка(Рег.Количество));

	

	ДвижениеСчетов.appendChild(Движение);

КонецЦикла;		

nodeRoot.appendChild(ДвижениеСчетов);

  	

xmlDoc.save("C:\budjet.xml");

Код 1C v 8.х

 

Функция Кошель(Кош)

    стр = ТП2.Найти(Кош,"Описатель");

	Возврат Стр.Счет;

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

Функция Вал(Кош)

    стр = ТП2.Найти(Кош,"Описатель");

	Возврат Стр.Валюта;

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

Функция Дата1С(дат)

	Возврат "20"+сред(дат,7,2)+сред(дат,4,2)+лев(дат,2);	

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



Процедура Загрузка(Элемент)

    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");

	xmlDoc.load("C:\budjet.xml");

	nodeRoot = xmlDoc.documentElement;



	Для каждого nod из nodeRoot.childNodes цикл

		Если nod.nodeName = "СправочникРасходы" тогда 

			Сообщить("нашли СправочникРасходы");

			ТЗ = Новый ТаблицаЗначений;

			ТЗ.Колонки.Добавить("Код");

			ТЗ.Колонки.Добавить("Наименование");

			ТЗ.Колонки.Добавить("Родитель");

			ТЗ.Колонки.Добавить("Цена");

			ТЗ.Колонки.Добавить("Количество");

			ТЗ.Колонки.Добавить("ЭтоГруппа");

			Для Каждого Расход из nod.childNodes Цикл

				Строка = ТЗ.Добавить();

				Строка.Код = Расход.getAttribute("Код");

				Строка.Наименование = Расход.getAttribute("Наименование");

				Строка.Родитель = Расход.getAttribute("Родитель");

				Строка.Цена = Число(Расход.getAttribute("Цена"));

				Строка.Количество = Число(Расход.getAttribute("Количество"));

				Строка.ЭтоГруппа = ?(Расход.getAttribute("ЭтоГруппа")="1",True,Ложь);

			КонецЦикла;		

			//ТЗ.ВыбратьСтроку();



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

				Родитель = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Родитель,истина);

				Справ = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Наименование,истина);

				Если Справ = Справочники.СтатьиЗатрат.ПустаяСсылка() тогда

					Если Стр.ЭтоГруппа тогда

						Справ = Справочники.СтатьиЗатрат.СоздатьГруппу();

						Справ.Код = Стр.Код;

						Справ.Наименование = Стр.Наименование;

						Справ.Родитель = Родитель;

						Справ.Записать();

					Иначе

						Справ = Справочники.СтатьиЗатрат.СоздатьЭлемент();

						Справ.Код = Стр.Код;

						Справ.Наименование = Стр.Наименование;

						Справ.Родитель = Родитель;

						Справ.Цена = Стр.Цена;

						Справ.Количество = Стр.Количество;

						Справ.Записать();

					КонецЕсли;

				Иначе

				КонецЕсли;

			КонецЦикла;

		ИначеЕсли nod.nodeName = "ДвижениеСчетов" тогда

			Сообщить("нашли движения счетов");

			ТЗ = Новый ТаблицаЗначений;

			ТЗ.Колонки.Добавить("Приход");

			ТЗ.Колонки.Добавить("Дата");

			ТЗ.Колонки.Добавить("Описатель");

			ТЗ.Колонки.Добавить("Статья");

			ТЗ.Колонки.Добавить("Цена");

			ТЗ.Колонки.Добавить("Количество");

			Для каждого движ из nod.childNodes цикл

                Строка = ТЗ.Добавить();

				Строка.Приход = ?(движ.getAttribute("Приход")="1",True,Ложь);

				Строка.Дата = Дата(Дата1С(движ.getAttribute("Дата")));

				Строка.Описатель = движ.getAttribute("Описатель");

				Строка.Статья = Справочники.СтатьиЗатрат.НайтиПоНаименованию(движ.getAttribute(?(Строка.Приход,"СтатьяПоступлений","СтатьяРасходов")),истина);

				Строка.Цена = Число(движ.getAttribute("Остаток"));

				Строка.Количество = Число(движ.getAttribute("Количество"));

			КонецЦикла;

			ТЗ.ВыбратьСтроку();

        	Доки = Новый ТаблицаЗначений;

			Доки.Колонки.Добавить("Док");

			Доки.Колонки.Добавить("Дата");

			Доки.Колонки.Добавить("КошелекС");

			Доки.Колонки.Добавить("КошелекНа");

			Доки.Колонки.Добавить("Статья");

			Доки.Колонки.Добавить("ВалютаС");

			Доки.Колонки.Добавить("ВалютаНа");

			Доки.Колонки.Добавить("ЦенаС");

			Доки.Колонки.Добавить("ЦенаНа");

			Доки.Колонки.Добавить("Количество");

			УжеЕстьДок=Ложь;

			док=0;

			Для Каждого Стр Из ТЗ цикл

				Если Стр.Приход Тогда

					Если УжеЕстьДок тогда

						Док.КошелекНа = Кошель(Стр.Описатель);

						Док.ВалютаНа = Вал(Стр.Описатель);

						Док.ЦенаНа = Стр.Цена;

						Док.Количество = Стр.Количество;

						Док.Статья = Стр.Статья;         

						УжеЕстьДок=Ложь;

					Иначе

						Док = Доки.Добавить();

						Док.КошелекНа = Кошель(Стр.Описатель);

						Док.ВалютаНа = Вал(Стр.Описатель);

						Док.ЦенаНа = Стр.Цена;

						Док.Количество = Стр.Количество;

						Док.Статья = Стр.Статья; 

						Док.Док = "ПоступлениеСредств";  

					КонецЕсли;					

				Иначе

					Док = Доки.Добавить();

					Док.КошелекС = Кошель(Стр.Описатель);

					Док.ВалютаС = Вал(Стр.Описатель);

					Док.ЦенаС = Стр.Цена;

					Док.Количество = Стр.Количество;

					Док.Статья = Стр.Статья; 

					Если СокрЛП(Стр.Статья.Наименование)="Обмен валюты" тогда

						Док.Док = "ОбменВалюты";

						УжеЕстьДок=истина;

					ИначеЕсли СокрЛП(Стр.Статья.Наименование)="Перевод средств" тогда

						Док.Док = "ПереводСредств";

						УжеЕстьДок=истина;

					Иначе

						Док.Док = "РасходСредств";  

						УжеЕстьДок=Ложь;

					КонецЕсли;	            

				КонецЕсли; 

				Док.Дата = Стр.Дата;

			КонецЦикла;	

			Доки.ВыбратьСтроку();

		КонецЕсли;	  

	КонецЦикла;



	Для Каждого Док из Доки Цикл

		Если Док.Док = "ПоступлениеСредств" тогда

        	Докум = Документы.ПоступлениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекНа;

			Докум.Валюта = Док.ВалютаНа;

			Докум.Сумма = Док.ЦенаНа;

			Докум.Статья = Док.Статья;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

		ИначеЕсли Док.Док = "ПереводСредств" тогда

        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.КошелекКуда = Док.КошелекНа;

			Докум.КошелекОтКуда = Док.КошелекС;

			Докум.Валюта = Док.ВалютаНа;

			Докум.Сумма = Док.ЦенаНа;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

        ИначеЕсли Док.Док = "ОбменВалюты" тогда

        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.КошелекКуда = Док.КошелекНа;

			Докум.КошелекОтКуда = Док.КошелекС;

			Докум.Валюта = Док.ВалютаС;

			Докум.Сумма = Док.ЦенаС;

			Докум.Записать(РежимЗаписиДокумента.Проведение);



			Докум = Документы.ОбменВалюты.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекНа;

			Докум.ВалютаС = Док.ВалютаС;

			Докум.ВалютаНа = Док.ВалютаНа;

			Докум.СуммаС = Док.ЦенаС;

			Докум.СуммаНа = Док.ЦенаНа;

			Докум.Курс = Докум.СуммаС / Докум.СуммаНа;

			Докум.Переключатель = 1;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

		Иначе

            Докум = Документы.РасходСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекС;

			Докум.Валюта = Док.ВалютаС;

            тч = Докум.Затраты.Добавить();

			тч.Сумма = Док.ЦенаС;

			тч.Статья = Док.Статья;

			тч.Цена = Док.ЦенаС;

			тч.Количество = Док.Количество;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

        КонецЕсли;

	КонецЦикла;

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



	

Процедура ЗаполнитьТЗДанными(Элемент)

    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");

	xmlDoc.load("C:\budjet.xml");

	nodeRoot = xmlDoc.documentElement;

	Для каждого nod из nodeRoot.childNodes цикл

		Если nod.nodeName = "ДвижениеСчетов" тогда

			Сообщить("нашли движения счетов");

            ТП1 = Новый ТаблицаЗначений;

			ТП1.Колонки.Добавить("Описатель");

			Типы = Новый Массив(1);	Типы[0] = Тип("СправочникСсылка.Кошельки");

			Тип = Новый ОписаниеТипов(Типы);

			ТП1.Колонки.Добавить("Счет",Тип);

			Типы[0] = Тип("СправочникСсылка.Валюты");

			Тип = Новый ОписаниеТипов(Типы);

			ТП1.Колонки.Добавить("Валюта",Тип);

			Для каждого движ из nod.childNodes цикл

				Описатель = движ.getAttribute("Описатель");

				если ТП1.Найти(Описатель,"Описатель") = Неопределено тогда

					стр = ТП1.Добавить();

					Стр.Описатель = Описатель;

				КонецЕсли;	  			

			КонецЦикла;

			ТП2=ТП1;//ВыбратьСтроку();

		КонецЕсли;	  

	КонецЦикла;

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

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

Получения новостей с RSS-канала сайта buh.ru

Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp
Данный код для 7.7, при использовании в 8-ой версии нужно заменить СоздатьОбъект( на Новый COMОбъект(, остальное вроде так же.

Код 1C v 7.x

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



Процедура Сформировать()   

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

	ТЗ.НоваяКолонка("ИД","Число");

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

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

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

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

К сожалению, автор не известен.

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