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

23/9/23 - Commit inicial.

Browse Source
This commit is contained in:
cheveguerra
2023-09-24 00:55:14 -06:00
commit 1d8d6def18
24 changed files with 2829 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
B4A/Subs.bas Normal file
View File

@@ -0,0 +1,25 @@
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