' 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