From bfe16d17577cd93735aed0e53063e7c6f6d00293 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 6 Aug 2024 14:03:01 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.08.05=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?que=20cuando=20entre=20a=20la=20pantalla=20de=20NO=5FVENTA,=20a?= =?UTF-8?q?l=20check=20de=20Reprogramar=20se=20le=20quite=20la=20palomita?= =?UTF-8?q?=20y=20que=20el=20radio=20de=20"No=20esta=20el=20encargado"=20s?= =?UTF-8?q?e=20selecione!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- intmex_reparto.b4a | 2 +- intmex_reparto.b4a.meta | 2 +- nopago.bas | 3 +++ seleccion.bas | 2 +- 4 files changed, 6 insertions(+), 3 deletions(-) diff --git a/intmex_reparto.b4a b/intmex_reparto.b4a index eb7954d..133c0e3 100644 --- a/intmex_reparto.b4a +++ b/intmex_reparto.b4a @@ -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 diff --git a/intmex_reparto.b4a.meta b/intmex_reparto.b4a.meta index 62000d0..95956c0 100644 --- a/intmex_reparto.b4a.meta +++ b/intmex_reparto.b4a.meta @@ -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 diff --git a/nopago.bas b/nopago.bas index 38a138d..7a13b28 100644 --- a/nopago.bas +++ b/nopago.bas @@ -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 diff --git a/seleccion.bas b/seleccion.bas index 69d0ea1..4366c70 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -474,7 +474,7 @@ Sub Subir_Click Next End If r.Close - + 'PAGARES. Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES") If pa.RowCount > 0 Then