administrativo

' Gambas class file

Inherits Persona

Property area As String
Private harea As String
'------------------- lectura y escritura de valores de propiedades -------------

Private Function area_Read() As String

  Return harea

End

Private Sub area_Write(Value As String)

  harea = Value

End
'------------------- Metodos -------------

Public Sub Consultar()

  Print "Consultar datos...."
  Print "Nombre: " & Super.nombre
  Print "Area de trabajo: " & harea
  Print "Sueldo: ", Super.sueldo()
  Print "----------------------------"

End

Public Sub Registrar(nombrePropio As String, sueldoCantidad As Single, Optional AreaTrabajo As Variant, Optional v As Variant) 'nombre As String, sueldo As Single)

  Super.nombre = nombrePropio
  Super.SueldoMensual = sueldoCantidad
  harea = areaTrabajo

End