' Código PHC GO – VB.NET
<AttTable("u0000_singer"), AttTableFlags(TableFlags.IsUserTable)>
Public Class u0000_singerVO
 Inherits BusinessVO
 <AttLenght(80,0), AttList(OrderTypes.Ascending,1), AttLogInfo()>
 Public Property [nome]() As String
 <AttLenght(60,0), AttList(), AttLogInfo()>
 Public Property [genre]() As String
 <AttLenght(25,0), AttFieldStamp()>
 Public Property [u0000_singerstamp]() As String
 Public Property [remarks]() As String
End Class
' Código PHC GO – VB.NET
<AttTable("u0000_musica"), AttTableFlags(TableFlags.IsUserTable)>
Public Class u0000_musicaVO
 Inherits BusinessVO
 <AttLenght(80,0)>
 Public Property [nome]() As String
 <AttLenght(25,0), AttForeignKey(GetType(u0000_albumVO)), AttIndex()>
 Public Property [u0000_albumstamp]() As String
 <AttLenght(25,0), AttFieldStamp()>
 Public Property [u0000_musicastamp]() As String
 <AttParent(), XmlIgnore(), AttNotField()>
 Public Property parentVO As u0000_albumVO
End Class
' Código PHC GO – VB.NET
<AttTable("u0000_album"), AttTableFlags(TableFlags.IsUserTable)>
Public Class u0000_albumVO
 Inherits BusinessVO
 <AttLenght(80,0), AttList(OrderTypes.Ascending,1), AttLogInfo()>
 Public Property [nome]() As String
 <AttLenght(1,0),AttList(),AttLogInfo()>
 Public Property [rarity]() As Boolean
 <AttLenght(2,0), AttMandatory(), AttList(), AttLogInfo(), AttSmartField()>
 Public Property [state]() As String
 <AttLenght(25,0),AttFieldStamp()>
 Public Property [u0000_albumstamp]() As String
 <AttLenght(0,0), AttList(), AttLogInfo()>
 Public Property [singername]() As String
 <AttLenght(60,0), AttList(), AttLogInfo()>
 Public Property [genre]() As String
 <AttLenght(25,0)>
 Public Property [singerstamp]() As String
 <AttLenght(60,0)>
 Public Property [stdesign]() As String
 <AttLenght(18,0)>
 Public Property [stref]() As String
 <AttLenght(25,0), AttForeignKey(GetType(ImageInfoVO))>
 Public Property [imgfront]() As String
 <AttLenght(25,0), AttForeignKey(GetType(ImageInfoVO))>
 Public Property [imgback]() As String
 <AttCollection(GetType(u0000_musicaVO))>
 Public Property u0000_musica As List(Of u0000_musicaVO)
 
End Class
<AttTable("u0000_st_album"), AttTableFlags(TableFlags.IsUserTable)>
Public Class u0000_st_albumVO
 Inherits BusinessVO
 <AttLenght(25,0)>
 Public Property [albumstamp]() As String
 <AttLenght(25,0), AttForeignKey(GetType(StVO)), AttIndex()>
 Public Property [ststamp]() As String
 <AttLenght(25,0), AttFieldStamp()>
 Public Property [u0000_st_albumstamp]() As String
 <AttParent(), XmlIgnore(), AttNotField()>
 Public Property parentVO As FrameworkStVO
 
End Class