mirror of
https://github.com/KeymonSoft/Guna_Picking.git
synced 2026-04-17 19:36:50 +00:00
37 lines
2.7 KiB
QBasic
37 lines
2.7 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=StaticCode
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
'Code module
|
|
'Subs in this code module will be accessible from all modules.
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
End Sub
|
|
|
|
'Revisa que exista la BD y si es necesario crea algunas tablas dentro de ella
|
|
Sub revisaBD 'ignore
|
|
If Not(File.Exists(Starter.rutaBD, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", Starter.rutaBD, "kmt.db")
|
|
If Not(Starter.skmt.IsInitialized) Then Starter.skmt.Initialize(Starter.rutaBD, "kmt.db", True)
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_FOLIOS(CAT_FOLIO TEXT, CAT_FOLIO_INICIO TEXT, CAT_FOLIO_FINAL TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_DETALLEFOLIO(CAT_DF_ID TEXT, CAT_DF_NOMBRE TEXT, CAT_DF_ORDEN TEXT, CAT_DF_RUTAO TEXT, CAT_DF_PIEZAS TEXT, CAT_DF_CAJAS TEXT, CAT_DF_BLISTER TEXT, CAT_DF_PIEZAS_ESC TEXT, CAT_DF_CAJAS_ESC TEXT, CAT_DF_BLISTER_ESC TEXT, CAT_DF_RUTA INT, CAT_DF_ALMACEN TEXT, PIEZASTOTAL TEXT, PRECIOTOTAL TEXT, CANTIDAD TEXT, PRECIOORDEN TEXT, CANTIDADBO TEXT, PRECIOBO TEXT, CAT_DF_ESTATUS INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PICKING(ALMACEN TEXT, RUTA TEXT, CODIGO TEXT, NOMBREPROD TEXT, CAJASOR TEXT, PIEZASOR TEXT, BLISTEROR TEXT, CAJASES TEXT, PIEZASES TEXT, BLISTERSES TEXT, USUARIO TEXT, FECHAINICIO TEXT, FECHAFIN TEXT,PIEZASTOTAL TEXT, PRECIOTOTAL TEXT, CANTIDADOR TEXT, PRECIOOR TEXT, CANTIDADBO TEXT, PRECIOBO TEXT, ENVIADO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ALMACENES(CAT_ALM_IDALMACEN TEXT, CAT_ALM_NOMBRE TEXT, CAT_ALM_AGRUPADO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CUENTAA(CUENTA TEXT, ESTATUS TEXT, ALMACEN TEXT, FECHACONSULTA TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CONVERSION(ID TEXT, NOMBRE TEXT, CAJASPIEZAS TEXT, BLISTERPIEZAS TEXT, PRECIO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS FECHA(FECHACONSULTA TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COSTO(COSTO_TOT TEXT)")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FOLIOS")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS COSTO")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_DETALLEFOLIO")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_ALMACENES")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CUENTAA")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_PICKING")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_CONVERSION")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS FECHA")
|
|
End Sub
|
|
|
|
'FALTA OPCION DE SI YA ACABARON Y ENTRAN PARA TERMINAR
|