22/11/23 - Se borran los clienets nuevos si no tienen venta.

B4A/C_Principal.bas

@@ -282,6 +282,7 @@ Sub B4XPage_Appear
 '		End If
 '	End If
 	If Subs.traeUltimaActividadBD <> "principal" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD)
+	borraClientesNuevosSinVenta
 	reqManager.Initialize(Me, Starter.DBReqServer)
 '	If Not(btAdmin.IsEnabled) Then btAdmin.Enable 'Si no esta prendido el BT, lo prendemos.
 	If kh.RD_Init_IsInitialized Then
@@ -381,13 +382,21 @@ Sub B4XPage_Appear
 '		If Not(File.Exists(File.DirInternal,"FOTO4.jpg")) Then Log("Falta foto4")
 		Cedis_Check = 0
 	End If
-	If Cedis_Check = 0 And l_ruta.Text <> 0 Then
-		Btn_CheckList.Visible = True
+	
+	Log(">>>>  CHECKLIST: |" & Cedis_Check & "|")
+	
+	Btn_CheckList.Visible = False
+	If Cedis_Check = 0 Then ' And l_ruta.Text <> 0
+		If l_ruta.Text <> 0 Then Btn_CheckList.Visible = True
 		B_MAPA_RUTA.Visible = False
+		NUEVO.Visible = False
+		B_PROXIMA.Visible = False
 	Else
 		'	PONER EN FALSE
 		Btn_CheckList.Visible = False
 		B_MAPA_RUTA.Visible = True
+		NUEVO.Visible = True
+		B_PROXIMA.Visible = True
 		If usuario = "JOSELUIS"  Then Btn_CheckList.Visible = True 'Mod por CHV - 211125
 	End If
 	contador_strem = 0
@@ -509,7 +518,7 @@ Sub cargar_Click
 	DateTime.DateFormat = "yyyyMMdd"
 	Dim hoy As String = DateTime.Date(DateTime.Now)
 '	If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy )
-	If kh.traeUsarCartaPorte Then 'Si necesitamos la carta porte ...
+	If kh.traeUsarCartaPorte Then 'Si se requiere la carta porte para cagar dia ...
 		If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ...
 			If logger Then LogColor("No hay carta porte.", Colors.Red)
 			descargaCartaPorte ' la descargamos.
@@ -2164,8 +2173,8 @@ Sub B_OK_PAS_Click
 		End If
 		P1.Visible = False
 		trabajar.Visible = True
-		B_PROXIMA.Visible =True
-		NUEVO.Visible =True
+'		B_PROXIMA.Visible =True
+'		NUEVO.Visible =True
 		BUSCA.Visible=True
 		connecta.Visible=True
 		Resumen.Visible= True
@@ -2175,7 +2184,7 @@ Sub B_OK_PAS_Click
 		Msgbox("Tiene que subir de nuevo la información","Atención") 'ignore
 		P1.Visible = False
 		trabajar.Visible = True
-		NUEVO.Visible =True
+'		NUEVO.Visible =True
 		BUSCA.Visible=True
 		connecta.Visible=True
 		Resumen.Visible= True
@@ -2186,8 +2195,8 @@ Sub B_OK_PAS_Click
 		If res = DialogResponse.POSITIVE Then
 			P1.Visible = False
 			trabajar.Visible = True
-			B_PROXIMA.Visible =True
-			NUEVO.Visible =True
+'			B_PROXIMA.Visible =True
+'			NUEVO.Visible =True
 			BUSCA.Visible=True
 			connecta.Visible=True
 			Resumen.Visible= True
@@ -2203,8 +2212,8 @@ Sub B_OK_PAS_Click
 		c.Close
 		P1.Visible = False
 		trabajar.Visible = True
-		B_PROXIMA.Visible =True
-		NUEVO.Visible =True
+'		B_PROXIMA.Visible =True
+'		NUEVO.Visible =True
 		BUSCA.Visible=True
 		connecta.Visible=True
 		Resumen.Visible= True
@@ -2218,8 +2227,8 @@ Sub B_OK_PAS_Click
 		If res = DialogResponse.POSITIVE Then
 			P1.Visible = False
 			trabajar.Visible = True
-			B_PROXIMA.Visible =True
-			NUEVO.Visible =True
+'			B_PROXIMA.Visible =True
+'			NUEVO.Visible =True
 			BUSCA.Visible=True
 			connecta.Visible=True
 			Resumen.Visible= True
@@ -3196,4 +3205,16 @@ Private Sub connecta_LongClick
 ''	TMP_ALMACEN, TMP_RUTA, TMP_USUARIO, TMP_FECHA_SINC, TMP_ID_CLIENTE, TMP_EVENTO, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_NOMBRE_CLIENTE,TMP_PRESICION
 '	cmd.Parameters = Array As Object( ALMACEN, cliente, evento, fecha, e_ruta.text, )
 '	reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
+End Sub
+
+'Borramos los clientes nuevosd que no tengan venta.
+Sub borraClientesNuevosSinVenta 'ignore
+	Private x As Cursor = Starter.skmt.ExecQuery("Select CAT_CL_CODIGO from kmt_info where CAT_CL_CODIGO like 'N%' and CAT_CL_CODIGO not in (Select pe_cliente from pedido)")
+	If x.RowCount > 0 Then
+		x.Position = 0
+		For i = 0 To x.RowCount - 1
+			Starter.skmt.ExecNonQuery($"delete from kmt_info where CAT_CL_CODIGO = '${x.GetString("CAT_CL_CODIGO")}'"$)
+			LogColor($"Cliente nuevo "${x.GetString("CAT_CL_CODIGO")}" BORRADO!!"$, Colors.red)
+		Next
+	End If
 End Sub