\' Gambas class file
Private muestraProp As MuestraPropiedad
Private ventaInm As VentaInmueble
Private CuentaaPag As CuentasAPagar
Private AdmAlquiler As AdministracionAlquiler
Public Sub _new()
muestraProp = New MuestraPropiedad
ventaInm = New VentaInmueble
CuentaaPag = New CuentasAPagar
AdmAlquiler = New AdministracionAlquiler
End
Public Sub atencionCliente(c As Cliente)
Print "Atendiendo al cliente: ", c.getnombre()
End
Public Sub atencionPropietario(p As Propietario)
Print "Atendiendo al propietario: ", p.getnombre()
End
Public Sub atencionInteresado(i As Interesado)
Print "Atendiendo al interesado de un alquiler: ", i.getnombre()
End
\'----------------------------------
\'Atender a cualquier persona...
\'----------------------------------
Public Sub atencionPersona(p As Persona)
If Object.Type(p) = "Cliente" Then
atencionCliente(p)
Else
If Object.Type(p) = "Propietario" Then
atencionPropietario(p)
Else
If Object.Type(p) = "Interesado" Then
atencionInteresado(p)
Endif
Endif
Endif
End
Public Sub MuestraVivienda(numero As Integer)
muestraProp.mostrar(numero)
End
Public Sub gestionaVenta()
ventaInm.gestionVenta()
End
Public Sub cobraAlquiler(cantidad As Integer)
AdmAlquiler.cobro(cantidad) \' cobraAlquiler(cantidad)
End
Public Sub paga(cantidad As Integer)
CuentaaPag.pagoPropietario(cantidad)
End