- Se activó el código para enviar las encuestas al final del día.

- Se corrigio la declaracion del tipo de venta (Starter.tipov) porque no se veian los productos.

B4A/B4XMainPage.bas

@@ -289,19 +289,17 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub Entrar_Click
+	user.Text = user.Text.Trim
 	If user.Text = "ROOT" Then
 		Starter.skmt.ExecNonQuery("delete from usuarioa")
 		Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
-
 		Starter.skmt.ExecNonQuery("delete from cat_almacen")
 		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
 		B4XPages.ShowPage("Principal")
 	End If
-
 	c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
 	c.Position=0
 	existe = c.GetString("EXISTE1")
-    
 	'existe = 1
 	If existe = 0 Then
 		'skmt.ExecNonQuery("delete from usuarioa")
@@ -310,7 +308,6 @@ Sub Entrar_Click
 		cmd.Name = "select_usuario_guna_DUR"
 		cmd.Parameters = Array As Object(user.Text, pass.Text)
 		reqManager.ExecuteQuery(cmd , 0, "usuario")
-		
 		Dim cmd As DBCommand
 		cmd.Initialize
 		cmd.Name = "select_version_DUR"
@@ -318,7 +315,6 @@ Sub Entrar_Click
 	Else
 		B4XPages.ShowPage("Principal")
 	End If
-	
 End Sub
 
 Sub JobDone(Job As HttpJob)

B4A/C_Cliente.bas

@@ -482,11 +482,11 @@ Sub gest_Click
 '		If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
 '		B4XPages.ShowPage("Productos")
 '	End If
+	Starter.tipov = "PREVENTA"
 	Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
 	If TOMAR_FOTO = 0 Then
 		Cuestionario
 	Else
-		Starter.tipov = "PREVENTA"
 		B4XPages.ShowPage("Productos")
 '	StartActivity(colonia2)
 '	Cuestionario
@@ -1315,11 +1315,11 @@ Sub B_VENTA_Click
 '		Starter.tipov = "VENTA"
 '		B4XPages.ShowPage("Productos")
 '	End If
+	Starter.tipov = "VENTA"
 	Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
 	If TOMAR_FOTO = 0 Then
 		Cuestionario
 	Else
-		Starter.tipov = "VENTA"
 '	StartActivity(colonia2)
 		B4XPages.ShowPage("Productos")
 '	Cuestionario
@@ -1610,12 +1610,10 @@ Sub B_E_NEXT_Click
 	'TOMAR_FOTO = 1
 	Cuestionario
 	'StartActivity(colonia2)
-
 End Sub
 
 Sub b_chk_e_Click
 	Panel10.Visible = False
-	
 	If Chk_1.Checked = True Then
 		Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_1_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
 	else if chk_2.Checked = True Then
@@ -1710,7 +1708,6 @@ Private Sub b_guadaenc_Click
 									c.Position = 0
 									Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 ))
 									c.Close
-									
 									If bandera = 1 Then
 										rb_p7si.Checked = False
 										rb_p7no.Checked = False

B4A/C_Principal.bas

@@ -481,18 +481,12 @@ Sub trabajar_Click
 			c.Close
 			skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
 '	skmt.ExecNonQuery("delete from CAT_GUNAPROD2 WHERE CAT_GP_ID IN (SELECT CAT_DP_ID FROM CAT_DETALLES_PAQ WHERE CAT_DP_IDPROD NOT IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD2) and CAT_DP_TIPO = 0)")
-	
 '	StartActivity(colonia)
 			B4XPages.ShowPage("Clientes")
 		End If
-		
 	End If
-	
-	
 End Sub
 
-
-
 Sub Subir_Click
 	Awake.KeepAlive(True)
 	CARGA = "SUBIR"
