diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 5732f39..07e0b41 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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) diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index fff5f30..306347e 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index e13505a..6ebddb6 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -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 diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 5dba341..aee66e4 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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