diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index a5ce851..ed94934 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -112,6 +112,7 @@ Sub GUARDA_Click
 		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 	Else
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+		B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
 	End If
 	DateTime.TimeFormat = "HHmmss"
 	sTime=DateTime.Time(DateTime.Now)
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 4f944f7..5d181ce 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -529,13 +529,44 @@ Sub B4XPage_Appear
 	c.Position = 0
 	usuario = c.GetString("USUARIO")
 	c.Close
+'	B4XPages.MainPage.batt = batterystatus(0)
+'	B4XPages.MainPage.montoActual = L_MONTOD.Text
+'	B4XPages.MainPage.clientestotal = L_CUANTOST.Text
+'	B4XPages.MainPage.clientesventa =  l_cuantosc.Text
+'	B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
+'	B4XPages.MainPage.ALMACEN = ALMACEN
+'	B4XPages.MainPage.rutapreventa =  l_ruta.text
+
+	Dim conVen As Int = 0
+	Dim sinVen As Int = 0
+
+	Dim cursor As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(PE_COSTO_TOT) AS PE_COSTO_TOT, COUNT(DISTINCT PE_CLIENTE) AS PE_CLIENTE FROM PEDIDO WHERE PE_FOLIO <> 'RECARGA'"$)
+	If cursor.RowCount > 0 Then
+		cursor.Position = 0
+		B4XPages.MainPage.montoActual = cursor.GetString("PE_COSTO_TOT")
+		B4XPages.MainPage.clientesventa = cursor.GetString("PE_CLIENTE")
+		conVen = cursor.GetInt("PE_CLIENTE")
+	End If
+	Log("Clientes con venta: " & conVen)
+
+	Dim cNoVenta As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(DISTINCT NV_CLIENTE) AS NV_CLIENTE FROM NOVENTA"$)
+	If cNoVenta.RowCount > 0 Then
+		cNoVenta.Position = 0
+		sinVen = cNoVenta.GetInt("NV_CLIENTE")
+		
+		Log("Clientes sin venta: " & sinVen)
+
+		Dim totClientes As Int = sinVen + conVen
+		Log("Total clientes visitados: " & totClientes)
+		
+	End If
+
+
 	B4XPages.MainPage.batt = batterystatus(0)
-	B4XPages.MainPage.montoActual = L_MONTOD.Text
-	B4XPages.MainPage.clientestotal = L_CUANTOST.Text
-	B4XPages.MainPage.clientesventa =  l_cuantosc.Text
-	B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
+	B4XPages.MainPage.clientestotal = totClientes
+	B4XPages.MainPage.clientesvisitados = l_porvisitar.Text
 	B4XPages.MainPage.ALMACEN = ALMACEN
-	B4XPages.MainPage.rutapreventa =  l_ruta.text
+	B4XPages.MainPage.rutapreventa = l_ruta.Text
 	
 	'//////  Para el usuario global - Chv
 	c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
@@ -613,6 +644,7 @@ Sub B4XPage_Appear
 
 	fg.Close
 	
+	checaPedido
 	'-----------------------------
 End Sub
 
diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a
index d8cd605..8fb0c9e 100644
--- a/B4A/MARQUEZ.b4a
+++ b/B4A/MARQUEZ.b4a
@@ -211,7 +211,7 @@ Version=13.1
 #Region  Project Attributes 
 	#ApplicationLabel: Marquez
 	#VersionCode: 1
-	#VersionName: 5.06.01
+	#VersionName: 5.06.04
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta
index 76cf37a..9bd51e8 100644
--- a/B4A/MARQUEZ.b4a.meta
+++ b/B4A/MARQUEZ.b4a.meta
@@ -94,6 +94,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,principal.bal,-100,6,C_Principal,btnCobranza_Click,2994,6,Main,Activity_KeyPress,40,0,Main,Activity_ActionBarHomeClick,37,0,Main,Create_Menu,56,0,B4XMainPage,i_engrane_Click,883,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_Appear,124,0,C_Nota,borra_Click,296,0,C_Nota,ListView1_ItemLongClick,302,0
+NavigationStack=Main,Activity_ActionBarHomeClick,37,0,Main,Create_Menu,56,0,B4XMainPage,i_engrane_Click,883,0,C_Nota,Class_Globals,0,0,C_Nota,B4XPage_Appear,124,0,C_Nota,ListView1_ItemLongClick,302,0,C_Nota,borra_Click,296,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,556,0,C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,108,0
 SelectedBuild=0
 VisibleModules=1,2,13,4,5,7,8,9,10,14