- Codigo de promos por ruta corregido para que use la nueva columna de Josue (promos disponibles)

B4A/C_Principal.bas

@@ -315,6 +315,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	Subs.checaPedido
 '	s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
 	reqManager.Initialize(Me, Starter.DBReqServer)
 '	B4XPages.MainPage.cliente.mandaPendientes 'Ejecutamos mandaPendientes.
@@ -924,6 +925,11 @@ Sub cargar_Click
 			cmd.Name = "select_hist_cliente_promos_MARDS"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
+			
+			cmd.Initialize
+			cmd.Name = "select_promosXruta_MARDS"
+			cmd.Parameters = Array As Object(ALMACEN, E_RUTA2.text)
+			reqManager.ExecuteQuery(cmd , 0, "promosXruta")
 		End If
 
 		cmd.Initialize
@@ -1754,7 +1760,7 @@ Sub JobDone(Job As HttpJob)
 					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"))
+					Dim CPR_CANT As Int = records(RESULT.Columns.Get("CPR_CANT_REST"))
 					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
@@ -1900,6 +1906,7 @@ Sub e_ruta_EnterPressed
 			Starter.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
 			Starter.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
 			Starter.skmt.ExecNonQuery("DELETE FROM VENDIDOS")
+			Starter.skmt.ExecNonQuery("DELETE FROM CAT_PROMOS_RUTA")
 			B4XPage_Appear
 		End If
 	End If
@@ -2020,6 +2027,7 @@ Sub B_OK_PAS_Click
 		Resumen.Visible= True
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
+		Subs.checaPedido
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then

B4A/Mariana.b4a.meta

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,revisaMaxPromosProdsFijosPorInventario2,1042,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1129,0,C_Principal,cargar_Click,950,1,C_Principal,JobDone,1731,2,Subs,alcanzanLosVariablesParaPromo,954,0,C_Productos,lv_catalogos_ItemClick,242,0,Subs,procesaPromocion,1032,1,Subs,restaFijosPromo,920,0,Subs,traeMaxPromosXruta,1009,6,Subs,traeMaxPromos,989,6
+NavigationStack=C_Principal,e_ruta_TextChanged,2274,0,Subs,agregaColumna,1335,0,C_Principal,B_OK_PAS_Click,2023,0,C_Principal,B4XPage_Created,309,0,C_Principal,B4XPage_Appear,318,2,Subs,checaPedido,1339,5,C_Principal,e_ruta_EnterPressed,1902,0,C_Clientes,calc_ean_checksum,220,0,Visual Designer,login.bal,-100,1,C_Principal,JobDone,1737,0
 SelectedBuild=0
-VisibleModules=2,12,4,5,6,7,8,9,10,26,13
+VisibleModules=2,12,4,5,6,26,10

B4A/Subs.bas

@@ -993,10 +993,10 @@ Sub traeMaxPromos(pm As Map) As Int
 	Return maxPromos.Get(0) - vendidas 'Regresamos el numero mas pequeño de las opciones.
 End Sub
 
-'Regresa las promos disponibles por ruta o "" si no hay.
+'Regresa las promos disponibles por ruta o "" si no hay. (SEGMENTADAS)
 Sub traeMaxPromosXruta(idPromo As String) As String
 	'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 = '${idPromo}'"$)
+	Private pxr As Cursor = Starter.skmt.ExecQuery($"select * from CAT_PROMOS_RUTA where CPR_PROMO = '${idPromo}' and CPR_RUTA = '${traeRuta}'"$)
 	Private maxXruta As String = ""
 	If pxr.RowCount > 0 Then
 		pxr.Position = 0
@@ -1342,6 +1342,18 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
 	End Try
 End Sub
 
+'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
+Sub checaPedido
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+	If c.RowCount > 0 Then
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
+	End If
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
+	If c.RowCount > 0 Then
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
+	End If
+End Sub
+
 Sub capitalizar(str As String) As String 'ignore
 	Return str.Substring2(0,1).ToUppercase & str.SubString(1)
 End Sub