выбратьстроку » Поиск

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

Как программно сформировать отчет СКД указав параметры и на выходе получить таблице значений?

В одном документе для расчета потребовалось получать данные из отчета на СКД, реализовал следующим образом:

Код 1C v 8.х

 	//Програмное формирование отчета СКД	

	СхемаОст = Отчеты.ТоннажПоЭкспедиторам.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

	

	КомпоновщикНастроекНастройки = Новый КомпоновщикНастроекКомпоновкиДанных;

	КомпоновщикНастроекНастройки.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаОст));

	КомпоновщикНастроекНастройки.ЗагрузитьНастройки(СхемаОст.НастройкиПоУмолчанию); 

	

	КомпоновщикНастроекНастройки.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачалоПериода", НачалоМесяца(МесяцРасчета));

	КомпоновщикНастроекНастройки.Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонецПериода", КонецМесяца(МесяцРасчета));

	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаОст, КомпоновщикНастроекНастройки.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);

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

	

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

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

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

	

	ТоннажПоЭкспедиторам.Очистить();

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

	Для каждого СтрокаТЗ Из ДанныеТЗ Цикл

		Если ЗначениеЗаполнено(СтрокаТЗ.Экспедитор) и СтрокаТЗ.Доставка=Неопределено Тогда

		нСтр = ТоннажПоЭкспедиторам.Добавить();

		ЗаполнитьЗначенияСвойств(нСтр,СтрокаТЗ);

		нСтр.Сотрудник=СтрокаТЗ.Экспедитор; 

	Иначе

		Продолжить;

	КонецЕсли;	

	КонецЦикла;

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

1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ?

Код 1C v 7.x

 



Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1)  // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Url = "http://www.bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=" + ?(Ежедневно = 1, "daily", "monthly") + 

		"&date=" + Формат(ДатаКурса, "ДДДММГГГГ") + "&outer=table&execute=run&time=" + _GetPerformanceCounter();

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

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

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

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementsByTagName("table").item(5);

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

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

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

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

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

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

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

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

		Если (НомСтроки = 1) Или (Р.cells.length <> 5) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

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

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

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

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

Как получить курсы валют с сайта http://finance.ua/ за любую дату ?

Код 1C v 7.x

 



Функция ПолучитьТаблицуКурсов(ДатаКурса)

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Url = "http://tables.finance.ua/ru/currency/official/-/1/" + ДатаГод(ДатаКурса) + "/" + ДатаМесяц(ДатаКурса) + "/" + ДатаЧисло(ДатаКурса) + "?time=" + _GetPerformanceCounter();

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

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

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

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementByID("currency-official-table");

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

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

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

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

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

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

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

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

		Если (НомСтроки = 1) Или (Р.cells.length <> 7) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

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

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

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

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

Как перебрать все даты с НачалоПериода по КонецПериода и получить таблицу периодов? Категория: Работа с Датами (Временем)

Обмен данными 1Сv8 Управление Торговлей 10.1 и virtuemart

Задача: создать обмен 1с v8 управление торговлей 10.1 и virtuemart .

Что такое VM можно почитать тут www.virtuemart.ru, вкраце - это компонент интернет магазина/каталога товаров к известному CMS движку Joomla.

