- Se agregó codigo para manejar promos por ruta (Subs/traeMaxPromos), NO esta terminado.

B4A/Subs.bas

@@ -961,16 +961,28 @@ End Sub
 
 'Regresa el numero máximo de promociones permitidas, tomando en cuenta recurrentes, clientes y maxPromos.
 Sub traeMaxPromos(pm As Map) As Int
-	Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub.
+	Private thisLog As Boolean = True 'Si es verdadero, muestra los logs de este sub.
 	Private maxPromos As List
 	Private vendidas As Int = 0
 	maxPromos.Initialize
 '	If Starter.promosLog Then Log("==== HISTORICO:"&pm.Get("historico"))
 	If thisLog Then Log(pm)
+	
+	'Traemos las promos por ruta, y si existe, la agregamos a la lista.
+	Private pxr As Cursor = Starter.skmt.ExecQuery($"select * from CAT_PROMOS_RUTA where CPR_PROMO = '${pm.Get("id")}'"$)
+	Private maxXruta As String = ""
+	If pxr.RowCount > 0 Then
+		pxr.Position = 0
+		Log($"PROMOS POR RUTA PARA ${pm.Get("id")} = ${pxr.GetString("CPR_CANT")}"$)
+		maxXruta = pxr.GetString("CPR_CANT")
+	End If
+	
 	If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente
-	maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos
-	maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente
+	maxPromos.Add(pm.Get("maxPromos").As(Int)) 'Agregamos maxPromos
+	maxPromos.Add(pm.Get("maxXcliente").As(Int)) 'Agregamos maxXcliente
+	If maxXruta <> "" Then maxPromos.Add(maxXruta.As(Int)) 'Agregamos maxXruta
 	maxPromos.Sort(True)
+	Log(maxPromos)
 	
 '	Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$)
 	Private c As Cursor = Starter.skmt.ExecQuery2("select sum(PE_CANT) as vendidas from PEDIDO where PE_PROID = ? and PE_CLIENTE = ? ", Array As String(pm.Get("id").As(String).trim, traeCliente.Trim))