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

Picking

Browse Source
This commit is contained in:
cvaldes1201
2024-05-23 13:11:01 -06:00
parent 72f6b32900
commit 30f86d054f
11 changed files with 818 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/Subs.bas
View File

@@ -206,6 +206,10 @@ Sub revisaBD 'ignore
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS bitacora(fecha INTEGER, texto TEXT)") 'Bitacora
' kmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FOLIOS")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS REPARTO_GEO (CLIENTE TEXT, USUARIO TEXT, FECHA_PUNTEO TEXT, LATITUD TEXT, LONGITUD TEXT, ALMACEN TEXT, RUTA_REPARTO TEXT, RUTA_PREV TEXT, FECHA_PREVENTA TEXT, MOTIVO TEXT, COMENTARIO TEXT, TIPO TEXT, ENVIO TEXT)")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICKING_REPARTO (HIST_PN_CODIGO_PRODUCTO TEXT, HIST_PN_NOMBRE_PRODUCTO TEXT, HIST_PN_CANT_PIEZAS_OR TEXT, HIST_PN_CANT_CAJAS_OR TEXT, HIST_PN_CANT_BLISTER_OR TEXT, HIST_PN_CANT_CAJAS TEXT, HIST_PN_CANT_PIEZAS TEXT, HIST_PN_CANT_BLISTER TEXT, ESTATUS INT)")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECAR (MOSTRAR INT)")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CONVERSION(ID TEXT, NOMBRE TEXT, CAJASPIEZAS TEXT, BLISTERPIEZAS TEXT, PRECIO TEXT)")
' kmt.ExecNonQuery("DROP TABLE IF EXISTS PICKING_REPARTO")
'Tabla para la bitacora de errores
If Not(errorLog.IsInitialized) Then errorLog.Initialize(Starter.ruta, "errorLog.db", True)
errorLog.ExecNonQuery("CREATE TABLE IF NOT EXISTS errores(fecha INTEGER, error TEXT)")