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

Se agrego la clase v_clientes

Browse Source
This commit is contained in:
jalarakmt
2026-03-05 12:18:32 -06:00
parent 531ce7d7ee
commit 2c90c740df
801 changed files with 184498 additions and 44597 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/B4XMainPage.bas
View File

@@ -38,8 +38,11 @@ Sub Class_Globals
Public pedidos As C_Pedidos
Public promos As C_Promos
Public historico As C_Historico
Public Clientes_Completos As C_ClientesCompletos
Public Tclientes As V_Tclientes
Public historicobat As C_historicobat
Dim reqManager As DBRequestManager
Dim v As String = Application.VersionName
Dim ruta As String
@@ -143,9 +146,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Promos", promos)
historico.Initialize
B4XPages.AddPage("Historico", historico)
historicobat.Initialize
B4XPages.AddPage("historicobat", historicobat)
Clientes_Completos.Initialize
B4XPages.AddPage("Clientes_Completos", Clientes_Completos)
Tclientes.Initialize
B4XPages.AddPage("Tclientes", Tclientes)
p_Main.Height = Root.Height
p_Main.Width = Root.Width
@@ -171,6 +182,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_OBJETIVO_BAT (COB_VOLUMEN TEXT, COB_MARCAE TEXT, COB_PORTAFOLIO TEXT, COB_OBJPP TEXT, COB_GEV TEXT )")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CATCLIENTESTODOS (CAT_CL_TIPO_RUTA TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_CODIGO TEXT, CAT_CL_FOTO TEXT, CAT_CL_CLASIFICADOR3 TEXT, CAT_CL_CLASIFICADOR4 TEXT, CAT_CL_CLASIFICADOR2 TEXT, CAT_CL_RUTA TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_EMAIL TEXT, CAT_CL_CALLE TEXT, CAT_CL_NOEXT TEXT, CAT_CL_NOINT TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_COLONIA TEXT, CAT_CL_MUNI TEXT, CAT_CL_EDO TEXT, CAT_CL_CP TEXT, CAT_CL_LONG TEXT, CAT_CL_LAT TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_BCREDITO TEXT, CAT_CL_DIASCREDITO TEXT, CAT_CL_TIPOCLIENTE TEXT, CAT_CL_LIMITECREDITO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS hist_ventastodos (HVD_CLIENTE TEX, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT, HVD_FECHA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMOS_DESCUENTOS (CAT_PD_ALMACEN TEXT, CAT_PD_COD_PROMO TEXT, CAT_PD_RANGO INT, CAT_PD_VIGENCIA TEXT, CAT_PD_DESCUENTO TEXT, CAT_PD_PRODUCTO TEXT, CAT_PD_TIER TEXT)")