Код 1C v 8.х

 Процедура СнятиеФлагаПустыхГрупп(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=хххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;





Сообщить (Строка (ТекущаяДата()) + " обновляем флаг пустых групп");



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

ЗАпрос.Текст ="ВЫБРАТЬ РАЗЛИЧНЫЕ

| Номенклатура.ЭтоГруппа,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Код КАК Код,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И (Номенклатура.ПустойОстаток = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьWeb = ИСТИНА

// | ИЛИ Номенклатура.НеОтображатьНикогда = ИСТИНА)";

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

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

Если Выборка.ПустойОстаток ИЛИ Выборка.НеОтображатьНикогда ИЛИ Выборка.НеОтображатьWEB Тогда

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='N' WHERE category_description='"+Выборка.Код+"'" ;

Иначе

АпдейтГрупп = "UPD ATE jos_vm_category SET category_publish='Y' WHERE category_description='"+Выборка.Код+"'" ;

КонецЕсли;

Command.CommandText = АпдейтГрупп;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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







КонецЦикла;



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



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

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;

// выберем запросом все группы товаров

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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда,

| Номенклатура.Артикул,

| Номенклатура.ПустойОстаток

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА";

// | И Номенклатура.Родитель = &Родитель";

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



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

Выборка= Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0;



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



н=н+1;

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT category_id

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RSIDProduct.CursorType = 3;

RSIDProduct.Open(query, Connection);



Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда

СтрН = СтрЗаменить(Строка(н)," ","");

//пишем группы верхнего уровня

// если группа имеет признак того что-бы ее не выгружать на web то отменим публикацию // необходимо для оптимизации добавить рекурсию по родительскому каталогу

Если Выборка.НеОтображатьWeb или Выборка.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьНикогда или Выборка.Родитель.НеОтображатьWeb или Выборка.ПустойОстаток

Тогда

query = "ins ert into jos_vm_category (vendor_id , category_name ,category_description, category_publish , category_browsepage , products_per_row , category_flypage, list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'N', 'managed' , '1' , 'flypage.tpl', '1')";

// иначе публикуем

Иначе

query = "ins ert into jos_vm_category (

|vendor_id ,

|category_name ,

|category_description,

|category_publish ,

|category_browsepage ,

|products_per_row ,

|category_flypage,

|list_order )

|values ('1' , '"+Выборка.НАИМЕНОВАНИЕ+"' ,'"+Выборка.Код+"', 'Y', 'managed' , '1' , 'flypage.tpl', '1')";



КонецЕсли;



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

Сообщить (Выборка.Код);

Сообщить (Формат (н,"ЧГ=0"));



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



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "ins ert into jos_vm_category_xref ( `category_parent_id` , `category_child_id` )

|values ( '"+0+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

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

// Состояние("Обновляем группу товаров " + Выборка.Наименование);



КонецЕсли;



Индикатор1=н;

RSIDProduct.Close();





КонецЦикла;

Сообщить ("обновлено " + н+ " групп");

// обновим статус публикацию групп







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

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

| Номенклатура.Ссылка,

| Номенклатура.ПометкаУдаления,

| Номенклатура.Предопределенный,

| Номенклатура.Родитель.Код КАК КодРодителя,

| Номенклатура.ЭтоГруппа,

| Номенклатура.Код,

| Номенклатура.Наименование,

| Номенклатура.НеОтображатьWeb,

| Номенклатура.НеОтображатьНикогда

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ИСТИНА

| И (НЕ Номенклатура.Родитель = &Родитель)";





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



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

Выборка= Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

Сообщить ("Строим структуру...");



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

н=н+1;

// Если не Выборка.Ссылка.Уровень=0 тогда



//1 найдем айди родителя и категории в виртуамарте

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.КодРодителя+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДРодителя = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();



query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.Код+"' limit 1";

RS.Open(query, Connection);

Попытка

RS.MoveFirst();

Исключение

Сообщить (Выборка.Код);

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

Пока RS.EOF() = 0 Цикл

ИДГруппы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//найдем и завалим запись в категории

query = "delete fr om jos_vm_category_xref where category_child_id='"+Формат(ИДгруппы,"ЧГ=0")+"'";





Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

// добавим запись в категорию



query = "ins ert into jos_vm_category_xref ( category_parent_id , category_child_id)

|values ( '"+Формат(ИДРодителя,"ЧГ=0")+"' , '"+Формат(ИДгруппы,"ЧГ=0")+"' )";



Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

Сообщить (Выборка.Код);

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

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

Индикатор1=н;

// КонецЕсли;



КонецЦикла;



Сообщить ("обновлена структура " + н+ " групп");









// RS.Close();

Connection.Close();

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



Процедура ОсновныеДействияФормыОчистьТАблицыSQL(Кнопка)

СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

Command.ActiveConnection = Connection;

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

Command.ActiveConnection = Connection;



query ="

|DELETE FR OM jos_vm_category";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();



query ="

|DELETE FR OM jos_vm_product";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

query ="

|DELETE FR OM jos_vm_product_category_xref";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();





query ="

|DELETE FR OM jos_vm_product_price";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

// RS.Close();

Connection.Close();



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



Процедура ОсновныеДействияФормыОбновитьТовары(Кнопка)

Сообщить (Строка (ТекущаяДата()) + " обновляем группы товаров...");

КнопкаВыполнитьНажатие(1);



СтрПодключения = "DSN=mySQL_ishop;";

СтрПодключения = СтрПодключения+"Database=joomla;";

СтрПодключения = СтрПодключения+"Uid=Sa;";

СтрПодключения = СтрПодключения+"Pwd=ххххххх;";



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

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



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

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

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

Command.ActiveConnection = Connection;

Склад = Константы.СкладРозница.Получить();

Сообщить (Строка (ТекущаяДата()) + " распубликовываем отсутсвующие товары");

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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) > 0

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";



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



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

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

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



ТЗостатоков = Запрос.Выполнить().Выгрузить();

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

query = "

|SEL ECT product_sku, product_id

|FR OM jos_vm_product";

RS.Open(query, Connection);



Если (НЕ RS.EOF()) И (НЕ RS.BOF()) Тогда

RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

Артикул = RS.Fields("product_sku").Value;

ПродуктИД = RS.Fields("product_id").Value;

// Если Выборка.Количество()= 0 Тогда

Если ТЗостатоков.Найти(Артикул,"Артикул")= Неопределено Тогда

АпдейтВиртмарта = "UPD ATE jos_vm_product SET product_in_stock= '0',product_publish='N' WHERE product_sku='"+Артикул+"'" ;



Command.CommandText = АпдейтВиртмарта;

Command.CommandType = 1;

Попытка

РекордСет = Command.Execute();

Исключение

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

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

КонецЕсли;

RS.MoveNext();

КонецЦикла;

КонецЕсли;

RS.Close();



//** модуль обновление цен

Сообщить (Строка (ТекущаяДата()) + " начинаем обновление цен на сайте...");



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

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

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток КАК Остаток,

| ОстаткиТоваровКомпанииОстатки.Номенклатура КАК Номенклатура,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Код КАК Код,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Артикул КАК Артикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Наименование КАК Наименование,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Код КАК РодительКОД,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.Артикул КАК РодительАртикул,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр КАК WEbЦЕнаУПР,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 КАК WEbЦЕнаУПР2,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.НеВыводитьНаСайт КАК НеВыводитьНаСайт,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьWeb КАК НеОтображатьWeb,

| ОстаткиТоваровКомпанииОстатки.Номенклатура.Родитель.НеОтображатьНикогда КАК НеОтображатьНикогда,

| ЕСТЬNULL(ЕСТЬNULL(ОстаткиТоваровКомпанииОстатки.КоличествоОстаток, 0) - ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0), 0) КАК ДоступноеКоличество,

| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Заказы

|ИЗ

| РегистрНакопления.ОстаткиТоваровКомпании.Остатки(&КонецДня, СкладКомпании = &Склад) КАК ОстаткиТоваровКомпанииОстатки

| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&КонецДня, ) КАК ЗаказыПокупателейОстатки

| ПО ОстаткиТоваровКомпанииОстатки.Номенклатура = ЗаказыПокупателейОстатки.Номенклатура

|ГДЕ

| ОстаткиТоваровКомпанииОстатки.КоличествоОстаток > 0

| И ОстаткиТоваровКомпанииОстатки.Заказ = &ПустойЗаказ

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр = 0)

| И (НЕ ОстаткиТоваровКомпанииОстатки.Номенклатура.WebЦенаУпр2 = 0)";

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

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

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

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

Выборка = Результат.Выбрать();

ЭлементыФормы.Индикатор1.МинимальноеЗначение = 0;

ЭлементыФормы.Индикатор1.МаксимальноеЗначение = Выборка.Количество();

н=0 ;

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

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

| КурсыВалютСрезПоследних.Курс

|ИЗ

| РегистрСведений.КурсыВалют.СрезПоследних(&ТекущаяДата, ) КАК КурсыВалютСрезПоследних

|ГДЕ

| КурсыВалютСрезПоследних.Валюта = &Валюта";

ЗапросКурса.УстановитьПараметр("Валюта", Константы.ВалютаУправленческогоУчетаКомпании.Получить());

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

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



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

Курс = ВыборкаКурса.Курс;



КонецЦикла;



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

н=н+1;



// Если Выборка.ДоступноеКоличество < 0 Тогда ДОступноеКоличество=0; Иначе ДОступноеКоличество=Выборка.ДоступноеКоличество; КонецЕсли;



ДОступноеКоличество=Выборка.ДоступноеКоличество;

// Сообщить (Выборка.Номенклатура.Наименование + " " + ДОступноеКоличество);

флагсуществования=Ложь;

// убираем непорядочные символы

Наименование = СтрЗаменить(Выборка.Наименование,"'"," "); //уберем символ '

// запрос существования товара в базе виртуемарта

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";



RSIDProduct.Open(query, Connection);





Если RSIDProduct.EOF() И RSIDProduct.BOF() Тогда



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



// флаги отображения на сайте

//Если Выборка.НеВыводитьНаСайт или Выборка.НеОтображатьНикогда или Выборка.НеОтображатьWeb Тогда

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales,product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'N', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

Иначе

query = "ins ert into jos_vm_product ( vendor_id , product_parent_id , product_sku , product_s_desc , product_publish , product_special , product_discount_id , product_name , product_unit , quantity_options, product_order_levels, product_in_stock, product_sales, product_url )

|values ( '1', '0', '"+Выборка.Артикул+"', '"+наименование+"', 'Y', 'N', '0', '"+наименование+"', 'шт.', 'none,0,0,1', '0,0','"+Формат (ДОступноеКоличество, "ЧГ=0")+"','"+Формат (Цена*Курс,"ЧГ=0")+"','http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"')";

КонецЕсли;

// запишем номенклатуру

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

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

флагсуществования =Ложь;

Иначе



флагсуществования=Истина;



// выполним пока не нужный запрос /// данные об изменении в номенклатуре

//RSIDProduct.MoveFirst();

//Пока RSIDProduct.EOF() = 0 Цикл

// ИД = RSIDProduct.Fields("product_id").Value;

// RSIDProduct.MoveNext();

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



// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьНикогда=Ложь; Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

// Если Выборка.НеОтображатьНикогда = NULL Тогда НеОтображатьWeb=Ложь Иначе НеОтображатьНикогда=ИСТИНА; КонецЕсли;

Если ПРО2 Тогда Цена = ВЫборка.WEbЦЕнаУПР2; Иначе Цена = Выборка.WEbЦЕнаУПР; КонецЕсли;

Если Выборка.НеВыводитьНаСайт Тогда



query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='N' WHERE product_sku='"+Выборка.Артикул+"'" ;

Иначе

query = "UPD ATE jos_vm_product SET product_sku='"+Выборка.Артикул+"', product_s_desc= '"+наименование+"',product_in_stock= '"+Формат (ДОступноеКоличество, "ЧГ=0")+"',product_sales='"+Формат (Цена*Курс,"ЧГ=0")+"',product_url='http://catalog.sunrise.ru/descriptionPage.aspx?a="+Выборка.Артикул+"',product_publish='Y' WHERE product_sku='"+Выборка.Артикул+"'" ;

