/// Накладные
Class tmp.docs Extends %Persistent
{

/// Название
Property name As %String;

/// wagons
Relationship wagons As tmp.wagons [ Cardinality = many, Inverse = docs ];

}

/// Вагоны
Class tmp.wagons Extends %Persistent
{

/// Название
Property name As %String;

/// Название
Relationship docs As tmp.docs [ Cardinality = one, Inverse = wagons ];

Index docsIndex On docs;

}

/// Накладные
Class tmp.docs Extends %Persistent
{

/// Название
Property name As %String;

/// wagons
Relationship wagons As tmp.wagons [ Cardinality = many, Inverse = docs ];

/// Всего вагонов
Property allwgn As %Integer [ Calculated ];

Method allwgnGet() As %Integer
{
	s sql="Select count(*) as allwgn From tmp.wagons Where docs=?"
	s ors=##class(%ResultSet).%New("%DynamicQuery:SQL")
	s ok=ors.Prepare(sql)
	s ok=ors.Execute(..%Id())
	s val= 0 
	s:ors.Next() val=ors.Get("allwgn")
	d ors.Close()
	k ors
	q val
}

}