danteGiuliano · danteGiuliano · Feb 11, 2022 · Feb 11, 2022
diff --git a/README.md b/README.md
@@ -3,4 +3,4 @@ primera version (:
 ```
 Metacello new
 baseline:'Tienda';
-repository: 'github://danteGiuliano/tienda-full:master/src'; load. 
+repository: 'github://danteGiuliano/tienda-full:produce/src'; load. 
diff --git a/src/TiendaAmazingShop/Cliente.class.st b/src/TiendaAmazingShop/Cliente.class.st
@@ -53,18 +53,11 @@ Cliente >> addSuscription:aSuscription [.
 listaDeSuscripcion add:aSuscription.
 ]
 
-{ #category : #'as yet unclassified' }
-Cliente >> aplicarPromocion:unaPromocion [
-|suscripcionComprada|
-suscripcionComprada := listaDeSuscripcion at:1.
-suscripcionComprada añadirPromo: unaPromocion.
-listaDeSuscripcion at:1 put:suscripcionComprada.
-]
-
 { #category : #'as yet unclassified' }
 Cliente >> añadirContenido:unContenido [
 listaContenidos add:unContenido.
-colPago add:(Pago crearPago:unContenido precio deItem:unContenido  ySuscripcion:(self getSuscripcionActiva)).
+
+colPago add:(Pago crearPago:(unContenido precioDescuento:(self getSuscripcionActiva)) deItem:unContenido  ySuscripcion:(self getSuscripcionActiva)).
 (self getSuscripcionActiva) contenidoComprado 
 ]
 

diff --git a/src/TiendaAmazingShop/ComponenetCompraContenido.class.st b/src/TiendaAmazingShop/ComponenetCompraContenido.class.st
@@ -1,3 +1,6 @@
+"
+self call openInHand
+"
 Class {
 	#name : #ComponenetCompraContenido,
 	#superclass : #BorderedMorph,

diff --git a/src/TiendaAmazingShop/ComponenetContenidoBusqueda.class.st b/src/TiendaAmazingShop/ComponenetContenidoBusqueda.class.st
@@ -1,3 +1,6 @@
+"
+self call openInHand.
+"
 Class {
 	#name : #ComponenetContenidoBusqueda,
 	#superclass : #BorderedMorph,

diff --git a/src/TiendaAmazingShop/ComponenetPromocion.class.st b/src/TiendaAmazingShop/ComponenetPromocion.class.st
@@ -1,3 +1,6 @@
+"
+self call openInHand
+"
 Class {
 	#name : #ComponenetPromocion,
 	#superclass : #BorderedMorph,
@@ -12,6 +15,11 @@ Class {
 	#category : #'TiendaAmazingShop-components tienda'
 }
 
+{ #category : #'ffi-calls' }
+ComponenetPromocion class >> call [
+^self new.
+]
+
 { #category : #initialization }
 ComponenetPromocion >> addButtom [
 aplicar :=Button create:'APLICAR' size:60@30. 

diff --git a/src/TiendaAmazingShop/ComponenteClientePago.class.st b/src/TiendaAmazingShop/ComponenteClientePago.class.st
@@ -9,7 +9,7 @@ Class {
 		'collecionPago',
 		'collecionBoton'
 	],
-	#category : #'TiendaAmazingShop-services'
+	#category : #'TiendaAmazingShop-components tienda'
 }
 
 { #category : #operations }

diff --git a/src/TiendaAmazingShop/Contenido.class.st b/src/TiendaAmazingShop/Contenido.class.st
@@ -68,3 +68,15 @@ fecha :=Date today yyyymmdd.
 Contenido >> precio [
 ^precio.
 ]
+
+{ #category : #accessing }
+Contenido >> precioDescuento:unaSuscripcion [
+|valorSuscripcion |
+(unaSuscripcion sinSuscripcion )ifFalse:[
+	valorSuscripcion :=Control modelFuntionReturn:[:h| h obtainSuscripcion:unaSuscripcion getTipo].
+^precio * (((valorSuscripcion obtenerDescuento: ( self class asString) )* unaSuscripcion descuento)/precio).
+	]
+ifTrue:[
+	^precio.
+	]
+]
diff --git a/src/TiendaAmazingShop/Descuento.class.st b/src/TiendaAmazingShop/Descuento.class.st
@@ -129,6 +129,11 @@ Descuento >> nombreRow: rowIndex [
 		yourself
 ]
 
+{ #category : #'as yet unclassified' }
+Descuento >> obtenerDescuento:selecion [
+^diccionarioDescuento at:selecion.
+]
+
 { #category : #'as yet unclassified' }
 Descuento >> peliculaRow: rowIndex [
 	^ FTCellMorph new  

diff --git a/src/TiendaAmazingShop/Login.class.st b/src/TiendaAmazingShop/Login.class.st
@@ -59,7 +59,7 @@ fonde right:self right.
 fonde color:Color white.
 "Gif"
 
-Helper addCenterMorph:(MorphGIF gifFromString:'recursos/fondo-login.gif') in:fonde.
+Helper addCenterMorph:(MorphGIF gifFromString:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/fondo-login.gif') in:fonde.
 
 
 ]

diff --git a/src/TiendaAmazingShop/Menu.class.st b/src/TiendaAmazingShop/Menu.class.st
@@ -51,7 +51,7 @@ Helper border:exit  aColor:Color white rad:3.
 
 { #category : #initialization }
 Menu >> addFondoAnimado [
-fonde :=MorphGIF gifFromString:'recursos/fondo.gif'.
+fonde :=MorphGIF gifFromString:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/fondo.gif'.
 fonde fullBounds.
 self addMorph:fonde.
 fonde center:self center.
@@ -65,9 +65,9 @@ menuSuscripcion :=CircleButton new extent:128@128.
 menuCliente :=CircleButton new extent:128@128.
 menuContenido :=CircleButton new extent:128@128.
 
-menuSuscripcion icon:(Icon stringRoute:'recursos/suscripcion.png').
-menuCliente icon:(Icon stringRoute:'recursos/cliente.png').
-menuContenido icon:(Icon stringRoute:'recursos/contenido-pagado.png').
+menuSuscripcion icon:(Icon stringRoute:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/suscripcion.png').
+menuCliente icon:(Icon stringRoute:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/cliente.png').
+menuContenido icon:(Icon stringRoute:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/contenido-pagado.png').
 menuSuscripcion color:Theme morph.
 menuCliente  color:Theme morph.
 menuContenido color:Theme morph.

diff --git a/src/TiendaAmazingShop/Promocion.class.st b/src/TiendaAmazingShop/Promocion.class.st
@@ -79,6 +79,11 @@ nuevaSuscripcion :=unaNuevaSuscripcion.
 suscripcionBase :=unaSuscripcionBase.
 ]
 
+{ #category : #'as yet unclassified' }
+Promocion >> descuento [
+^descuento asNumber.
+]
+
 { #category : #'as yet unclassified' }
 Promocion >> getCantidadArticulos [
 ^cantidad asNumber

diff --git a/src/TiendaAmazingShop/SuscripcionComprada.class.st b/src/TiendaAmazingShop/SuscripcionComprada.class.st
@@ -7,7 +7,8 @@ Class {
 		'fechaFin',
 		'nombreSuscripcion',
 		'contenidosComprados',
-		'promocion'
+		'promocion',
+		'suscripto'
 	],
 	#category : #'TiendaAmazingShop-model'
 }
@@ -62,24 +63,18 @@ SuscripcionComprada >> añadirLista:unaLista [
 listaDescuento :=unaLista.
 fechaInicio :=Date today yyyymmdd.
 fechaFin :=Date today onNextMonth  yyyymmdd.
+suscripto :=true.
 
 ]
 
-{ #category : #'as yet unclassified' }
-SuscripcionComprada >> añadirListaMySQL:unaLista yFechaInicio:unaFechaInicio yFechaFIN:unaFechaFin deNombre:unNombre [
-listaDescuento :=unaLista.
-fechaInicio :=unaFechaInicio.
-fechaFin :=unaFechaFin.
-nombreSuscripcion :=unNombre.
-]
-
 { #category : #'as yet unclassified' }
 SuscripcionComprada >> añadirListaMySQL:unaLista yFechaInicio:unaFechaInicio yFechaFIN:unaFechaFin deNombre:unNombre contenidosComprados:cantidad [
 listaDescuento :=unaLista.
 fechaInicio :=unaFechaInicio.
 fechaFin :=unaFechaFin.
 nombreSuscripcion :=unNombre.
 contenidosComprados :=cantidad.
+suscripto :=true.
 ]
 
 { #category : #'as yet unclassified' }
@@ -104,6 +99,15 @@ SuscripcionComprada >> contenidoComprado [
 contenidosComprados :=contenidosComprados +1.
 ]
 
+{ #category : #dataTable }
+SuscripcionComprada >> descuento [
+promocion ifNil:[
+	^1 asNumber .
+	  ]ifNotNil:[
+	promocion descuento asNumber.
+	]
+]
+
 { #category : #'as yet unclassified' }
 SuscripcionComprada >> getFechaInicio [
 ^fechaInicio .
@@ -160,8 +164,14 @@ SuscripcionComprada >> promocionAplicable:unaCantidad [
 
 ]
 
+{ #category : #'as yet unclassified' }
+SuscripcionComprada >> sinSuscripcion [
+^(suscripto not).
+]
+
 { #category : #'as yet unclassified' }
 SuscripcionComprada >> sinSuscripcionActiva [
+suscripto :=false.
 nombreSuscripcion :='Sin Suscripcion'.
 fechaInicio:=Date today.
 fechaFin:='Usuario sin suscripcion'.
-Original file line number
+Diff line change
@@ Expand Up / @@ -59,7 +59,7 @@ fonde right:self right. @@
     fonde color:Color white.
     "Gif"
-    Helper addCenterMorph:(MorphGIF gifFromString:'recursos/fondo-login.gif') in:fonde.
+    Helper addCenterMorph:(MorphGIF gifFromString:'pharo-local/iceberg/danteGiuliano/tienda-full/src/recursos/fondo-login.gif') in:fonde.
     ]
@@ Expand Down @@