КонецЕсли;

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

RSIDProduct.Close();

КонецЕсли;

// Попытка записать Данные о товаре

Попытка

// запрос ID родителя товара

query = "

|SEL ECT *

|FR OM jos_vm_category WHERE category_description='"+Выборка.РодительКод+"' limit 1";

RS.Open(query, Connection);

RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИДгрупы = RS.Fields("category_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

//Обновление группы

// запрос айди товара в мускуле виртуемарта

// Сообщить (Выборка.Номенклатура.Артикул);

query = "

|SEL ECT *

|FR OM jos_vm_product WHERE product_sku='"+Выборка.Артикул+"' limit 1";

RS.Open(query, Connection);



RS.MoveFirst();

Пока RS.EOF() = 0 Цикл

ИД = RS.Fields("product_id").Value;

RS.MoveNext();

КонецЦикла;

RS.Close();

Если НЕ флагсуществования Тогда



query = "ins ert into jos_vm_product_category_xref (category_id , product_id ) values ( '"+Формат(ИДгрупы,"ЧГ=0")+"' , '"+Формат(ИД,"ЧГ=0")+"' )";

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

Иначе

query = "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"'";





// "UPD ATE jos_vm_product_category_xref SET category_id='"+Формат(ИДгрупы,"ЧГ=0")+"', product_id='"+Формат(ИД,"ЧГ=0")+"' WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

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

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();

КонецЕсли;





// прибьем ценник товара

query = "delete fr om jos_vm_product_price WHERE product_id='"+Формат(ИД,"ЧГ=0")+"' " ;

Command.CommandText = query;

Command.CommandType = 1;

RS = Command.Execute();







// все поля важны !



query = "I_nsert into jos_vm_product_price (

|product_id,

|product_price,

|product_currency,

|product_price_vdate,

|product_price_edate,

|cdate,

|mdate,

|shopper_group_id,

|price_quantity_start,

|price_quantity_end )

|values ( '"+Формат(ИД,"ЧГ=0")+"' , '"+Формат (Цена*Курс,"ЧГ=0")+"','RUB',0,0,1222792314,1222792314,'5',0,0 )";

// Сообщить(Формат(ИД,"ЧГ=0"));

Command.CommandText = query;

Command.CommandType = 1;

Попытка

RS = Command.Execute();

Исключение

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

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

Исключение

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

Сообщить (Выборка.Наименование);

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









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

// Состояние("Обновляем товары " + Выборка.Номенклатура.Наименование);

Индикатор1 = н;

КонецЦикла;

Сообщить ("Выгружено " + н + " объектов");

Сообщить(Строка (ТекущаяДата()) + " обновление завершено");

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



Процедура Автомат ()

ОсновныеДействияФормыОбновитьТовары(1);

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



Процедура ПустыеГруппы()

СнятиеФлагаПустыхГрупп(1);

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



Процедура ОсновныеДействияФормыАвтомат(Кнопка)

ЭтаФорма.ПодключитьОбработчикОжидания("автомат", 3600);

ЭтаФорма.ПодключитьОбработчикОжидания("ПустыеГруппы", 5400);



ЭтаФорма.ЭлементыФормы.ОсновныеДействияФормы.Кнопки.Автомат.Доступность = Ложь;

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

d.snissarenko

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

Временные таблицы, что из себя представляют и как с ними работать?

Временные таблицы - хранятся на сервере и позволяют писать более простые запросы.
Временные таблицы хранятся в объекте типа МенеджерВременныхТаблиц. Когда этот объект уничтожается, уничтожаются и временные таблицы.
Чтобы создать временную таблицу, используется ключевое слово "ПОМЕСТИТЬ В", например:

Код 1C v 8.х

 |ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары

