- VERSION 4.08.05

- 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

View File

@@ -136,7 +136,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Intmex-Reparto
#VersionCode: 1
#VersionName: 4.05.22
#VersionName: 4.08.05
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,Diseñador Visual,seleccion.bal,-100,4,seleccion,Subir_Click,492,6
NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,seleccion,Subir_Click,470,6,nopago,Activity_Create,50,0,nopago,Activity_Resume,65,6
SelectedBuild=0
VisibleModules=19,23,20,18,4,5,8,15,6,9

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