- Se completo el codigo de la clase promociones, ya "casi" sin mapas!

B4A/Subs.bas

@@ -1228,12 +1228,12 @@ End Sub
 Sub procesaPromocion(idPromo As String, cliente As String) As Map 'ignore
 	Private thisLog As Boolean = False  'Si es verdadero, muestra los logs de este sub.
 	Private inicioContador As String = DateTime.Now
-	Private mp = 0
+	Private mp As Int = 0
 	If thisLog Then LogColor($"********* Iniciamos revision de Promo ${idPromo} *********"$, Colors.red)
 	'Obtenemos el mapa con toda la info de la promoción.
 	Private pm As Map = traePromo(idPromo, cliente)
 	
-	B4XPages.MainPage.productos.promosC.traePromo(idPromo, cliente)
+'	B4XPages.MainPage.productos.promosC.traePromo(idPromo, cliente)
 	
 	If thisLog Then LogColor(pm, Colors.Blue)
 '	If thisLog Then LogColor("|" & pm.Get("maxPromos") & "|", Colors.Blue)
@@ -1327,7 +1327,7 @@ Sub revisaMaxPromosProdsFijosPorInventario(pm As Map) As Int
 	Private prodsFijosPiezas As List = pm.Get("prodsFijosPiezas")
 	Private idProdsFijos As List = pm.Get("prodsFijos")
 	For p = 0 To idProdsFijos.Size -1 'Generamos una lista con las promos disponibles por producto (dividimos el inventario total entre las piezas requeridas).
-		Private thisInvDisp = 0
+		Private thisInvDisp As Int = 0
 		If invDispParaPromo.Get(idProdsFijos.Get(p)) <> Null Then thisInvDisp = invDispParaPromo.Get(idProdsFijos.Get(p))
 		If thisLog Then Log($"id=${idProdsFijos.Get(p)}, inv=${thisInvDisp}, pzas=${prodsFijosPiezas.Get(p)}"$)
 		If thisLog Then Log($"${(thisInvDisp / prodsFijosPiezas.Get(p))}"$)