diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas
index 7db73a0..3fe2ad5 100644
--- a/B4A/C_Productos.bas
+++ b/B4A/C_Productos.bas
@@ -847,6 +847,7 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 						b_prodMenos.Enabled = False
 					End If
 				End If
+				
 				Private precio As String=NumberFormat2(clv_prods_ll.GetValue(i).As(Map).Get("precio").As(Double),1,2,2,False)
 				If clv_prods_ll.GetValue(i).As(Map).Get("cant") <> Null Then et_pCant.Text = clv_prods_ll.GetValue(i).As(Map).Get("cant")
 				l_prodX.Text = cs.Color(Colors.red).append(clv_prods_ll.GetValue(i).As(Map).Get("prod")).pop.append(CRLF).Append("Existencias: " & clv_prods_ll.GetValue(i).As(Map).Get("almacen")).Color(0xFF017F01).Append($"   $${precio}"$).Popall
diff --git a/B4A/C_RespaldoDiario.bas b/B4A/C_RespaldoDiario.bas
index f79aec8..183b6f2 100644
--- a/B4A/C_RespaldoDiario.bas
+++ b/B4A/C_RespaldoDiario.bas
@@ -17,6 +17,7 @@ End Sub
 'You can add more parameters here.
 Public Sub Initialize As Object
 '	Log("**************************   " & safePath)
+	Dim rp As RuntimePermissions
 	Dim Dirp As String = File.DirRootExternal
 	Dim Dir As String
 '	Dim Dir2 As String
@@ -30,6 +31,8 @@ Public Sub Initialize As Object
 	End Try
 '	safePath = rp.GetSafeDirDefaultExternal("./")
 	safePath = Dirp & Dir
+	'Si no existe el directorio "kmts" en el raiz de la tarjeta de memoria, nos cambiamos al directorio seguro (sdcard/Android/data/kelloggs...)
+	If Not(File.IsDirectory(Dirp, Dir)) Then safePath = rp.GetSafeDirDefaultExternal("kmts")
 	Private name() As String = Regex.split(" ", Application.LabelName)
 	rkmt.Initialize(safePath,$"${name(0)}.rkmt.km"$, True)
 	skmt.Initialize(File.DirInternal,"kmt.db", False)
diff --git a/B4A/INTMEX_LL.b4a.meta b/B4A/INTMEX_LL.b4a.meta
index 740807c..0a83759 100644
--- a/B4A/INTMEX_LL.b4a.meta
+++ b/B4A/INTMEX_LL.b4a.meta
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=
-NavigationStack=B4XMainPage,lv_server_ItemClick,688,0,B4XMainPage,Entrar_Click,378,3,C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,843,0
+NavigationStack=C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,842,0,B4XMainPage,copiaDB,639,0,C_RespaldoDiario,Initialize,28,0
 SelectedBuild=0
 VisibleModules=2,25,23,12,15,13,4,26,14,8