- VERSION 4.08.18

- Se corrigio que cuando se regresaba de "Resumen Dia" los botones de "Cliente Nuevo" y "Abordo" siempre aparecían, aun cuando no se habia hecho el checklist.
- Se corrigieron lods datos de  BBD, VIS, PED, NC PRO y EFE en "Resumen Dia""

B4A/C_Principal.bas

@@ -213,6 +213,7 @@ Sub Class_Globals
 	Private r_6 As RadioButton
 	Private r_7 As RadioButton
 	Private r_razonNoVisita As String
+	Private l_descripcion As Label
 End Sub
 
 'You can add more parameters here.
@@ -266,7 +267,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 	'	l_porvisitar.Text = e.GetString("POR_VISITAR")
 	Else
-		c = Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
+		c = Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente")
 		b = Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
 		'where pc_fecha = ?", Array As String(fecha)
 		C.Position = 0
@@ -280,6 +281,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Log(LastException)
 		End Try
 		l_drop.Text = Round2(drop,2)
+'		Log($"PRODUCTIVIDAD: ${c.GetString("CLIENTES_DIA")} / ${L_CUANTOST.text} = ${(c.GetString("CLIENTES_DIA") / L_CUANTOST.text)}"$)
+'		l_drop.Text = Round2((c.GetString("CLIENTES_DIA") / L_CUANTOST.text),2)
 		efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
 		l_efectiva.text = Round2(efectiva*100,2)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
@@ -351,10 +354,16 @@ Sub B4XPage_Appear
 		c.Close
 	End If
 	c.Close
-	c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?)  ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA",SEMANA, "SEMANAL"))
+	c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?)  ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA", SEMANA, "SEMANAL"))
 	c.Position = 0
 	Starter.clientesTotal = c.GetString("CUANTOS")
-	l_porvisitar.Text = Starter.clientesTotal
+'	l_porvisitar.Text = Starter.clientesTotal
+	Private x As Cursor = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?)  ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA", SEMANA, "SEMANAL"))
+	L_CUANTOST.Text = "0"
+	If x.RowCount > 0 Then
+		x.Position = 0
+		L_CUANTOST.Text = x.GetString("CUANTOS")
+	End If
 	PASO = 0
 	If EJECUTANDO = 0 Then
 		Listo1 = 0
@@ -2438,8 +2447,9 @@ End Sub
 
 Sub B_OK_RES_Click
 	trabajar.Visible = True
-	B_PROXIMA.Visible =True
+	l_descripcion.Visible = False
-	NUEVO.Visible =True
+'	B_PROXIMA.Visible =True
+'	NUEVO.Visible =True
 	BUSCA.Visible=True
 	connecta.Visible=True
 	Resumen.Visible= True
@@ -2447,9 +2457,9 @@ Sub B_OK_RES_Click
 	If l_ruta.Text = "0" Then
 		NUEVO.Visible = False
 		B_PROXIMA.Visible = False
-	Else
+'	Else
-		NUEVO.Visible = True
+'		NUEVO.Visible = True
-		B_PROXIMA.Visible = True
+'		B_PROXIMA.Visible = True
 	End If
 End Sub
 
@@ -2580,13 +2590,17 @@ Sub Resumen_Click
 '		Subs.sumaPedido(Subs.traeCliente)
 		l_cuantosc.Text = c.GetString("CLIENTES_DIA")
 		l_cuantosn.Text = b.GetString("CUANTOS")
-		L_CUANTOST.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
+		l_porvisitar.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
-		efectiva = L_CUANTOST.Text / e.GetString("POR_VISITAR")
+'		efectiva = L_CUANTOST.Text / e.GetString("POR_VISITAR")
+		efectiva = l_porvisitar.Text / L_CUANTOST.text ' Efectividad = Visitados de hoy / Totales de hoy
 		LogColor($"${L_CUANTOST.Text} / ${e.GetString("POR_VISITAR")} = ${(L_CUANTOST.Text / e.GetString("POR_VISITAR") * 100)}"$, Colors.BLUE)
 		l_efectiva.text = Round2(efectiva*100,2)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 		'l_porvisitar.Text = e.GetString("POR_VISITAR")
