6.03.01

se agrega la parte de las encuestas y se corrige los indicadores

B4A/B4XMainPage.bas

@@ -176,6 +176,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PLAN_LEALTAD (PL_CLIENTE TEXT, PL_BANDERA TEXT)")
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSP(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT, FECHA TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSPTOD(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT, FECHA TEXT)")
 
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COMENTARIOS (COMENTARTIO TEXT, CLIENTE TEXT, DESCARGADO TEXT)")
@@ -225,6 +226,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO2265(H_IDCLIENTE TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ATIENDE(ATIENDE TEXT, CLIENTE TEXT)")
 	
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_BAT(CLIENTE)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTAS_BAT (CLIENTE TEXT,RUTA TEXT,ALMACEN TEXT,P1 TEXT,P2 TEXT,P3 TEXT,P4 TEXT,P5 TEXT,P6 TEXT,P7 TEXT,P8 TEXT,P9 TEXT,P10 TEXT, FECHA TEXT)")
+	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CODIGOS_CREDITO(CODIGO TEXT, BANDERA TEXT)")
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TELEFONO(TELEFONO TEXT, CLIENTE TEXT)")
@@ -246,9 +250,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
 	
 	Subs.agregaColumna("hist_ventastodos", "HVD_NUM_TICKET", "TEXT")
+	Subs.agregaColumna("hist_ventastodos", "HVD_CODPROMO", "TEXT")
 	
 	Subs.agregaColumna("HIST_VENTAS", "HVD_FECHA", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_NUMEROINT", "TEXT")
+	Subs.agregaColumna("kmt_info3", "CAT_CL_ORDENVISITA", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_NUMEROEXT", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_REFERENCIA", "TEXT")
 	Subs.agregaColumna("CLIENTES_NUEVOS", "CN_NUMEROINT", "TEXT")
@@ -260,8 +266,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR4", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_CONVERSION3", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_CONVERSION2", "TEXT")
+	
 	Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR3", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR2", "TEXT")
+	Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR5", "TEXT")
+	
 	Subs.agregaColumna("kmt_info3", "CAT_CL_TIPOCLIENTE", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_LIMITECREDITO", "TEXT")
 	Subs.agregaColumna("kmt_info3", "CAT_CL_DIASCREDITO", "TEXT")

B4A/C_Cliente.bas

@@ -483,6 +483,26 @@ Sub Class_Globals
 	Dim totalpromos As Double
 	Dim totalpromostotal As Double
 	Private chb_com As CheckBox
+	
+	Private P_Imagengrande As Panel
+	Private I_fotogrande As ImageView
+	
+	
+	Private scv_bat As ScrollView
+	Private b_cancelencu As Button
+	Private b_guadarenc As Button
+	Private p_encu As Panel
+	Private cb_p1 As B4XComboBox
+	Private cb_p2 As B4XComboBox
+	Private cb_p3 As B4XComboBox
+	Private cb_p4 As B4XComboBox
+	Private cb_p5 As B4XComboBox
+	Dim e_1, e_2, e_3, e_4,e_5,e_6,e_7,e_8,e_9,e_10 As String
+	Private cb_p6 As B4XComboBox
+	Private cb_p7 As B4XComboBox
+	Private cb_p8 As B4XComboBox
+	Private cb_p9 As B4XComboBox
+	Private cb_p10 As B4XComboBox
 End Sub
 
 'You can add more parameters here.
@@ -564,7 +584,7 @@ Sub B4XPage_Appear
 '	MejorarPrecisionGPS
 '	' Al aparecer la página del cliente
 '	InicializarLocalizacionMejorada
-
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CANT <= 0")
 	recalculoXcant
 
 	ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
@@ -572,6 +592,8 @@ Sub B4XPage_Appear
 	bitacora.inicioFin
 '	iniciofin
 	que_modulo = 1
+	scv_bat.Width = Root.Width
+	scv_bat.Height = Root.Height
 	dentroDeGeocerca = False
 	indicePregunta = 0
 	l_credito.Visible = False
@@ -657,8 +679,8 @@ Sub B4XPage_Appear
 '			Log("aqui si hay foto")
 '		End If
 '	End If
-
-	
+	Subs.centraPanel(P_Imagengrande,Root.Width)
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CLIENTE In (select cuenta from cuentaa) AND PE_CANT <= 0")
 		
 	Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NOT NULL")
 	If fotomostrar1.RowCount = 0 Then
@@ -1672,7 +1694,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 				End If
 			End If
 			If geo = "1" Then
-				If distance < 100 Then
+				If distance < 1000000000000000000000 Then
 					LA_GEO.TextColor = Colors.Blue
 					Tels.Visible = True
 					gest.Visible = True
@@ -2087,16 +2109,294 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 End Sub
 
 Sub gest_Click
-'	Mejorar precisión antes de procesar la venta
-'	MejorarPrecisionGPS
-'	Sleep(500) ' Esperar un poco para que el GPS se estabilice
+	''	Mejorar precisión antes de procesar la venta
+	''	MejorarPrecisionGPS
+	''	Sleep(500) ' Esperar un poco para que el GPS se estabilice
+	
+	Dim checkenc As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * FROM HIST_ENCUESTA_BAT WHERE CLIENTE In (Select cuenta from cuentaa)")
+	If checkenc.RowCount = 0 Then
+		Dim checkenc1 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * FROM ENCUESTAS_BAT WHERE CLIENTE In (Select cuenta from cuentaa)")
+		If checkenc1.RowCount = 0 Then
+			
+			If ALMACEN = 81 Or ALMACEN = 94 Then
+		
+				Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR5,0) AS CAT_CL_CLASIFICADOR5 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+				If coloressaldo.RowCount > 0 Then
+					coloressaldo.Position = 0
+					If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "1" Then
+						scv_bat.Visible = True
+						scv_bat.Panel.RemoveAllViews
+						scv_bat.Panel.LoadLayout("encuesta_1")
+						scv_bat.Panel.Height = p_encu.Height
+						p_encu.Width = scv_bat.Width
+		
+		
+						Dim itembat1 As List
+						itembat1.Initialize
+						itembat1.Add("Selecciona una opcion")
+						itembat1.Add("Ninguno")
+						itembat1.Add("Menos de medio paquete")
+						itembat1.Add("Medio paquete a 1 paquete")
+						itembat1.Add("1.1 a 2.9 paquetes")
+						itembat1.Add("3 a 5.9 paquetes")
+						itembat1.Add("6 a 10.9 paquetes")
+						itembat1.Add("11 a 20.9 paquetes")
+						itembat1.Add("21 a 30 paquetes")
+						itembat1.Add("Más de 30 paquetes")
+						cb_p1.SetItems(itembat1)
+						e_1 = "Selecciona una opcion"
+		
+						Dim itembat2 As List
+						itembat2.Initialize
+						itembat2.Add("Selecciona una opcion")
+						itembat2.Add("Ninguno")
+						itembat2.Add("Menos de medio paquete")
+						itembat2.Add("Medio paquete a 1 paquete")
+						itembat2.Add("1.1 a 2.9 paquetes")
+						itembat2.Add("3 a 5.9 paquetes")
+						itembat2.Add("6 a 10.9 paquetes")
+						itembat2.Add("11 a 20.9 paquetes")
+						itembat2.Add("21 a 30 paquetes")
+						itembat2.Add("Más de 30 paquetes")
+						cb_p2.SetItems(itembat2)
+						e_2 = "Selecciona una opcion"
+		
+						Dim itembat3 As List
+						itembat3.Initialize
+						itembat3.Add("Selecciona una opcion")
+						itembat3.Add("Ninguno")
+						itembat3.Add("Menos de medio paquete")
+						itembat3.Add("Medio paquete a 1 paquete")
+						itembat3.Add("1.1 a 2.9 paquetes")
+						itembat3.Add("3 a 5.9 paquetes")
+						itembat3.Add("6 a 10.9 paquetes")
+						itembat3.Add("11 a 20.9 paquetes")
+						itembat3.Add("21 a 30 paquetes")
+						itembat3.Add("Más de 30 paquetes")
+						cb_p3.SetItems(itembat3)
+						e_3 = "Selecciona una opcion"
+		
+						Dim itembat4 As List
+						itembat4.Initialize
+						itembat4.Add("Selecciona una opcion")
+						itembat4.Add("Ninguno")
+						itembat4.Add("Menos de medio paquete")
+						itembat4.Add("Medio paquete a 1 paquete")
+						itembat4.Add("1.1 a 2.9 paquetes")
+						itembat4.Add("3 a 5.9 paquetes")
+						itembat4.Add("6 a 10.9 paquetes")
+						itembat4.Add("11 a 20.9 paquetes")
+						itembat4.Add("21 a 30 paquetes")
+						itembat4.Add("Más de 30 paquetes")
+						cb_p4.SetItems(itembat4)
+						e_4 = "Selecciona una opcion"
+		
+						Dim itembat5 As List
+						itembat5.Initialize
+						itembat5.Add("Selecciona una opcion")
+						itembat5.Add("Ninguno")
+						itembat5.Add("Tiendatek")
+						itembat5.Add("Yomp")
+						itembat5.Add("Systienda")
+						itembat5.Add("MyBusiness POS")
+						itembat5.Add("Eleventa")
+						itembat5.Add("Otro")
+						cb_p5.SetItems(itembat5)
+						e_5 = "Selecciona una opcion"
+					Else If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "5" Then
+				
+						scv_bat.Visible = True
+						scv_bat.Panel.RemoveAllViews
+						scv_bat.Panel.LoadLayout("encuesta_2")
+						scv_bat.Panel.Height = p_encu.Height
+						p_encu.Width = scv_bat.Width
+		
+		
+						Dim itembat1 As List
+						itembat1.Initialize
+						itembat1.Add("Selecciona una opcion")
+						itembat1.Add("Ninguno")
+						itembat1.Add("Menos de medio cartón")
+						itembat1.Add("Medio cartón a 1 cartón")
+						itembat1.Add("1.1 a 3.9 cartones")
+						itembat1.Add("4 a 5.9 cartones")
+						itembat1.Add("6 a 10.9 cartones")
+						itembat1.Add("11 a 20.9 cartones")
+						itembat1.Add("21 a 30.9 cartones")
+						itembat1.Add("31 a 40 cartones")
+						itembat1.Add("Más de 40 cartones")
+						cb_p1.SetItems(itembat1)
+						e_1 = "Selecciona una opcion"
+		
+						Dim itembat2 As List
+						itembat2.Initialize
+						itembat2.Add("Selecciona una opcion")
+						itembat2.Add("Ninguno")
+						itembat2.Add("Menos de medio cartón")
+						itembat2.Add("Medio cartón a 1 cartón")
+						itembat2.Add("1.1 a 3.9 cartones")
+						itembat2.Add("4 a 5.9 cartones")
+						itembat2.Add("6 a 10.9 cartones")
+						itembat2.Add("11 a 20.9 cartones")
+						itembat2.Add("21 a 30.9 cartones")
+						itembat2.Add("31 a 40 cartones")
+						itembat2.Add("Más de 40 cartones")
+						cb_p2.SetItems(itembat2)
+						e_2 = "Selecciona una opcion"
+		
+						Dim itembat3 As List
+						itembat3.Initialize
+						itembat3.Add("Selecciona una opcion")
+						itembat3.Add("Ninguno")
+						itembat3.Add("Menos de medio cartón")
+						itembat3.Add("Medio cartón a 1 cartón")
+						itembat3.Add("1.1 a 3.9 cartones")
+						itembat3.Add("4 a 5.9 cartones")
+						itembat3.Add("6 a 10.9 cartones")
+						itembat3.Add("11 a 20.9 cartones")
+						itembat3.Add("21 a 30.9 cartones")
+						itembat3.Add("31 a 40 cartones")
+						itembat3.Add("Más de 40 cartones")
+						cb_p3.SetItems(itembat3)
+						e_3 = "Selecciona una opcion"
+		
+						Dim itembat4 As List
+						itembat4.Initialize
+						itembat4.Add("Selecciona una opcion")
+						itembat4.Add("Ninguno")
+						itembat4.Add("Menos de medio cartón")
+						itembat4.Add("Medio cartón a 1 cartón")
+						itembat4.Add("1.1 a 3.9 cartones")
+						itembat4.Add("4 a 5.9 cartones")
+						itembat4.Add("6 a 10.9 cartones")
+						itembat4.Add("11 a 20.9 cartones")
+						itembat4.Add("21 a 30.9 cartones")
+						itembat4.Add("31 a 40 cartones")
+						itembat4.Add("Más de 40 cartones")
+						cb_p4.SetItems(itembat4)
+						e_4 = "Selecciona una opcion"
+		
+						Dim itembat5 As List
+						itembat5.Initialize
+						itembat5.Add("Selecciona una opcion")
+						itembat5.Add("Ninguno")
+						itembat5.Add("Menos de medio cartón")
+						itembat5.Add("Medio cartón a 1 cartón")
+						itembat5.Add("1.1 a 3.9 cartones")
+						itembat5.Add("4 a 5.9 cartones")
+						itembat5.Add("6 a 10.9 cartones")
+						itembat5.Add("11 a 20.9 cartones")
+						itembat5.Add("21 a 30.9 cartones")
+						itembat5.Add("31 a 40 cartones")
+						itembat5.Add("Más de 40 cartones")
+						cb_p5.SetItems(itembat5)
+						e_5 = "Selecciona una opcion"
+				
+						Dim itembat6 As List
+						itembat6.Initialize
+						itembat6.Add("Selecciona una opcion")
+						itembat6.Add("Ninguno")
+						itembat6.Add("Menos de medio cartón")
+						itembat6.Add("Medio cartón a 1 cartón")
+						itembat6.Add("1.1 a 3.9 cartones")
+						itembat6.Add("4 a 5.9 cartones")
+						itembat6.Add("6 a 10.9 cartones")
+						itembat6.Add("11 a 20.9 cartones")
+						itembat6.Add("21 a 30.9 cartones")
+						itembat6.Add("31 a 40 cartones")
+						itembat6.Add("Más de 40 cartones")
+						cb_p6.SetItems(itembat6)
+						e_6 = "Selecciona una opcion"
+				
+						Dim itembat7 As List
+						itembat7.Initialize
+						itembat7.Add("Selecciona una opcion")
+						itembat7.Add("Ninguno")
+						itembat7.Add("Menos de medio cartón")
+						itembat7.Add("Medio cartón a 1 cartón")
+						itembat7.Add("1.1 a 3.9 cartones")
+						itembat7.Add("4 a 5.9 cartones")
+						itembat7.Add("6 a 10.9 cartones")
+						itembat7.Add("11 a 20.9 cartones")
+						itembat7.Add("21 a 30.9 cartones")
+						itembat7.Add("31 a 40 cartones")
+						itembat7.Add("Más de 40 cartones")
+						cb_p7.SetItems(itembat7)
+						e_7 = "Selecciona una opcion"
+				
+						Dim itembat8 As List
+						itembat8.Initialize
+						itembat8.Add("Selecciona una opcion")
+						itembat8.Add("Ninguno")
+						itembat8.Add("Menos de medio cartón")
+						itembat8.Add("Medio cartón a 1 cartón")
+						itembat8.Add("1.1 a 3.9 cartones")
+						itembat8.Add("4 a 5.9 cartones")
+						itembat8.Add("6 a 10.9 cartones")
+						itembat8.Add("11 a 20.9 cartones")
+						itembat8.Add("21 a 30.9 cartones")
+						itembat8.Add("31 a 40 cartones")
+						itembat8.Add("Más de 40 cartones")
+						cb_p8.SetItems(itembat8)
+						e_8 = "Selecciona una opcion"
+				
+						Dim itembat9 As List
+						itembat9.Initialize
+						itembat9.Add("Selecciona una opcion")
+						itembat9.Add("Ninguno")
+						itembat9.Add("Menos de medio cartón")
+						itembat9.Add("Medio cartón a 1 cartón")
+						itembat9.Add("1.1 a 3.9 cartones")
+						itembat9.Add("4 a 5.9 cartones")
+						itembat9.Add("6 a 10.9 cartones")
+						itembat9.Add("11 a 20.9 cartones")
+						itembat9.Add("21 a 30.9 cartones")
+						itembat9.Add("31 a 40 cartones")
+						itembat9.Add("Más de 40 cartones")
+						cb_p9.SetItems(itembat9)
+						e_9 = "Selecciona una opcion"
+				
+						Dim itembat10 As List
+						itembat10.Initialize
+						itembat10.Add("Selecciona una opcion")
+						itembat10.Add("Ninguno")
+						itembat10.Add("Menos de medio cartón")
+						itembat10.Add("Medio cartón a 1 cartón")
+						itembat10.Add("1.1 a 3.9 cartones")
+						itembat10.Add("4 a 5.9 cartones")
+						itembat10.Add("6 a 10.9 cartones")
+						itembat10.Add("11 a 20.9 cartones")
+						itembat10.Add("21 a 30.9 cartones")
+						itembat10.Add("31 a 40 cartones")
+						itembat10.Add("Más de 40 cartones")
+						cb_p10.SetItems(itembat10)
+						e_10 = "Selecciona una opcion"
+					Else
+						vent
+					End If
+				End If
+			Else
+				vent
+			End If
+			
+		Else
+			vent
+		End If
+	Else
+		vent
+	End If
+	
+
+End Sub
+
+Sub vent
 	
 	Dim pagarepen As Cursor = B4XPages.MainPage.skmt.ExecQuery("select FECHA, SALDO_PENDIENTE FROM ABONOSP WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
 	If pagarepen.RowCount > 0 Then
 		pagarepen.Position = 0
 		DateTime.DateFormat="dd/MM/yyyy"
 		Dim FechaInicio As String = pagarepen.GetString("FECHA")  ' Formato: dd/MM/yyyy
-'		Dim FechaHoy As String = DateTime.Date(DateTime.Now)  ' Fecha actual en formato dd/MM/yyyy
+		'		Dim FechaHoy As String = DateTime.Date(DateTime.Now)  ' Fecha actual en formato dd/MM/yyyy
 		Log(pagarepen.GetString("FECHA"))
 	
 		' Convertir las fechas a milisegundos (desde 01/01/1970)
@@ -2114,7 +2414,7 @@ Sub gest_Click
 	
 		If ALMACEN = 81 Or ALMACEN = 94 Then
 			If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 8  Then
-'			MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
+				'			MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
 				Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
 				Wait For Msgbox_Result (resultado As Int)
 				If resultado = DialogResponse.POSITIVE Then
@@ -2125,7 +2425,7 @@ Sub gest_Click
 			End If
 		Else
 			If DiferenciaDias <= c.GetInt("CAT_CL_DIASCREDITO") + 1  Then
-'			MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
+				'			MsgboxAsync($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio")
 				Msgbox2Async($"Favor de pagar su credito el día de mañana por un monto  de $${pagarepen.GetString("SALDO_PENDIENTE")}"$, "Recordatorio", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
 				Wait For Msgbox_Result (resultado As Int)
 				If resultado = DialogResponse.POSITIVE Then
@@ -2958,10 +3258,12 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 		Return False
 	else If p_encuesta.Visible Then
 		p_encuesta.Visible = False
+	else If scv_bat.Visible Then
+		scv_bat.Visible = False
 	Else iF p_camara.Visible Then
+		p_camara.Visible = False
+		StopCamera2
 		Return False
-'		p_camara.Visible = False
-'		StopCamera2
 	else If p_pregunta1.Visible Then
 		p_pregunta1.Visible = False
 	Else if SV_ENCUESTA.Visible Then
@@ -3240,7 +3542,7 @@ End Sub
 Sub Impresion4
 	Dim pedinow As Cursor = skmt.ExecQuery("select * FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FUTURO = '0' ")
 	If pedinow.RowCount > 0 Then
-		Mandapedido
+'		Mandapedido
 	
 	c=skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
@@ -3523,6 +3825,20 @@ Sub Impresion4
 		Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" &  eLINEFEED)
 		Printer1.WriteString("------------------INFORMATIVO-------------------" &  eLINEFEED)
 		Printer1.WriteString("------------------------------------------------" &  eLINEFEED)
+		If ALMACEN = 81 Then
+		
+			Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+			If creditocod2.RowCount > 0 Then
+				creditocod2.Position = 0
+				If creditocod2.GetString("BANDERA") = "1" Then
+					Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+					creditocod.Position = 0
+					Printer1.WriteString("------------------CODIGO: "&  creditocod.GetString("CODIGO")& "------------------" &  eLINEFEED)
+					Printer1.WriteString("------------------------------------------------" &  eLINEFEED)
+				End If
+			End If
+		End If
+		
 		Printer1.WriteString(" " &  eLINEFEED)
 	
 	Sleep(1000)
@@ -3871,8 +4187,23 @@ Sub Impresion5
 	Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" &  eLINEFEED)
 	Printer1.WriteString("------------------INFORMATIVO-------------------" &  eLINEFEED)
 	Printer1.WriteString("------------------------------------------------" &  eLINEFEED)
+	
+	If ALMACEN = 81 Then
+		
+		Dim creditocod2 As Cursor = Starter.skmt.ExecQuery("SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+		If creditocod2.RowCount > 0 Then
+			creditocod2.Position = 0
+			If creditocod2.GetString("BANDERA") = "1" Then
+				Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+				creditocod.Position = 0
+				Printer1.WriteString("------------------CODIGO: "&  creditocod.GetString("CODIGO")& "------------------" &  eLINEFEED)
+				Printer1.WriteString("------------------------------------------------" &  eLINEFEED)
+			End If
+		End If
+	End If
 	Printer1.WriteString(" " &  eLINEFEED)
 	
+	
 	Sleep(1000)
 	Printer1.DisConnect
 	
@@ -8059,3 +8390,125 @@ End Sub
 Private Sub chb_com_CheckedChange(Checked As Boolean)
 	
 End Sub
+
+Sub P_Imagengrande_click
+	P_Imagengrande.Visible = False
+End Sub
+
+Private Sub ImageView4_LongClick
+	Private fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+	If fotomostrar.RowCount > 0 Then
+		
+		fotomostrar.Position = 0
+		Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO")
+		Dim InputStream1 As InputStream
+		InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
+		Dim Bitmap1 As Bitmap
+		Bitmap1.Initialize2(InputStream1)
+		InputStream1.Close
+		I_fotogrande.Bitmap = Bitmap1
+		Log("aqui si hay foto")
+	Else
+		I_fotogrande.Bitmap = LoadBitmap(File.DirAssets,"images.png")
+		Log("aqui no hay foto")
+	End If
+	P_Imagengrande.Visible = True
+End Sub
+
+Private Sub b_guadarenc_Click
+	DateTime.DateFormat = "dd/MM/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	Dim coloressaldo As Cursor=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_CLASIFICADOR5,0) AS CAT_CL_CLASIFICADOR5 from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	If coloressaldo.RowCount > 0 Then
+		coloressaldo.Position = 0
+		If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "1" Then
+			If e_1 <> "Selecciona una opcion" And e_2 <> "Selecciona una opcion" And e_3<> "Selecciona una opcion" And e_4 <> "Selecciona una opcion" And e_5 <> "Selecciona una opcion" Then
+				B4XPages.MainPage.skmt.ExecNonQuery($"insert into ENCUESTAS_BAT (CLIENTE, RUTA, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10,FECHA) values ('${Subs.traeCliente}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${e_1}', '${e_2}', '${e_3}', '${e_4}', '${e_5}', 'N/A', 'N/A', 'N/A', 'N/A', 'N/A' , '${sDate}')"$)
+				scv_bat.Visible = False
+				
+				' ENCUESTAS BAT
+				c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+				If c.RowCount>0 Then
+					For i=0 To c.RowCount -1
+						c.Position=i
+						Dim cmd As DBCommand
+						cmd.Initialize
+						cmd.Name = "insert_encuestas_bat_guna"
+						cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
+						B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
+					Next
+				End If
+				c.Close
+				vent
+			Else
+				MsgboxAsync("Favor de responder todas las preguntas","Atención")
+			End If
+		Else If coloressaldo.GetString("CAT_CL_CLASIFICADOR5") = "5" Then
+			If e_1 <> "Selecciona una opcion" And e_2 <> "Selecciona una opcion" And e_3<> "Selecciona una opcion" And e_4 <> "Selecciona una opcion" And e_5 <> "Selecciona una opcion" And e_6 <> "Selecciona una opcion" And e_7 <> "Selecciona una opcion" And e_8<> "Selecciona una opcion" And e_9 <> "Selecciona una opcion" And e_10 <> "Selecciona una opcion" Then
+				B4XPages.MainPage.skmt.ExecNonQuery($"insert into ENCUESTAS_BAT (CLIENTE, RUTA, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10,FECHA) values ('${Subs.traeCliente}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${e_1}', '${e_2}', '${e_3}', '${e_4}', '${e_5}', '${e_6}', '${e_7}', '${e_8}', '${e_9}', '${e_10}' , '${sDate}')"$)
+				scv_bat.Visible = False
+				
+				' ENCUESTAS BAT
+				c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+				If c.RowCount>0 Then
+					For i=0 To c.RowCount -1
+						c.Position=i
+						Dim cmd As DBCommand
+						cmd.Initialize
+						cmd.Name = "insert_encuestas_bat_guna"
+						cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
+						B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
+					Next
+				End If
+				vent
+			Else
+				MsgboxAsync("Favor de responder todas las preguntas","Atención")
+			End If
+		End If
+	End If
+End Sub
+
+Private Sub b_cancelencu_Click
+	scv_bat.Visible = False
+End Sub
+
+Private Sub cb_p10_SelectedIndexChanged (Index As Int)
+	e_10 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p9_SelectedIndexChanged (Index As Int)
+	e_9 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p8_SelectedIndexChanged (Index As Int)
+	e_8 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p7_SelectedIndexChanged (Index As Int)
+	e_7 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p6_SelectedIndexChanged (Index As Int)
+	e_6 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p5_SelectedIndexChanged (Index As Int)
+	e_5 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p4_SelectedIndexChanged (Index As Int)
+	e_4 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p3_SelectedIndexChanged (Index As Int)
+	e_3 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p2_SelectedIndexChanged (Index As Int)
+	e_2 = Sender.As(B4XComboBox).SelectedItem
+End Sub
+
+Private Sub cb_p1_SelectedIndexChanged (Index As Int)
+	e_1 = Sender.As(B4XComboBox).SelectedItem
+End Sub

B4A/C_Principal.bas

@@ -555,6 +555,8 @@ Sub B4XPage_Appear
 '		L_REAL.Text = 0
 	End If
 	
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CANT <= 0")
+	
 	B4XPages.MainPage.clientestotal = L_CUANTOST.Text
 	B4XPages.MainPage.clientesventa =  l_cuantosc.Text
 	B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
@@ -747,6 +749,20 @@ Sub Subir_Click
 		End If
 		c.Close
 		
+		' ENCUESTAS BAT
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT")
+		If c.RowCount>0 Then
+			For i=0 To c.RowCount -1
+				c.Position=i
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_encuestas_bat_guna"
+				cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
+				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
+			Next
+		End If
+		c.Close
+		
 		' Plan Lealtad
 		c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM COMENTARIOS WHERE DESCARGADO IS NULL")
 		If c.RowCount>0 Then
@@ -1252,6 +1268,7 @@ Sub cargar_Click
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMO_ESP")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSPTOD")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
@@ -1361,6 +1378,11 @@ Sub cargar_Click
 		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, e_ruta.Text,ALMACEN)
 		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
 	
+		cmd.Initialize
+		cmd.Name = "select_abonosp_GUNA_pre_tod"
+		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
+		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "select_abonosp_todos")
+	
 		cmd.Initialize
 		cmd.Name = "select_HIST_ESPECIAL_GUNA"
 '	cmd.Parameters = Array As Object(ALMACEN)
@@ -1629,7 +1651,7 @@ Sub JobDone(Job As HttpJob)
 				If n = "OKActivo"  Then
 					Dim cmd As DBCommand
 					cmd.Initialize
-					cmd.Name = "select_ruta_GV2_70_16"
+					cmd.Name = "select_ruta_GV2_70_19"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
 					B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 					'Log("Usuario guardado en BD es 'Valido'")
@@ -1694,6 +1716,21 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+			If RESULT.Tag = "select_abonosp_todos" Then 'query tag
+				B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSPTOD")
+				For Each records() As Object In RESULT.Rows
+					Dim NOTA As String = records(RESULT.Columns.Get("NOTA"))
+					Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE"))
+					Dim SALDO_PENDIENTE As String = records(RESULT.Columns.Get("SALDO_PENDIENTE"))
+'					Dim NOMBRE As String = records(RESULT.Columns.Get("NOMBRE"))
+					Dim FECHA_PAGARE As String = records(RESULT.Columns.Get("FECHA_PREVENTA"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO ABONOSPTOD(NOTA,CLIENTE,SALDO_PENDIENTE,FECHA) VALUES (?,?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE,FECHA_PAGARE))
+				Next
+			End If
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim result1 As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
 			If result1.Tag = "CHECAENCUESTA" Then 'query tag
@@ -1842,11 +1879,14 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
 					Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
 					Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
+					Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
+					Dim CAT_CL_CLASIFICADOR5 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR5"))
+					Dim CAT_CL_ORDENVISITA As String = records(RESULT.Columns.Get("CAT_CL_ORDENVISITA"))
 					
 					
 					'##########################  INICIA CODIGO PARA CREDITOS ####################
 					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,FOTO,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_FOTO,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,FOTO,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4,CAT_CL_ORDENVISITA,CAT_CL_CLASIFICADOR5) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_FOTO,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4,CAT_CL_ORDENVISITA,CAT_CL_CLASIFICADOR5))
 					'##########################  TERMINA CODIGO PARA CREDITOS ####################
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
@@ -2539,8 +2579,9 @@ Sub JobDone(Job As HttpJob)
 					Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
 					Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
 					Dim HVD_NUM_TICKET As String = records(RESULT.Columns.Get("HVD_NUM_TICKET"))
