cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-17 21:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agregaron las tablas cat_gunaprod y cat_detalle_paq al respaldo diario.

Browse Source
This commit is contained in:
cheveguerra
2023-09-06 00:26:32 -06:00
parent 5886fc0d73
commit 33d0b1d824
3 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/B4XMainPage.bas
View File

@@ -34,7 +34,6 @@ Sub Class_Globals
Public pedidos As C_Pedidos Public pedidos As C_Pedidos
Public promos As C_Promos Public promos As C_Promos
Public historico As C_Historico Public historico As C_Historico
Public rd As C_RespaldoDiario
Public Provider As FileProvider Public Provider As FileProvider
'nuevocliente -> NuevoCliente 'nuevocliente -> NuevoCliente
@@ -134,9 +133,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Historico", historico) B4XPages.AddPage("Historico", historico)
' respaldoDiario.Initialize ' respaldoDiario.Initialize
' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario) ' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
rd.Initialize
ruta = Starter.ruta ruta = Starter.ruta
Provider.Initialize Provider.Initialize
' Subs.borraArribaDe100Errores ' Para Websockets ' Subs.borraArribaDe100Errores ' Para Websockets
@@ -225,9 +221,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
rd.respaldaPedido
rd.respaldaInventarios
rd.respaldaPaquetes
If Starter.muestraProgreso = 1 Then If Starter.muestraProgreso = 1 Then
muestraProgreso("Descargando actualización") muestraProgreso("Descargando actualización")
Starter.muestraProgreso = 0 Starter.muestraProgreso = 0

6
B4A/C_Principal.bas
View File

@@ -8,6 +8,7 @@ Sub Class_Globals
Public rp As RuntimePermissions Public rp As RuntimePermissions
Private Root As B4XView 'ignore Private Root As B4XView 'ignore
Private xui As XUI 'ignore Private xui As XUI 'ignore
Dim rd As C_RespaldoDiario
Dim conectado As String Dim conectado As String
Dim ime As IME Dim ime As IME
Dim t1 As Timer Dim t1 As Timer
@@ -237,6 +238,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1 Root = Root1
'load the layout to Root 'load the layout to Root
Root.LoadLayout("principal") Root.LoadLayout("principal")
rd.Initialize
rd.vacuum
EJECUTANDO=1 EJECUTANDO=1
Dim ruta As String Dim ruta As String
img2.Visible =False img2.Visible =False
@@ -317,6 +320,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
rd.respaldaPedido
rd.respaldaInventarios
rd.respaldaPaquetes
HORAINGRESO ="000000" HORAINGRESO ="000000"
Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2) Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER) ' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)

7
B4A/C_RespaldoDiario.bas
View File

@@ -17,7 +17,7 @@ End Sub
Public Sub Initialize As Object Public Sub Initialize As Object
Log("************************** " & safePath) Log("************************** " & safePath)
safePath = rp.GetSafeDirDefaultExternal("./") safePath = rp.GetSafeDirDefaultExternal("./")
rkmt.Initialize(safePath,"rkmt.db", True) rkmt.Initialize(safePath,"rkmt.km", True)
skmt.Initialize(File.DirInternal,"kmt.db", False) skmt.Initialize(File.DirInternal,"kmt.db", False)
rkmt.ExecNonQuery($"create table if not exists pedidos (pe_folio NUMERIC, pe_desc NUMERIC, pe_costo_sin TEXT, pe_ruta TEXT, pe_cedis TEXT, pe_costo_tot NUMERIC, pe_costou NUMERIC, pe_cant NUMERIC, pe_pronombre TEXT, pe_proid TEXT, pe_cliente TEXT, pe_fecha TEXT, pe_usuario TEXT)"$) rkmt.ExecNonQuery($"create table if not exists pedidos (pe_folio NUMERIC, pe_desc NUMERIC, pe_costo_sin TEXT, pe_ruta TEXT, pe_cedis TEXT, pe_costo_tot NUMERIC, pe_costou NUMERIC, pe_cant NUMERIC, pe_pronombre TEXT, pe_proid TEXT, pe_cliente TEXT, pe_fecha TEXT, pe_usuario TEXT)"$)
rkmt.ExecNonQuery($"create table if not exists inventarios (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$) rkmt.ExecNonQuery($"create table if not exists inventarios (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$)
@@ -79,6 +79,11 @@ Sub respaldaPaquetes
Log(((DateTime.Now - inicio)/1000) & " segs") Log(((DateTime.Now - inicio)/1000) & " segs")
End Sub End Sub
Sub vacuum
Log("Vacuum")
rkmt.ExecNonQuery("vacuum;")
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
'Agrega una columna a la tabla especificada. 'Agrega una columna a la tabla especificada.