Временная таблица создается при выполнении запроса, если повторно выполнить запрос, то выдастся ошибка, что таблица уже существует.
Описания временных таблиц хранятся в свойстве запроса МенеджерВременныхТаблиц. К сожалению, нельзя получить список временных таблиц, которые хранятся в запросе.

Пример 1: Как можно выгрузить временную таблицу в таблицу значений и как использовать менеджер временных таблиц:

Код 1C v 8.х

 Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары");

Запрос.Выполнить(); //Создалась таблица ВТТовары

ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТовары");

ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц; //Копируем ссылку на временные таблицы

ТЗ=ЗапросТМП.Выполнить().Выгрузить(); //Получаем временную таблицу в таблице значений

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



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

//Колонки должны быть типизированы

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

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



//Заполняем таблицу данными

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

Стр.А="А";

Стр.Б="Б";

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

Стр.А="А1";

Стр.Б="Б1";



//Загружаем таблицу значений в менеджер временных таблиц запроса

Запрос=Новый Запрос("Выбрать Т.А, Т.Б ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");

//Вариант: Запрос=Новый Запрос("Выбрать * ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");

Запрос.МенеджерВременныхТаблиц=Новый МенеджерВременныхТаблиц;

Запрос.УстановитьПараметр("Таб",ТЗ);

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



//Получаем таблицу из менеджера временных таблиц запроса

ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТаб");

ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц;

ТЗ1=ЗапросТМП.Выполнить().Выгрузить();

ТЗ1.ВыбратьСтроку(); //Показываем полученную таблицу

Вместо перечисления списка полей можно использовать "ВЫБРАТЬ * ".
Если есть ТЗ, в каждой колонке которой значения всего одного типа, для типизации колонок, можно воспользоваться функцией:

Код 1C v 8.х

 Процедура ТипизацияТЗ(ТЗ) Экспорт

РезультатТЗ = новый ТаблицаЗначений;

Для Каждого Колонка из ТЗ.Колонки Цикл

Имя = Колонка.Имя;

МассивТипов = новый Массив(1);

МассивТипов[0] = ТипЗнч(ТЗ[0][Имя]);

Описатель = новый ОписаниеТипов(МассивТипов);

РезультатТЗ.Колонки.Добавить(Имя, Описатель);

КонецЦикла;



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

СтрокаРез = РезультатТЗ.Добавить();

ЗаполнитьЗначенияСвойств(СтрокаРез, Строка);

КонецЦикла;



ТЗ = РезультатТЗ.Скопировать();

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

Пример 2: Нужно в отчете СКД Связать Данные из Регистра Накопления ВзаиморасчетыСРаботниками и Табличной Части Документа ЗарплатаКВыплате по Ссылке на Документ и ФизЛицу! И вывести полученные данные за указанный Период(с ДатаН по ДатаК) - Запрос будет такой:

Код 1C v 8.х

 ВЫБРАТЬ

                ВзаиморасчетыСРаботникамиОрганизаций.Период,

                ВзаиморасчетыСРаботникамиОрганизаций.Физлицо,

                ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов,

                ВзаиморасчетыСРаботникамиОрганизаций.Организация,

                ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов,

                ВзаиморасчетыСРаботникамиОрганизаций.Регистратор

ПОМЕСТИТЬ РегВзаимРасч

ИЗ

                РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

ГДЕ

                ВзаиморасчетыСРаботникамиОрганизаций.Период МЕЖДУ &ДатаН И &ДатаК

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

                ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо,

                ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,

                ЗарплатаКВыплатеОрганизацийЗарплата.ВыплаченностьЗарплаты,

                ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты,

                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка

ПОМЕСТИТЬ ДокумЗарплКВыпл

ИЗ

                Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата

ГДЕ

                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

                РегВзаимРасч.Период,

                РегВзаимРасч.Физлицо,

                РегВзаимРасч.СуммаВзаиморасчетов,

                ДокумЗарплКВыпл.Сумма,

                ДокумЗарплКВыпл.ВыплаченностьЗарплаты,

                ДокумЗарплКВыпл.КомпенсацияЗаЗадержкуЗарплаты

