cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-17 21:06:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

07/09/2023

Browse Source 
Bandera Clientes nuevos, y giro
This commit is contained in:
cvaldes1201
2023-09-07 15:18:14 -06:00
parent 6b157eb4da
commit d7188d4586
5 changed files with 127 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/Subs.bas
View File

@@ -203,6 +203,16 @@ Sub revisaBD 'ignore
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FOTO_CLIENTE(CODIGO TEXT, ALMACEN TEXT, RUTA TEXT, NOM_FOTO TEXT)")
kmt.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)")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BANDERA(AUTORIZADO TEXT)")
Try 'Si no existe la columna CN_GIRO la agregamos.
kmt.ExecQuery("select count(CN_GIRO) from CLIENTES_NUEVOS")
Catch
Try
kmt.ExecNonQuery("ALTER TABLE CLIENTES_NUEVOS ADD COLUMN CN_GIRO TEXT")
Catch
LogColor("No pudimos agregar la columna CN_GIRO.", Colors.Red)
LogColor(LastException, Colors.Red)
End Try
End Try
Try 'Si no existe la columna PC_ENVIO_OK la agregamos.
kmt.ExecQuery("select count(PC_ENVIO_OK) from PEDIDO_CLIENTE")
Catch