TP Paradigmas - Clase Supermercado

agregaArticulo
| tmpArticulo tmpTipo tmpValida tmpOp dist |

tmpValida := true.
[tmpValida] whileTrue:[
    tmpTipo := (Prompter prompt: '¿El articulo necesita frío?    1-  Si    2- No' default:'') asInteger.

    (tmpTipo=1)ifTrue:[ tmpArticulo := Frio new. ].
    (tmpTipo=2)ifTrue:[ tmpArticulo := Articulo new. ].
    tmpArticulo carga.
    colArticulo add: tmpArticulo.
    tmpValida := MessageBox confirm: 'Agrega otro artículo?'.
]

agregaDistribuidor
| tmpReg tmpValida tmpOp |
tmpReg := Distribuidor new.
tmpValida := true.
[tmpValida] whileTrue:[
    tmpReg carga.
    colDistribuidor add: tmpReg.
    tmpValida := MessageBox confirm: 'Agrega otro distribuidor?'.
]

agregaItem
| tmpArt tmpCant |
tmpArt := self controlaArticulo.
tmpCant := (Prompter prompt: 'Ingrese cantidad: ' default:'') asFloat.

agregaUsuario
| tmpReg tmpValida tmpOp |
tmpReg := Usuario new.
tmpReg carga.
colUsuario add: tmpReg.

agregaUsuarioInicio
| tmpValida |
self agregaUsuario.
tmpValida := MessageBox confirm: 'Agrega otro usuario?'.
(tmpValida=true)
ifTrue:[
    self agregaUsuario.
]

agregaVenta
| tmpVenta tmpZona tmpDist tmpValida tmpItem tmpArticulo |
self login.
tmpVenta := Venta new.
tmpZona := sesion devZona.
tmpDist := self buscaDistribuidor.
tmpVenta carga:sesion and: tmpDist.

tmpValida := true.
[tmpValida]whileTrue:[
   tmpItem := Item new.
   tmpArticulo := self controlaArticulo.
   tmpItem carga:tmpArticulo.
   tmpVenta agregaItem:tmpItem.
   tmpValida := MessageBox confirm: 'Agrega otro artículo?'.
].

colVenta add: tmpVenta.

buscaDistribuidor
| tmpColDistribuidor zona |
zona := sesion devZona.
tmpColDistribuidor:= colDistribuidor detect:[:i | i devZona = zona]
ifNone:[tmpColDistribuidor := nil].
^tmpColDistribuidor.

cargaDatos
"Éste método sirve para insertar datos en las colecciones de usuarios, artículos y distribuidores"
self agregaDistribuidor.
self agregaUsuarioInicio.
self agregaArticulo.

controlaArticulo
| tmpArticulo tmpColArticulo tmpValida |
tmpValida := true.
[tmpValida]whileTrue:[
    tmpArticulo := Prompter prompt: 'Ingrese código del artículo: ' default:''.
    tmpColArticulo := colArticulo detect:[:i | i devCodigo = tmpArticulo]
    ifNone:[tmpColArticulo := nil].

    (tmpColArticulo=nil)
    ifTrue:[MessageBox message: 'No existe ningún artículo con ese código. Por favor, intente nuevamente.']
    ifFalse:[ tmpValida := false. ].

    (tmpColArticulo=nil)
    ifTrue:[tmpValida := false.]

].
^tmpColArticulo.

controlaDistribuidor
| tmpDistribuidor tmpColDistribuidor tmpValida |
tmpValida := true.
[tmpValida]whileTrue:[
    tmpDistribuidor := Prompter prompt: 'Ingrese nombre del distribuidor: ' default:''.
    tmpColDistribuidor:= colDistribuidor detect:[:i | i devDistribuidor = tmpDistribuidor]
    ifNone:[tmpColDistribuidor := nil].

    (tmpColDistribuidor=nil)
    ifTrue:[MessageBox message: 'No existe ese distribuidor. Por favor, ingrese nuevamente.']
    ifFalse:[ tmpValida := false. ].

    (tmpColDistribuidor=0)
    ifTrue:[tmpValida := false.]

].
^tmpColDistribuidor.

controlaItem
| tmpArticulo tmpColVenta tmpValida |
tmpValida := true.
[tmpValida]whileTrue:[
    tmpArticulo := Prompter prompt: 'Ingrese código del artículo: ' default:''.
    tmpColVenta := colVenta detect:[:i | i devArticulo = tmpArticulo]
    ifNone:[tmpColVenta := nil].

    (tmpColVenta=nil)
    ifTrue:[MessageBox message: 'No existe ningún artículo con ese código. Por favor, intente nuevamente.']
    ifFalse:[ tmpValida := false. ].

    (tmpColVenta=0)
    ifTrue:[tmpValida := false.]

].
^tmpColVenta.

inicio
colArticulo := OrderedCollection new.
colDistribuidor := OrderedCollection new.
colUsuario := OrderedCollection new.
colVenta := OrderedCollection new.

self cargaDatos.
self menu.

listaVenta
| tmpColVenta tmpDist tmpAno tmpMes tmpDia tmpCuando tmpValida tmpTotal |

tmpTotal := 0.
tmpValida := true.
[tmpValida] whileTrue:[
    tmpDist := self controlaDistribuidor.

   tmpCuando :=  (Prompter prompt: 'Ingrese fecha' default: 'mm/dd/aaaa') asDate.

   tmpColVenta := colVenta select: [:i | (i devFecha = tmpCuando) and: [i devDistribuidor = tmpDist] ].

    (tmpColVenta=nil)
    ifTrue:[
        Transcript show: 'No se encontraron ventas para este distribuidor en la fecha indicada. Por favor, intente nuevamente.' printString.
    ]
    ifFalse:[
        tmpColVenta do: [:i | Transcript cr; show: i devFecha printString; tab; show: i devCliente devNombre; tab; show: i devCliente devDomicilio; tab. i devTotal. ].
    ].

    tmpValida := MessageBox confirm: '¿Realiza nueva búsqueda?'.
]

login
| tmpUsuario tmpClave tmpColUsuario tmpIndex tmpNuevo |

tmpNuevo := false.

tmpUsuario := Prompter prompt: 'Ingrese su nombre de usuario: ' default: ''.
tmpClave := Prompter prompt: 'Ingrese su contraseña: ' default: ''.

tmpColUsuario:= colUsuario detect:[:i | (i devUsuario = tmpUsuario) & (i devClave = tmpClave)]
ifNone:[tmpColUsuario := nil].

(tmpColUsuario=nil)
    ifTrue:[
        MessageBox message: 'Nombre de usuario o contraseña incorrectos.'.
        tmpNuevo := MessageBox confirm: 'Desea registrarse?'.
        (tmpNuevo=false)
        ifTrue:[
            self login.
        ]
    ]
    ifFalse:[ MessageBox message: 'Logueado correctamente'. sesion := tmpColUsuario].

(tmpNuevo=true)
ifTrue:[
    self agregaUsuario.
    self login.
]

menu
| tmpValida op |
tmpValida :=true.
[tmpValida] whileTrue: [op:= Prompter prompt:
                          '1. Realizar una venta 2. Listar ventas 3. Salir' default:''.
                        op='1' ifTrue: [self agregaVenta].
                        op='2' ifTrue: [self listaVenta].
                        op='3' ifTrue: [tmpValida:=false]
].