cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-20 06:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.01.18

Browse Source 
- Se agregó "Cerrdao permanente" a las opciones en "No Venta"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-22 18:04:13 -06:00
parent 68623e79ea
commit 720ec7fd6d
11 changed files with 8 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -20,7 +20,6 @@ Version=9.85
'########################################################################################################### '###########################################################################################################
#End Region #End Region
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
Sub Class_Globals Sub Class_Globals

2
B4A/C_Cliente.bas
View File

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

1
B4A/C_Clientes.bas
View File

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

3
B4A/C_Historico.bas
View File

@@ -7,7 +7,6 @@ Version=11.5
Sub Class_Globals Sub Class_Globals
Private Root As B4XView 'ignore Private Root As B4XView 'ignore
Private xui As XUI 'ignore Private xui As XUI 'ignore
Dim g As GPS Dim g As GPS
Dim clie_id As String Dim clie_id As String
Dim sDate,sTime As String Dim sDate,sTime As String
@@ -39,7 +38,7 @@ End Sub
'This event will be called once, before the page becomes visible. 'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView) 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 Root = Root1
'load the layout to Root 'load the layout to Root
ruta = File.DirInternal ruta = File.DirInternal

3
B4A/C_NoVenta.bas
View File

@@ -153,11 +153,10 @@ End Sub
' c.Close ' c.Close
'End Sub 'End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
Log(Job.Success) Log(Job.Success)
If Job.Success = False Then If Job.Success = False Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True) ' ToastMessageShow("Error: " & Job.ErrorMessage, True)
Else Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then

1
B4A/C_Principal.bas
View File

@@ -69,7 +69,6 @@ Sub Class_Globals
Dim p As PhoneId Dim p As PhoneId
Dim imei As String Dim imei As String
' Dim SERVER As String ' Dim SERVER As String
Private inv As Button Private inv As Button
Private P1 As Panel Private P1 As Panel
Private CLAVE As EditText Private CLAVE As EditText

1
B4A/C_Productos.bas
View File

@@ -206,7 +206,6 @@ Sub B4XPage_Appear
End Sub End Sub
Sub PCLV_AddProds Sub PCLV_AddProds
End Sub End Sub
Sub lv_catalogos_ItemClick (Position As Int, Value As Object) Sub lv_catalogos_ItemClick (Position As Int, Value As Object)

BIN
B4A/Files/noventa.bal
View File

Binary file not shown.

2
B4A/Mariana.b4a
View File

@@ -1102,7 +1102,7 @@ Version=12.8
#AdditionalJar: com.google.android.gms:play-services-location #AdditionalJar: com.google.android.gms:play-services-location
#MultiDex: True #MultiDex: True
#End Region #End Region
#Region Activity Attributes #Region Activity Attributes
#FullScreen: False #FullScreen: False
#IncludeTitle: True #IncludeTitle: True

6
B4A/Mariana.b4a.meta
View File

@@ -59,7 +59,7 @@ ModuleClosedNodes1=
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11=1 ModuleClosedNodes11=1
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=1
ModuleClosedNodes14=2 ModuleClosedNodes14=2
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16= ModuleClosedNodes16=
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,12,4,5,6,26,10,16,8,13,9 VisibleModules=2,12,4,5,6,26,16,13,9

2
B4A/Subs.bas
View File

@@ -21,7 +21,7 @@ Sub Process_Globals
' Dim rutaInicioHoy As String = "" ' Dim rutaInicioHoy As String = ""
Private subsLogs As Boolean = False Private subsLogs As Boolean = False
End Sub End Sub
'Pone el valor de phn.Model en la variable global "devModel" 'Pone el valor de phn.Model en la variable global "devModel"
Sub getPhnId As String 'ignore Sub getPhnId As String 'ignore
'Requiere la libreria "Phone" 'Requiere la libreria "Phone"