vanessa-opensource#272 Добавлена загрузка регистра бухгалтерии из мак…

…ета, также частично перенесены метаданные из конфигурации xdd,

а именно:
 - Справочники.ПростойСправочник
- Справочники.ПростойСправочник2
- ПланыВидовХарактеристик.ВидыСубконто1
- ПланыСчетов.ПланСчетов1
- ПланыВидовРасчета.ПланВидовРасчета1
- РегистрыБухгалтерии.РегистрБухгалтерии1

features/libraries/Макеты/step_definitions/СозданиеДокументовСДвижениями/СозданиеДокументовСДвижениями.xml

@@ -27,6 +27,7 @@
 			<Form>Форма</Form>
 			<Template>ДокументСДвижениямиПоРегистрамНакопления</Template>
 			<Template>ДокументСДвижениямиПоРегистрамСведений</Template>
+			<Template>ДокументСДвижениямиПоРегистрамБухгалтерии</Template>
 		</ChildObjects>
 	</ExternalDataProcessor>
 </MetaDataObject>

features/libraries/Макеты/step_definitions/СозданиеДокументовСДвижениями/СозданиеДокументовСДвижениями/Forms/Форма/Ext/Form/Module.bsl

@@ -28,7 +28,12 @@
 	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯУдаляюВсеЗаписиРегистрНакопления(Парам01)","ЯУдаляюВсеЗаписиРегистрНакопления","И я удаляю все записи РегистрНакопления ""РегистрНакопления1""","","");
 	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ВБазеНетЗаписейРегистрНакопления(Парам01)","ВБазеНетЗаписейРегистрНакопления","И в базе нет записей РегистрНакопления ""РегистрНакопления1""","","");
 	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ВБазеПоявилсяХотяБыОднаЗаписьРегистрНакопления(Парам01)","ВБазеПоявилсяХотяБыОднаЗаписьРегистрНакопления","Тогда В базе появился хотя бы одна запись РегистрНакопления ""РегистрНакопления1""","","");
+	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ВМетаданныхЕстьРегистрБухгалтерии(Парам01)","ВМетаданныхЕстьРегистрБухгалтерии","Когда в метаданных есть РегистрБухгалтерии ""РегистрБухгалтерии1""","","");
+	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯУдаляюВсеЗаписиРегистрБухгалтерии(Парам01)","ЯУдаляюВсеЗаписиРегистрБухгалтерии","И я удаляю все записи РегистрБухгалтерии ""РегистрБухгалтерии1""","","");
+	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ВБазеНетЗаписейРегистрБухгалтерии(Парам01)","ВБазеНетЗаписейРегистрБухгалтерии","И в базе нет записей РегистрБухгалтерии ""РегистрБухгалтерии1""","","");
+	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ВБазеПоявилсяХотяБыОднаЗаписьРегистрБухгалтерии(Парам01)","ВБазеПоявилсяХотяБыОднаЗаписьРегистрБухгалтерии","Тогда В базе появился хотя бы одна запись РегистрБухгалтерии ""РегистрБухгалтерии1""","","");
 
+
 	Возврат ВсеТесты;
 КонецФункции
 
@@ -229,3 +234,126 @@
 	КолЭлементов = ВБазеПоявилсяХотяБыОднаЗаписьРНСервер(ВидРН);
 	Ванесса.ПроверитьНеРавенство(КолЭлементов,0,"В базе должны быть записи");
 КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ВМетаданныхЕстьРБСервер(ВидРБ)
+	Нашел = Ложь;
+	Для каждого Элем Из Метаданные.РегистрыБухгалтерии Цикл
+		Имя = Элем.Имя;
+		Если НРег(Имя) = НРег(ВидРБ) Тогда
+			Нашел = Истина;
+			Прервать;
+		КонецЕсли;	 
+	КонецЦикла;
+
+	Возврат Нашел; 
+КонецФункции	
+
+&НаКлиенте
+//Когда в метаданных есть РегистрБухгалтерии "РегистрБухгалтерии1"
+//@ВМетаданныхЕстьРегистрБухгалтерии(Парам01)
+Процедура ВМетаданныхЕстьРегистрБухгалтерии(ВидРБ) Экспорт
+
+	Нашел = ВМетаданныхЕстьРБСервер(ВидРБ);
+
+	Ванесса.ПроверитьРавенство(Нашел,Истина,"В метаданных есть вид РБ " + ВидРБ);
+
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ЯУдаляюВсеЗаписиРегистрБухгалтерииСервер(ВидРБ)
+
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+		"ВЫБРАТЬ РАЗЛИЧНЫЕ
+		|	Регистратор
+		|ИЗ
+		|	РегистрБухгалтерии.РегистрБухгалтерии1 КАК РегистрБухгалтерии1";
+
+	Запрос.Текст = СтрЗаменить(Запрос.Текст,"РегистрБухгалтерии1",ВидРБ);
+	Результат = Запрос.Выполнить();
+
+
+	НаборЗаписей = РегистрыБухгалтерии[ВидРБ].СоздатьНаборЗаписей();
+
+	ВыборкаДетальныеЗаписи = Результат.Выбрать();
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаДетальныеЗаписи.Регистратор);
+		НаборЗаписей.Прочитать();
+		НаборЗаписей.Очистить();
+		НаборЗаписей.Записать();
+	КонецЦикла;
+
+КонецФункции	
+
+&НаКлиенте
+//И я удаляю все записи РегистрБухгалтерии "РегистрБухгалтерии1"
+//@ЯУдаляюВсеЗаписиРегистрБухгалтерии(Парам01)
+Процедура ЯУдаляюВсеЗаписиРегистрБухгалтерии(ВидРБ) Экспорт
+
+	ЯУдаляюВсеЗаписиРегистрБухгалтерииСервер(ВидРБ);
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ВБазеНетЗаписейРБСервер(ВидРБ)
+
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+		"ВЫБРАТЬ ПЕРВЫЕ 1
+		|	*
+		|ИЗ
+		|	РегистрБухгалтерии.РегистрБухгалтерии1 КАК РегистрБухгалтерии1";
+
+	Запрос.Текст = СтрЗаменить(Запрос.Текст,"РегистрБухгалтерии1",ВидРБ);
+	Результат = Запрос.Выполнить();
+
+	ВыборкаДетальныеЗаписи = Результат.Выбрать();
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		Возврат 1;
+	КонецЦикла;
+
+	Возврат 0;
+
+КонецФункции
+
+&НаКлиенте
+//И в базе нет записей РегистрБухгалтерии "РегистрБухгалтерии1"
+//@ВБазеНетЗаписейРегистрБухгалтерии(Парам01)
+Процедура ВБазеНетЗаписейРегистрБухгалтерии(ВидРБ) Экспорт
+	КолЭлементов = ВБазеНетЗаписейРБСервер(ВидРБ);
+	Ванесса.ПроверитьРавенство(КолЭлементов,0,"Не должно быть записей");
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ВБазеПоявилсяХотяБыОднаЗаписьРБСервер(ВидРБ)
+
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+		"ВЫБРАТЬ ПЕРВЫЕ 1
+		|	*
+		|ИЗ
+		|	РегистрБухгалтерии.РегистрБухгалтерии1 КАК РегистрБухгалтерии1";
+
+	Запрос.Текст = СтрЗаменить(Запрос.Текст,"РегистрБухгалтерии1",ВидРБ);
+	Результат = Запрос.Выполнить();
+
+	ВыборкаДетальныеЗаписи = Результат.Выбрать();
+
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		Возврат 1;
+	КонецЦикла;
+
+	Возврат 0;
+
+КонецФункции	
+
+&НаКлиенте
+//Тогда В базе появился хотя бы одна запись РегистрБухгалтерии "РегистрБухгалтерии1"
+//@ВБазеПоявилсяХотяБыОднаЗаписьРегистрБухгалтерии(Парам01)
+Процедура ВБазеПоявилсяХотяБыОднаЗаписьРегистрБухгалтерии(ВидРБ) Экспорт
+	КолЭлементов = ВБазеПоявилсяХотяБыОднаЗаписьРБСервер(ВидРБ);
+	Ванесса.ПроверитьНеРавенство(КолЭлементов,0,"В базе должны быть записи");
+КонецПроцедуры
+

features/libraries/Макеты/step_definitions/СозданиеДокументовСДвижениями/СозданиеДокументовСДвижениями/Templates/ДокументСДвижениямиПоРегистрамБухгалтерии.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.4">
+	<Template uuid="8e649dba-8e6c-4ee2-a0a1-decdebacb601">
+		<Properties>
+			<Name>ДокументСДвижениямиПоРегистрамБухгалтерии</Name>
+			<Synonym>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Документ с движениями по регистрам бухгалтерии</v8:content>
+				</v8:item>
+			</Synonym>
+			<Comment/>
+			<TemplateType>SpreadsheetDocument</TemplateType>
+		</Properties>
+	</Template>
+</MetaDataObject>