@@ -534,7 +528,6 @@ Sub Subir_Click
 		E1=skmt.ExecQuery2("Select  count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
 		E1.Position = 0
 		If E1.GetString("CUANTOS") > 0 Then
-		
 			c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
 			c.Position = 0
 			L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -543,19 +536,16 @@ Sub Subir_Click
 			L_ABORDO.Text = 0
 		End If
 		E1.Close
-
 		c=skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
 		c.Position =0
 		PERFIL = c.GetString("CUANTOS")
 		c.Close
-
 		If PERFIL > 0 Then
 			c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
 			c.Position =0
 			PERFIL = c.GetString("CAT_VA_VALOR")
 			c.Close
 		End If
-
 		c=skmt.ExecQuery2("select  count(*) AS CUANTOS  from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("NUMERO_PEDIDO"))
 		c.Position =0
 		Cuantos =  c.GetString("CUANTOS")
@@ -569,7 +559,6 @@ Sub Subir_Click
 			NUMERO_PEDIDO = 0
 		End If
 		skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
-
 		c=skmt.ExecQuery("select usuario from usuarioa")
 		c.Position = 0
 		usuario = c.GetString("USUARIO")
@@ -636,22 +625,23 @@ Sub Subir_Click
 			c.Close
 		End If
 
-'		c=skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
+		'ENCUESTAS
-'		'	S_CP.Text = "Envio Encuesta"
+		c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
-'		'	PB2.Progress = 1
+		'	S_CP.Text = "Envio Encuesta"
-'		If c.RowCount>0 Then
+		'	PB2.Progress = 1
-'			For i=0 To c.RowCount -1
+		If c.RowCount>0 Then
-'				c.Position=i
+			For i=0 To c.RowCount -1
-'				Dim cmd As DBCommand
+				c.Position=i
-'				cmd.Initialize
+				Dim cmd As DBCommand
-'				cmd.Name = "insert_encuesta_DUR"
+				cmd.Initialize
-'				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
+				cmd.Name = "insert_encuesta_DUR"
-'				reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
+				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
-'			Next
+				reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
-'		End If
+			Next
-'		c.Close
+		End If
-'		' PEDIO
+		c.Close
 
+'		' PEDIDO
 		skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
 
 		If PERFIL = "V-ESPECIAL" Then
@@ -916,6 +906,7 @@ Sub cargar_Click
 	cmd.Initialize
 	cmd.Name = "select_cat_gunaprod2_DUR"
 	cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
+	log(ALMACEN & "|" & e_ruta.Text)
 	reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
 
 	cmd.Initialize
@@ -2321,7 +2312,6 @@ Sub Resumen_Click
 	trabajar.Visible = False
 	B_PROXIMA.Visible =False
 	Btn_UbicarR.Visible=False
-
 	NUEVO.Visible =False
 	BUSCA.Visible=False
 	connecta.Visible=False
@@ -2329,19 +2319,16 @@ Sub Resumen_Click
 	SUBIR_P.Visible = False
 	cargar.Visible=False
 	Resumen.Visible= False
-	
 	Private r As ResultSet = Starter.skmt.ExecQuery($"Select  CAT_GP_CLASIF, PEDIDO.* from pedido join cat_gunaprod on PE_PROID = CAT_GP_ID where CAT_GP_CLASIF = 'COLGATE'"$)
 	Private cRes As String = 0
 	Do While r.NextRow
 		cRes = cRes + r.GetString("PE_COSTO_TOT")
 	Loop
 	l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True)
-	
 	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
 	ToastMessageShow(Cuantos , True)
-
 	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0 and  cat_cl_codigo <> 0")
 	D.Position=0
 	b.Close
@@ -2404,29 +2391,23 @@ Sub Resumen_Click
 			l_monto_kc.Text = c.GetString("MONTO_DIA")
 			c.Close
 			Log("Cereal=" & l_monto_kc.text)
-			
 		Else
 			ImageView12.Bitmap = LoadBitmap(File.DirAssets, "unilever.jpg")
 			c=skmt.ExecQuery2("select sum(pe_cant) as CAMBIOS from pedido where substr(pe_pronombre,1,6) = ?", Array As String("CAMBIO"))
 			c.Position = 0
 			l_cambios.Text = c.GetString("CAMBIOS")
 			c.Close
-		
 			c=skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_CLASIF = 'UNILEVER' union Select CAT_GP_ID from cat_gunaprod2 where CAT_GP_CLASIF = 'UNILEVER')")
 			c.Position = 0
 			l_monto_k.Text = c.GetString("MONTO_DIA")
 			c.Close
-	
 			l_monto_kp.Text = "0"
 			l_monto_ks.Text = "0"
 		End If
-
 		Log($"${l_monto_k.text}, ${l_monto_kp.text}, ${l_monto_ks.text}"$)
