cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 19:49:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

modificaciones de pedido sugerido de abordo

Browse Source
This commit is contained in:
cvaldes1201
2024-04-29 17:56:28 -06:00
parent f2fac1d020
commit 255374dca0
7 changed files with 104 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/Subs.bas
View File

@@ -204,6 +204,17 @@ Sub revisaBD 'ignore
End Try
End Try
Try 'Si no existe la columna CAT_GP_TIPOPROD2 la agregamos.
Starter.skmt.ExecQuery("select count(CAT_GP_TIPOPROD2) from CAT_GUNAPROD")
Catch
Try
Starter.skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
Catch
If Starter.logger Then LogColor("No pudimos agregar la columna CAT_GP_TIPOPROD2.", Colors.Red)
If Starter.logger Then LogColor(LastException, Colors.Red)
End Try
End Try
Try 'Si no existe la columna CAT_CL_SEGMENTO la agregamos.
Starter.skmt.ExecQuery("select count(CAT_CL_SEGMENTO) from kmt_info")
Catch
@@ -973,6 +984,8 @@ Sub actualizaProducto(cedis As String, costoU As String, cant As String, nombre
c.Close
End Sub
'Regresa un mapa con la información de la promo.
'Regresa: {id, maxXcliente, maxRecurrente, maxPromos, historico,
' productos={idProducto={idProducto, preciosimptos, precio, almacen, tipo, piezas, usuario, fecha, regalo, clasif}} 'Mapa con los productos de la promo y los datos de cada uno.