diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index cb70524..aea1649 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -890,7 +890,7 @@ Sub cargar_Click
 	cmd.Name ="insert_drop3_DUR"
 	'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS"
 	cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName)
-'	reqManager.ExecuteQuery(cmd , 0, "inst_noventa") xxxxxxxxxxxxxxx
+	reqManager.ExecuteCommand(cmd, "ins_drop")
 	'sql.UPDATE_DUR_ACTUALR2_GPS=UPDATE DURAKELO.CAT_RUTAS_REPARTO SET CAT_RR_MONTO_ACT = (?),CAT_RR_MRECH_ACT =(?),CAT_RR_VISIT_ACT =(?), CAT_RR_DEV_ACT =(?), CAT_RR_LAT_ACT =(?), CAT_RR_LONG_ACT =(?), CAT_RR_BAT_ACT =(?), CAT_RR_TT = (?), CAT_RR_MONTO = (?), CAT_RR_FECHA_ACT = SYSDATE WHERE CAT_RR_IDALMACEN = (?) And CAT_RR_RUTA = (?)
 
 	'cmd.Initialize
diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta
index 62a870d..8d596df 100644
--- a/B4A/Durakelo.b4a.meta
+++ b/B4A/Durakelo.b4a.meta
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,dameErroresJSON,367,0,C_Principal,SUBIR_P_Click,2725,0,C_Principal,cargar_Click,883,0,C_Principal,Subir_Click,558,0,C_Productos,Class_Globals,0,0,Subs,revisaFechaVigenciaPromo,1502,6,Subs,agrupaProdsPromo,1576,0,C_Productos,B4XPage_Appear,278,6,Subs,fechaMenosUnDia,1579,6,Subs,traePromo,851,6
+NavigationStack=Main,Activity_ActionBarHomeClick,35,0,Subs,procesaPromocion,1017,0,Subs,traePromo,829,6,Main,Globals,22,0,Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,Starter,Process_Globals,20,1,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2
 SelectedBuild=0
-VisibleModules=22,2,10,4,11,23,12,8
+VisibleModules=22,2,10,4,11,23,12,8,24
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 20c32dd..2aa5b53 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -26,7 +26,9 @@ Sub Process_Globals
 	Dim Timer1 As Timer
 	Dim Interval As Int = 300
 	Private flpStarted As Boolean
-	Dim DBReqServer As String = "http://keymon.lat:1781"
+'	Dim DBReqServer As String = "http://keymon.lat:1781"
+'	Dim DBReqServer As String = "http://keymon.net:1781"
+	Dim DBReqServer As String = "http://192.99.93.204:1781"
 	Dim FECHA_HOY As String
 	Dim tipov As String = ""
 	Dim muestraProgreso = 0
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 4435197..51e189c 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -858,7 +858,7 @@ Sub traePromo(promo As String, cliente As String) As Map
 		promoMap.Put("prodsFijosPiezas", prodsFijosPiezas)
 		promoMap.Put("prodsVariablesCant", prodsVariables.Size)
 		promoMap.Put("prodsVariablesPrecios", prodsVariablesPrecios)
-		Log("------->  |" & c.GetString("CAT_PA_VIGENCIA_FIN") & "|")
+		Log("ooo ------->  |" & c.GetString("CAT_PA_VIGENCIA_FIN") & "|")
 '		promoMap.Put("vigencia", c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" ")))
 		Private fVigencia As String = fechaMenosUnDia(c.GetString("CAT_PA_VIGENCIA_FIN").SubString2(0, c.GetString("CAT_PA_VIGENCIA_FIN").IndexOf(" ")))
 		promoMap.Put("vigencia", fVigencia) ' La vigencia de la preventa debe de ser la especificada MENOS un dia.
@@ -1505,7 +1505,7 @@ Sub revisaFechaVigenciaPromo(pm As Map) As Boolean
 	DateTime.DateFormat = "yyyyMMdd"
 	If Starter.tipov = "PREVENTA" Or Starter.tipov = "ABORDO" Then
 		Private vigencia As String = pm.Get("vigencia").As(String).Replace("-", "")
-'		Log("|" & vigencia & "|")
+		Log("------->  |" & vigencia & "|")
 		If vigencia >= DateTime.Date(DateTime.Now) Then vigente = True
 	Else if Starter.tipov = "VENTA" Then
 		Private vigencia As String = pm.Get("vigencia_abordo").As(String).Replace("-", "")