cheveguerra/Mazapa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa.git synced 2026-04-17 21:06:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.05.21

Browse Source 
- 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
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-05-22 18:33:00 -06:00
parent 2249c2449f
commit b180ded7db
8 changed files with 38 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_Bitacora.bas
View File

@@ -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

7
B4A/C_Cliente.bas
View File

@@ -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

8
B4A/C_Productos.bas
View File

@@ -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

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

BIN
B4A/Files/iniciofinventa.bal
View File

Binary file not shown.

BIN
B4A/Files/proditem.bal
View File

Binary file not shown.

48
B4A/MAZAPA.b4a
View File

File diff suppressed because one or more lines are too long

4
B4A/MAZAPA.b4a.meta
View File

@@ -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