diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index e124e2f..857b8a5 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -3877,7 +3877,7 @@ Sub metePromoEspecial(idProd As String, idPromo As String, cantProd As Int, nomb
 	query = "cat_gunaprod"
 	If Starter.tipov = "VENTA" Then query = "cat_gunaprod2"
 '	Falta nombre de producto en el insert
-	Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CEDIS = ?", Array As String (idPromo)) ' HAY QUE AGREGAR EL CLIENTE PARA QUE NO BORRE TODAS LAS PROMOS!!
+	Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CLIENTE = ? and PE_CEDIS = ?", Array As String (idUsuario, idPromo)) ' HAY QUE AGREGAR EL CLIENTE PARA QUE NO BORRE TODAS LAS PROMOS!!
 	'Metemos encabezado de la promo.
 	Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0, 0, cantProd, promoDescr, idPromo, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0))
 	'Metemos el producto de regalo.
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index baac710..8e6e212 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -887,7 +887,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 4.10.19
+	#VersionName: 4.10.20
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 85355e2..7283776 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=kms_helperSubs,RD_respaldoBatch,461,0,B4XMainPage,b_cargaLocalOk_Click,760,0,Starter,Process_Globals,42,1,B4XMainPage,Class_Globals,90,0,kms_helperSubs,Initialize,41,0,kms_helperSubs,agregaColumna,522,0,kms_helperSubs,revisaSiExisteRespaldo,87,2,kms_helperSubs,RD_Init,81,6,B4XMainPage,B4XPage_Appear,372,6,B4XMainPage,B4XPage_Created,362,4
+NavigationStack=kms_helperSubs,revisaSiExisteRespaldo,87,2,kms_helperSubs,RD_Init,81,6,B4XMainPage,B4XPage_Appear,372,6,C_Principal,JobDone,2053,0,B4XMainPage,B4XPage_Created,362,4,C_Cliente,Class_Globals,0,0,C_Cliente,revisaPromoEspecial,3867,0,C_Cliente,B4XPage_Appear,665,0,C_Cliente,metePromoEspecial,3873,6,Starter,Process_Globals,42,1,C_Promos,muestraPromo,80,0
 SelectedBuild=0
 VisibleModules=1,28,11,3,29,12,4,13,23,7
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 54a373e..34e35e8 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -46,7 +46,7 @@ Sub Process_Globals
 	Dim ultimaActualizacionGPS As String = 235959 '
 	Dim fechaRuta As String 'ignore
 	Dim tiempos As Map
-	Dim Logger As Boolean = True
+	Dim Logger As Boolean = False
 	Dim ultimaActividad As String = ""
 	Dim boleta As String = 0
 	Dim sesion As Map