\' Gambas class file
Inherits Compuesto
Private hcantidad As Integer
\'aqui irian los metodos y atributos del sector...
Private hNombreDepartamento As String
Public Function getCantidad() As Single
Return hcantidad
End
Public Sub setCantidad(cantidad As Single)
hcantidad = cantidad
End