+					Dim HVD_CODPROMO As String = records(RESULT.Columns.Get("HVD_CODPROMO"))
 '					Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_NUM_TICKET) VALUES (?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_NUM_TICKET))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO) VALUES (?,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO))
 				Next
 				
 			End If
@@ -2813,40 +2854,20 @@ Sub JobDone(Job As HttpJob)
 End Sub
 
 Private Sub connecta_LongClick
-	' CLIENTES NUEVOS
-'		Dim fotocn() As Byte
-'		Dim Dirp As String = File.DirInternal
-'		Dim Dir As String
-'		Dim Dir2 As String
-'		Dir = "/promotoriakmts"
-		
-	c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
+	' ENCUESTAS BAT
+	c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT")
 	If c.RowCount>0 Then
-		For i = 0 To c.RowCount - 1
-			c.Position = i
-			Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
-			If dia = 2  Then
-				Dim dialetra As String = "LUNES"
-			Else If dia = 3  Then
-				Dim dialetra As String = "MARTES"
-			Else If dia = 4  Then
-				Dim dialetra As String = "MIERCOLES"
-			Else If dia = 5  Then
-				Dim dialetra As String = "JUEVES"
-			Else If dia = 6  Then
-				Dim dialetra As String = "VIERNES"
-			Else If dia = 7  Then
-				Dim dialetra As String = "SABADO"
-			End If
+		For i=0 To c.RowCount -1
+			c.Position=i
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "insert_clientesnuevos_GUNA"
-			Log(c.GetString("CN_ID")&"    ,"& c.GetString("CN_FECHA")&"    ,"& c.GetString("CN_USER")&"    ,"& c.GetString("CN_LAT")&"    ,"& c.GetString("CN_LON")&"    ,"& c.GetString("CN_NOMBRE")&"    ,"& c.GetString("CN_DIRECCION")&"    ,"&ALMACEN& c.GetString("CN_RUTA")&"    ,"& "En espera"&c.GetString("CN_GIRO")&"    ,"&dialetra& c.GetString("CN_SOLICITA")&"    ,"& c.GetString("CN_COLONIA")&"    ,"& c.GetString("CN_TELEFONO"))
-			cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
-			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
+			cmd.Name = "insert_encuestas_bat_guna"
+			cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
+			B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
 		Next
 	End If
 	c.Close
