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_ALMACEN(FOLIO_ENTREGA TEXT, FOLIO_ID TEXT, FOLIO_REFERENCIA_FACTURA TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PRODUCTOS_ALMACEN(CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_DUN14 TEXT)")
	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_EQUIVALENCIAS_ALMACEN(CAT_EQ_CODIGO TEXT, CAT_EQ_EQUIVALENCIA TEXT)")
'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_DETALLEFOLIO(CAT_DF_ID TEXT, CAT_DF_NOMBRE TEXT,CAT_DF_RUTA TEXT, CAT_DF_CANTINICIAL TEXT, CAT_DF_CANTIDADESCRITA TEXT)")
'	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICKING (CODIGO TEXT, RUTA TEXT, CANTIDAD_INICIAL TEXT, CANTIDAD_FINAL TEXT,CANTIDAD_ESCRITA TEXT)")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS PICKING")
'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_DETALLEFOLIO")
End Sub