ИЗ

                РегВзаимРасч КАК РегВзаимРасч

                               ВНУТРЕННЕЕ СОЕДИНЕНИЕ ДокумЗарплКВыпл КАК ДокумЗарплКВыпл

                               ПО РегВзаимРасч.Регистратор = ДокумЗарплКВыпл.Ссылка

                                               И РегВзаимРасч.Физлицо = ДокумЗарплКВыпл.Физлицо

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ РегВзаимРасч

;



////////////////////////////////////////////////////////////////////////////////

УНИЧТОЖИТЬ ДокумЗарплКВыпл

Категория: Запросы

Пример переноса данных из 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

Получение списка баз 1С 7.7 из реестра

Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра:
Код получения списка баз 1С 7.7 из 8.х

Код 1C v 8.х

 функция сзПолучитьСписокБаз()

    попытка

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

        олеСкрипт.Language = "VBScript";

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

        олеСкрипт.AddCode(стрКод);

        стрОтвет = олеСкрипт.Run("strGetListBase");

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

        Ответ.СортироватьПоПредставлению();

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

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

    возврат Ответ;

конецфункции

Код для 1С 7.7

Код 1C v 7.x

 

Функция ПолучитьСписокБаз1()

    Перем Value,arrValues;

    Scr = CreateObject("MSScriptControl.ScriptControl");

    Scr.Language = "vbscript";

    Scr.Timeout=-1;

    HKEY_CURRENT_USER = 2147483649;

    strKeyPath = "Software\1C\1Cv7\7.7\Titles";

    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");

    ServiceDef=Locator.ConnectServer(".","root\default");

    oReg = ServiceDef.Get("StdRegProv");

    Dict=СоздатьОбъект("Scripting.Dictionary");

    Scr.AddObject("Dict",Dict);

    Scr.AddObject("oReg",oReg);

    Scr.ExecuteStatement("dim arrValues,Value:");

    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");

    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");

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

    ТЗБаз.НоваяКолонка("Путь");

    ТЗБаз.НоваяКолонка("Описание");

    Для к=0 По Dict.count Цикл

        Д=Dict.Item("pj"+к);

        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");

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

        ТЗБаз.Путь = Д;

        ТЗБаз.Описание = Scr.eval("Value");

    КонецЦикла;

	//Посмотрим что в ТЗ

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

    Возврат ТЗБаз;

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



Процедура ПолучитьСписокБаз2()

     Попытка

          scrptCtrl=createobject("MSScriptControl.ScriptControl");

          scrptCtrl.language="vbscript";

          scrptCtrl.addcode("Function Get1CV77Titles()

          |const HKEY_CURRENT_USER = &H80000001

          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

          |""\root\default:StdRegProv"")

          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

          |strInfo=vbNullString

          |For i = LBound(arrValues) To UBound(arrValues)

          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF

          |Next

          |Get1CV77Titles = strInfo 

          |End Function");

          Сообщить(scrptCtrl.run("Get1CV77Titles"));

     Исключение

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

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

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

<Сообщил Gloom>

                  

Процедура ПолучитьСписокБаз3()

     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";

     ИмяКаталога=СокрЛП(КаталогПользователя());

     ИмяБазы=СокрЛП(каталогИБ());

     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;

     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;

     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);

     ИмяФайла="USER.TXT";

     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);

     КомандаСистемы(Команда);

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

     Текст.КодоваяСтраница(0);

     Текст.Открыть(ИмяКаталога+ИмяФайла);

     Текст.Показать();

     Стр=""; Нашли=0;

     Для сч=1 по Текст.КоличествоСтрок() Цикл

          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));

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

          Если Найти(стр,ИмяБазыСтр)<>0 Тогда

               Нашли=1;

               прервать;

          КонецЕсли;

     КонецЦикла;

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

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