Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement