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