diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 47a16b7..d2b63fb 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -199,8 +199,8 @@ Sub B4XPage_Appear
 '	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
-	Tels.Visible = True
-	gest.Visible = True
+'	Tels.Visible = True
+'	gest.Visible = True
 	LA_GPS.TextColor = Colors.Red
 	LA_GPS.Text = "SIN UBICACION GPS"
 	cercavalor = 0
@@ -333,13 +333,13 @@ Sub B4XPage_Appear
 '	gest.Visible = True
 	'Si el cliente es nuevo, no aparece el boton de venta
 	If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False
-	If LA_GPS.TextColor = Colors.Blue Then
-		Tels.Visible = True
-		gest.Visible = True
-	Else	
-	Tels.Visible = False
-	gest.Visible = False
-	End If
+'	If LA_GPS.TextColor = Colors.Blue Then
+'		Tels.Visible = True
+'		gest.Visible = True
+'	Else
+'		Tels.Visible = False
+'		gest.Visible = False
+'	End If
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index bf12ce4..6a498e6 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -40,7 +40,7 @@ End Sub
 
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
-	B4XPages.SetTitle(Me, $"${subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
+	B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
 	Root = Root1
 	'load the layout to Root
 	Root.LoadLayout("noventa")
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 73c7626..79a6ee6 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -317,7 +317,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
-	Checapedido
+	checaPedido
 	cpb = Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_MONTO FROM PEDIDO_CLIENTE")
 	If cpb.RowCount > 0 Then
 		For i = 0 To cpb.RowCount-1
@@ -1998,7 +1998,7 @@ Sub B_OK_PAS_Click
 		Resumen.Visible= True
 		img2.Visible=False
 		Subs.panelVisible(p_principal, 0, 0)
-		Checapedido
+		checaPedido
 	Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
 		RES =  Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If RES = DialogResponse.POSITIVE Then
@@ -2446,9 +2446,14 @@ Private Sub p_mandaInfo_Click
 	
 End Sub
 
-Private Sub Checapedido
-	c = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
+'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info
+Sub checaPedido
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
 	If c.RowCount > 0 Then
-			Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2  WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
+	End If
+	Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
+	If c.RowCount > 0 Then
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
 	End If
 End Sub
\ No newline at end of file
diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal
index d58b85b..57f012f 100644
Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ
diff --git a/B4A/Profina.b4a b/B4A/Profina.b4a
index f22ce1f..bea0212 100644
--- a/B4A/Profina.b4a
+++ b/B4A/Profina.b4a
@@ -1069,7 +1069,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Profina
 	#VersionCode: 1
-	#VersionName: 4.02.21
+	#VersionName: 4.04.21
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Profina.b4a.meta b/B4A/Profina.b4a.meta
index 8024c81..ed47c32 100644
--- a/B4A/Profina.b4a.meta
+++ b/B4A/Profina.b4a.meta
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,clv_prods_ll_VisibleRangeChanged,828,0,C_Productos,b_prodMenos_Click,491,0,Subs,actualizaProducto,778,0,C_Nota,Class_Globals,0,0,C_Nota,ListView1_ItemLongClick,147,0,Subs,pedidoGuardado,1254,0,C_Cliente,GPS_LocationChanged,360,0,C_Principal,Subir_Click,730,0,C_Principal,Checapedido,2442,6,C_Principal,B4XPage_Appear,313,6,C_Principal,B_OK_PAS_Click,1994,0
+NavigationStack=C_Principal,B_OK_PAS_Click,1994,0,Diseñador Visual,cliente.bal,-100,2,C_Cliente,MODS,0,0,C_Cliente,B_GUARDA_C_Click,692,0,C_Cliente,B4XPage_Appear,329,0,C_NoVenta,Class_Globals,0,0,C_Principal,Subir_Click,730,0,C_Cliente,GPS_LocationChanged,359,0,C_Principal,Class_Globals,0,0,C_Principal,checaPedido,2450,6,MAPA_RUTAS,MapFragment1_Ready,191,0
 SelectedBuild=0
-VisibleModules=1,2,3,12,4,5,6,7,8,9,10,13,26
+VisibleModules=1,2,3,12,4,5,6,7,8,9,23