- VERSION 5.03.20

- Se agregó que ponga el segmento en cliente al "appear", porque antes etsaba solo en el "create". - Se puso un try/catch en "Foto" en "SetPictureSize" porque a veces mabdaba error al voltearvel celular.
2026-04-20 19:49:12 +00:00 · 2025-03-24 10:08:53 -06:00
parent f44c7ed35e
commit 48c0a9294c
8 changed files with 63 additions and 49 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -150,7 +150,7 @@ Sub Class_Globals
 	Dim ENVIADA As String
 	Dim PORENVIAR As String
 	Private Btn_CheckList As Button
-	Dim Cedis_Check As String
+	Dim Cedis_Check As String = "0"
 	Private TIEMPO As String
 	Private RUTA1 As Label
 	Private L_ABORDO As Label
@@ -190,7 +190,7 @@ Sub Class_Globals
 	Private p_progress1 As Panel
 	Private l_porcentaje As Label
 	Private detenerLoop As Boolean = False
-	Dim logger As Boolean = True
+	Dim logger As Boolean = False
 	Private admin As BluetoothAdmin
 	Public BluetoothState, ConnectionState As Boolean
 	Private ion As Object
@@ -243,13 +243,20 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	b.Close
 	e = Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
 	e.Position = 0
-	f = Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
-	f.Position = 0
-	l_ruta.Text = f.GetString("CAT_CL_RUTA")
+	f = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info limit 1")
+	l_ruta.Text = "-"
+	If f.RowCount > 0 Then
+		Log(1)
+		f.Position = 0
+		Log($"Ruta desde BD: ${f.GetString("CAT_CL_RUTA")}"$)
+		l_ruta.Text = f.GetString("CAT_CL_RUTA")
+	End If
 	f.Close
-	If l_ruta.Text = 0 Then
-		l_ruta.Text = 0
+	If l_ruta.Text = "-" Then
+		Log(2)
+		l_ruta.Text = "-"
 	Else
+		Log(3)
 		f = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
 		f.Position = 0
 		l_ruta.Text = f.GetString("CAT_CL_RUTA")
@@ -385,16 +392,21 @@ Sub B4XPage_Appear
 	b.Close
 	e = Starter.skmt.ExecQuery2("select count(*) as POR_VISITAR from kmt_info where cat_cl_codigo <> 0 and CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) ", Array As String("DIA_VISITA"))
 	e.Position = 0
-	f = Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info where cat_cl_codigo <> 0")
-	f.Position = 0
-	l_ruta.Text = f.GetString("CAT_CL_RUTA")
+	l_ruta.Text = "-"
+	f = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where cat_cl_codigo <> 0 limit 1")
+	If f.RowCount > 0 Then
+		f.Position = 0
+		l_ruta.Text = f.GetString("CAT_CL_RUTA")
+	End If
 	f.Close
 	If l_ruta.Text = 0 Then
 		l_ruta.Text = 0
 	Else
 		f = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
-		f.Position = 0
-		l_ruta.Text = f.GetString("CAT_CL_RUTA")
+		If f.RowCount > 0 Then
+			f.Position = 0
+			l_ruta.Text = f.GetString("CAT_CL_RUTA")
+		End If
 		f.Close
 	End If
 	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
@@ -423,7 +435,7 @@ Sub B4XPage_Appear
 '	Log(">>>>  CHECKLIST: |" & Cedis_Check & "|")
 	Btn_CheckList.Visible = False
 	If Cedis_Check = 0 Then ' And l_ruta.Text <> 0
-		If l_ruta.Text <> 0 Then
+		If l_ruta.Text <> 0 And l_ruta.Text <> "-" Then
 			Btn_CheckList.BringToFront
 			Btn_CheckList.Visible = True
 		End If
@@ -465,9 +477,9 @@ Sub B4XPage_Appear
 			abordoImpreso = True
 		End If	
 	End If
-	Log($"#####   ABORDO IMPRESO = ${abordoImpreso}"$)
+'	Log($"#####   ABORDO IMPRESO = ${abordoImpreso}"$)
 	Private ab As ResultSet = Starter.skmt.ExecQuery("select * from PEDIDO where PE_CLIENTE = '0'")
-	Log($"###  HAY ABORDO: ${ab.RowCount}"$)
+'	Log($"###  HAY ABORDO: ${ab.RowCount}"$)
 	Do While ab.NextRow
 		If Not(abordoImpreso) Then
 			LogColor("BORRAMOS PEDIDO DE ABORDO PORQUE NO ESTA IMPRESO", Colors.red)
@@ -755,10 +767,8 @@ Sub cargar_Click
 		cmd.Name = "SELECT_HIST_ENCUESTA_KELL"
 		cmd.Parameters = Array As Object( e_ruta.text, ALMACEN,e_ruta.text, ALMACEN,e_ruta.text, ALMACEN,e_ruta.text, ALMACEN )
 		reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
-		Log($"${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN}"$)
-		
-'		ruta , ALMACEN, ruta , ALMACEN, ruta, ALMACEN, ruta, ALMACEN,
-	
+'		Log($"${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN},${e_ruta.text}, ${ALMACEN}"$)
+
 		cmd.Initialize
 		cmd.Name = "SELECT_EXHIBIDOR_RUTA_KELL"
 		cmd.Parameters = Array As Object( e_ruta.text )
@@ -1730,7 +1740,7 @@ Sub JobDone(Job As HttpJob)
 				If RESULT.Rows.Size = 0 Then ToastMessageShow("No hay ruta para ese usuario", True)
 				For Each records() As Object In RESULT.Rows
 					Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
-					If Starter.Logger Then Log("|"&VALIDO&"|")
+'					If Starter.Logger Then Log("|"&VALIDO&"|")
 '					If Logger Then Log(records(RESULT.Columns.Get("CAT_RU_CATEGORIA")))
 					Starter.rutaTipo = records(RESULT.Columns.Get("CAT_RU_CATEGORIA")) 'Traemos el tipo de ruta para que cuando sean foraneas no carguen la carta porte todos los dias.
 					If Starter.Logger Then Log($"=========    TIPO RUTA = ${Starter.rutaTipo}"$)
@@ -2080,10 +2090,9 @@ Sub JobDone(Job As HttpJob)
 	Job.Release

 '	if carga = "SUBIR" then logcolor(reqManager.reqsList, Colors.blue)
-
-	If Starter.Logger Then Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
-	If Starter.Logger Then Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
-	If Starter.Logger Then Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
+'	If Starter.Logger Then Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
+'	If Starter.Logger Then Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
+'	If Starter.Logger Then Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
 	
 	If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
 		LogColor("TERMINAMOS", Colors.red)
@@ -2091,7 +2100,6 @@ Sub JobDone(Job As HttpJob)
 	End If

 	Log(reqManager.requestTimes(Job.Tag))
-
 '	Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
 '	reqManager.PrintTable(RESULT)2
 End Sub
@@ -2194,7 +2202,7 @@ Sub connecta_Click
 	cmd.Initialize
 	cmd.Name = "select_ruta4_KELL"
 	cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario)
-	Log($"*******  Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
+'	Log($"*******  Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
 	reqManager.ExecuteQuery(cmd , 0, "ruta")
 	e_ruta.Enabled = False
 	If e_ruta.Text = "KMTSKLL1" Then e_ruta.Enabled = True