personaVO

' Gambas class file

Property documento As Integer
Private hdocumento As Integer

Property nombre As String
Private hnombre As String

Private Function nombre_Read() As String

  Return hnombre

End

Private Sub nombre_Write(Value As String)

  hnombre = value

End

Private Function documento_Read() As Integer

  Return hdocumento

End

Private Sub documento_Write(Value As Integer)

  hdocumento = value

End