- VERSION 5.01.18

- Se agregó "Cerrdao permanente" a las opciones en "No Venta"

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

B4A/C_Cliente.bas

@@ -988,4 +988,4 @@ End Sub
 
 Private Sub p_transYalo_Click
 	p_transYalo.Visible = False
-End Sub
+End Sub

B4A/C_Clientes.bas

@@ -6,7 +6,6 @@ Version=11.5
 @EndOfDesignText@
 Sub Mods
 	'20230526 - 
-	
 End Sub
 
 Sub Class_Globals

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

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

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

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)

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

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

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"