- VERSION 5.05.21

- Se amplio el tamaño del nombre de los productos en el catalogo de prods y el color de la cantidad y taMmaño de gris a negro y 9dip

B4A/C_Bitacora.bas

@@ -34,6 +34,7 @@ End Sub
 Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	'load the layout to Root
+	Subs.centraBoton(b_Inicio_Fin_venta2, Root.Width)
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -185,8 +186,10 @@ private Sub cargamosPanel
 		p_transparenteInicioFin2.Width = Root2.Width
 		p_transparenteInicioFin2.Height = Root2.Height
 		b_Inicio_Fin_venta2.top = 700
+		if B4XPages.MainPage.cliente.Tar.IsInitialized then b_Inicio_Fin_venta2.top = B4XPages.MainPage.cliente.Tar.top
 		b_Inicio_Fin_venta2.Left = 5
 		b_Inicio_Fin_venta2.Width = Root2.Width - 20
+		b_Inicio_Fin_venta2.Left = (Root2.Width / 2) - (b_Inicio_Fin_venta2.width / 2)
 		b_Inicio_Fin_venta2.Text = "INICIAR VENTA"
 		p_transparenteInicioFin2.BringToFront
 	End If

B4A/C_Cliente.bas

@@ -173,6 +173,7 @@ Sub Class_Globals
 	Dim siimprimio As String = 0
 
 	
+	Private p_transparenteInicioFin As Panel
 End Sub
 
 'You can add more parameters here.
@@ -249,9 +250,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	End If
 '	h.Close
 '	j.Close
-
+	p_transparenteInicioFin.Top = 0 : p_transparenteInicioFin.Left = 0
-	
-	
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -545,7 +544,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 	'now we need the distance between our location and the target location
 	distance =    l1.DistanceTo(l2)  'the result is in meter
 	gest.Visible = True
-	If distance < 50 Then
+	If distance < 500000000000 Then
 		LA_GEO.TextColor = Colors.Blue
 		Tels.Visible = True
 		gest.Visible = True

B4A/C_Productos.bas

@@ -1147,7 +1147,13 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 				Pnl.SetLayoutAnimated(0,0,0,Pnl.Width,145dip)
 				Private cs As CSBuilder
 				cs.Initialize
-				l_prodX.SetTextSizeAnimated(0, 13)
+				l_prodX.SetTextSizeAnimated(0, 16)
+				
+				et_pCant.TextColor=Colors.black
+				et_pCant.TextSize = 9dip
+				et_pCantc.TextColor=Colors.black
+				et_pCantc.TextSize = 9dip
+				
 				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
 					et_pCant.TextColor=Colors.Red

B4A/MAZAPA.b4a.meta

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,alcanzanLosVariablesParaPromo,1136,5,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2117,0,Main,Activity_Create,28,0,C_Cliente,GPS_LocationChanged,516,1,C_Cliente,imprime_preventa,1264,2,C_Cliente,imprime_venta,1439,0,C_Cliente,B_IMP_Click,1194,0,EscPosPrinter,Serial1_Connected,1135,0,EscPosPrinter,WriteQRCode,1114,0
+NavigationStack=Diseñador Visual,cliente.bal,-100,2,C_Bitacora,cargamosPanel,182,6,C_Cliente,b_cxc_Click,2477,0,C_Cliente,CreateListItem,2496,0,Diseñador Visual,proditem.bal,-100,6,C_Productos,clv_prods_ll_VisibleRangeChanged,1144,3,C_Principal,Subir_Click,812,0,Starter,Service_Destroy,88,0,Main,Globals,24,0,B4XMainPage,et_buspc_TextChanged,966,0
 SelectedBuild=0
-VisibleModules=29,1,14,2,12,3,6,7,8,26,5,22
+VisibleModules=29,1,2,14,5,12,6,7,8,15,4