+		
 End Sub
 
 Private Sub B4XPage_CloseRequest As ResumableSub
@@ -3463,7 +3484,7 @@ Sub resdia_Click
 
 	Private ru_o As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT distinct pe_cliente, pe_ruta FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA IS NULL", Null)
 '	Label2.Text = "N/A"
-	Log("#####   " & ru_o.RowCount)
+'	Log("#####   " & ru_o.RowCount)
 	Private total2 As String = 0
 	If ru_o.RowCount > 0 Then
 		For i2 = 0 To ru_o.RowCount - 1
@@ -3642,15 +3663,16 @@ Sub resdia_Click
 	End If
 	
 	
-	Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO') GROUP BY PE_PROID")
+	Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(PE_CANT,0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
 	If s7.RowCount > 0 Then
-		Dim totalstick As Int = 0
+		Dim totalstick As Double = 0
 		For sfsdf = 0 To s7.RowCount -1
 			s7.Position= sfsdf
 			Log("ENTRE AQUI")
 			Dim s8 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s7.GetString("PE_PROID")}'"$)
 			s8.Position = 0
 			totalstick = totalstick + (s7.GetString("PE_CANT")* s8.GetString("CAT_GP_CONVERSION3"))
+			Log(totalstick)
 		Next
 		Dim totaltotaltot As Int = totalstick/200
 		l_ru_pri.Text = totaltotaltot
