mirror of
https://github.com/KeymonSoft/Nuevo_Torrado_V2.git
synced 2026-04-17 21:06:10 +00:00
58 lines
4.7 KiB
QBasic
58 lines
4.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
|
|
Log(Starter.rutaBD)
|
|
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 HIST_DATOS_GENERALES(CREDITO TEXT, NOMBRE TEXT, CALLE TEXT, COLONIA TEXT, CIUDAD TEXT, ESTADO TEXT, CP TEXT,ESTATUS TEXT, ESTATUS2 TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_DATOS_GENERALES2(CREDITO TEXT, NOMBRE TEXT, CALLE TEXT, COLONIA TEXT, CIUDAD TEXT, ESTADO TEXT, CP TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS2(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PARENTESCO (PARENTESCO TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ACCION(CO_ACCION TEXT, CO_ACDESCRIPCION TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_LO(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_IL(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_NC(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_DA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VISITA(CREDITO TEXT, VISITADOR TEXT, RESULTADO TEXT, CODIGO_RES TEXT, PARENTESCO TEXT, COMENTARIOS TEXT, FECHA TEXT, LONGITUD TEXT, LATUTUD TEXT, FECHACAPTURA TEXT, FECHA_PROMESA TEXT, MONTO_PROMESA TEXT, TIPO_DOMICILIO TEXT, NIVEL_SOCIO TEXT, CARACTERISTICAS TEXT, SERVICIOELECTRICO TEXT, FOTOUNO TEXT, FOTODOS TEXT, FOTOTRES TEXT, FOTOCUATRO TEXT, NOMBRE_ATIENDE TEXT, CODIGO_ACCION TEXT, ACCION TEXT, ESTATUS INT, ENVIADO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TIPO_VIVIENDA(TIPO TEXT, NUMERO INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NIVEL_SOCIO(NIVEL TEXT, NUMERO INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CARACTERISTICAS(TIPO TEXT, NUMERO INT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO(CREDITO TEXT, LUNES TEXT, MARTES TEXT, MIERCOLES TEXT, JUEVES TEXT, VIERNES TEXT, SABADO TEXT, DOMINGO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CARGADO(CARGADO TEXT)")
|
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_VARIABLES(CAT_VA_DESCRIPCION TEXT, CAT_VA_VALOR TEXT)")
|
|
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_DATOS_GENERALES")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_DATOS_GENERALES2")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS2")
|
|
Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FUENTE")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_PARENTESCO")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_ACCION")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_LO")
|
|
Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_BR")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_NC")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_IL")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_VISITA")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS TIPO_VIVIENDA")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS NIVEL_SOCIO")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CARACTERISTICAS")
|
|
Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS NUMERO_NIV")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CHECADO")
|
|
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_VARIABLES")
|
|
|
|
End Sub
|