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

11/11/23 - Correcciones en MaxPromos y MaxCientesNuevos

Browse Source 
- Se corrigio que las maxPromos no las regresaba bien.
- Se puso la opcion de especificar el maximo de clinetes nuevos en el engrane (Extras), todavia NO esta terminado.
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-11 05:35:12 -06:00
parent ea1bb8d292
commit e4fa8439ec
11 changed files with 107 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/B4XMainPage.bas
View File

@@ -111,6 +111,8 @@ Sub Class_Globals
Private b_aceptarExtras As Button
Private cb_cartaPorte As CheckBox
Private l_cartaPorte As Label
Private et_maxClientesNuevos As EditText
Private l_maxClientesNuevos As Label
End Sub
Public Sub Initialize
@@ -361,6 +363,7 @@ Sub B4XPage_Appear
kh.SetButtonTintList(cb_cartaPorte, Colors.LightGray, Colors.RGB(43, 154, 211))
cb_geocerca.Checked = kh.traeUsarGeocerca
cb_cartaPorte.Checked = kh.traeUsarCartaPorte
et_maxClientesNuevos.Text = kh.traeMaxClientesNuevos
' server = "http://keymon.com.mx:1782"
' server = "http://201.99.139.28:1782"
' server = "http://177.244.63.54:1782"
@@ -729,6 +732,7 @@ Private Sub b_cargaLocalOk_Click
kh.RD_restaura_cat_gunaprod2
kh.RD_restaura_cat_detalle_paq
kh.RD_restaura_kmt_info
kh.RD_restaura_promos_comp
ime.HideKeyboard
ToastMessageShow("¡¡CARGA EXITOSA!!", True)
Else
@@ -766,6 +770,13 @@ Private Sub cb_cartaPorte_CheckedChange(Checked As Boolean)
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('CARTAPORTE', '${Checked}')"$)
End Sub
Private Sub et_maxClientesNuevos_TextChanged (Old As String, New As String)
If IsNumber(New) Then
Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'MAXCTESNUEVOS'")
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('MAXCTESNUEVOS', '${New}')"$)
End If
End Sub
private Sub l_geocerca_Click
If cb_geocerca.Enabled = False Then ToastMessageShow("Ingrese la contraseña para modificar", True)
End Sub
@@ -778,19 +789,27 @@ Private Sub et_geocerca_TextChanged (Old As String, New As String)
If New = x.GetString("CAT_VA_VALOR") Or New = "KMTS1" Then
cb_geocerca.Enabled = True
cb_cartaPorte.Enabled = True
et_maxClientesNuevos.Enabled = True
l_geocerca.TextColor = Colors.RGB(43, 154, 211)
l_cartaPorte.TextColor = Colors.RGB(43, 154, 211)
l_maxClientesNuevos.TextColor = Colors.RGB(43, 154, 211)
et_maxClientesNuevos.TextColor = Colors.RGB(43, 154, 211)
Else
cb_geocerca.Enabled = False
cb_cartaPorte.Enabled = False
et_maxClientesNuevos.Enabled = False
l_geocerca.TextColor = Colors.LightGray
l_cartaPorte.TextColor = Colors.LightGray
l_maxClientesNuevos.TextColor = Colors.LightGray
et_maxClientesNuevos.TextColor = Colors.LightGray
End If
Else if New = "KMTS1" Then
cb_geocerca.Enabled = True
cb_cartaPorte.Enabled = True
et_maxClientesNuevos.Enabled = True
l_geocerca.TextColor = Colors.RGB(43, 154, 211)
l_cartaPorte.TextColor = Colors.RGB(43, 154, 211)
l_maxClientesNuevos.TextColor = Colors.RGB(43, 154, 211)
End If
End Sub