...

B4A/B4XMainPage.bas

@@ -419,7 +419,7 @@ Sub ImageView4_Click
 	Label1 = ListView1.SingleLineLayout.Label
 	Label1.TextSize = 20
 	Label1.TextColor = Colors.Black
-	ListView1.AddSingleLine("http://keymon.lat:1781")
+	ListView1.AddSingleLine(Starter.DBReqServer)
 	c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
 	c.Position =0
 	E_SERVER.text = c.GetString("CAT_VA_VALOR")

B4A/C_Cliente.bas

@@ -394,10 +394,10 @@ End Sub
 
 Sub gest_Click
 '	Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
-	End If
+'	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'		Return False
+'	End If
 '	If la_cuenta.Text <> "0" Then
 '		Dim queenc As String
 '		'		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
@@ -1218,10 +1218,10 @@ End Sub
 
 Sub B_VENTA_Click
 '	Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
-	End If
+'	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'		Return False
+'	End If
 '	If la_cuenta.Text <> "0" Then
 '		Dim queenc As String
 '		'		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local

B4A/C_Principal.bas

@@ -269,6 +269,7 @@ Sub IsConnectedToInternet As Boolean
 End Sub
 
 Sub B4XPage_Appear
+	checaPedido
 	Log(Starter.lat_gps& " "& Starter.lon_gps)
 	SERVER = Starter.DBReqServer
 	HORAINGRESO ="000000"
@@ -1926,7 +1927,7 @@ Sub JobDone(Job As HttpJob)
 			Subs.logJobDoneResultados(RESULT)
 		End If
 		
-		If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
+'		If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
 		
 		Job.Release
 	End If
@@ -2163,13 +2164,14 @@ Sub B_OK_PAS_Click
 		B_PROXIMA.Visible =True
 		Btn_UbicarR.Visible=True
 
-
+		checaPedido
 		NUEVO.Visible =True
 		BUSCA.Visible=True
 		connecta.Visible=True
 		Resumen.Visible= True
 		img2.Visible=False
 		B4XPage_Appear
+		
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
 		If RES = DialogResponse.POSITIVE Then
@@ -2332,7 +2334,7 @@ Sub Resumen_Click
 	Do While r.NextRow
 		cRes = cRes + r.GetString("PE_COSTO_TOT")
 	Loop
-	l_montoColgateResumen.Text = numberformat2(cRes, 1, 2, 2, True)
+	l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True)
 	
 	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
 	b.Position=0
@@ -2377,7 +2379,7 @@ Sub Resumen_Click
 			ImageView12.Bitmap = LoadBitmap(File.DirAssets, "k.png")
 			c=skmt.ExecQuery2("select ifnull(sum(pe_cant), 0) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
 			c.Position = 0
-			l_cambios.Text = numberformat2(c.GetString("CAMBIOS"), 1, 2, 2, True)
+			l_cambios.Text = NumberFormat2(c.GetString("CAMBIOS"), 1, 2, 2, True)
 			c.Close
 			c=skmt.ExecQuery("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'KELLOGGS' Or CAT_GP_CLASIF = 'KELLOGGS 2')")
 			c.Position = 0
@@ -2786,4 +2788,17 @@ Sub b_e_resumen_Click
 '	cmd.Name = "UPDATE_DURK_ACTUAL2_GPS"
 '	cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,Main.lat_gps,Main.lon_gps,batterystatus(0),0, 0, 0,ALMACEN,l_ruta.Text )
 '	reqManager.ExecuteCommand(cmd,"inst_visitas")
+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 = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
+	End If
 End Sub

B4A/Durakelo.b4a

@@ -1393,12 +1393,12 @@ Module9=C_NoVenta
 NumberOfFiles=667
 NumberOfLibraries=31
 NumberOfModules=24
-Version=12.8
+Version=12.5
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo
 	#VersionCode: 1
-	#VersionName: 4.04.12 ENCU
+	#VersionName: 4.04.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Durakelo.b4a.meta

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Visual Designer,login.bal,-100,2,C_Cliente,cuestionario,1460,0,C_Cliente,B4XPage_CloseRequest,472,0,C_Cliente,B_VENTA_Click,1215,0,C_Cuestionario,agregaPregunta,65,0,C_Cuestionario,Class_Globals,11,0,MAPA_RUTAS,MapFragment1_Ready,120,0,Subs,procesaPromocion,1017,0,Subs,traeMaxPromos,979,6,Subs,traePromo,807,0,Main,Globals,25,0
+NavigationStack=C_Principal,IsConnectedToInternet,263,0,MAPA_RUTAS,MapFragment1_Ready,158,0,C_Principal,B4XPage_Appear,265,0,C_Principal,checaPedido,2794,0,C_Principal,B_OK_PAS_Click,2160,0,C_Cliente,B_VENTA_Click,1214,0,C_Cliente,gest_Click,390,0,C_Principal,Class_Globals,27,0,Subs,traeMaxPromos,983,0,C_Nota,Class_Globals,0,0,C_Nota,ListView1_ItemLongClick,200,0
 SelectedBuild=0
-VisibleModules=1,2,10,4,5,6,8,9,11,24,21,23
+VisibleModules=1,2,10,4,5,6,8,9,11,24,23

B4A/MAPA_RUTAS.bas

@@ -124,7 +124,7 @@ Sub MapFragment1_Ready
 	Dim JavaMapsObject As JavaObject
 	JavaMapsObject = gmap.GetUiSettings
 	JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
-
+	
 	'''''''----------------------------MARKER AZUL - POR VISITAR
 
 	If azul = 1 Or todos = 1  Then
@@ -162,7 +162,7 @@ Sub MapFragment1_Ready
 			CODIGO=c2.GetString("CAT_CL_CODIGO")
 			Tienda= c2.GetString("CAT_CL_NOMBRE")
 			NumSerie=c2.GetInt("CAT_CL_NUM_SERIEFISICO")
-			MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde-"&".png"))
+			MARK_VERDE = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, i&"marker-verde"&".png"))
 			MARK_VERDE.Snippet = Tienda
 '			MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
 '			MARK_VERDE.Snippet = Tienda
