encuestas, tickets, arreglo de carga día, preventa de V-ESPECIAL se hace venta

4_01_18_2

B4A/B4XMainPage.bas

@@ -154,6 +154,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",Starter.skmt))
 	End If
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA3 (HE_CLIE TEXT, HE_TIPO TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA2 (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_PRECIO TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")

B4A/C_Cliente.bas

@@ -143,6 +143,12 @@ Sub Class_Globals
 	Private et_pregunta2 As EditText
 	Private cb_pregunta1 As B4XComboBox
 	Private Label1 As Label
+	Private sv_encuesta As ScrollView
+	Private p_encuestas As Panel
+	Dim itemselect As String
+	Dim itemselect2 As String
+	Dim pregunta7 As String
+	Dim bandera As Int
 End Sub
 
 Sub initialize
@@ -312,6 +318,48 @@ Sub B4XPage_Appear
 		gest.Visible = True
 	End If
 '	Log(">>>>>>>>>>>> "&Starter.tipov)
+	If sv_encuesta.Visible = False Then
+		b_factura.Visible = False
+		B_EXIBI.Visible = True
+		HIST.Visible = True
+		Tar.Visible = True
+		Tels.Visible = True
+		B_VENTA.Visible = True
+		B_IMP.Visible = True
+		gest.Visible = True
+		B_IMP2.Visible = True
+		B_INV.Visible = True
+		Guardar.Visible = True
+	Else if sv_encuesta.Visible = True Then
+		b_factura.Visible = False
+		B_EXIBI.Visible = False
+		HIST.Visible = False
+		Tar.Visible = False
+		Tels.Visible = False
+		B_VENTA.Visible = False
+		B_IMP.Visible = False
+		gest.Visible = False
+		B_IMP2.Visible = False
+		B_INV.Visible = False
+		Guardar.Visible = False
+End If
+	
+	
+	c=Starter.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
+	Log(perfil&"-------------------------")
+	If perfil = "V-ESPECIAL" Then
+		c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
+		If c.RowCount > 0 Then
+		For i = 0 To c.RowCount -1
+			c.Position = i
+			Starter.skmt.ExecNonQuery2("Update PEDIDO SET PE_PRECIO2 = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
+			Starter.skmt.ExecNonQuery("Update PEDIDO SET PE_TIPO = 'VENTA' WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+		Next
+		End If
+	End If
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -331,20 +379,61 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 End Sub
 
 Sub gest_Click
-''	1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
+'	1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
-'	If 1 = 1 Then
+	c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
-'		'2=2 ----> si no esta en el historico local mostrar encuesta
+	If c2.RowCount = 0 Then		
-'		c = Starter.skmt.ExecQuery2("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA) ",Array As String())
+'		2=2 ----> si no esta en el historico local mostrar encuesta
-'		If  Then
+		c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
-'			
+		If c.RowCount = 0  Then
-'		End If
+			b_factura.Visible = False
-'	Else
+			B_EXIBI.Visible = False
-'		
+			HIST.Visible = False
-''	End If
+			Tar.Visible = False
-	Starter.tipov = "PREVENTA"
+			Tels.Visible = False
-	B4XPages.ShowPage("Productos")
+			B_VENTA.Visible = False
-	' StartActivity(colonia2)
+			B_IMP.Visible = False
-	cuestionario
+			gest.Visible = False
+			B_IMP2.Visible = False
+			B_INV.Visible = False
+			Guardar.Visible = False
+			sv_encuesta.Visible = True
+			sv_encuesta.Height = Root.Height
+			sv_encuesta.Width = Root.Width
+			sv_encuesta.Panel.LoadLayout("encuesta")
+			sv_encuesta.Panel.Height = p_encuestas.Height
+			p_encuestas.Width = Root.Width
+			
+			Dim items As List
+			items.Initialize
+			items.Add("Selecciona una opción")
+			items.Add("ESQUINA")
+			items.Add("CALLE")
+			items.Add("AVENIDA")
+			cb_pregunta1.SetItems(items)
+			itemselect = "Selecciona una opción"
+			
+			Dim items2 As List
+			items2.Initialize
+			items2.Add("Selecciona una opción")
+			items2.Add("1 persona")
+			items2.Add("2 personas")
+			items2.Add("Mas de 2 personas")
+			cb_pregunta8.SetItems(items2)
+			itemselect2 = "Selecciona una opción"
+			
+			bandera = 2
+		Else
+			Starter.tipov = "PREVENTA"
+			B4XPages.ShowPage("Productos")
+		End If
+	Else
+		Starter.tipov = "PREVENTA"
+		B4XPages.ShowPage("Productos")
+	End If
+'	Starter.tipov = "PREVENTA"
+'	B4XPages.ShowPage("Productos")
+''	StartActivity(colonia2)
+'	cuestionario
 End Sub
 
 Sub Tels_Click
@@ -354,7 +443,9 @@ Sub Tels_Click
 End Sub
 
 Private Sub B4XPage_CloseRequest As ResumableSub
-	If Subs.hayPedido Then
+	If sv_encuesta.Visible = True Then
+		Return False
+	Else If Subs.hayPedido Then
 		ToastMessageShow("Hay VENTA, por favor presiona GUARDAR para continuar.", True)
 		Return False
 	Else
@@ -464,12 +555,17 @@ Sub B_IMP_Click
 	perfil = c.GetString("CUANTOS")
 	c.Close
 	
-	If perfil > 0 Then
+'	If perfil > 0 Then
 		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+		If c.RowCount > 0 Then
 		c.Position =0
 		perfil = c.GetString("CAT_VA_VALOR")
 		c.Close
-	End If
+		End If
+		LogColor(perfil,Colors.Magenta)
+'	End If
+	
+	
 	
 	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
@@ -578,15 +674,20 @@ Sub B_IMP_Click
 		s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("PREVENTA"))
 		s.Position =0
 		If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
-			Printer1.WriteString("Descuento:     $" & 	 (s.GetString("TOTAL2") -  s.GetString("TOTAL")) &  CRLF)
+			Dim totaltotaltoal As Float = s.GetString("TOTAL2") -  s.GetString("TOTAL")
+			Printer1.WriteString("Descuento:     $" & 	NumberFormat2(totaltotaltoal, 1, 3, 2, False) &  CRLF)
 		End If
 		Printer1.WriteString("Total Preventa:   $" & s.GetString("TOTAL") &  CRLF)
 		s.Close
-	
+		c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
+		C.Position=0
+		Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
+		c.Close
+		Printer1.WriteString(" " &  CRLF)
 	Else
 		Printer1.WriteString("-----------PREVENTA-----------" &  CRLF)
 		' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
-		s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PROID", Array As String("PREVENTA"))
+		s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PROID", Array As String("PREVENTA","DUR"))
 		If S.RowCount>0 Then
 			For i=0 To S.RowCount -1
 				S.Position=i
@@ -613,6 +714,7 @@ Sub B_IMP_Click
 			Next
 		End If
 		s.Close
+		Printer1.WriteString(" " &  CRLF)
 		s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_TIPO = ? and LENGTH(PE_CEDIS) > 3  AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
 		If S.RowCount>0 Then
 			Printer1.WriteString("----PROMOS----" &  CRLF)
@@ -639,7 +741,37 @@ Sub B_IMP_Click
 					BLANCO = " "
 				End If
 			Next
-			Printer1.WriteString("--FIN PROMOS----" &  CRLF)
+			Printer1.WriteString(" " &  CRLF)
+		End If
+		s.Close
+		
+		Printer1.WriteString("-------------RMI..-----------" &  CRLF)
+		' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
+		s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PROID", Array As String("PREVENTA","DUR"))
+		If S.RowCount>0 Then
+			For i=0 To S.RowCount -1
+				S.Position=i
+				If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+					Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+				Else
+				
+					Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+					TAMANO = s.GetLong("L_CANT") + TAMANO
+					TAMANO = s.GetLong("L_COSTOU") + TAMANO
+					TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+					ESPACIO = ESPACIO - TAMANO
+	
+					For E=0 To ESPACIO -1
+						BLANCO = " " & BLANCO
+					Next
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+					TAMANO = 0
+					ESPACIO = 21
+					BLANCO = " "
+				End If
+			Next
 		End If
 		s.Close
 		
@@ -650,6 +782,10 @@ Sub B_IMP_Click
 		'	End If
 		Printer1.WriteString("Total Preventa:   $" & s.GetString("TOTAL") &  CRLF)
 		s.Close
+		c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
+		C.Position=0
+		Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
+		c.Close
 	
 	End If
 	Printer1.WriteString(" " &  CRLF)
@@ -678,12 +814,13 @@ Sub B_IMP2_Click
 	perfil = c.GetString("CUANTOS")
 	c.Close
 	
-	If perfil > 0 Then
+	c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
-		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+	If c.RowCount > 0 Then
 		c.Position =0
 		perfil = c.GetString("CAT_VA_VALOR")
 		c.Close
 	End If
+	LogColor(perfil,Colors.Magenta)
 	
 	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
@@ -758,10 +895,10 @@ Sub B_IMP2_Click
 	Printer1.WriteString("C.P.: " & la_cp.Text &  CRLF)
 	Printer1.WriteString("Entre calle1: " & l_entre1.Text &  CRLF)
 	Printer1.WriteString("Entre Calle2: " & l_entre2.Text &  CRLF)
-	
+	Printer1.WriteString(" " &  CRLF)
 	Printer1.WriteString("-----------ENTREGA------------" &  CRLF)
 	
-	s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PRONOMBRE", Array As String("VENTA"))
+	s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS <> ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PRONOMBRE", Array As String("VENTA","DUR"))
 	If S.RowCount>0 Then
 		For i=0 To S.RowCount -1
 			S.Position=i
@@ -788,10 +925,10 @@ Sub B_IMP2_Click
 		Next
 	End If
 	s.Close
-	
+	Printer1.WriteString(" " &  CRLF)
 	s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_CEDIS, PE_COSTOU", Array As String("VENTA"))
 	If S.RowCount>0 Then
-		Printer1.WriteString("----PROMOS----" &  CRLF)
+		Printer1.WriteString("-----------PROMOS-------------" &  CRLF)
 
 		For i=0 To S.RowCount -1
 			S.Position=i
@@ -817,16 +954,59 @@ Sub B_IMP2_Click
 			End If
 
 		Next
-		Printer1.WriteString("--FIN PROMOS----" &  CRLF)
+		Printer1.WriteString(" " &  CRLF)
 
 	End If
 	s.Close
 	
+	Printer1.WriteString("-------------RMI--------------" &  CRLF)
+	
+	s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? AND PE_CEDIS = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PRONOMBRE", Array As String("VENTA","DUR"))
+	If S.RowCount>0 Then
+		For i=0 To S.RowCount -1
+			S.Position=i
+			If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+				Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+			Else
+				
+				Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+				TAMANO = s.GetLong("L_CANT") + TAMANO
+				TAMANO = s.GetLong("L_COSTOU") + TAMANO
+				TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+				ESPACIO = ESPACIO - TAMANO
+	
+				For E=0 To ESPACIO -1
+					BLANCO = " " & BLANCO
+				Next
+				Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+				TAMANO = 0
+				ESPACIO = 21
+				BLANCO = " "
+			End If
+		Next
+	End If
+	s.Close
+	
 	Printer1.WriteString(" " &  CRLF)
+	s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
+	s.Position =0
+	If perfil = "V-ESPECIAL" Then
+	If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
+		Dim totaltotaltoal As Float = s.GetString("TOTAL2") -  s.GetString("TOTAL")
+		Printer1.WriteString("Descuento:     $" & 	NumberFormat2(totaltotaltoal, 1, 3, 2, False) &  CRLF)
+	End If
+	End If
+	s.Close
 	s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
 	s.Position =0
 	Printer1.WriteString("Total entrega:   $" & s.GetString("TOTAL") &  CRLF)
 	s.Close
+	c=Starter.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
+	C.Position=0
+	Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
+	c.Close
 '	Printer1.WriteString("------------VENTA-------------")
 '	Printer1.WriteString("TOTAL COMPRA: $:" & total_cliente)
 	Printer1.WriteString(" " &  CRLF)
@@ -985,10 +1165,62 @@ Sub B_INV_Click
 End Sub
 
 Sub B_VENTA_Click
-	Starter.tipov = "VENTA"
+	
-	'StartActivity(colonia2)
+	c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String("K001"))
-	B4XPages.ShowPage("Productos")
+	If c.RowCount = 0 Then
-	cuestionario
+'		2=2 ----> si no esta en el historico local mostrar encuesta
+		c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
+		If c.RowCount = 0  Then
+			b_factura.Visible = False
+			B_EXIBI.Visible = False
+			HIST.Visible = False
+			Tar.Visible = False
+			Tels.Visible = False
+			B_VENTA.Visible = False
+			B_IMP.Visible = False
+			gest.Visible = False
+			B_IMP2.Visible = False
+			B_INV.Visible = False
+			Guardar.Visible = False
+			sv_encuesta.Visible = True
+			sv_encuesta.Height = Root.Height
+			sv_encuesta.Width = Root.Width
+			sv_encuesta.Panel.LoadLayout("encuesta")
+			sv_encuesta.Panel.Height = p_encuestas.Height
+			p_encuestas.Width = Root.Width
+			
+			Dim items As List
+			items.Initialize
+			items.Add("Selecciona una opción")
+			items.Add("ESQUINA")
+			items.Add("CALLE")
+			items.Add("AVENIDA")
+			cb_pregunta1.SetItems(items)
+			itemselect = "Selecciona una opción"
+			
+			Dim items2 As List
+			items2.Initialize
+			items2.Add("Selecciona una opción")
+			items2.Add("1 persona")
+			items2.Add("2 personas")
+			items2.Add("Mas de 2 personas")
+			cb_pregunta8.SetItems(items2)
+			itemselect2 = "Selecciona una opción"
+			
+			bandera = 1
+		Else
+			Starter.tipov = "VENTA"
+			B4XPages.ShowPage("Productos")
+		End If
+	Else
+		Starter.tipov = "VENTA"
+		B4XPages.ShowPage("Productos")
+	End If
+	
+'	Starter.tipov = "VENTA"
+'	'StartActivity(colonia2)
+'	B4XPages.ShowPage("Productos")
+'	cuestionario
 End Sub
 
 Sub b_factura_Click
@@ -1271,9 +1503,145 @@ Sub b_chk_e_Click
 End Sub
 
 Private Sub cb_pregunta1_SelectedIndexChanged (Index As Int)
-	
+	itemselect = cb_pregunta1.SelectedItem
 End Sub
 
 Private Sub cb_pregunta8_SelectedIndexChanged (Index As Int)
-	
+	itemselect2 = cb_pregunta8.SelectedItem
+End Sub
+
+Private Sub b_guadaenc_Click
+	Starter.skmt.ExecNonQuery("Delete from HIST_ENCUESTA WHERE HE_CLIE IN (SELECT CUENTA FROM CUENTAA)")
+	If itemselect <> "Selecciona una opción" Then
+		DateTime.DateFormat = "MM/dd/yyyy"
+		DateTime.TimeFormat = "HH:mm:ss"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+		c.Position = 0
+		Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect,sDate&" "&sTime,2 ))
+		c.Close
+		If et_pregunta2.Text <> "" Then
+			DateTime.DateFormat = "MM/dd/yyyy"
+			DateTime.TimeFormat = "HH:mm:ss"
+			sDate=DateTime.Date(DateTime.Now)
+			sTime=DateTime.Time(DateTime.Now)
+			c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+			c.Position = 0
+			Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta2.Text,sDate&" "&sTime,1 ))
+			c.Close
+			If et_pregunta3.Text <> "" Then
+				DateTime.DateFormat = "MM/dd/yyyy"
+				DateTime.TimeFormat = "HH:mm:ss"
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+				c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+				c.Position = 0
+				Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta3.Text,sDate&" "&sTime,1 ))
+				c.Close
+				If et_pregunta4.Text <> "" Then
+					DateTime.DateFormat = "MM/dd/yyyy"
+					DateTime.TimeFormat = "HH:mm:ss"
+					sDate=DateTime.Date(DateTime.Now)
+					sTime=DateTime.Time(DateTime.Now)
+					c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+					c.Position = 0
+					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta4.Text,sDate&" "&sTime,1 ))
+					c.Close
+					If et_pregunta5.Text <> "" Then
+						DateTime.DateFormat = "MM/dd/yyyy"
+						DateTime.TimeFormat = "HH:mm:ss"
+						sDate=DateTime.Date(DateTime.Now)
+						sTime=DateTime.Time(DateTime.Now)
+						c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+						c.Position = 0
+						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta5.Text,sDate&" "&sTime,1 ))
+						c.Close
+						If et_pregunta6.Text <> "" Then
+							DateTime.DateFormat = "MM/dd/yyyy"
+							DateTime.TimeFormat = "HH:mm:ss"
+							sDate=DateTime.Date(DateTime.Now)
+							sTime=DateTime.Time(DateTime.Now)
+							c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+							c.Position = 0
+							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),et_pregunta6.Text,sDate&" "&sTime,1 ))
+							c.Close
+							If rb_p7no.Checked = True Or rb_p7si.Checked = True Then
+								DateTime.DateFormat = "MM/dd/yyyy"
+								DateTime.TimeFormat = "HH:mm:ss"
+								sDate=DateTime.Date(DateTime.Now)
+								sTime=DateTime.Time(DateTime.Now)
+								c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+								c.Position = 0
+								Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),pregunta7,sDate&" "&sTime,1 ))
+								c.Close
+								If itemselect2 <> "Selecciona una opción" Then
+									DateTime.DateFormat = "MM/dd/yyyy"
+									DateTime.TimeFormat = "HH:mm:ss"
+									sDate=DateTime.Date(DateTime.Now)
+									sTime=DateTime.Time(DateTime.Now)
+									c = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
+									c.Position = 0
+									Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA VALUES(?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2 ))
+									c.Close
+									
+									If bandera = 1 Then
+										rb_p7si.Checked = False
+										rb_p7no.Checked = False
+										et_pregunta2.Text = ""
+										et_pregunta3.Text = ""
+										et_pregunta4.Text = ""
+										et_pregunta5.Text = ""
+										et_pregunta6.Text = ""
+										itemselect2 = "Selecciona una opción"
+										itemselect = "Selecciona una opción"
+										sv_encuesta.Visible =False
+										Starter.tipov = "VENTA"
+										B4XPages.ShowPage("Productos")
+									Else If bandera = 2 Then
+										rb_p7si.Checked = False
+										rb_p7no.Checked = False
+										et_pregunta2.Text = ""
+										et_pregunta3.Text = ""
+										et_pregunta4.Text = ""
+										et_pregunta5.Text = ""
+										et_pregunta6.Text = ""
+										itemselect2 = "Selecciona una opción"
+										itemselect = "Selecciona una opción"
+										sv_encuesta.Visible =False
+										Starter.tipov = "PREVENTA"
+										B4XPages.ShowPage("Productos")
+									End If
+								Else
+									MsgboxAsync("Por favor completa la encuesta","Atención")
+								End If
+							Else
+								MsgboxAsync("Por favor completa la encuesta","Atención")
+							End If
+						Else
+							MsgboxAsync("Por favor completa la encuesta","Atención")
+						End If
+					Else
+						MsgboxAsync("Por favor completa la encuesta","Atención")
+					End If
+				Else
+					MsgboxAsync("Por favor completa la encuesta","Atención")
+				End If
+			Else
+				MsgboxAsync("Por favor completa la encuesta","Atención")
+			End If
+		Else
+			MsgboxAsync("Por favor completa la encuesta","Atención")
+		End If
+	Else
+		MsgboxAsync("Por favor completa la encuesta","Atención")
+	End If
+End Sub
+
+Private Sub rb_p7si_CheckedChange(Checked As Boolean)
+	pregunta7 = "Si"
+End Sub
+
+Private Sub rb_p7no_CheckedChange(Checked As Boolean)
+	pregunta7 = "No"
 End Sub