@@ -3658,12 +3680,20 @@ Sub resdia_Click
 		l_ru_pri.Text = 0
 	End If
 	
-	Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
+	Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(PE_CANT,0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
 	If s0.RowCount > 0 Then
-		
-		s0.Position = 0
-		Log(s0.GetString("PE_CANT"))
-		L_REAL.Text = s0.GetString("PE_CANT")
+'		Log(s0.RowCount)
+		Dim pp As Double = 0
+		For lksahdjgsad = 0 To s0.RowCount -1
+			s0.Position = lksahdjgsad
+			Dim s9 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s0.GetString("PE_PROID")}'"$)
+			s9.Position = 0
+'			Log(s9.GetString("CAT_GP_CONVERSION3"))
+			pp = pp + (s0.GetString("PE_CANT")* s9.GetString("CAT_GP_CONVERSION3"))
+		Next
+'		s0.Position = 0
+'		Log(s0.GetString("PE_CANT"))
+		L_REAL.Text = NumberFormat2(pp,0,2,2,False)
 	Else
 		L_REAL.Text = 0
 	End If
@@ -3687,7 +3717,7 @@ Sub resdia_Click
 	Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
 	If s0.RowCount > 0 Then
 		s0.Position = 0
-		Log(s0.GetString("PE_CANT"))
+'		Log(s0.GetString("PE_CANT"))
 		Label33.Text = s0.GetString("PE_CANT")
 	Else
 		Label33.Text = 0
