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

5/12/23 - Cambios para DOE

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-05 22:32:22 -06:00
parent 528847606f
commit 854a9e8c43
12 changed files with 633 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
B4A/kms_helperSubs.bas
View File

@@ -45,7 +45,7 @@ End Sub
'RD - Inicializa Respaldo Diario
Sub RD_Init
Dim Dirp As String = File.DirRootExternal
Dim Dirp As String = File.DirInternal
Dim Dir As String
' Dim Dir2 As String
' File.MakeDir(File.DirRootExternal,"/kmts")
@@ -54,15 +54,15 @@ Sub RD_Init
File.MakeDir(Dirp,"/kmts")
Dir = "/kmts"
Log("Creado kmts " & Dirp & Dir)
Log(File.IsDirectory(Dirp, Dir))
Catch
Dir = ""
Log("Creado en raiz")
End Try
Log(File.IsDirectory(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")
Log($"Hay directirio: ${Dirp} ${Dir}- ${File.IsDirectory(Dirp, Dir)}"$)
Log($"Hay directorio: ${Dirp} ${Dir} - ${File.IsDirectory(Dirp, Dir)}"$)
If Starter.Logger Then Log($"Safepath:${safePath}"$)
Private name() As String = Regex.split(" ", Application.LabelName) 'Obtenemos el nombre de la app para ponerselo a la BD.
rkmt.Initialize(safePath, $"${name(0)}.rkmt.km"$, True)
@@ -405,7 +405,8 @@ Sub RD_restaura_cat_rmi
Log("R-RMI: " & ((DateTime.Now - inicio)/1000) & " segs")
End Sub
Sub respaldoBatch 'ignore
'Los subs del los respaldos diarios independientes en una sola llamada.
Sub RD_respaldoBatch 'ignore
If RD_Init_IsInitialized Then
RD_respalda_cat_detalle_paq
RD_respalda_cat_gunaprod
@@ -414,11 +415,30 @@ Sub respaldoBatch 'ignore
RD_respalda_pedido
RD_respalda_promos_comp
RD_respalda_cat_rmi
RD_copiaRespaldoDiario
Else
Log("****** RD NO INICIALIZADO ********")
End If
End Sub
'RD - Copia la base de datos del respaldo diario a la memoria externa.
Sub RD_copiaRespaldoDiario 'ignore
Try
File.MakeDir(File.DirRootExternal, "kmts")
Catch
Log(LastException)
End Try
Private extDir = ""
If File.IsDirectory(File.DirRootExternal, "kmts") Then extDir = "/kmts"
Try
Private name() As String = Regex.split(" ", Application.LabelName) 'Obtenemos el nombre de la app para ponerselo a la BD.
Log($"------ COPIAMOS A SDCARD - ${name(0)}.rkmt.km"$)
File.Copy(File.DirInternal&"/kmts", $"${name(0)}.rkmt.km"$, File.DirRootExternal & extDir, $"${name(0)}.rkmt.km"$)
Catch
Log(LastException)
End Try
End Sub
'RD - Realiza un "vacuum" de la base de datos "rkmt".
Sub RD_vacuum 'ignore
Log("Vacuum")
@@ -822,6 +842,25 @@ Sub traeMaxClientesNuevos As Int 'ignore
Return CN
End Sub
'Regresa verdadero o falso dependiendo si el cliente lleva pedido DOE.
Sub clienteConDOE As Boolean 'ignore
Private c As Cursor = Starter.skmt.ExecQuery2("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE"))
Private b As Cursor = Starter.skmt.ExecQuery("select COUNT(*) AS CLIENTE_DOE from PEDIDO_DOE WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
c.Position = 0
b.Position = 0
If c.GetString("CUANTOS") > 0 Or b.GetString("CLIENTE_DOE") > 0 Then Return True Else Return False
End Sub
'Regresa verdadero si el usuario actual ya imprimio la venta.
Sub revisaImpresa As Boolean
Dim imp As Boolean = False
' Dim i As Cursor = Starter.skmt.ExecQuery("select count(*) as CUANTOS from CLIENTE_IMPRESO where CI_CUENTA in (Select CUENTA from cuentaa)")
Dim i As Cursor = Starter.skmt.ExecQuery("select count(*) as CUANTOS from kmt_info where (impresion = 1 or cat_cl_codigo in (select ci_cuenta from cliente_impreso)) and CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
i.Position = 0
If i.GetString("CUANTOS") > 0 Then imp = True Else imp = False
Return imp
End Sub
'################ Manage External Storage (MES) #########################
'
''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+