diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index 13a6853..b0ea519 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -837,25 +837,24 @@ Module10=C_Pedidos
 Module11=C_Principal
 Module12=C_Productos
 Module13=C_Promos
-Module14=C_Subs
-Module15=C_TicketsDia
-Module16=C_updateAvailable
-Module17=CameraExClass
-Module18=DBRequestManager
-Module19=DownloadService
+Module14=C_TicketsDia
+Module15=C_updateAvailable
+Module16=CameraExClass
+Module17=DBRequestManager
+Module18=DownloadService
+Module19=errorManager
 Module2=C_CheckList
-Module20=errorManager
-Module21=EscPosPrinter
-Module22=FileHandler
-Module23=foto
-Module24=kms_helperSubs
-Module25=ManageExternalStorage
-Module26=MAPA_RUTAS
-Module27=SD_Spinner
-Module28=Starter
-Module29=Subs
+Module20=EscPosPrinter
+Module21=FileHandler
+Module22=foto
+Module23=kms_helperSubs
+Module24=ManageExternalStorage
+Module25=MAPA_RUTAS
+Module26=SD_Spinner
+Module27=Starter
+Module28=Subs
+Module29=Tracker
 Module3=C_Cliente
-Module30=Tracker
 Module4=C_Clientes
 Module5=C_Historico
 Module6=C_Mapas
@@ -864,7 +863,7 @@ Module8=C_NoVenta
 Module9=C_NuevoCliente
 NumberOfFiles=401
 NumberOfLibraries=29
-NumberOfModules=30
+NumberOfModules=29
 Version=12.5
 @EndOfDesignText@
 #Region  Project Attributes	
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index c260f09..2a5cc67 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -22,7 +22,6 @@ ModuleBookmarks27=
 ModuleBookmarks28=
 ModuleBookmarks29=
 ModuleBookmarks3=
-ModuleBookmarks30=
 ModuleBookmarks4=
 ModuleBookmarks5=
 ModuleBookmarks6=
@@ -53,7 +52,6 @@ ModuleBreakpoints27=
 ModuleBreakpoints28=
 ModuleBreakpoints29=
 ModuleBreakpoints3=
-ModuleBreakpoints30=
 ModuleBreakpoints4=
 ModuleBreakpoints5=
 ModuleBreakpoints6=
@@ -61,36 +59,35 @@ ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleBreakpoints9=
 ModuleClosedNodes0=
-ModuleClosedNodes1=
+ModuleClosedNodes1=2
 ModuleClosedNodes10=
 ModuleClosedNodes11=1,3,50,51,52
 ModuleClosedNodes12=3
 ModuleClosedNodes13=
-ModuleClosedNodes14=39,40,41,43,44
+ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=
-ModuleClosedNodes17=
-ModuleClosedNodes18=5,7,8,9,10,11,12,13,15,16,18
+ModuleClosedNodes17=5,7,8,9,10,11,12,13,15,16,18
+ModuleClosedNodes18=
 ModuleClosedNodes19=
 ModuleClosedNodes2=
-ModuleClosedNodes20=
-ModuleClosedNodes21=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
+ModuleClosedNodes20=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
+ModuleClosedNodes21=
 ModuleClosedNodes22=
 ModuleClosedNodes23=
 ModuleClosedNodes24=
-ModuleClosedNodes25=
-ModuleClosedNodes26=2
-ModuleClosedNodes27=
-ModuleClosedNodes28=9,10,11
+ModuleClosedNodes25=2
+ModuleClosedNodes26=
+ModuleClosedNodes27=9,10
+ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=3,86
-ModuleClosedNodes30=
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=3,11,12
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,JobDone,969,6,B4XMainPage,B4XPage_Created,143,6,C_Cliente,B4XPage_Appear,587,6,Subs,traePromo,986,6,Subs,procesaPromocion,1180,0,Subs,traePromosVendidas,1169,0,Main,Process_Globals,20,0,Main,Activity_KeyPress,42,0,Main,Activity_ActionBarHomeClick,37,0,Main,Activity_Create,33,0
+NavigationStack=Starter,Process_Globals,9,0,kms_helperSubs,RD_Init,62,0,Starter,ENVIA_ULTIMA_GPS,140,0,Subs,revisaBD,180,0,Starter,revisaBD,225,0,Starter,Service_Start,81,0,Starter,Service_Create,61,0,Main,Activity_Create,33,0,C_Productos,Busca_TextChanged,1201,0,B4XMainPage,b_importarBD_Click,757,0
 SelectedBuild=0
