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

- VERSION 5.10.01

Browse Source 
- Se agregó el mandaPendientes en el boton de "Guardar" de "Cliente"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-02 23:47:06 -06:00
parent e6455d8147
commit 48a1221ef9
14 changed files with 425 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/kms_helperSubs.bas
View File

@@ -100,6 +100,7 @@ Sub RD_Init
agregaColumna(rkmt, "PROMOS_COMP", "CAT_PA_PRECIO1", "TEXT")
agregaColumna(rkmt, "CAT_DETALLES_PAQ", "CAT_DP_PRECIOB", "TEXT")
agregaColumna(rkmt, "kmt_info", "CREDITO", "INTEGER")
agregaColumna(rkmt, "PEDIDO", "PE_ENVIADO", "INTEGER")
If chkIfTableExists(khdb, "CAT_VARIABLES") Then rkmt.ExecNonQuery($"create table if not exists CAT_VARIABLES (${getTableColumnList(khdb, "CAT_VARIABLES")}, FECHA TEXT)"$)
If chkIfTableExists(khdb, "CAT_RMI") Then rkmt.ExecNonQuery($"create table if not exists CAT_RMI (${getTableColumnList(khdb, "CAT_RMI")}, FECHA TEXT)"$)
DateTime.DateFormat = "yyyyMMdd"
@@ -1072,6 +1073,7 @@ Sub revisaImpresa As Boolean
Dim i As Cursor = Starter.skmt.ExecQuery("select count(*) as CUANTOS from kmt_info where (impresion = 1 or cat_cl_codigo in (select ci_cuenta from cliente_impreso)) and CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
i.Position = 0
If i.GetString("CUANTOS") > 0 Then imp = True Else imp = False
Log($"Impresa: ${imp}"$)
Return imp
End Sub