cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 19:49:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.12.14

Browse Source 
- Se agrego codigo para que el label de la notificacion tenga scroll vertical y se vaya al inicio del texto
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-19 20:12:06 -06:00
parent 409c224820
commit f0116e375d
4 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Cliente.bas
View File

@@ -501,10 +501,8 @@ Sub B4XPage_Appear
l_atiende.Text = "N/A" l_atiende.Text = "N/A"
If c.GetString("CAT_CL_ATIENDE1") <> Null And c.GetString("CAT_CL_ATIENDE1") <> "null" Then l_atiende.Text = c.GetString("CAT_CL_ATIENDE1") If c.GetString("CAT_CL_ATIENDE1") <> Null And c.GetString("CAT_CL_ATIENDE1") <> "null" Then l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2") l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
l_segmento2.text = "N/A" l_segmento2.text = "N/A"
If c.GetString("CAT_CL_SEGMENTO") <> Null Then l_segmento2.text = c.GetString("CAT_CL_SEGMENTO") If c.GetString("CAT_CL_SEGMENTO") <> Null Then l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
b_inicioFinVenta.Text = "INICIAR VENTA" b_inicioFinVenta.Text = "INICIAR VENTA"
b_inicioFinVenta.BringToFront b_inicioFinVenta.BringToFront
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red) ' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
@@ -847,6 +845,19 @@ Sub B4XPage_Appear
p_transparenciaNoti.BringToFront p_transparenciaNoti.BringToFront
End If End If
c.Close c.Close
' Este codigo es para hacer que el Label de las notificaciones tenga SCROLLVERTICAL.
Dim labeljo, scrollerjo As JavaObject
labeljo = l_notificacionTexto
scrollerjo.InitializeNewInstance("android.text.method.ScrollingMovementMethod", Null)
labeljo.RunMethod("setMovementMethod", Array(scrollerjo)) ' Asigna el método de movimiento para permitir scroll
labeljo.RunMethod("setHorizontallyScrolling", Array(False)) ' CAMBIO: Para scroll vertical, esto DEBE ser False
labeljo.RunMethod("setVerticalScrollBarEnabled", Array(True)) ' Opcional: Forzar a que el scroll sea vertical explícitamente si el contenido es grande
' Forzar el scroll al inicio (0,0)
Sleep(0)
' El primer 0 es la posición X (horizontal), el segundo es la posición Y (vertical)
labeljo.RunMethod("scrollTo", Array(0, 0))
'Termina codigo de label horzontal
End Sub End Sub
Sub Printer1_Connected (Success As Boolean) Sub Printer1_Connected (Success As Boolean)

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/KelloggsV4.b4a
View File

@@ -917,7 +917,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 5.12.10 #VersionName: 5.12.14
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

6
B4A/KelloggsV4.b4a.meta
View File

@@ -89,7 +89,7 @@ ModuleClosedNodes26=24,26,31,32,33,35
ModuleClosedNodes27= ModuleClosedNodes27=
ModuleClosedNodes28=4 ModuleClosedNodes28=4
ModuleClosedNodes29= ModuleClosedNodes29=
ModuleClosedNodes3=3 ModuleClosedNodes3=
ModuleClosedNodes30= ModuleClosedNodes30=
ModuleClosedNodes31= ModuleClosedNodes31=
ModuleClosedNodes32=116 ModuleClosedNodes32=116
@@ -100,6 +100,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Principal,cargar_Click,888,0,C_Principal,enviaPedidoCliente,3646,0,C_Principal,SUBIR_INFO_PEDIDO,3276,6,C_Cliente,Subir_Pedido_Con_Integridad,4547,0,C_Cliente,Guardar_Click,1083,0,C_Cliente,mandaPendientes,1089,1,C_Principal,JobDone,1873,0,C_Principal,enviaPedidoBatch,3521,6,Main,Process_Globals,32,0,Main,Globals,34,0 NavigationStack=C_Principal,JobDone,2227,0,Diseñador Visual,cliente.bal,-100,2,C_Cliente,Guardar_Click,1083,0,C_Cliente,mandaPendientes,1089,1,C_Principal,enviaPedidoBatch,3521,6,Main,Globals,34,0,Main,Process_Globals,28,0,C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Created,399,6,C_Cliente,B4XPage_Appear,850,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=31,1,12,3,32,13,14,20,19 VisibleModules=31,1,12,3,32,13,14,20,19,33