CentroComercial




Object



#CentroComercial #Gastos
VC
VI
gastos
locales
totalGastos

MC
MI
inicializar
cargarLocalesFijos
cargarGastos
liquidarAlquiler
calcularGastos
alquilarLocal
menu










# CLocal#Fija
VC
VI
ubicacion
inquilino
personas

MC
MI
cargarDatos:
cargarPersonas
cargarInquilino
devUbicacion












#Stand #Persona
VC
MaxSup
SupOcup

VI
monto
mts
MC
cargarSupactualizarSup:
devMaxSup
devSupOcup
MI
calcularAlquiler:
cargarDatosStand:
cargarUbicacionStand:













Object subclass: #Persona
instanceVariableNames:
'tipoDni nroDni nombre apellido nacionalidadfechaNacimiento '
classVariableNames: ''
poolDictionaries: '' !


!Persona class methods ! !



!Persona methods !

cargarDatos
"carga los datos de las personas"
tipoDni:=Prompterprompt:'Ingrese tipo de documento' default:''.
nroDni:=Prompter prompt:'Ingrese número de documento' default:''.
apellido:=Prompter prompt:'Ingrese apellido' default:''.
nombre:=Prompter prompt:'Ingrese nombre'default:''.
fechaNacimiento:=Prompter prompt:'Ingrese fecha de nacimiento' default:''.
nacionalidad:=Prompter prompt:'Ingrese nacionalidad' default:''.! !


Object subclass: #GastosinstanceVariableNames:
'descripcion monto '
classVariableNames: ''
poolDictionaries: '' !


!Gastos class methods ! !



!Gastos methods !

cargarDatos
"carga los datos de gastos"
descripcion:=Prompterprompt:'Ingrese descripcion del gasto' default:''.
monto:=(Prompter prompt:'Ingrese monto del gasto' default:'')asFloat.!

devMonto
"devuelve el monto"
^monto.! !






Object subclass: #CLocalinstanceVariableNames:
'ubicacion inquilino personas '
classVariableNames: ''
poolDictionaries: '' !


!CLocal class methods ! !



!CLocal methods !

cargarDatos:arg
"carga datos de loslocales"
ubicacion:=arg.!

cargarInquilino
"carga datos de inquilino"
inquilino:= Persona new.
MessageBox message:'Ingrese los datos del inquilino'.
inquilino cargarDatos.!

cargarPersonas
"carga...