diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas
index 6d050c8..acd5e02 100644
--- a/B4A/C_Nota.bas
+++ b/B4A/C_Nota.bas
@@ -257,6 +257,7 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 			Return
 		Else
 			Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+			Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
 			B4XPage_Appear
 			Return
 		End If
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 57b8f9c..6272256 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -449,7 +449,7 @@ Sub B4XPage_Appear
 		l_cuantosn.Text = b.GetString("CUANTOS")
 		b.close
 	Else
-		c=B4XPages.MainPage.skmt.ExecQuery("select  SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA  from PEDIDO ")
+		c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO")
 		b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
 		c.Position=0
 		b.Position=0
@@ -475,7 +475,9 @@ Sub B4XPage_Appear
 		Else
 			ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
 		End If
-		L_TICKPROM.Text =  Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2)
+		Log("|" & c.GetString("MONTO_DIA") & "|")
+		Log("|" & c.GetString("CLIENTES_DIA") & "|")
+		L_TICKPROM.Text =  Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")), 2)
 		If c.GetString("MONTO_DIA") < 4000 Then
 			ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
 		Else if c.GetString("MONTO_DIA") > =  4000  And c.GetString("MONTO_DIA") < 6250 Then
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 562f104..0cc89ec 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -261,7 +261,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 5.02.18
+	#VersionName: 5.02.22
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta
index f836614..a98ded1 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=5,6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,principal.bal,-100,5,C_Principal,JobDone,2101,6,C_Nota,B4XPage_Created,42,0,C_Nota,Initialize,37,0,B4XMainPage,Class_Globals,20,0,C_Cliente,B4XPage_Appear,837,0,C_Principal,Subir_Click,778,0,C_Nota,Class_Globals,32,0,C_Nota,B4XPage_Appear,114,0,C_Nota,ListView1_ItemLongClick,247,6
+NavigationStack=C_Nota,Initialize,37,0,B4XMainPage,Class_Globals,20,0,C_Cliente,B4XPage_Appear,837,0,C_Principal,Subir_Click,778,0,C_Nota,Class_Globals,32,0,C_Nota,B4XPage_Appear,114,0,Main,Globals,23,0,Main,Process_Globals,21,0,C_Principal,B4XPage_Appear,445,5,C_Nota,ListView1_ItemLongClick,251,6
 SelectedBuild=0
 VisibleModules=25,2,14,26,5,10,15