From 720ec7fd6d2a26b161d9082e1cc3e00f67039691 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 22 Jan 2025 18:04:13 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.01.18=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?"Cerrdao=20permanente"=20a=20las=20opciones=20en=20"No=20Venta"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 1 - B4A/C_Cliente.bas | 2 +- B4A/C_Clientes.bas | 1 - B4A/C_Historico.bas | 3 +-- B4A/C_NoVenta.bas | 3 +-- B4A/C_Principal.bas | 1 - B4A/C_Productos.bas | 1 - B4A/Files/noventa.bal | Bin 7329 -> 7330 bytes B4A/Mariana.b4a | 2 +- B4A/Mariana.b4a.meta | 6 +++--- B4A/Subs.bas | 2 +- 11 files changed, 8 insertions(+), 14 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index b9b55e7..665f463 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -20,7 +20,6 @@ Version=9.85 '########################################################################################################### #End Region - 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ Sub Class_Globals diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 66a3e4f..ad6dc71 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -988,4 +988,4 @@ End Sub Private Sub p_transYalo_Click p_transYalo.Visible = False -End Sub \ No newline at end of file +End Sub diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index 58ac3a6..7d5a079 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -6,7 +6,6 @@ Version=11.5 @EndOfDesignText@ Sub Mods '20230526 - - End Sub Sub Class_Globals diff --git a/B4A/C_Historico.bas b/B4A/C_Historico.bas index b02061c..ca93b30 100644 --- a/B4A/C_Historico.bas +++ b/B4A/C_Historico.bas @@ -7,7 +7,6 @@ Version=11.5 Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore - Dim g As GPS Dim clie_id As String Dim sDate,sTime As String @@ -39,7 +38,7 @@ End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) - B4XPages.SetTitle(Me, $"${subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) + B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) Root = Root1 'load the layout to Root ruta = File.DirInternal diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index e8cb471..5eddd12 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -153,11 +153,10 @@ End Sub ' c.Close 'End Sub - Sub JobDone(Job As HttpJob) Log(Job.Success) If Job.Success = False Then -' ToastMessageShow("Error: " & Job.ErrorMessage, True) +' ToastMessageShow("Error: " & Job.ErrorMessage, True) Else LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index f7550f6..c8d8c8c 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -69,7 +69,6 @@ Sub Class_Globals Dim p As PhoneId Dim imei As String ' Dim SERVER As String - Private inv As Button Private P1 As Panel Private CLAVE As EditText diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 67790cc..8adc9f7 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -206,7 +206,6 @@ Sub B4XPage_Appear End Sub Sub PCLV_AddProds - End Sub Sub lv_catalogos_ItemClick (Position As Int, Value As Object) diff --git a/B4A/Files/noventa.bal b/B4A/Files/noventa.bal index e28de5a1d2f0bb34661a5cdea4fd7b0a097c4924..f847d2b0628186d7fec553605f0ab415ea1cd781 100644 GIT binary patch delta 28 kcmZ2zxyW+E1y+7;1_lP_{M^*MlEk9Se5=j(SPzQ<0E>JI4*&oF delta 27 jcmZ2vxzKXM1y(*T1_lP_{M^*MlEk9S{LS}S4~qc+f|&`_ diff --git a/B4A/Mariana.b4a b/B4A/Mariana.b4a index 13714a8..c0d3a84 100644 --- a/B4A/Mariana.b4a +++ b/B4A/Mariana.b4a @@ -1102,7 +1102,7 @@ Version=12.8 #AdditionalJar: com.google.android.gms:play-services-location #MultiDex: True #End Region - + #Region Activity Attributes #FullScreen: False #IncludeTitle: True diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index 78b0c06..5586636 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -59,7 +59,7 @@ ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11=1 ModuleClosedNodes12= -ModuleClosedNodes13= +ModuleClosedNodes13=1 ModuleClosedNodes14=2 ModuleClosedNodes15= ModuleClosedNodes16= @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,Tels_Click,407,0,C_Cliente,b_abono_Click,951,0,C_Cliente,b_abono1_Click,961,0,Visual Designer,cliente.bal,-100,6,C_Cliente,b_pedidoYalo_Click,969,6,C_Principal,Class_Globals,0,0,Visual Designer,noventa.bal,-100,4,C_NoVenta,Class_Globals,23,1,C_NoVenta,GUARDA_Click,149,2,C_Principal,cargar_Click,884,0 +NavigationStack=C_Cliente,b_abono1_Click,961,0,C_Cliente,b_cancelar_Click,957,0,C_Cliente,b_abono_Click,951,0,C_Cliente,p_transYalo_Click,985,0,C_Clientes,Mods,1,0,C_Historico,Class_Globals,2,0,Subs,Process_Globals,17,0,C_Productos,Class_Globals,0,0,C_Productos,PCLV_AddProds,201,0,C_NoVenta,GUARDA_Click,148,0,C_NoVenta,JobDone,152,0 SelectedBuild=0 -VisibleModules=2,12,4,5,6,26,10,16,8,13,9 +VisibleModules=2,12,4,5,6,26,16,13,9 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index e28f49e..f0bb3b0 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -21,7 +21,7 @@ Sub Process_Globals ' Dim rutaInicioHoy As String = "" Private subsLogs As Boolean = False End Sub - + 'Pone el valor de phn.Model en la variable global "devModel" Sub getPhnId As String 'ignore 'Requiere la libreria "Phone"