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

B4A/C_Principal.bas

@@ -950,6 +950,11 @@ Sub cargar_Click
 		cmd.Name = "select_marcas_rutas_MARDS"
 		cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
 		reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
+		
+		cmd.Initialize
+		cmd.Name = "select_promosXruta_MARDS"
+		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
+		reqManager.ExecuteQuery(cmd , 0, "promosXruta")
 	
 '	cmd.Initialize
 '	cmd.Name = "select_CUEST_INTMEX"
@@ -1367,7 +1372,7 @@ Sub JobDone(Job As HttpJob)
 				Next
 				c=Starter.skmt.ExecQUERY("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE <> 0")
 				c.Position = 0
-				
+
 				cuantos_pedidosc = c.GetString("CUANTOS")
 				c.Close
 				If cuantos_pedidosc > 0 Then
@@ -1742,8 +1747,18 @@ Sub JobDone(Job As HttpJob)
 					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1))
 				Next
 			End If
+			
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "promosXruta" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim CPR_IDALMACEN As String = records(RESULT.Columns.Get("CPR_IDALMACEN"))
+					Dim CPR_RUTA As String = records(RESULT.Columns.Get("CPR_RUTA"))
+					Dim CPR_PROMO As String = records(RESULT.Columns.Get("CPR_PROMO"))
+					Dim CPR_CANT As Int = records(RESULT.Columns.Get("CPR_CANT"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PROMOS_RUTA(CPR_RUTA, CPR_PROMO, CPR_CANT, CPR_IDALMACEN) VALUES (?,?,?,?)", Array As Object (CPR_RUTA, CPR_PROMO, CPR_CANT, CPR_IDALMACEN))
+				Next
+			End If
 		End If
-		
 	End If
 	Job.Release
 End Sub