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

- VERSION 4.08.05

Browse Source 
- Se agregó que cuando entre a la pantalla de NO_VENTA, al check de Reprogramar se le quite la palomita y que el radio de "No esta el encargado" se selecione!
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-06 14:03:01 -06:00
parent 89f2d228e0
commit bfe16d1757
4 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
nopago.bas
View File

@@ -68,6 +68,8 @@ Sub Activity_Resume
Subs.SetButtonTintList(r_3, Colors.red, Colors.RGB(210, 105, 30))
Subs.SetButtonTintList(r_4, Colors.red, Colors.RGB(210, 105, 30))
Subs.SetButtonTintList(cb_reprogramar, Colors.red, Colors.red)
cb_reprogramar.Checked = False
r_4.Checked = True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
@@ -119,6 +121,7 @@ Sub GUARDA_Click
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON, NV_REPROGRAMAR) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta, sDate & sTime, usuario, motivo, e_comm.text, Main.lat_gps, Main.lon_gps, reprogramar))
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
cb_reprogramar.Checked = False
StartActivity(seleccion)
Else
COMENTARIO = e_comm.Text