@@ -3712,7 +3742,7 @@ Sub resdia_Click
 	Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
 	If s0.RowCount > 0 Then
 		s0.Position = 0
-		Log(s0.GetString("PE_CANT"))
+'		Log(s0.GetString("PE_CANT"))
 		Label43.Text = s0.GetString("PE_CANT")
 	Else
 		Label43.Text = 0

B4A/C_Productos.bas

@@ -1685,8 +1685,11 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 				l_prodX.SetTextSizeAnimated(0, 13)
 				If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null And clv_prods_ll.GetValue(i).As(Map).Get("cant") > 0 Then
 					p_prods.Color=0xFFE2EEFF
+					Log(clv_prods_ll.GetValue(i).As(Map).Get("id"))
+					Log("AQUI")
+					Dim descped As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_DESC,0) AS PE_DESC FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}' and PE_CEDIS = '${Subs.traeAlmacen}'"$)
+					Log($"SELECT IFNULL(PE_DESC,0) AS PE_DESC FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_PROID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}' and PE_CEDIS = '${Subs.traeAlmacen}'"$)
 					
-					Dim descped As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_DESC,0) AS PE_DESC FROM PEDIDO WHERE PE_PROID = '${listaProds.get(i).As(Map).Get("id")}' AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)"$)
 					Log(listaProds.get(i).As(Map).Get("id"))
 					If descped.RowCount > 0 Then
 						descped.Position = 0
@@ -1711,8 +1714,9 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 						b_prodMenos.Enabled = False
 					End If
 				Else
-					
+'					Log(" NO AQUI")
 					cb_descuento.Visible = False
+					Log(listaProds.get(i).As(Map).Get("id"))
 
 					If clv_prods_ll.GetValue(i).As(Map).Get("prioridad") = "PRIORITARIO" Then
 						p_prods.Color = Colors.RGB(255, 212, 163) 'naranja

B4A/C_historicobatyodos.bas

@@ -70,7 +70,7 @@ Sub B4XPage_Appear
 	L_CANT.Text = ""
 	L_TOTAL.Text = ""
 	
-	c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from hist_ventastodos  WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+	c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from hist_ventastodos  WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ORDER BY HVD_CODPROMO, HVD_COSTO_TOT ASC")
 	c.Position = 0
 	Existe = c.GetString("EXISTE")
 	c.Close
@@ -114,7 +114,9 @@ Sub B4XPage_Appear
 			SUBSTR(HVD_FECHA, 7, 4) ASC,
 			SUBSTR(HVD_FECHA, 4, 2) ASC,
 			SUBSTR(HVD_FECHA, 1, 2) ASC,
-			HVD_NUM_TICKET ASC
+			HVD_NUM_TICKET ASC,
+			HVD_CODPROMO,
+			HVD_COSTO_TOT ASC
 	"$
 	
 	c = B4XPages.MainPage.skmt.ExecQuery(queryVentas)
@@ -130,10 +132,13 @@ Sub B4XPage_Appear
 			Dim producto As String = c.GetString("HVD_PRONOMBRE")
 			Dim cant As String = c.GetString("HVD_CANT")
 			Dim costo As String = c.GetString("HVD_COSTO_TOT")
+'			Dim Costotodo As Double = 0
 			
 			' Agregamos el separador de Ticket
 			If ticket <> currentTicket Then
-				ListView1.AddSingleLine($"🎫 TICKET: ${ticket}   |   📅 ${fecha}"$)
+'				Costotodo = Costotodo + costo
+'				ListView1.AddSingleLine($"🎫 TICKET: ${ticket} | 📅 ${fecha} ${CRLF} 💵 Total: $${NumberFormat2(Costotodo,0,2,2,False)}"$)
+				ListView1.AddSingleLine($"🎫 TICKET: ${ticket} | 📅 ${fecha}"$)
 				currentTicket = ticket
 			End If
 			

B4A/Guna Vistas V3.1.b4a

@@ -1,23 +1,29 @@
 Build1=Default,gunav2.keymon.com.mx
 File1=alert2.png
 File10=clientes.bal
-File100=rojo.png
-File101=salma.jpg
-File102=salma.png
-File103=seleccion.bal
-File104=senial.jpg
-File105=sync.png
-File106=tache_rojo.png
-File107=telefonos.bal
-File108=Ticket dia.jpg
-File109=ticketdia20.png
+File100=qr.bal
+File101=qr_gallina.jpg
+File102=QRPlanLealtad.png
+File103=resdia.bal
+File104=ResDia.jpg
+File105=resdia20.png
+File106=rojo.png
+File107=salma.jpg
+File108=salma.png
+File109=seleccion.bal
 File11=Clientes_Completos.bal
-File110=ticketsdia.bal
-File111=Tiendita.jpg
-File112=usuario.png
-File113=verde.png
-File114=Vista_todoslosclientes.bal
+File110=senial.jpg
+File111=sync.png
+File112=tache_rojo.png
+File113=telefonos.bal
+File114=Ticket dia.jpg
+File115=ticketdia20.png
+File116=ticketsdia.bal
+File117=Tiendita.jpg
+File118=usuario.png
+File119=verde.png
 File12=comis.bal
+File120=Vista_todoslosclientes.bal
 File13=contrasena.png
 File14=datoscliente.bal
 File15=detalle_promo.bal
@@ -26,93 +32,93 @@ File17=durakelo1.png
 File18=ENCUESSTA_M3.bal
 File19=ENCUESTA.bal
 File2=alerta.jpg
-File20=ENCUESTA_M4.bal
-File21=ENCUESTA_M5.bal
-File22=ENCUESTA_PED.bal
-File23=engrane.jpg
-File24=engrane.png
-File25=engrane18.png
-File26=engraneactual.png
-File27=errormanager.bal
-File28=ESNCUESTA_M2.bal
-File29=fondo_kmt.jpg
+File20=encuesta_1.bal
+File21=encuesta_2.bal
+File22=ENCUESTA_M4.bal
+File23=ENCUESTA_M5.bal
+File24=ENCUESTA_PED.bal
+File25=engrane.jpg
+File26=engrane.png
+File27=engrane18.png
+File28=engraneactual.png
+File29=errormanager.bal
 File3=alerta_amarilla.png
-File30=fondo-rojo.jpg
-File31=fondo-rojo.png
-File32=foto.bal
-File33=gps20.png
-File34=guardagestion.bal
-File35=guna.png
-File36=guna_192x192.jpg
-File37=guna_viejo.png
-File38=guna18.png
-File39=guna-fondo.jpg
+File30=ESNCUESTA_M2.bal
+File31=fondo_kmt.jpg
+File32=fondo-rojo.jpg
+File33=fondo-rojo.png
+File34=foto.bal
+File35=gps20.png
+File36=guardagestion.bal
+File37=guna.png
+File38=guna_192x192.jpg
+File39=guna_viejo.png
 File4=amarillo.png
-File40=guna-fondo.png
-File41=Hacer pedido.jpg
-File42=hacerpedido30.png
-File43=historicobat.bal
-File44=historicobat2.bal
-File45=ic_cloud_download_white_24dp.png
-File46=images.png
-File47=infonavit1.jpg
-File48=inicioFinVenta.bal
-File49=intmex_logo_192x192.jpg
+File40=guna18.png
+File41=guna-fondo.jpg
+File42=guna-fondo.png
+File43=Hacer pedido.jpg
+File44=hacerpedido30.png
+File45=historicobat.bal
+File46=historicobat2.bal
+File47=ic_cloud_download_white_24dp.png
+File48=images.png
+File49=infonavit1.jpg
 File5=anterior.jpg
-File50=itembuttonblue.png
-File51=keymon_logo.png
-File52=kmt.db
-File53=login.bal
-File54=Logo Guna_192x192.png
-File55=Logo Guna-01.png
-File56=logo sanfer.jpg
-File57=Logo_192x192.jpg
-File58=logo_exitus1.jpg
-File59=logo-guna-18.png
+File50=inicioFinVenta.bal
+File51=intmex_logo_192x192.jpg
+File52=itembuttonblue.png
+File53=keymon_logo.png
+File54=kmt.db
+File55=login.bal
+File56=Logo Guna_192x192.png
+File57=Logo Guna-01.png
+File58=logo sanfer.jpg
+File59=Logo_192x192.jpg
 File6=bus-ar.png
-File60=logo-guna-contorno.png
-File61=MainPage.bal
-File62=Malo.jpg
-File63=mapa.bal
-File64=mapa_rutas.bal
-File65=maparutas.bal
-File66=mas-azul.png
-File67=mas-azul-red.png
-File68=mas-azul-red1.png
-File69=menos.png
+File60=logo_exitus1.jpg
+File61=logo-guna-18.png
+File62=logo-guna-contorno.png
+File63=MainPage.bal
+File64=Malo.jpg
+File65=mapa.bal
+File66=mapa_rutas.bal
+File67=maparutas.bal
+File68=marker-azul.png
+File69=marker-negro.png
 File7=carrito.png
-File70=menosred.png
-File71=menos-red.png
-File72=nota (conflict 2022-07-08-00-16-40).bal
-File73=nota.bal
-File74=nota2.bal
-File75=nota3.bal
-File76=noventa.bal
-File77=nuevocliente.bal
-File78=nuevo-cliente20.png
-File79=Nvo Cliente.jpg
+File70=marker-rojo.png
+File71=marker-verde.png
+File72=mas-azul.png
+File73=mas-azul-red.png
+File74=mas-azul-red1.png
+File75=menos.png
+File76=menosred.png
+File77=menos-red.png
+File78=nota (conflict 2022-07-08-00-16-40).bal
+File79=nota.bal
 File8=celltitle.bal
-File80=p&g.png
-File81=palomita_verde.png
-File82=Panel_Nuevocliente.bal
-File83=pedido.bal
-File84=planfia_logo.png
-File85=planfia_logo_old.png
-File86=planfia_logo_old2.png
-File87=principal.bal
-File88=proditem.bal
-File89=proditem1.bal
+File80=nota2.bal
+File81=nota3.bal
+File82=noventa.bal
+File83=nuevocliente.bal
+File84=nuevo-cliente20.png
+File85=Nvo Cliente.jpg
+File86=p&g.png
+File87=palomita_verde.png
+File88=Panel_Nuevocliente.bal
+File89=pedido.bal
 File9=cliente.bal
-File90=proditem2.bal
-File91=productos.bal
-File92=productos_.bal
-File93=promociones.bal
-File94=qr.bal
-File95=qr_gallina.jpg
-File96=QRPlanLealtad.png
-File97=resdia.bal
-File98=ResDia.jpg
-File99=resdia20.png
+File90=planfia_logo.png
+File91=planfia_logo_old.png
+File92=planfia_logo_old2.png
+File93=principal.bal
+File94=proditem.bal
+File95=proditem1.bal
+File96=proditem2.bal
+File97=productos.bal
+File98=productos_.bal
+File99=promociones.bal
 FileGroup1=Default Group
 FileGroup10=Default Group
 FileGroup100=Default Group
@@ -131,7 +137,13 @@ FileGroup111=Default Group
 FileGroup112=Default Group
 FileGroup113=Default Group
 FileGroup114=Default Group