-VisibleModules=1,28,11,3,12,4,29,13,14,24
+VisibleModules=1,27,11,3,12,4,28,13,23
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index 1077eb1..62019c7 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -13,7 +13,7 @@ Sub Process_Globals
 	'These global variables will be declared once when the application starts.
 	'These variables can be accessed from all modules.
 	Public rp As RuntimePermissions
-	Dim s As C_Subs
+'	Dim s As C_Subs
 	Dim reqManager As DBRequestManager
 	Dim skmt, errorLog As SQL
 	Dim ruta As String = File.DirInternal
@@ -57,7 +57,7 @@ End Sub
 Sub Service_Create
 	'This is the program entry point.
 	'This is a good place to load resources that are not specific to a single activity.
-	s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
+'	s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
 	If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
 	If Logger Then LogColor("'/////////////////////////////////////   Iniciamos Starter  /////////////////////////////////", Colors.Green)
 	If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
@@ -65,8 +65,9 @@ Sub Service_Create
 	Timer1.Enabled = True
 	GPS.Initialize("GPS")
 	ubicacionActual.Initialize
+	Subs.revisaBD
 	pe.Initialize("pe") 'Para obtener la bateria
-	skmt = s.dbInit 'Inicializamos BD.
+'	skmt = s.dbInit 'Inicializamos BD.
 	DBReqServer = "http://keymon.lat:1781"
 	Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$)
 	If c.RowCount > 0 Then 
@@ -86,7 +87,6 @@ End Sub
 
 Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
-	Subs.revisaBD
 	#if DEBUG
 		Logger = True
 	#else
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index df46361..5ebc698 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -203,6 +203,7 @@ Sub revisaBD 'ignore
 			If Starter.logger Then LogColor(LastException, Colors.Red)
 		End Try
 	End Try
+	
 	Try 'Si no existe la columna CAT_CL_SEGMENTO la agregamos.
 		Starter.skmt.ExecQuery("select count(CAT_CL_SEGMENTO) from kmt_info")
 	Catch
@@ -975,7 +976,8 @@ Sub traePromo(promo As String, cliente As String) As Map
 	c.Position = 0
 	promoMap = CreateMap("id":promo, "maxXcliente":0, "maxRecurrente":0, "maxPromos":0) 'Ponemos el DEFAULT en CERO.
 	If c.RowCount > 0 Then promoMap = CreateMap("id":promo, "maxXcliente":c.GetString("CAT_PA_MAXPROMCLIE"), "maxRecurrente":c.GetString("CAT_PA_MAXPROMREC"), "maxPromos":c.GetString("CAT_PA_MAXPROM"))
-	'PROMOCIONES SEGMENTADAS, si la promo esta en la lista, SOLO los clientes que la tengan la pueden ver.
+	'#########   PROMOCIONES SEGMENTADAS   ##########
+'	Si la promo esta en la lista, SOLO los clientes que la tengan la pueden ver.
 	Private ps As Cursor = Starter.skmt.ExecQuery($"select * from HIST_CLIENTE_CANT_PROMOS where HCCP_PROMO = '${promo}'"$)
 	Log($"select * from HIST_CLIENTE_CANT_PROMOS where HCCP_PROMO = '${promo}'"$)
 '	Log($"PROMOS SEGMENTADAS DISPONIBLES: ${ps.RowCount}"$)
@@ -993,7 +995,7 @@ Sub traePromo(promo As String, cliente As String) As Map
 			promoMap = CreateMap("id":promo, "maxXcliente":(ps2.GetString("HCCP_CANT")-ps2.GetString("HCCP_CANT_VENDIDA")), "maxRecurrente":0, "maxPromos":ps2.GetString("HCCP_CANT")) 'Si es segmentada SOLO le aparece a ciertos clientes.
 		End If
 	End If
-	'Termina promos segmentadas
+'	##########   TERMINA PROMOS SEGMENTADAS   ##########
 	c = Starter.skmt.ExecQuery("Select count(*) as hist from HIST_PROMOS where HP_CLIENTE = '"& cliente & "' and HP_CODIGO_PROMOCION = '" & promo & "'") 'Revisamos si hay historico de la promoción.
 	c.Position = 0
 	If c.GetString("hist") > 0 Then siHistorico = 1