B4A/C_Principal.bas

@@ -193,6 +193,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
 	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
+	If d.RowCount >0 Then
+		
+	
 	D.Position=0
 	b.Close
 	e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
@@ -236,7 +239,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 		l_porvisitar.Text = e.GetString("POR_VISITAR")
 	End If
-
+	End If
 	c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
 	c.Position = 0
 	DateTime.TimeFormat = "HHmmss"
@@ -285,6 +288,7 @@ Sub B4XPage_Appear
 	reqManager.Initialize(Me, SERVER)
 	Log(SERVER)
 	
+	
 	If PASO = 2 Then
 		Dim result As Int
 		result = Msgbox2("El proceso de enviar información no a terminado, Continuar", "", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png"))
@@ -361,7 +365,15 @@ Sub B4XPage_Appear
 	ALMACEN = C.GetString("ID_ALMACEN")
 	C.Close
 	'ALMACEN = 1
-
+	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
+	If d.RowCount >0 Then
+		e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
+		e.Position=0
+	If e.RowCount >0 Then
+		
+		
+	
+		D.Position=0
 	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
@@ -390,8 +402,8 @@ Sub B4XPage_Appear
 		L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
 
 	End If
-
+		End If
-
+	End If
 	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
 	c.Position = 0
 	usuario = c.GetString("USUARIO")
@@ -429,16 +441,50 @@ End Sub
 'End Sub
 
 Sub trabajar_Click
-	'CallSubDelayed(gestion,"gestion")
+	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
-	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
 	c.Position =0
-	MARCASQ = c.GetString("CAT_VA_VALOR")
+	PERFIL = c.GetString("CAT_VA_VALOR")
 	c.Close
-	skmt.ExecNonQuery("delete from CAT_GUNAPROD WHERE CAT_GP_CLASIF NOT IN (" & MARCASQ &")" )
+	Log(PERFIL&"-------------------------")
-	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)")
+	If PERFIL = "V-MINI" Then
+		c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO1, CAT_GP_ID FROM CAT_PRECIOS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount -1 
+				c.Position = i				
+				Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO1"),c.GetString("CAT_GP_ID")))
+			Next
+			'CallSubDelayed(gestion,"gestion")
+			c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+			c.Position =0
+			MARCASQ = c.GetString("CAT_VA_VALOR")
+			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")
+			B4XPages.ShowPage("Clientes")
+		End If
+	Else
+		c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount -1
+				c.Position = i
+				Starter.skmt.ExecNonQuery2("Update CAT_GUNAPROD SET CAT_GP_PRECIO = ? WHERE CAT_GP_ID = ?",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
+			Next
+			'CallSubDelayed(gestion,"gestion")
+			c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MARCAS"))
+			c.Position =0
+			MARCASQ = c.GetString("CAT_VA_VALOR")
+			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
 
@@ -574,6 +620,21 @@ Sub Subir_Click
 			c.Close
 		End If
 	
+		c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+			 
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "INSERT_ENCUESTA_K001DUR"
+				cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"),"K001",ALMACEN,l_ruta.text,"1", C.GetString("TIPO"))
+				reqManager.ExecuteQuery(cmd , 0,"INS_K001")
+
+			Next
+			c.Close
+		End If
+	
 		c=skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
 		'	S_CP.Text = "Envio Encuesta"
 		'	PB2.Progress = 1
@@ -770,6 +831,8 @@ Sub Subir_Click
 '		End If
 '		c.Close
 		' DROP
+		
+		
 
 		t1.Initialize("T1", 20000) ' 1000 = 1 second
 		t1.Enabled = True
@@ -860,6 +923,11 @@ Sub cargar_Click
 	cmd.Name = "select_codigo_exhibidor"
 	'cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "catalogo_exhibidor")
+	
+	cmd.Initialize
+	cmd.Name = "SELECT_HISTENCUESTA_DUR"
+	cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
+	reqManager.ExecuteQuery(cmd , 0, "hist_encuesta")
 
 	cmd.Initialize
 	cmd.Name = "select_cat_gunaprod_DUR"
@@ -1167,6 +1235,18 @@ Sub JobDone(Job As HttpJob)
 				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "hist_encuesta" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE"))
+					Dim HE_TIPO As String = records(RESULT.Columns.Get("HE_TIPO"))
+					skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA3(HE_CLIE, HE_TIPO ) VALUES (?,?)", Array As Object (HE_CLIENTE, HE_TIPO))
+				Next
+				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
+			End If
+		End If
 
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1933,7 +2013,7 @@ Sub e_ruta_EnterPressed
 			skmt.ExecNonQuery("delete from kmt_info")
 			skmt.ExecNonQuery("delete from cat_gunaprod")
 			skmt.ExecNonQuery("delete from cat_gunaprod2")
-		
+			skmt.ExecNonQuery("delete from LISTA_PRECIOS")
 			skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
 			skmt.ExecNonQuery("delete from HIST_VENTAS")
 			skmt.ExecNonQuery("delete from HIST_VERIFICACION")

B4A/C_Productos.bas

@@ -261,7 +261,7 @@ Sub B4XPage_Appear
 	End If
 	c.Close
 	If PERFIL = "V-COSTO" Then
-		skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
+		Starter.skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
 	End If
 
 '	Log("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from " & query & " where CAT_GP_ALMACEN > 0 AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO ='PROMOS' AND CAT_GP_TIPOPROD <> 1  and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID)")
@@ -348,7 +348,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
 		If c2.RowCount > 0 Then
 			For i=0 To c2.RowCount -1
 				c2.Position=i
-				Logcolor(c2.GetString("CAT_GP_ID"),Colors.Green)
+				LogColor(c2.GetString("CAT_GP_ID"),Colors.Green)
 				Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
 				If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
 					Log(c2.GetString("CAT_GP_NOMBRE"))
@@ -1150,10 +1150,10 @@ Private Sub l_prodX_LongClick
 		t.Position = 0
 		Private ventaT As String = t.GetString("cuantosProds")
 		If ventaT = Null Then ventaT = 0
-		If Starter.tipov = "PREVENTA" Then
+'		If Starter.tipov = "PREVENTA" Then
-			ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
+'			ToastMessageShow("¡¡En preventa NO hay cambios!!", True)
-			Return
+'			Return
-		End If
+'		End If
 		If ventaT > 0 Then
 			t = Starter.skmt.ExecQuery($"select sum(PE_CANT) as totalRMI from pedido where PE_PROID = '${pId}' and PE_CEDIS = 'DUR' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
 			t.Position = 0
@@ -1497,20 +1497,55 @@ Sub traeListaPrecios (almacenX As String, rutaX As String, idX As String, perfil
 	Private listaPrecios As List
 	listaPrecios.Initialize
 	listaPrecios.Add("-= Seleccione Precio =-")
-	If almacenX = "6" And rutaX = "16" Then
+'	If almacenX = "6" And rutaX = "16" Then
-'		Log("POR ALMACEN Y RUTA")
+''		Log("POR ALMACEN Y RUTA")
+'		Starter.hayListaPreciosAlt = True
+'		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+'		If c.RowCount > 0 Then
+'			For i = 0 To c.RowCount - 1
+'				c.Position = i
+'				listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
+'			Next
+'		End If
+'	Else 
+'	If perfilX = "V-MINI" Then
+''		Log($"POR PERFIL: V-ESPECIAL"$)
+'		Starter.hayListaPreciosAlt = True
+'		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','2') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+''		Log(c.RowCount)
+'		If c.RowCount > 0 Then
+'			For i = 0 To c.RowCount - 1
+'				c.Position = i
+'				listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
+'			Next
+'		End If
+'	Else 
+	If perfilX = "V-COSTO" Then
+'		Log($"POR PERFIL: V-ESPECIAL"$)
 		Starter.hayListaPreciosAlt = True
-		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','9') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+'		Log(c.RowCount)
 		If c.RowCount > 0 Then
 			For i = 0 To c.RowCount - 1
 				c.Position = i
-				listaPrecios.Add($"${c.GetString("NLISTA")} - ${c.GetString("PRECIO")}"$)
+				listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
+			Next
+		End If
+	ELSE IF perfilX = "V-SUPER" Then
+'		Log($"POR PERFIL: V-ESPECIAL"$)
+		Starter.hayListaPreciosAlt = True
+		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','11') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+'		Log(c.RowCount)
+		If c.RowCount > 0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				listaPrecios.Add($"${c.GetString("NLISTA")} - ${NumberFormat2(c.GetDouble("PRECIO"), 1, 2, 2, False)}"$)
 			Next
 		End If
 	ELSE IF perfilX = "V-ESPECIAL" Then
 '		Log($"POR PERFIL: V-ESPECIAL"$)
 		Starter.hayListaPreciosAlt = True
-		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
+		c = Starter.skmt.ExecQuery($"select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','5','6','7','8','10') AND  CAT_GP_ID = '${idX}' ORDER BY NLISTA ASC"$)
 '		Log(c.RowCount)
 		If c.RowCount > 0 Then
 			For i = 0 To c.RowCount - 1

B4A/Durakelo.b4a

@@ -797,7 +797,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo
 	#VersionCode: 1
-	#VersionName: 4.01.17_2
+	#VersionName: 4.01.18_2 ENC
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Durakelo.b4a.meta

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=1,3
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=kms_helperSubs,traeRMIdePedido,548,0,C_Productos,B4XPage_Appear,148,0,C_Productos,b_prodMas_Click,714,0,C_Productos,l_prodX_Click,1093,0,C_Productos,l_prodX_LongClick,1142,0,C_Principal,B4XPage_Appear,409,0,C_Principal,trabajar_Click,431,3,Diseñador Visual,encuesta.bal,-100,4,Diseñador Visual,Cliente.bal,-100,6,C_Cliente,gest_Click,334,6
+NavigationStack=C_Productos,l_prodX_LongClick,1134,0,C_Cliente,B_IMP2_Click,859,6,C_Principal,Subir_Click,624,0,C_Principal,cargar_Click,923,3,C_Principal,JobDone,1240,6,C_Cliente,B_IMP_Click,787,6,C_Cliente,GPS_LocationChanged,363,0,C_Cliente,B_VENTA_Click,1162,0,Diseñador Visual,Cliente.bal,-100,2,C_Cliente,gest_Click,377,6
 SelectedBuild=0
-VisibleModules=21,2,9,18,7,4,10,22,11,23,15,1,13
+VisibleModules=21,2,9,18,7,4,10,22,11,23