+FileGroup115=Default Group
+FileGroup116=Default Group
+FileGroup117=Default Group
+FileGroup118=Default Group
+FileGroup119=Default Group
 FileGroup12=Default Group
+FileGroup120=Default Group
 FileGroup13=Default Group
 FileGroup14=Default Group
 FileGroup15=Default Group
@@ -297,7 +309,7 @@ Module6=C_Clientes
 Module7=C_ClientesCompletos
 Module8=C_Cuestionario
 Module9=C_Historico
-NumberOfFiles=114
+NumberOfFiles=120
 NumberOfLibraries=36
 NumberOfModules=32
 Version=12.8
@@ -305,7 +317,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 6.02.20
+	#VersionName: 6.03.02
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Guna Vistas V3.1.b4a.meta

@@ -26,7 +26,7 @@ ModuleBookmarks30=
 ModuleBookmarks31=
 ModuleBookmarks32=
 ModuleBookmarks4=
-ModuleBookmarks5=7791
+ModuleBookmarks5=8122
 ModuleBookmarks6=
 ModuleBookmarks7=
 ModuleBookmarks8=
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=6,8,9,10,11
 ModuleClosedNodes9=
-NavigationStack=C_Productos,b_devmenos_Click,2458,0,C_Productos,b_devmas_Click,2480,0,Subs,actualizaProducto,1793,0,Subs,guardaProductoSinGestion,1832,0,C_Promos,b_terminar1_Click,989,0,C_Promos,b_continuar_Click,1026,0,C_Cliente,recalculoXcant,1441,4,C_Principal,Class_Globals,14,0,C_Cliente,B_IMP_Click,3169,0,C_Cliente,Impresion4,3236,0,C_Principal,JobDone,1625,0
+NavigationStack=C_Principal,Subir_Click,745,6,C_Cliente,b_guadarenc_Click,8450,6,C_Principal,connecta_LongClick,2850,0,C_Principal,connecta_Click,2936,0,C_Principal,JobDone,1638,0,C_Cliente,B4XPage_CloseRequest,3253,0,C_Cliente,gest_Click,2118,6,C_Cliente,B4XPage_Appear,589,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,B4XPage_Created,547,0
 SelectedBuild=0
-VisibleModules=29,2,18,30,5,15,19,21,4,1
+VisibleModules=29,2,18,30,5,28

B4A/MAPA_RUTAS.bas

@@ -115,6 +115,120 @@ Sub Activity_Create(FirstTime As Boolean)
 End Sub
 
 Sub MapFragment1_Ready
