diff --git a/Form.inc.xml b/Form.inc.xml
new file mode 100644
index 0000000..c44a8ab
--- /dev/null
+++ b/Form.inc.xml
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Routine name="Form" type="INC"><![CDATA[
+#define formGlobal ^form.forms
+#define catGlobal ^form.catalogs
+#define settingsGlobal ^form.settings
+#define formNameParam "FORMNAME"
+#define metadata "metadata"
+
+#define forAll(%in,%gn) s gn%in=$na(%gn) s %in="" f { s %in=$o(@gn%in@(%in)) q:%in=""
+#define forAllk(%in,%kn,%gn) s gn%in=$na(%gn) s %in="" f %kn=1:1 { s %in=$o(@gn%in@(%in)) q:%in=""
+#define endFor  }
+
+
+#define formatJSON 		"aeloqtwc"
+#define formatJSONSQL	"tw"
+#define formatDate		3
+#define formatTime		7
+
+#define toJSONClassMethod "toJSON"
+#define updateClassMethod "updateIdFromObject"
+
+#define fileClass "Form.AttachmentType"
+#define fileDir $g($$$settingsGlobal("fileDir"), ##class(%Library.File).GetDirectory())
+]]></Routine>
+</Export>
diff --git a/Form/Adaptor.cls.xml b/Form/Adaptor.cls.xml
new file mode 100644
index 0000000..a9c0fbe
--- /dev/null
+++ b/Form/Adaptor.cls.xml
@@ -0,0 +1,152 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.Adaptor">
+<Description>
+Базовый класс-адаптер для форм</Description>
+<Abstract>1</Abstract>
+<CompileAfter>Form.Info</CompileAfter>
+<IncludeCode>Form</IncludeCode>
+<PropertyClass>Form.Field</PropertyClass>
+<TimeCreated>64090,75147.034342</TimeCreated>
+<DependsOn>Form.Info</DependsOn>
+
+<Parameter name="FORMNAME">
+<Description>
+Имя формы: латиница, менее 500 символов, в нижнем регистре </Description>
+<Type>%String</Type>
+</Parameter>
+
+<Parameter name="FORMDISPLAYNAME">
+<Description>
+Отображаемое имя формы</Description>
+<Type>%String</Type>
+</Parameter>
+
+<Method name="generateMetadata">
+<Description>
+Сгенерировать метаданные для формы</Description>
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<GenerateAfter>onFormCompile</GenerateAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define formGlobal  ^form.forms
+	#define formNameParam "FORMNAME"
+	#define metadata "metadata"
+	#define displayNameParam "FORMDISPLAYNAME"
+	#define propDisplayNameParam "DISPLAYNAME"
+
+	#dim sc As %Status = $$$OK
+	set className = %compiledclass.Name
+	return:className="Form.Adaptor" sc
+
+	
+	set metadata = {}
+	set metadata.name = %parameter($$$formNameParam)
+	set metadata.class = className
+	set metadata.fields = []
+	
+	for i = 1:1:%compiledclass.Properties.Count() {
+		#dim property As %Dictionary.CompiledProperty
+		set property = %compiledclass.Properties.GetAt(i)
+		set propertyName = property.Name
+		CONTINUE:((propertyName="%%OID") || (propertyName="%Concurrency")) 
+		
+		/// В метаинформацию попадают только свойства у которых задан DISPLAYNAME
+		if (property.Parameters.GetAt($$$propDisplayNameParam)'="") {
+			set propertyMetaData = ##class(Form.Property).propertyToMetadata(property)
+			do metadata.fields.$push(propertyMetaData)
+		}
+	}
+	
+	set $$$formGlobal(className, $$$metadata) = metadata.$toJSON()
+	
+	return sc
+]]></Implementation>
+</Method>
+
+<Method name="toJSON">
+<Description>
+Выводит объект Id в формате JSON на текущее устройство
+Переопределите этот метод для конкретной формы, если есть какие-то особенности её обработки
+Возможно: заменить метод на генератор, который будет генерить код для формы
+Подразумевается, что форма хранимая</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>id:%Integer=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	set obj = ..%OpenId(id,,.sc)
+	return:$$$ISERR(sc) sc
+	return ##class(Form.REST.JSON).%ObjectToJSON(obj,,,$$$formatJSON)
+]]></Implementation>
+</Method>
+
+<Method name="updateIdFromObject">
+<Description>
+Открывает объект по Id и перезаписывает все его свойства 
+соответствующими значениями из object 
+После чего сохраняет объект</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>id:%Integer="",object=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	return:'$isObject(object) $$$ERROR($$$GeneralError, "Pass an object as a second argument to updateIdFromObject from " _ $className())
+	set obj = ..%OpenId(id,,.sc)
+	return:$$$ISERR(sc) sc
+	set sc = obj.updateFromObject(object)
+	return:$$$ISERR(sc) sc
+	set sc = obj.%Save()
+	return sc
+]]></Implementation>
+</Method>
+
+<Method name="updateFromObject">
+<Description>
+Устанавливает все поля текущего объекта из переданного объекта
+Это может быть динамический объект или объект того же класса</Description>
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>object</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	for i = 1:1:%class.Properties.Count() {
+        set prop = %class.Properties.GetAt(i)
+        if prop.Internal || prop.Calculated || prop.ReadOnly || prop.Private || prop.Identity || prop.MultiDimensional continue
+        
+        // Вопросы:
+        // 1. Что с объектами - в принципе
+        // 2. Что со списками
+        // 3. Пустые поля - пропускать или что делать? 
+        // 4. Что с потоками
+        do %code.WriteLine(" set .." _ prop.Name _ " = object." _ prop.Name)
+    }
+    Do %code.WriteLine(" Quit $$$OK")
+]]></Implementation>
+</Method>
+
+<Method name="getObjectInfo">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>id:%Integer</FormalSpec>
+<ReturnType>%Object</ReturnType>
+<Implementation><![CDATA[	Return {}
+]]></Implementation>
+</Method>
+
+<Method name="getObjectsInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>list:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Array</ReturnType>
+<Implementation><![CDATA[
+	set objectsList = []
+	for i=1:1:list.Count() {
+		set id = list.GetAt(i)
+		set item = ..getObjectInfo(id)
+		do objectsList.$push(item)
+	}
+	return objectsList
+]]></Implementation>
+</Method>
+</Class>
+</Export>
diff --git a/Form/Field.cls.xml b/Form/Field.cls.xml
new file mode 100644
index 0000000..c79348c
--- /dev/null
+++ b/Form/Field.cls.xml
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.Field">
+<Description>
+Form field properties</Description>
+<Abstract>1</Abstract>
+<TimeCreated>64090,75443.892382</TimeCreated>
+
+<Parameter name="DISPLAYNAME">
+<Description>
+Field display name</Description>
+<Type>%String</Type>
+</Parameter>
+</Class>
+</Export>
diff --git a/Form/Info.cls.xml b/Form/Info.cls.xml
new file mode 100644
index 0000000..8b454ab
--- /dev/null
+++ b/Form/Info.cls.xml
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.Info">
+<Abstract>1</Abstract>
+<IncludeCode>Form</IncludeCode>
+<TimeCreated>64090,75344.051371</TimeCreated>
+
+<Method name="getFormsList">
+<Description>
+Получить список всех форм</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Array</ReturnType>
+<Implementation><![CDATA[
+	set forms = []
+	$$$forAll(form, $$$formGlobal)
+		do forms.$push(form)
+	$$$endFor
+	quit forms
+]]></Implementation>
+</Method>
+
+<Method name="formExists">
+<Description>
+Check that form with this classname exist</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>class:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	return:class="" $$$NO
+	return $select($data($$$formGlobal(class))#2=1:$$$YES, 1:$$$NO)
+]]></Implementation>
+</Method>
+
+<Method name="formExistsStatus">
+<Description>
+Check that form with this classname exist</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>class:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	set formExists = ..formExists(class)
+	if 'formExists {
+		set sc = $$$ERROR($$$GeneralError, "Form " _ class _ " does not exist")
+	}
+	return sc
+]]></Implementation>
+</Method>
+
+<Method name="getFormMetadata">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>class:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	return $$$formGlobal(class, $$$metadata)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
diff --git a/Form/Property.cls.xml b/Form/Property.cls.xml
new file mode 100644
index 0000000..56b6d61
--- /dev/null
+++ b/Form/Property.cls.xml
@@ -0,0 +1,161 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.Property">
+<Abstract>1</Abstract>
+<IncludeCode>Form</IncludeCode>
+<TimeCreated>64090,75759.538379</TimeCreated>
+
+<Method name="propertyToMetadata">
+<Description>
+Сгенерировать метаданные для поля формы</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>property:%Dictionary.PropertyDefinition</FormalSpec>
+<ReturnType>%Object</ReturnType>
+<Implementation><![CDATA[
+	set metadata = {}
+	set metadata.name = property.Name
+	set metadata.type = property.Type
+	set metadata.collection = property.Collection
+	set metadata.displayName = property.Parameters.GetAt("DISPLAYNAME")
+	set metadata.required = property.Required
+	set metadata.category = ..determineClassCategory(property.Type)
+	return metadata
+]]></Implementation>
+</Method>
+
+<Method name="determineClassCategory">
+<Description>
+Определить тип класса</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>className:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	return:$classmethod(className, "%Extends", "Form.RefBase") "catalog"
+	return:className=$$$fileClass "file"
+	return $$$getClassType(className)
+]]></Implementation>
+</Method>
+
+<Method name="addClassProperty">
+<Description>
+Добавить свойство класса
+className - класс
+name - имя свойства
+type - класс свойства
+collection - коллекция
+displayName - отобразжаемое имя
+required - обязательное свойство</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>className:%String="",name:%String,type:%String="%String",collection:%String(VALUELIST=",list,array")="",displayName:%String="",required:%Boolean=$$$NO</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	if (##class(%Dictionary.PropertyDefinition).IDKEYExists(className, name)) {
+		return $$$ERROR($$$GeneralError, "Property " _ name _ " already exists")
+	}
+	
+	set class = ##class(%Dictionary.ClassDefinition).%OpenId(className, ,.sc)
+	return:$$$ISERR(sc) sc
+	
+	set property = ##class(%Dictionary.PropertyDefinition).%New()
+	set property.Name = name
+	set property.Type = type
+	set property.Collection = collection
+	set property.Required = required
+	if (($get(displayName)'="") && ($$$comClassKeyGet(className,$$$cCLASSpropertyclass)["Form.Field")) {
+		set sc = property.Parameters.SetAt(displayName, "DISPLAYNAME")
+		return:$$$ISERR(sc) sc
+	}
+	
+	set sc = class.Properties.Insert(property)
+	return:$$$ISERR(sc) sc
+	
+	set sc = class.%Save()
+	return:$$$ISERR(sc) sc
+	
+	kill class	
+	return ..compileClass(className)
+]]></Implementation>
+</Method>
+
+<Method name="modifyClassProperty">
+<Description>
+Изменить свойство класса
+className - класс
+name - имя свойства
+type - класс свойства
+collection - коллекция
+displayName - отобразжаемое имя
+required - обязательное свойство</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>className:%String="",name:%String,type:%String="%String",collection:%String(VALUELIST=",list,array")="",displayName:%String="",required:%Boolean=$$$NO</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	set property = ##class(%Dictionary.PropertyDefinition).IDKEYOpen(className, name, , sc)
+	return:$$$ISERR(sc) sc
+	
+	set property.Type = type
+	set property.Collection = collection
+	set property.Required = required
+	if (($get(displayName)'="") && ($$$comClassKeyGet(className,$$$cCLASSpropertyclass)="Form.Field")) {
+		set sc = property.Parameters.SetAt(displayName, "DISPLAYNAME")
+		return:$$$ISERR(sc) sc
+	}
+
+	set sc = property.%Save()
+	return:$$$ISERR(sc) sc
+	
+	kill property	
+	return ..compileClass(className)
+]]></Implementation>
+</Method>
+
+<Method name="deleteClassProperty">
+<Description>
+Удалить свойство класса
+className - класс
+name - имя свойства</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>className:%String="",name:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	if ('##class(%Dictionary.PropertyDefinition).IDKEYExists(className, name)) {
+		return $$$ERROR($$$GeneralError, "Property " _ name _ " does not exist")
+	}
+	
+	set sc = ##class(%Dictionary.PropertyDefinition).IDKEYDelete(className, name)
+	return:$$$ISERR(sc) sc
+	
+	return ..compileClass(className)
+]]></Implementation>
+</Method>
+
+<Method name="compileClass">
+<Description>
+Скомпилировать класс, вернуть статус.
+Не выводить ничего на устройство.</Description>
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<FormalSpec>className:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[$system.OBJ.Compile(className, "cuks /checkuptodate=expandedonly /displaylog=0 /displayerror=0")
+]]></Implementation>
+</Method>
+
+<Method name="getPropertyDisplayName">
+<Description>
+Получить DISPLAYNAME свойства
+w ##class(Form.Property).getPropertyDisplayName("Form.TestForm", "Text")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>className:%String="",name:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set displayName = $$$comMemberArrayGet(className, $$$cCLASSproperty, name, $$$cPROPparameter, "DISPLAYNAME")
+	set:displayName="" displayName = name
+	return displayName
+]]></Implementation>
+</Method>
+</Class>
+</Export>
diff --git a/Form/TestForm.cls.xml b/Form/TestForm.cls.xml
new file mode 100644
index 0000000..a742349
--- /dev/null
+++ b/Form/TestForm.cls.xml
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="25">
+<Class name="Form.TestForm">
+<Super>%Persistent,Form.Adaptor,%Populate</Super>
+<TimeCreated>64090,75943.393938</TimeCreated>
+
+<Parameter name="FORMNAME">
+<Default>Тестовая форма</Default>
+</Parameter>
+
+<Property name="Text">
+<Type>%String</Type>
+<Parameter name="DISPLAYNAME" value="Текст"/>
+</Property>
+
+<Method name="recreate">
+<Description>
+do ##class(Form.TestForm).recreate()</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>count:%Integer=10,verbose:%Boolean=$$$NO</FormalSpec>
+<Implementation><![CDATA[
+	do ..%DeleteExtent()
+	do ..Populate(count, verbose)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^Form.TestFormD</DataLocation>
+<DefaultData>TestFormDefaultData</DefaultData>
+<IdLocation>^Form.TestFormD</IdLocation>
+<IndexLocation>^Form.TestFormI</IndexLocation>
+<StreamLocation>^Form.TestFormS</StreamLocation>
+<Data name="TestFormDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Text</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
diff --git a/sc-list.txt b/sc-list.txt
new file mode 100644
index 0000000..ccd2f41
--- /dev/null
+++ b/sc-list.txt
@@ -0,0 +1,2 @@
+Form.inc
+Form.pkg