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/C_RespaldoDiario.bas
View File

@@ -17,7 +17,7 @@ End Sub
Public Sub Initialize As Object
Log("************************** " & safePath)
safePath = rp.GetSafeDirDefaultExternal("./")
rkmt.Initialize(safePath,"rkmt.db", True)
rkmt.Initialize(safePath,"rkmt.km", True)
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 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")
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.
'Agrega una columna a la tabla especificada.