Class EXE.New Extends %Persistent
{

Property Property1 As %String;

Relationship Children As EXE.NewChild [ Cardinality = many, Inverse = Parent ];

Method AddChild(childParam As %String)
{
	set child=##Class(EXE.NewChild).%New()
	if ($L(childParam)) set child.ChildProperty1=childParam
	do ..Children.Insert(child)
	do child.%Save()
}

}

Class EXE.NewChild Extends %Persistent
{

Relationship Parent As EXE.New [ Cardinality = one, Inverse = Children ];

Property ChildProperty1 As %String [ InitialExpression = "child" ];

}

EXE.New new1 = EXE.New.OpenId(connection1, ID);
foreach (EXE.NewChild ch in new1.Children)
{
	tbox_Property1.Text += ch.ChildProperty1+"\r\n";
        ch.Close(true);
 }
 new1.Close(true);

EXE.New new1 = EXE.New.OpenId(connection1, ID);
new1.Reload();
foreach (EXE.NewChild ch in new1.Children)
{
	tbox_Property1.Text += ch.ChildProperty1+"\r\n";
        ch.Close();
 }
 new1.Close();

new1.Close();
new1=null;

EXE.New new1 = EXE.New.OpenId(connection1, ID);
new1.Reload();
foreach (EXE.NewChild ch in new1.Children)
{
	tbox_Property1.Text += ch.ChildProperty1+"\r\n";
        ch.Close();
 }
new1.Reload();
new1.Close();