Class Contatos.Amiguinho Extends %Persistent
{
Property Moradia As Cidade;
Relationship Trabalho As Contatos.Empresa [ Cardinality = one, Inverse = Nomedaempresa ];
}
------------------------Routine-----------------------------------
Set objcontato=##class(Contatos.Amiguinho).%New()
Set IDm=3,IDt=2
Set objcontato.Moradia=##class(Contatos.Cidade).%OpenId(IDm) ;<-- it works for "Property Moradia As Cidade"
Set objcontato.Trabalho=##class(Contatos.Empresa).%OpenId(IDt) ;<-- it doesn't works for "Relationship Trabalho As Contatos.Empresa"
Set ret=objcontato.


.png)