-	
 		E1=skmt.ExecQuery2("Select count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("VENTA"))
 		E1.Position = 0
 		If E1.GetString("CUANTOS") > 0 Then
-		
 			c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
 			c.Position = 0
 			L_VENTA.Text = c.GetString("MONTO_DIA")
@@ -2435,11 +2416,9 @@ Sub Resumen_Click
 			L_VENTA.Text = 0
 		End If
 		E1.Close
-		
 		E1=skmt.ExecQuery2("Select  count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
 		E1.Position = 0
 		If E1.GetString("CUANTOS") > 0 Then
-		
 			c=skmt.ExecQuery2("Select ifnull(sum(PE_COSTO_TOT), 0) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("PREVENTA"))
 			c.Position = 0
 			L_PREVENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
@@ -2448,8 +2427,6 @@ Sub Resumen_Click
 			L_PREVENTA.Text = 0
 		End If
 		E1.Close
-		
-		
 		E1=skmt.ExecQuery2("Select  count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
 		E1.Position = 0
 		If E1.GetString("CUANTOS") > 0 Then
@@ -2462,12 +2439,10 @@ Sub Resumen_Click
 			L_ABORDO.Text = 0
 		End If
 		E1.Close
-
 '		c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where (CAT_GP_CLASIF = ? Or CAT_GP_CLASIF = ?) And CAT_GP_TIPO = ?)", Array As String("KELLOGGS", "KELLOGGS 2","SNACK"))
 '		c.Position = 0
 '		l_monto_ks.Text = c.GetString("MONTO_DIA")
 '		c.Close
-
 		c=skmt.ExecQuery("select  sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA  from pedido_cliente where pc_cliente <> 0")
 		b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
 		'where pc_fecha = ?", Array As String(fecha)
@@ -2498,12 +2473,9 @@ Sub Resumen_Click
 		Else
 			ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
 		End If
-	  
 		c.Close
 		b.Close
 	End If
-	
-	
 End Sub
 
 Sub B_PROXIMA_Click
@@ -2514,8 +2486,6 @@ Sub B_PROXIMA_Click
 '	StartActivity(colonia2)
 End Sub
 
-
-
 Sub Timer_GIF1_Tick
 	Timer_GIF1.Enabled = False
 	Frame1 = Frame1 + 1
@@ -2528,36 +2498,23 @@ Sub Timer_GIF1_Tick
 End Sub
 
 Sub load_gif
-
 	gif1.DisposeFrames
-	
-
 	gif1.Load(ruta, "espera.gif")
 	Frame1 = 0
-	
-	
 	Timer_GIF1.Interval = gif1.Delay(Frame1)
 	i_gif.Bitmap = gif1.Frame(Frame1)
-	
 	Timer_GIF1.Initialize("TG", 40) ' 1000 = 1 second
-
 	Timer_GIF1.Enabled = True
-	
-	
-	
 	gif1.SaveFrame(0, ruta, "frame1.png", "P", 85)
 	gif1.SaveFrame(0, ruta, "frame1.jpg", "J", 85)
-
 End Sub
 
 Sub VALIDA_INFO
-
 	cmd.Initialize
 	cmd.Name = "select_datos_enviados_pe"
 	cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
 	reqManager.ExecuteQuery(cmd , 0, "pedido_env")
 	PASO_info = 0
-	
 	For I = 0 To 2
 		T3.Initialize("T3", 8000) ' 1000 = 1 second
 		T3.Enabled = True
@@ -2566,7 +2523,6 @@ Sub VALIDA_INFO
 			I = 0
 		End If
 	Next
-	
 End Sub
 
 
@@ -2578,16 +2534,15 @@ Sub B_MARCAS_Click
 	pnlTitle.LoadLayout("CellTitle")
 	c=skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
 	CLV1.Clear
-	
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
 			AddTitle(c.GetString("CAT_GP_CLASIF"))
 			CLV1.AddTextItem("TOTAL VENTA Y PREVENTA = $" & c.GetString("TOTAL"),"1")
-			
 		Next
 	End If
 End Sub
+
 Sub AddTitle (Title As String)
 	Dim p_MARCAS As B4XView = xui.CreatePanel("")
 	p_MARCAS.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
@@ -2598,10 +2553,8 @@ Sub AddTitle (Title As String)
 	CLV1.Add(p_MARCAS, td)
 End Sub
 
-
 Sub B_OK_PANEL5_Click
 	Panel5.Visible = False
-
 End Sub
 
 Sub e_ruta_TextChanged (Old As String, New As String)
@@ -2633,13 +2586,11 @@ Sub SUBIR_P_Click
 	trabajar.Visible = False
 	B_PROXIMA.Visible =False
 	Btn_UbicarR.Visible=False
-	
 	NUEVO.Visible =False
 	BUSCA.Visible=False
 	connecta.Visible=False
 	Subir.Visible=False
 	SUBIR_P.Visible = False
-	
 	cargar.Visible=False
 	L_P_1.Visible = False
 	S_CC.Visible = False
@@ -2647,7 +2598,6 @@ Sub SUBIR_P_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"
@@ -2658,14 +2608,12 @@ Sub SUBIR_P_Click
 	conteo = 0
 	'i_gif.Visible = True
 '	load_gif
-
 	PASO = 1
 	'End If
 	If PASO =1 Then
 		E1=skmt.ExecQuery2("Select  count(*) As CUANTOS from pedido where PE_TIPO = ?", Array As String("ABORDO"))
 		E1.Position = 0
 		If E1.GetString("CUANTOS") > 0 Then
-		
 			c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("ABORDO"))
 			c.Position = 0
 			L_ABORDO.Text = c.GetString("MONTO_DIA")
@@ -2674,10 +2622,7 @@ Sub SUBIR_P_Click
 			L_ABORDO.Text = 0
 		End If
 		E1.Close
-
-	
 		skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
-
 		c=skmt.ExecQuery("select usuario from usuarioa")
 		c.Position = 0
 		usuario = c.GetString("USUARIO")
@@ -2696,12 +2641,8 @@ Sub SUBIR_P_Click
 		reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
 		d3.Close
 		cuantos_pedidosc = 0
-	
-	
 		' PEDIO
-	
 		skmt.ExecNonQuery("update PEDIDO set PE_FOLIO = rowid ")
-
 		'
 '	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FOLIO"))
 '	c.Position =0 
@@ -2730,8 +2671,6 @@ Sub SUBIR_P_Click
 '				cmd.Parameters = Array As Object(armafolio,l_ruta.Text , "1")
 '				reqManager.ExecuteQuery(cmd , 0, "folio")
 
-	
-		
 		c=skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO,PE_TIPO FROM PEDIDO WHERE PE_CLIENTE = 0")
 		d=skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO WHERE PE_CLIENTE = 0")
 		d.Position=0
@@ -2740,7 +2679,6 @@ Sub SUBIR_P_Click
 			For i=0 To c.RowCount -1
 				c.Position=i
 				TIEMPO =  TIEMPO + 1
-					
 				If TIEMPO  > 20 Then
 					If L_P_2.Text = "Envio de Pedidos" Then
 						L_P_2.Text = "Envio de Pedidos --"
@@ -2757,7 +2695,6 @@ Sub SUBIR_P_Click
 					T3.Enabled = True
 					Wait For  t3_tick
 					TIEMPO = 0
-			 	
 				End If
 				conteo = conteo + 1
 				cuantos_ped = D.GetString("CUANTOS_PEDIDO")
@@ -2767,7 +2704,6 @@ Sub SUBIR_P_Click
 				cmd.Name = "insert_pedido_DUR"
 				cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), c.GetString("PE_TIPO"))
 				reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
-
 			Next
 			c.Close
 		End If
@@ -2791,7 +2727,6 @@ Sub b_e_resumen_Click
 '	reqManager.ExecuteCommand(cmd,"inst_visitas")
 End Sub
 
-
 'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
 Sub checaPedido
 	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")

B4A/C_Productos.bas

@@ -1330,9 +1330,11 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
 	If p.IsInitialized Then
 '		Log($"YA HAY RESULTSET ${p.RowCount}"$)
 	Else
-'		Log("NO HAY RESULTSET")
+		Log("NO HAY RESULTSET")
 '		Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
 		Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+		Log("|" & Starter.tipov & "|")
+		Log($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
 	End If
 
 	Do While p.NextRow

B4A/Durakelo.b4a

@@ -1398,7 +1398,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo
 	#VersionCode: 1
-	#VersionName: 4.05.22
+	#VersionName: 4.05.24
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Durakelo.b4a.meta

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,b_encuesta_1_Click,2074,0,C_Cliente,GPS_LocationChanged,397,0,B4XMainPage,B4XPage_Created,148,0,C_Cliente,B_E_NEXT_Click,1607,0,C_Cliente,B_VENTA_Click,1314,1,C_Cliente,gest_Click,482,1,C_Cliente,Class_Globals,161,4,C_Cliente,B4XPage_Appear,219,6,C_Cliente,Cuestionario,2031,6,C_Cliente,B4XPage_CloseRequest,495,6
+NavigationStack=C_Principal,B_OK_PANEL5_Click,2560,0,C_Principal,b_e_resumen_Click,2732,0,C_Cliente,B4XPage_Appear,254,0,C_Principal,SUBIR_P_Click,2717,0,C_Principal,trabajar_Click,476,0,C_Principal,Subir_Click,636,1,B4XMainPage,Entrar_Click,305,5,Main,Process_Globals,20,0,Visual Designer,Cliente.bal,-100,1,B4XMainPage,JobDone,366,0
 SelectedBuild=0
 VisibleModules=2,10,4,19,5,6,8,9,11,24