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

20/11/23 - Cambios en defailt para clientes nuevos y algunos estilos

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-20 22:56:22 -06:00
parent 6a303eb0dc
commit 25eb489d91
9 changed files with 42 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/kms_helperSubs.bas
View File

@@ -658,9 +658,10 @@ Sub traeUsarCartaPorte As Boolean 'ignore
Return CP
End Sub
'Regresa los clientes nuevos maximos.
'Regresa los clientes nuevos maximos.
'Si no está especificado, el default es 2.
Sub traeMaxClientesNuevos As Int 'ignore
Private CN As Int = 0
Private CN As Int = 2
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'MAXCTESNUEVOS'"$)
If x.RowCount > 0 Then
x.Position = 0