Class dado.TblTeste Extends (%Persistent, %Populate)
{

Index idxFieldOneFieldTwoFieldThree On (FieldOneId, FieldTwoId, FieldThreeId) [ Unique ];
ForeignKey fkFieldOneId(FieldOneId) References dado.TblFieldOne();
ForeignKey fkFieldTwoId(FieldTwoId) References dado.TblFieldTwo();
ForeignKey fkFieldThreeId(FieldThreeId) References dado.TblFieldThree();
Property FieldOneId As dado.TblFieldOne [ Required ];
Property FieldTwoId As dado.TblFieldTwo [ Required ];
Property FieldThreeId As dado.TblFieldThree;
Property Descricao As %String [ Required ];
Property VersaoCheck As %String [ InitialExpression = 0 ];
ClassMethod OpenCompositeIndexTest()
{
    // IRIS version
    Write "IRIS version: ", $ZV,!

    // clean up tables
    Write !,"Cleaning up tables..."
    $$$TOE(st, ##class(dado.TblTeste).%KillExtent())
    $$$TOE(st, ##class(dado.TblFieldOne).%KillExtent())
    $$$TOE(st, ##class(dado.TblFieldTwo).%KillExtent())
    $$$TOE(st, ##class(dado.TblFieldThree).%KillExtent())

    // populate dependencies
    Write !,"Populating tables..."
    $$$TOE(st, ##class(dado.TblFieldOne).Populate())
    $$$TOE(st, ##class(dado.TblFieldTwo).Populate())
    $$$TOE(st, ##class(dado.TblFieldThree).Populate())

    Write !

    // test with value for all index fields
    Set testDesc = "Test with FieldThreeId using SQL DML"
    Write !,"---",!,testDesc_":"
    &SQL(insert into dado.TblTeste (FieldOneId, FieldTwoId, FieldThreeId, Descricao) values (1, 2, 3, :testDesc))
    If SQLCODE < 0 {Write !,"SQLCODE error ", SQLCODE, " ", %msg}
    Set object = ##class(dado.TblTeste).idxFieldOneFieldTwoFieldThreeOpen(1, 2, 3)
    If 'object {Do $system.OBJ.DisplayError()} Else {Write !,"Ok"}
    Write !,"Index global: ",!
    ZWrite ^dado.TblTesteI

    // test with no value for field FieldThreeId and insertion via SQL DML
    Set testDesc = "Test with no FieldThreeId using SQL DML"
    Write !,"---",!,testDesc_":"
    &SQL(insert into dado.TblTeste (FieldOneId, FieldTwoId, FieldThreeId, Descricao) values (1, 2, null, :testDesc))
    If SQLCODE < 0 {Write !,"SQLCODE error ", SQLCODE, " ", %msg}
    Set object = ##class(dado.TblTeste).idxFieldOneFieldTwoFieldThreeOpen(1, 2, "")
    If 'object {Do $system.OBJ.DisplayError()} Else {Write !,"Ok"}
    Write !,"Index global: ",!
    ZWrite ^dado.TblTesteI

    // test with no value for field FieldThreeId and insertion via object interface
    Set testDesc = "Test with no FieldThreeId using object"
    Write !,"---",!,testDesc_":"
    Set o = ##class(dado.TblTeste).%New()
    Do o.FieldOneIdSetObjectId(2)
    Do o.FieldTwoIdSetObjectId(1)
    Set o.Descricao = testDesc
    $$$TOE(st, o.%Save())
    Set object = ##class(dado.TblTeste).idxFieldOneFieldTwoFieldThreeOpen(2, 1, "")
    If 'object {Do $system.OBJ.DisplayError()} Else {Write !,"Ok"}
    Write !,"Index global: ",!
    ZWrite ^dado.TblTesteI
}

Storage Default
{
<Data name="TblTesteDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>FieldOneId</Value>
</Value>
<Value name="3">
<Value>FieldTwoId</Value>
</Value>
<Value name="4">
<Value>FieldThreeId</Value>
</Value>
<Value name="5">
<Value>Descricao</Value>
</Value>
<Value name="6">
<Value>VersaoCheck</Value>
</Value>
</Data>
<DataLocation>^dado.TblTesteD</DataLocation>
<DefaultData>TblTesteDefaultData</DefaultData>
<IdLocation>^dado.TblTesteD</IdLocation>
<IndexLocation>^dado.TblTesteI</IndexLocation>
<StreamLocation>^dado.TblTesteS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

Class dado.TblFieldOne Extends (%Persistent, %Populate)
{

Property FieldOneId As %Integer [ Required ];
Property FieldOneText As %String [ Required ];
Storage Default
{
<Data name="TblFieldOneDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>FieldOneId</Value>
</Value>
<Value name="3">
<Value>FieldOneText</Value>
</Value>
</Data>
<DataLocation>^dado.TblFieldOneD</DataLocation>
<DefaultData>TblFieldOneDefaultData</DefaultData>
<IdLocation>^dado.TblFieldOneD</IdLocation>
<IndexLocation>^dado.TblFieldOneI</IndexLocation>
<StreamLocation>^dado.TblFieldOneS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

Class dado.TblFieldTwo Extends (%Persistent, %Populate)
{

Property FieldTwoId As %Integer [ Required ];
Property FieldTwoText As %String [ Required ];
Storage Default
{
<Data name="TblFieldTwoDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>FieldTwoId</Value>
</Value>
<Value name="3">
<Value>FieldTwoText</Value>
</Value>
</Data>
<DataLocation>^dado.TblFieldTwoD</DataLocation>
<DefaultData>TblFieldTwoDefaultData</DefaultData>
<IdLocation>^dado.TblFieldTwoD</IdLocation>
<IndexLocation>^dado.TblFieldTwoI</IndexLocation>
<StreamLocation>^dado.TblFieldTwoS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}

Class dado.TblFieldThree Extends (%Persistent, %Populate)
{

Property FieldThreeId As %Integer [ Required ];
Property FieldThreeText As %String [ Required ];
Storage Default
{
<Data name="TblFieldThreeDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>FieldThreeId</Value>
</Value>
<Value name="3">
<Value>FieldThreeText</Value>
</Value>
</Data>
<DataLocation>^dado.TblFieldThreeD</DataLocation>
<DefaultData>TblFieldThreeDefaultData</DefaultData>
<IdLocation>^dado.TblFieldThreeD</IdLocation>
<IndexLocation>^dado.TblFieldThreeI</IndexLocation>
<StreamLocation>^dado.TblFieldThreeS</StreamLocation>
<Type>%Storage.Persistent</Type>
}

}