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

17/10/23 - Cambios para implementar los botones de mas y menos (No terminado)

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-17 19:43:42 -06:00
parent d87228a568
commit 9d15183c48
8 changed files with 779 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/kms_helperSubs.bas
View File

@@ -394,6 +394,15 @@ Sub hayPedido(db As SQL) As Boolean 'ignore
Return hay
End Sub
'Regresa verdadero si el usuario actual ya imprimio su venta
Sub revisaImpresa (db As SQL) As Boolean
Dim imp As Boolean = False
Dim i As Cursor = db.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
Return imp
End Sub
'Guarda el nombre y version de la app en CAT_VARIABLES.
Sub guardaAppInfo(db As SQL) 'ignore
db.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")