-		l_drop.Text = Round((L_CUANTOST.Text / l_porvisitar.text) * 100)
+'		l_drop.Text = Round((L_CUANTOST.Text / l_porvisitar.text) * 100)
+		l_drop.Text = Round2(((c.GetString("CLIENTES_DIA") / L_CUANTOST.text)*100),2) ' Productividad = Con venta de hoy / Totales de hoy
+		Log($"PRODUCTIVIDAD: ${c.GetString("CLIENTES_DIA")} / ${L_CUANTOST.text} = ${(c.GetString("CLIENTES_DIA") / L_CUANTOST.text)}"$)
+		
 		If l_drop.Text + l_efectiva.Text < 100 Then
 			ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
 		Else If l_drop.Text + l_efectiva.Text > =  100 And l_drop.Text + l_efectiva.Text < 130 Then
@@ -2767,6 +2781,7 @@ End Sub
 
 ' BOLETA
 Sub B_BOLETA_Click
+	l_descripcion.Visible = False
 	GetResult
 End Sub
 
@@ -2783,6 +2798,7 @@ Sub B_MAPA_RUTA_Click
 End Sub
 
 Sub b_cuotas_Click
+	l_descripcion.Visible = False
 	DDD=Starter.skmt.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
 	DDD.Position = 0
 	If DDD.GetString("CUANTOS") > 0 Then
@@ -3559,7 +3575,7 @@ End Sub
 'End Sub
 
 Private Sub P_RESUMEN_Click
-	
+	l_descripcion.Visible = False
 End Sub
 
 Private Sub p_resumenAcumulado_Click
@@ -3714,3 +3730,35 @@ Private Sub BUSCA_LongClick
 		End If
 	End If
 End Sub
+
+Private Sub l_descripcion_Click
+	l_descripcion.Visible = False
+End Sub
+
+Private Sub l_productividad_Click
+	l_descripcion.text = "Clientes con venta / Clientes totales"
+	l_descripcion.Visible = True
+End Sub
+
+Private Sub l_efectividad_Click
+	l_descripcion.Text = "Clientes visitados / Clientes totales"
+	l_descripcion.Visible = True
+End Sub
+
+Private Sub Panel1_Click
+	l_descripcion.Visible = False
+End Sub
+
+Private Sub Panel2_Click
+	l_descripcion.Visible = False
+End Sub
+
+Private Sub l_drop_Click
+	l_descripcion.text = "Clientes con venta / Clientes totales"
+	l_descripcion.Visible = True
+End Sub
+
+Private Sub l_efectiva_Click
+	l_descripcion.Text = "Clientes visitados / Clientes totales"
+	l_descripcion.Visible = True
+End Sub

B4A/KelloggsV4.b4a

@@ -887,7 +887,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 4.08.14
+	#VersionName: 4.08.18
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true

B4A/KelloggsV4.b4a.meta

@@ -63,7 +63,7 @@ ModuleBreakpoints9=
 ModuleClosedNodes0=
 ModuleClosedNodes1=
 ModuleClosedNodes10=
-ModuleClosedNodes11=1,3
+ModuleClosedNodes11=
 ModuleClosedNodes12=
 ModuleClosedNodes13=
 ModuleClosedNodes14=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,guardaProductoSin,944,0,Subs,guardaProductoSinGestion,923,0,C_Cliente,B_IMP_Click,1100,0,Visual Designer,pedido.bal,-100,2,Visual Designer,principal.bal,-100,4,C_Principal,Resumen_Click,2534,6,C_Principal,JobDone,971,0,C_Principal,cargar_Click,608,0,C_Principal,B4XPage_Created,218,2,C_Principal,B4XPage_Appear,474,6
+NavigationStack=C_Principal,P_RESUMEN_Click,3568,3,C_Principal,Panel2_Click,3743,0,C_Principal,l_productividad_Click,3729,6,C_Principal,l_drop_Click,3747,0,C_Principal,l_efectividad_Click,3734,4,C_Principal,l_efectiva_Click,3752,0,C_Principal,Panel1_Click,3739,0,C_Principal,B_OK_RES_Click,2443,0,Visual Designer,principal.bal,-100,6,C_Principal,B_BOLETA_Click,2777,0,C_Principal,b_cuotas_Click,2794,0
 SelectedBuild=0
 VisibleModules=1,28,11,3,26,23,29,12,4,13