@@ -218,7 +218,7 @@ Sub MapFragment1_Ready
 				LatitudRu = c3.GetDouble("CAT_CL_LAT")
 				Tienda= c3.GetString("CAT_CL_NOMBRE")
 				NumSerie=c3.GetInt("CAT_CL_NUM_SERIEFISICO")
-				MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo-" & i &".png"))
+				MARK_ROJO = gmap.AddMarker3(LongitudRU,LatitudRu,CODIGO, LoadBitmap(File.DirAssets, "marker-rojo" & i &".png"))
 				MARK_ROJO.Snippet = Tienda
 '				MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
 '				MARK_ROJO.Snippet = Tienda

B4A/Subs.bas

@@ -968,9 +968,8 @@ End Sub
 Sub traeMaxPromos(pm As Map) As Int
 	Private thisLog As Boolean = False 'Si es verdadero, muestra los logs de este sub.
 	Private maxPromos As List
-	Private mp0 As String = "0", mp As String = "0"
+	Private mp0, mp As String = "0"
 	maxPromos.Initialize
-	Log("mp:" & maxPromos)
 	Private hccp As Cursor = Starter.skmt.ExecQuery($"select HCCP_CANT from HIST_CLIENTE_CANT_PROMOS where HCCP_CLIENTE = '${traeCliente}' and HCCP_PROMO = '${pm.Get("id")}'"$)
 '	Log($"select HCCP_CANT from HIST_CLIENTE_CANT_PROMOS where HCCP_CLIENTE = '${traeCliente}' and HCCP_PROMO = '${pm.Get("id")}'"$)
 '	If hccp.RowCount > 0 Then
@@ -982,19 +981,15 @@ Sub traeMaxPromos(pm As Map) As Int
 	If thisLog Then LogColor("==== HISTORICO:"&pm.Get("historico"), Colors.Red)
 	If thisLog Then Log(pm)
 	If pm.Get("historico") = "1" Then maxPromos.Add(pm.Get("maxRecurrente")) 'Si hay historico, agregamos maxRecurrente
-	If pm.Get("maxPromos") <> Null Then maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos
-	If pm.Get("maxXcliente") <> Null Then maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente
-	Log(hccp.RowCount)
+	maxPromos.Add(pm.Get("maxPromos")) 'Agregamos maxPromos
+	maxPromos.Add(pm.Get("maxXcliente")) 'Agregamos maxXcliente
 	If hccp.RowCount > 0 Then 'Agregamos promos HCCP
 		hccp.Position = 0
 		maxPromos.Add(hccp.GetString("HCCP_CANT"))
 	End If
-	Log(maxPromos)
-	If maxPromos.Size > 0 Then
-		maxPromos.Sort(True)
-		mp0 = maxPromos.Get(0)
-	End If
+	maxPromos.Sort(True)
 	If thisLog Then Log(maxPromos)
+	mp0 = maxPromos.Get(0)
 	mp = mp0 - traePromosVendidas(pm.Get("id"), traeCliente)
 	If thisLog Then Log($"Max Promos (${mp0}) - promos vendidas (${(traePromosVendidas(pm.Get("id"), traeCliente)).As(Int)}) = ${mp}"$)
 	Return mp 'Regresamos el numero mas pequeño de las opciones.