...

B4A/C_NuevoCliente.bas

@@ -105,6 +105,8 @@ Sub b_guardar_Click
 		sDate=DateTime.Date(DateTime.Now)
 		sTime=DateTime.Time(DateTime.Now)
 		c=Starter.skmt.ExecQuery("select CAT_CL_RUTA, CAT_CL_DIAS_VISITA FROM kmt_info WHERE CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'DIA_VISITA')")
+		Log(c.RowCount)
+		
 		If c.RowCount > 0 Then
 			c.Position=0
 			no_ruta= c.GetString("CAT_CL_RUTA")
@@ -125,6 +127,8 @@ Sub b_guardar_Click
 			Starter.skmt.ExecNonQuery("delete from CUENTAA")
 			Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
 			Subs.iniciaActividad("cliente")
+		Else
+			ToastMessageShow("No hay clientes para visitar el día de hoy.", true)
 		End If
 	End If
 End Sub