cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +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

23
B4A/C_Cliente.bas
View File

@@ -417,7 +417,7 @@ Sub B4XPage_Appear
clienteId = kh.traeCliente
P_DOE.Visible = False
dentroDeGeocerca = False
' Log($"TOTAL VENTA: ${kh.traeTotalCliente}"$)
B_VENTA.Visible = False
b_noVenta.Visible = False
@@ -429,10 +429,10 @@ Sub B4XPage_Appear
reqManager.Initialize(Me, Starter.DBReqServer)
reqManagerW.Initialize
usarGeocerca = kh.traeUsarGeocerca
'Para el almacen 12 (GDL) no se usa la geocerca
' If kh.traeAlmacen = 12 Then usarGeocerca = False
' Log(Subs.traeUltimaActividadBD)
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
c.Position = 0
@@ -501,10 +501,8 @@ Sub B4XPage_Appear
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")
l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
l_segmento2.text = "N/A"
If c.GetString("CAT_CL_SEGMENTO") <> Null Then l_segmento2.text = c.GetString("CAT_CL_SEGMENTO")
b_inicioFinVenta.Text = "INICIAR VENTA"
b_inicioFinVenta.BringToFront
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
@@ -516,7 +514,7 @@ Sub B4XPage_Appear
b_inicioFinVenta.Visible = False
End If
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
' LONGITUD = 0
' If c.GetString("CAT_CL_LONG") <> Null And c.GetString("CAT_CL_LONG") <> "null" And IsNumber(c.GetString("CAT_CL_LONG")) Then LONGITUD = c.GetString("CAT_CL_LONG")
' LATITUD = 0
@@ -847,6 +845,19 @@ Sub B4XPage_Appear
p_transparenciaNoti.BringToFront
End If
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
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
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 5.12.10
#VersionName: 5.12.14
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

6
B4A/KelloggsV4.b4a.meta
View File

@@ -89,7 +89,7 @@ ModuleClosedNodes26=24,26,31,32,33,35
ModuleClosedNodes27=
ModuleClosedNodes28=4
ModuleClosedNodes29=
ModuleClosedNodes3=3
ModuleClosedNodes3=
ModuleClosedNodes30=
ModuleClosedNodes31=
ModuleClosedNodes32=116
@@ -100,6 +100,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
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
VisibleModules=31,1,12,3,32,13,14,20,19
VisibleModules=31,1,12,3,32,13,14,20,19,33