document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private muestraProp As MuestraPropiedad
  4. Private ventaInm As VentaInmueble
  5. Private CuentaaPag As CuentasAPagar
  6. Private AdmAlquiler As AdministracionAlquiler
  7.  
  8. Public Sub _new()
  9.  
  10.   muestraProp = New MuestraPropiedad
  11.   ventaInm = New VentaInmueble
  12.   CuentaaPag = New CuentasAPagar
  13.   AdmAlquiler = New AdministracionAlquiler
  14.  
  15. End
  16.  
  17. Public Sub atencionCliente(c As Cliente)
  18.  
  19.   Print "Atendiendo al cliente: ", c.getnombre()
  20.  
  21. End
  22.  
  23. Public Sub atencionPropietario(p As Propietario)
  24.  
  25.   Print "Atendiendo al propietario: ", p.getnombre()
  26.  
  27. End
  28.  
  29. Public Sub atencionInteresado(i As Interesado)
  30.  
  31.   Print "Atendiendo al interesado de un alquiler: ", i.getnombre()
  32.  
  33. End
  34.  
  35. \'----------------------------------
  36. \'Atender a cualquier persona...
  37. \'----------------------------------
  38. Public Sub atencionPersona(p As Persona)
  39.  
  40.   If Object.Type(p) = "Cliente" Then
  41.     atencionCliente(p)
  42.   Else
  43.     If Object.Type(p) = "Propietario" Then
  44.       atencionPropietario(p)
  45.     Else
  46.       If Object.Type(p) = "Interesado" Then
  47.         atencionInteresado(p)
  48.       Endif
  49.     Endif
  50.   Endif
  51.  
  52. End
  53.  
  54. Public Sub MuestraVivienda(numero As Integer)
  55.  
  56.   muestraProp.mostrar(numero)
  57.  
  58. End
  59.  
  60. Public Sub gestionaVenta()
  61.  
  62.   ventaInm.gestionVenta()
  63.  
  64. End
  65.  
  66. Public Sub cobraAlquiler(cantidad As Integer)
  67.  
  68.   AdmAlquiler.cobro(cantidad) \' cobraAlquiler(cantidad)
  69.  
  70. End
  71.  
  72. Public Sub paga(cantidad As Integer)
  73.  
  74.   CuentaaPag.pagoPropietario(cantidad)
  75.  
  76. End
');