+'	Log("ENTRANDO MapFragment1_Ready")
+'	gmap = MapFragment1.GetMap
+'	gmap.IsInitialized
+'	'todos= 1
+'	'permisos
+'	
+'	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+'	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+'	gmap.MyLocationEnabled = Result
+'		
+'	Dim JavaMapsObject As JavaObject
+'	JavaMapsObject = gmap.GetUiSettings
+'	JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
+'	'''''''----------------------------MARKER AZUL - POR VISITAR
+'	If azul = 1 Or todos = 1  Then
+'		c.IsInitialized
+'		c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info3 where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' ")
+'		skmt.Initialize(ruta,"kmt.db", True)
+'		If c.RowCount > 0 Then
+'			For i = 0 To c.RowCount - 1
+'				c.Position = i
+''				Log(i&"|"&c.GetString("CAT_CL_LAT")&"|")
+'				LatitudRu = 0
+'				If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
+'				LongitudRU = 0
+'				If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
+'				CODIGO=c.GetString("CAT_CL_CODIGO")
+'				Tienda= c.GetString("CAT_CL_NOMBRE")
+'				MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
+'				MARK_AZUL.Snippet = Tienda
+'			Next
+'		End If
+'		c .Close
+''		Log("4")
+'
+'		If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
+'	End If
+'	'''''''----------------------------MARKER VERDE - VENTA
+'	If verde =1 Or todos = 1  Then
+'		c2.IsInitialized
+'		c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'		For i = 0 To c2.RowCount -1
+'			c2.Position = i
+'			LongitudRU = c2.GetString("CAT_CL_LONG")
+'			LatitudRu = c2.GetString("CAT_CL_LAT")
+'			CODIGO=c2.GetString("CAT_CL_CODIGO")
+'			Tienda= c2.GetString("CAT_CL_NOMBRE")
+'			MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_GREEN)
+'			MARK_VERDE.Snippet = Tienda
+'		Next
+'	Else
+'		If verde =1 Or todos = 1  Then
+'			c2.IsInitialized
+'			c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'			For i = 0 To c2.RowCount -1
+'				c2.Position = i
+'				LongitudRU = c2.GetString("CAT_CL_LONG")
+'				LatitudRu = c2.GetString("CAT_CL_LAT")
+'				CODIGO=c2.GetString("CAT_CL_CODIGO")
+'				Tienda= c2.GetString("CAT_CL_NOMBRE")
+'				MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_GREEN)
+'				MARK_VERDE.Snippet = Tienda
+'			Next
+'			c2 .Close
+'			If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
+'		End If
+'	End If
+''	'''''''----------------------------MARKER ROJO - NO VENTA
+'	
+'	If rojo =1 Or todos = 1 Then
+'		c3.IsInitialized
+'		c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'		For i = 0 To c3.RowCount -1
+'			c3.Position = i
+'			LongitudRU = c3.GetDouble("CAT_CL_LONG")
+'			LatitudRu = c3.GetDouble("CAT_CL_LAT")
+'			CODIGO=c3.GetString("CAT_CL_CODIGO")
+'			Tienda= c3.GetString("CAT_CL_NOMBRE")
+'			MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
+'			MARK_ROJO.Snippet = Tienda
+'		Next
+'	Else
+'		If rojo =1 Or  todos = 1  Then
+'			c3.IsInitialized
+'			c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'			For i = 0 To c3.RowCount -1
+'				c3.Position = i
+'				LongitudRU = c3.GetDouble("CAT_CL_LONG")
+'				LatitudRu = c3.GetDouble("CAT_CL_LAT")
+'				CODIGO=c3.GetString("CAT_CL_CODIGO")
+'				Tienda= c3.GetString("CAT_CL_NOMBRE")
+'				MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
+'				MARK_ROJO.Snippet = Tienda
+'			Next
+'			If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
+'			c3.Close
+'		End If
+'	End If
+'	''------------------------------
+'
+''	MARK_CEDIS = gmap.AddMarker3("19.3961802","-99.0784293","CEDIS", LoadBitmap(File.DirAssets, "marker-azul-0.png"))
+''	If  MARK_VERDE.Visible Or MARK_ROJO.Visible  Then
+''		MARK_CEDIS.Remove
+''	End If
+'	Dim aa As CameraPosition
+'	aa.Initialize(LatitudRu,LongitudRU,15)''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
+'	gmap.AnimateCamera(aa)
+'	
+'	'''''---------------------- ESTO ES PARA LOS CLICK EN LAS VENTANAS D INFORMACION-----------
+'	Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
+'	OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
+'	GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1)
+
+
 	Log("ENTRANDO MapFragment1_Ready")
 	gmap = MapFragment1.GetMap
 	gmap.IsInitialized
@@ -129,13 +243,15 @@ Sub MapFragment1_Ready
 	JavaMapsObject = gmap.GetUiSettings
 	JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
 	'''''''----------------------------MARKER AZUL - POR VISITAR
-	If azul = 1 Or todos = 1  Then
+	If azul = 1 Or todos = 1 Then
 		c.IsInitialized
-		c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info3 where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' ")
-		skmt.Initialize(ruta,"kmt.db", True)
+		c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG,CAT_CL_ORDENVISITA from kmt_info3 where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' ")
+'		skmt.Initialize(ruta,"kmt.db", True)
+		Log($"============== Resultados = ${c.RowCount}"$)
 		If c.RowCount > 0 Then
 			For i = 0 To c.RowCount - 1
 				c.Position = i
+'				Log($"|${c.GetString("CAT_CL_LONG")}|${c.GetString("CAT_CL_LAT")}|"$)
 '				Log(i&"|"&c.GetString("CAT_CL_LAT")&"|")
 				LatitudRu = 0
 				If c.GetString("CAT_CL_LAT") <> "" Then LatitudRu = c.GetString("CAT_CL_LAT")
@@ -143,75 +259,90 @@ Sub MapFragment1_Ready
 				If c.GetString("CAT_CL_LONG") <> "" Then LongitudRU = c.GetString("CAT_CL_LONG")
 				CODIGO=c.GetString("CAT_CL_CODIGO")
 				Tienda= c.GetString("CAT_CL_NOMBRE")
-				MARK_AZUL = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_BLUE)
+				NumSerie=c.GetInt("CAT_CL_ORDENVISITA")
+'				MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-azul-" & NumSerie &".png"))
+				MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-azul.png"), NumSerie))
 				MARK_AZUL.Snippet = Tienda
 			Next
 		End If
 		c .Close
 '		Log("4")
-
 		If MARK_AZUL.IsInitialized Then LIST_AZUL.Add(MARK_AZUL)
 	End If
 	'''''''----------------------------MARKER VERDE - VENTA
-	If verde =1 Or todos = 1  Then
+	If verde = 1 Or todos = 1  Then
 		c2.IsInitialized
-		c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_ORDENVISITA from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		Log($"============== Resultados = ${c2.RowCount}"$)
 		For i = 0 To c2.RowCount -1
 			c2.Position = i
-			LongitudRU = c2.GetString("CAT_CL_LONG")
-			LatitudRu = c2.GetString("CAT_CL_LAT")
-			CODIGO=c2.GetString("CAT_CL_CODIGO")
-			Tienda= c2.GetString("CAT_CL_NOMBRE")
-			MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_GREEN)
-			MARK_VERDE.Snippet = Tienda
-		Next
-	Else
-		If verde =1 Or todos = 1  Then
-			c2.IsInitialized
-			c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
-			For i = 0 To c2.RowCount -1
-				c2.Position = i
+'			Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
+			If IsNumber(c2.GetString("CAT_CL_LONG")) Then
 				LongitudRU = c2.GetString("CAT_CL_LONG")
 				LatitudRu = c2.GetString("CAT_CL_LAT")
 				CODIGO=c2.GetString("CAT_CL_CODIGO")
 				Tienda= c2.GetString("CAT_CL_NOMBRE")
-				MARK_VERDE = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_GREEN)
+				NumSerie=c2.GetInt("CAT_CL_ORDENVISITA")
+'				MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
+				MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), NumSerie))
 				MARK_VERDE.Snippet = Tienda
-			Next
-			c2 .Close
-			If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
-		End If
+			End If
+		Next
+'	Else
+'		If verde = 1 Or todos = 1  Then
+'			c2.IsInitialized
+'			c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'			Log($"============== Resultados = ${c2.RowCount}"$)
+'			For i = 0 To c2.RowCount -1
+'				c2.Position = i
+		''				Log($"|${c2.GetString("CAT_CL_LONG")}|${c2.GetString("CAT_CL_LAT")}|"$)
+'				LongitudRU = c2.GetString("CAT_CL_LONG")
+'				LatitudRu = c2.GetString("CAT_CL_LAT")
+'				CODIGO=c2.GetString("CAT_CL_CODIGO")
+'				Tienda= c2.GetString("CAT_CL_NOMBRE")
+'				MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
+'				MARK_VERDE.Snippet = Tienda
+'			Next
+'			c2 .Close
+'			If MARK_VERDE.IsInitialized Then LIST_VERDE.Add(MARK_VERDE)
+'		End If
 	End If
 '	'''''''----------------------------MARKER ROJO - NO VENTA
 	
-	If rojo =1 Or todos = 1 Then
+	If rojo = 1 Or todos = 1 Then
 		c3.IsInitialized
-		c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_ORDENVISITA from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		Log($"============== Resultados = ${c3.RowCount}"$)
 		For i = 0 To c3.RowCount -1
 			c3.Position = i
+'			Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
 			LongitudRU = c3.GetDouble("CAT_CL_LONG")
 			LatitudRu = c3.GetDouble("CAT_CL_LAT")
 			CODIGO=c3.GetString("CAT_CL_CODIGO")
 			Tienda= c3.GetString("CAT_CL_NOMBRE")
-			MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
+			NumSerie=c3.GetInt("CAT_CL_ORDENVISITA")
+'			MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-rojo-"&NumSerie&".png"))
+			MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-rojo.png"), NumSerie))
 			MARK_ROJO.Snippet = Tienda
 		Next
-	Else
-		If rojo =1 Or  todos = 1  Then
-			c3.IsInitialized
-			c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
-			For i = 0 To c3.RowCount -1
-				c3.Position = i
-				LongitudRU = c3.GetDouble("CAT_CL_LONG")
-				LatitudRu = c3.GetDouble("CAT_CL_LAT")
-				CODIGO=c3.GetString("CAT_CL_CODIGO")
-				Tienda= c3.GetString("CAT_CL_NOMBRE")
-				MARK_ROJO = gmap.AddMarker2(LatitudRu, LongitudRU, CODIGO, gmap.HUE_RED)
-				MARK_ROJO.Snippet = Tienda
-			Next
-			If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
-			c3.Close
-		End If
+'	Else
+'		If rojo = 1 Or todos = 1 Then
+'			c3.IsInitialized
+'			c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+'			Log($"============== Resultados = ${c3.RowCount}"$)
+'			For i = 0 To c3.RowCount -1
+'				c3.Position = i
+		''				Log($"|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
+'				LongitudRU = c3.GetDouble("CAT_CL_LONG")
+'				LatitudRu = c3.GetDouble("CAT_CL_LAT")
+'				CODIGO=c3.GetString("CAT_CL_CODIGO")
+'				Tienda= c3.GetString("CAT_CL_NOMBRE")
+'				MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
+'				MARK_ROJO.Snippet = Tienda
+'			Next
+'			If MARK_ROJO.IsInitialized Then LIST_ROJO.Add(MARK_ROJO)
+'			c3.Close
+'		End If
 	End If
 	''------------------------------
 
@@ -228,6 +359,7 @@ Sub MapFragment1_Ready
 	OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
 	GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1)
 
+
 End Sub
 '
 ''''--------------------------				PRUEBA CON MARKER _CLICK

B4A/Objects/AndroidManifest.xml

@@ -3,7 +3,7 @@
 	xmlns:android="http://schemas.android.com/apk/res/android"
 	package="gunav2.keymon.com.mx"
 	android:versionCode="1"
-	android:versionName="6.02.20"
+	android:versionName="6.03.02"
 	android:installLocation="internalOnly">
 	
 	<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="30"/>
@@ -257,6 +257,14 @@
 			android:name=".starter$starter_BR"
 			android:exported="true">
 		</receiver>
+		<activity
+			android:windowSoftInputMode="stateHidden"
+			android:launchMode="singleTop"
+			android:name=".mapa_rutas"
+			android:label="Guna Preventa"
+			android:screenOrientation="portrait"
+			android:exported="true">
+		</activity>
 		<service
 			android:name=".appupdater"
 			android:exported="true">
@@ -273,14 +281,6 @@
 			android:name=".firebasemessaging$firebasemessaging_BR"
 			android:exported="true">
 		</receiver>
-		<activity
-			android:windowSoftInputMode="stateHidden"
-			android:launchMode="singleTop"
-			android:name=".mapa_rutas"
-			android:label="Guna Preventa"
-			android:screenOrientation="portrait"
-			android:exported="true">
-		</activity>
 		<service
 			android:name=".tracker"
 			android:exported="true"