- VERSION 5.06.08

- Se implementaron los globos dinamicos en el mapa.
- Se centro panel de clientes.
- Se desaparecen los botones de venta y No Venta en cliente si el cliente es nuevo.
- Se ajusto el tamaño del listview de clientes para que no se saga del panel.

B4A/B4XMainPage.bas

@@ -715,8 +715,8 @@ End Sub
 
 Sub i_engrane_Click
 	lv_server.Clear
-	lv_server.AddSingleLine("http://keymon.lat:1781")
-	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
+	lv_server.AddSingleLine("http://keymon.net:1781")
+	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://192.99.93.204:1781")
 '	l_server.Text = Starter.DBReqServer
 	et_server.Text = Starter.DBReqServer
 	Log(222)

B4A/C_Cliente.bas

@@ -51,11 +51,11 @@ Sub Class_Globals
 	Dim la_col As Label
 	Dim la_cp As Label
 	Dim la_zona As Label
-	Dim gest As Button
+	Dim b_venta As Button
 	Dim la_saldotot As Label
 	Dim la_saldooper As Label
 	
-	Dim Tels As Button
+	Dim b_noVenta As Button
 	Dim Label10 As Label
 	Dim Label11 As Label
 	
@@ -202,12 +202,12 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
-	Tels.Enabled = True
-	gest.Enabled = True
+	b_noVenta.Enabled = True
+	b_venta.Enabled = True
 '	c = Starter.skmt.ExecQuery("SELECT ID FROM VENDIDOS WHERE ID IN (Select cuenta from cuentaa)")
 '	If c.RowCount > 0 Then
-'		Tels.Enabled = False
-'		gest.Enabled = False
+'		b_noVenta.Enabled = False
+'		b_venta.Enabled = False
 '	End If
 	reqManager.Initialize(Me, Starter.DBReqServer)
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
@@ -263,7 +263,7 @@ Sub B4XPage_Appear
 		If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0"  Then
 			L_QR.TEXT = "SIN CODIGO"
 			L_QR.TextColor = Colors.Red
-			gest.VISIBLE = False
+			b_venta.VISIBLE = False
 			BT_QR.Visible = True
 		Else
 			L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO")
@@ -303,8 +303,8 @@ Sub B4XPage_Appear
 	End If
 	c.Close
 	If ALMACEN = "1" Then
-		Tels.Visible = False
-		gest.Visible = False
+		b_noVenta.Visible = False
+		b_venta.Visible = False
 '		B_GPS.Visible = False
 	End If
 	If ALMACEN = "4"  Then
@@ -328,8 +328,8 @@ Sub B4XPage_Appear
 '		b_like.Visible = False
 	End If
 	If ALMACEN = "16" Or ALMACEN = "13" Then
-		Tels.Visible = True
-		gest.Visible = True
+		b_noVenta.Visible = True
+		b_venta.Visible = True
 	End If
 	CallSubDelayed(Tracker, "Track")
 	
@@ -347,10 +347,13 @@ Sub B4XPage_Appear
 '		Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
 		GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
 	End If
-	Tels.Visible = True
-	gest.Visible = True
+	b_noVenta.Visible = True
+	b_venta.Visible = True
 	'Si el cliente es nuevo, no aparece el boton de venta
-	If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False
+	If la_cuenta.text.SubString2(0,1) = "N" Then
+		b_venta.Visible = False
+		b_noVenta.Visible = False
+	End If
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -373,11 +376,15 @@ Sub GPS_LocationChanged (Location1 As Location)
 	'now we need the distance between our location and the target location
 	Dim distance As Long
 	distance =    l1.DistanceTo(l2)  'the result is in meter
-	gest.Visible = True
+'	b_venta.Visible = True
 '	If distance < 100 Then
-		LA_GEO.TextColor = Colors.Blue
-		Tels.Visible = True
-		gest.Visible = True
+	LA_GEO.TextColor = Colors.Blue
+	b_noVenta.Visible = True
+	b_venta.Visible = True
+	If la_cuenta.text.SubString2(0,1) = "N" Then
+		b_venta.Visible = False
+		b_noVenta.Visible = False
+	End If
 '	Else
 '		LA_GEO.TextColor = Colors.Red
 	'	End If
@@ -400,7 +407,7 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 	
 End Sub
 
-Sub gest_Click
+Sub b_venta_Click
 	B4XPages.MainPage.tipo_venta = "PREVENTA"
 	
 	'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
@@ -409,7 +416,7 @@ Sub gest_Click
 	B4XPages.ShowPage("productos")
 End Sub
 
-Sub Tels_Click
+Sub b_noVenta_Click
 	B4XPages.ShowPage("NoVenta")
 End Sub
 
@@ -704,16 +711,16 @@ Sub B_GUARDA_C_Click
 	Panel1.Visible = False
 '	b_like.Visible = True
 	Tar.Visible = True
-	Tels.Visible = True
-	gest.Visible = True
+	b_noVenta.Visible = True
+	b_venta.Visible = True
 '	b_like.Visible = False
 	Guardar.Visible = True
 End Sub
 
-Sub b_venta_Click
-	DateTime.DateFormat = "MM/dd/yyyy"
-	sDate=DateTime.Date(DateTime.Now)
-	sTime=DateTime.Time(DateTime.Now)
+'Sub b_venta_Click
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
 '	s=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
 '	s.Position= 0
 '	If s.GetString("CUANTOS") = 0 Then
@@ -741,7 +748,7 @@ Sub b_venta_Click
 '		B4XPages.ShowPage("Productos")
 '	End If
 '	s.Close
-End Sub
+'End Sub
 
 Sub B_E_NEXT_Click
 	If E_RES_E.Text <> "" Then
@@ -781,7 +788,7 @@ Sub b_like_Click
 '	Panel1.Visible = True
 '	b_like.Visible = False
 '	Tar.Visible = False
-'	Tels.Visible = False
+'	b_noVenta.Visible = False
 '	gest.Visible = False
 '	b_venta.Visible = False
 '	Guardar.Visible = False

B4A/C_Clientes.bas

@@ -31,6 +31,7 @@ Sub Class_Globals
 	Dim ruta As String
 	Dim q_buscar As String
 	Private p_clientes As Panel
+	Private p_lvClientes As Panel
 End Sub
 
 'You can add more parameters here.
@@ -93,7 +94,8 @@ Sub B4XPage_Appear
 	c.Close
 	p_clientes.Height = Root.Height
 	ListView1.Height = Root.Height * 0.65
-'	ListView1.
+	ListView1.Height = p_lvClientes.Height * 0.92
+	Subs.centraPanel(p_lvClientes, Root.Width)
 	entro = "4"
 End Sub
 

B4A/C_Principal.bas

@@ -473,7 +473,7 @@ Sub B4XPage_Appear
 	c.Close
 	'///////
 	CallSub(Starter, "ENVIA_ULTIMA_GPS")
-	
+
 	c=Starter.skmt.ExecQuery("select AUTORIZADO from BANDERA")
 	c.Position = 0
 	If c.RowCount > 0 Then