cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 05:39:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

22/11/23 - Codigo de respaldo diario para el caso de que no se tenga acceso al almacenamiento externo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-22 15:49:25 -06:00
parent cd9cc2a4c7
commit 1c6294e542
3 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/C_Productos.bas
View File

@@ -847,6 +847,7 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
b_prodMenos.Enabled = False b_prodMenos.Enabled = False
End If End If
End If End If
Private precio As String=NumberFormat2(clv_prods_ll.GetValue(i).As(Map).Get("precio").As(Double),1,2,2,False) Private precio As String=NumberFormat2(clv_prods_ll.GetValue(i).As(Map).Get("precio").As(Double),1,2,2,False)
If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null Then et_pCant.Text = clv_prods_ll.GetValue(i).As(Map).Get("cant") If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null Then et_pCant.Text = clv_prods_ll.GetValue(i).As(Map).Get("cant")
l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($" $${precio}"$).Popall l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($" $${precio}"$).Popall

3
B4A/C_RespaldoDiario.bas
View File

@@ -17,6 +17,7 @@ End Sub
'You can add more parameters here. 'You can add more parameters here.
Public Sub Initialize As Object Public Sub Initialize As Object
' Log("************************** " & safePath) ' Log("************************** " & safePath)
Dim rp As RuntimePermissions
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirRootExternal
Dim Dir As String Dim Dir As String
' Dim Dir2 As String ' Dim Dir2 As String
@@ -30,6 +31,8 @@ Public Sub Initialize As Object
End Try End Try
' safePath = rp.GetSafeDirDefaultExternal("./") ' safePath = rp.GetSafeDirDefaultExternal("./")
safePath = Dirp & Dir safePath = Dirp & Dir
'Si no existe el directorio "kmts" en el raiz de la tarjeta de memoria, nos cambiamos al directorio seguro (sdcard/Android/data/kelloggs...)
If Not(File.IsDirectory(Dirp, Dir)) Then safePath = rp.GetSafeDirDefaultExternal("kmts")
Private name() As String = Regex.split(" ", Application.LabelName) Private name() As String = Regex.split(" ", Application.LabelName)
rkmt.Initialize(safePath,$"${name(0)}.rkmt.km"$, True) rkmt.Initialize(safePath,$"${name(0)}.rkmt.km"$, True)
skmt.Initialize(File.DirInternal,"kmt.db", False) skmt.Initialize(File.DirInternal,"kmt.db", False)

2
B4A/INTMEX_LL.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=B4XMainPage,lv_server_ItemClick,688,0,B4XMainPage,Entrar_Click,378,3,C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,843,0 NavigationStack=C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,842,0,B4XMainPage,copiaDB,639,0,C_RespaldoDiario,Initialize,28,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,25,23,12,15,13,4,26,14,8 VisibleModules=2,25,23,12,15,13,4,26,14,8