- Se agregaron las columnas para ruta y almacen en el cuestionario

- Se corrigió el query que envia el cuestionario a Intmex (antes lo mandaba a Durakelo)

B4A/C_Principal.bas

@@ -67,7 +67,6 @@ Sub Class_Globals
 	Dim p As PhoneId
 	Dim imei As String
 '	Dim SERVER As String
-	
 	Private inv As Button
 	Private P1 As Panel
 	Private CLAVE As EditText
@@ -92,7 +91,6 @@ Sub Class_Globals
 	Private Resumen As Button
 	Private L_CUANTOST As Label
 	Private img3 As ImageView
-	
 	Private ImageView3 As ImageView
 	Private ImageView5 As ImageView
 	Private L_TICKPROM As Label
@@ -103,23 +101,16 @@ Sub Class_Globals
 	Private hacer_ped As ImageView
 	Private nvo_cliente As ImageView
 	Private tickets_dia As ImageView
-	
 	Private l_monto_ks As Label
 	Private l_monto_kp As Label
 	Private l_monto_k As Label
-
 	Private l_monto_c1 As Label
 	Private l_monto_c2 As Label
 	Private l_monto_c3 As Label
-	
 	Private l_encuesta As Label
-	
-	
 	Private bpv1 As BatteryProgressView
 	Dim batterystatus(11) As Int
 	Private bu As BatteryUtilities
-
-	
 	Private Panel4 As Panel
 	Private L_NES As Label
 	Private L_REAL As Label
@@ -165,19 +156,14 @@ Sub Class_Globals
 	Private LPT As String
 	Private STEYIN As String
 	Private STEYOUT As String
-	
 	Private L_PRIO As Label
 	Private L_SECUND As Label
 	Private L_COMP As Label
-	
-	
 	Private stay_hh As String
 	Private stay_mi As String
 	Private stay_ss As String
-	
 	Dim sDate,sTime As String
 	Dim HORAINGRESO As String
-	
 	Private L_QUALA As Label
 	Private L_FERRERO As Label
 	Private L_SANMARCOS As Label
@@ -205,25 +191,19 @@ Sub Class_Globals
 	Private L_TOTAL_COMIS_1 As Label
 	Private B_OK_COMISS As Button
 	Private Panel_C As Panel
-	
 	Private TitleHeight As Int = 50dip
 	Private Title2Height As Int = 100dip
-	
 	Private DividerHeight As Int = 5dip
 	Private CLV1 As CustomListView
 	Private pnlTitle As B4XView
 	Private xui As XUI
 	Type TitleData (Title As String)
-	
 	Private B_MARCAS As Button
 	Private Panel5 As Panel
 	Private lblTitle As Label
 	Private B_OK_PANEL5 As Button
-	
-	
 	Private p_principal As Panel
 	Private p_mandaInfo As Panel
-	
 	Dim s As Cursor
 	Private Label22 As Label
 	Private l_rutasuplencia As Label
@@ -302,20 +282,16 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	d.Close
 	e.Close
 '	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
-
 	s = B4XPages.MainPage.skmt.ExecQuery("select RS_RUTA FROM RUTA_SUPLENCIA")
 	s.Position = 0
 	If s.RowCount = 0 Then
-		
 		Label22.Visible = False
 		l_rutasuplencia.Visible = False
-	
 	Else If s.RowCount > 0 Then
 		Label22.Visible = True
 		l_rutasuplencia.Visible = True
 		l_rutasuplencia.Text = s.GetString("RS_RUTA")
 	End If
-	
 	Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$)
 End Sub
 
@@ -568,7 +544,6 @@ Sub Subir_Click
 	S_CH.Visible = False
 	PB1.Visible = False
 	Resumen.Visible= False
-	
 	L_P_2.Text = "Envio de Pedidos"
 	L_P_3.Text = "Envio de Pedidos"
 	S_CH.Text = "EN PROCESO"
@@ -604,7 +579,6 @@ Sub Subir_Click
 
 		' ENVIO DE LOS CODIGOS QR
 		'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
-
 		c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
@@ -711,7 +685,6 @@ Sub Subir_Click
 		d.Close
 
 		' GEO CERCA
-
 		c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
@@ -726,7 +699,6 @@ Sub Subir_Click
 		c.Close
 
 		' LO DEL LIKE
-
 		c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
@@ -738,7 +710,8 @@ Sub Subir_Click
 				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
 		End If
-		c.Close'
+		c.Close
+
 		' DROP
 		t1.Initialize("T1", 30000) ' 1000 = 1 second
 		t1.Enabled = True
@@ -763,7 +736,7 @@ Sub Subir_Click
 				c.Position = x
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_CUESTIONARIO_DUR"
+				cmd.Name = "insert_CUESTIONARIO_INTMEX"
 				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
 				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_cuestionario")
 			Next