diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 93e8c9c..455c4f1 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -154,6 +154,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	''' FIN DOE
 	kh.agregaColumna(Starter.skmt, "kmt_info", "IMPRESION", "INTEGER")
 	kh.agregaColumna(Starter.skmt, "USUARIOA", "FECHA", "TEXT")
+	kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_PRECIO2", "TEXT")
+	kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_TIPO_PROMONTO", "TEXT")
 	Root = Root1
 '	Root.LoadLayout("MainPage")
 	Root.LoadLayout("login")
@@ -472,6 +474,7 @@ Sub JobDone(Job As HttpJob)
 	Log("JOBDONE MAINPAGE")
 	If Job.Tag.As(String).StartsWith("_KMS_") Then Job.tag = Job.Tag.As(String).SubString(16)
 	If Job.Success = False Then
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
 		ToastMessageShow("Error: " & Job.ErrorMessage, True)
 	Else
 '		If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110
diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 048da40..5cc87cd 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -452,10 +452,10 @@ Sub B4XPage_Appear
 	BT_QR.Enabled = False
 '	b_factura.Visible = False
 	Panel_INV_A.Visible = False
-	CREDITO_DISPONIBLE =0
+	CREDITO_DISPONIBLE = 0
 	If Starter.boleta = 0 Then
 		c=Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
-		If c.RowCount > 0 Then c.Position= 1
+		If c.RowCount > 0 Then c.Position = 1
 		If TOMAR_FOTO = 0 Then
 			c=Starter.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BFACTURA,CAT_CL_BCREDITO, IMPRESION from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
 			s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -657,7 +657,7 @@ Sub B4XPage_Appear
 			If l_total.Text <> Null And mPromoEspecial.Get("montoPromo") <> Null Then Log($"Monto venta = ${l_total.Text}, rango para promo = ${(mPromoEspecial.Get("montoPromo") * (100 - mPromoEspecial.Get("rangoPromo"))/100)}"$)
 		End If
 
-		c=Starter.skmt.ExecQuery("select count(*) as conNoVenta FROM NOVENTA WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
+		c = Starter.skmt.ExecQuery("select count(*) as conNoVenta FROM NOVENTA WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
 		c.Position = 0
 		If c.GetString("conNoVenta") = 1 Then b_noVenta.Visible = False 'Si ya tiene NoVenta, ocultamos el boton.
 		c.Close
@@ -2118,6 +2118,7 @@ Sub Cuestionario
 	sDate=DateTime.Date(DateTime.Now)
 	sTime=DateTime.Time(DateTime.Now)
 	CUANTOS = 0
+	Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
 	If TOMAR_FOTO = 0 Then
 		s=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
 		s.Position= 0
@@ -2128,6 +2129,7 @@ Sub Cuestionario
 		CUANTOS2 = s.GetString("CUANTOS2")
 		If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta)
 	End If
+	Log(CUANTOS & "|" & CUANTOS2)
 	If CUANTOS = 0 And CUANTOS2 = 0 Then
 		Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
 		If enc.RowCount > 0 Then
@@ -2145,7 +2147,7 @@ Sub Cuestionario
 				Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
 				Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
 				If indicePregunta <> 0 Then i = indicePregunta
-				Log("INDICEPREG: " & indicePregunta)
+				Log("indicePregunta: " & indicePregunta)
 				Log(TOMAR_FOTO)
 				If TOMAR_FOTO = 1 Then
 					If CURSOR_FOTO + 1 > enc.RowCount -1 Then
@@ -2196,7 +2198,7 @@ Sub Cuestionario
 					Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
 						Sleep(0)
 					Loop
-					Log("ENCUESTARES: " & encuestaRes)
+					Log("encuestaRes: " & encuestaRes)
 					If encuestaRes = "SI" Then
 						Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI", sDate & sTime, enc.GetString("CAT_EP_ID")))
 						indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES1_PRED"))
@@ -4006,7 +4008,8 @@ End Sub
 Sub JobDone(Job As HttpJob)
 	If Job.Success = False Then
 '		ToastMessageShow("Error: " & Job.ErrorMessage, True)
-		LogColor("Error: " & Job.ErrorMessage, Colors.red)
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
+'		LogColor("Error: " & Job.ErrorMessage, Colors.red)
 	Else
 		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110
 		If Job.JobName = "DBRequest" Then
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 0cea34a..c55bfc4 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -998,7 +998,9 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
 					Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
 					Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
-					Starter.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
+					Dim CAT_PA_PRECIO2 As String = records(RESULT.Columns.Get("CAT_PA_PRECIO2"))
+					Dim CAT_PA_TIPO_PROMONTO As String = records(RESULT.Columns.Get("CAT_PA_TIPO_PROMONTO"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE, CAT_PA_PRECIO2, CAT_PA_TIPO_PROMONTO) VALUES (?,?,?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE,CAT_PA_PRECIO2,CAT_PA_TIPO_PROMONTO))
 				Next
 				Starter.skmt.TransactionSuccessful
 				Starter.skmt.EndTransaction
@@ -1983,13 +1985,13 @@ End Sub
 
 Sub connecta_Click
 	
-	Log("#################   PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
-	Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
-	Log("REVISAMOS PERMISOS DE BT")
+'	Log("#################   PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
+'	Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
+'	Log("REVISAMOS PERMISOS DE BT")
 	Starter.rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
-	If Result Then Log("Tenemos permisos de bluetooth.")
-	Log($"Resultado del CheckAndRequest: ${Result}"$)
+'	If Result Then Log("Tenemos permisos de bluetooth.")
+'	Log($"Resultado del CheckAndRequest: ${Result}"$)
 '	Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
 	
 '	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("RUTA"))
diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas
index 62c13d4..a31bbed 100644
--- a/B4A/C_Productos.bas
+++ b/B4A/C_Productos.bas
@@ -4,14 +4,6 @@ ModulesStructureVersion=1
 Type=Class
 Version=11.5
 @EndOfDesignText@
-
-
-
-
-
-
-
-
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
@@ -835,7 +827,7 @@ Sub cuentaProds
 	End If
 	If kh.traeTotalCliente < 0 Then
 		Msgbox("No tienes suficiente venta para RMIs en esta orden, se van a borrar.", "AVISO") 'ignore
-		Starter.skmt.ExecNonQuery($"delete from pedido where PE_CEDIS = 'DUR' and PE_USUARIO = '${Subs.traeUsuarioDeBD}'"$)
+		Starter.skmt.ExecNonQuery($"delete from pedido where PE_CEDIS = 'DUR' and PE_CLIENTE = '${Subs.traeCliente}'"$)
 		cuentaProds
 	End If
 '	Log($"Total Prods: ${c.GetString("cant")}, Total Compra: $$1.2{c.GetString("total")}"$)
diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal
index 2edfc18..e37973f 100644
Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index ebd2615..4fca2a2 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -59,35 +59,35 @@ ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleBreakpoints9=
 ModuleClosedNodes0=
-ModuleClosedNodes1=2,4
+ModuleClosedNodes1=
 ModuleClosedNodes10=
 ModuleClosedNodes11=
-ModuleClosedNodes12=3
+ModuleClosedNodes12=1
 ModuleClosedNodes13=
 ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=
-ModuleClosedNodes17=5,7,8,10,11,12,13,15,16,18
+ModuleClosedNodes17=
 ModuleClosedNodes18=
 ModuleClosedNodes19=
 ModuleClosedNodes2=
-ModuleClosedNodes20=20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
+ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=
 ModuleClosedNodes23=
 ModuleClosedNodes24=
-ModuleClosedNodes25=2
+ModuleClosedNodes25=
 ModuleClosedNodes26=
-ModuleClosedNodes27=3,7,9,10
+ModuleClosedNodes27=
 ModuleClosedNodes28=
 ModuleClosedNodes29=
-ModuleClosedNodes3=86
+ModuleClosedNodes3=
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
-ModuleClosedNodes7=3,11,12
+ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,cargar_Click,676,0,C_Principal,JobDone,1029,0,C_Principal,B_PROXIMA_Click,2477,0,C_Productos,Class_Globals,13,0,C_Productos,B4XPage_Appear,170,0,Subs,sumaPedido,1676,0,C_Principal,B4XPage_Appear,285,0,Subs,traeDiaSemana,1680,0,kms_helperSubs,RD_restaura_kmt_info,336,0,C_Productos,b_prodMas_Click,672,0
+NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,642,0,C_Principal,JobDone,1821,0,C_Principal,connecta_Click,1993,0,C_Principal,trabajar_Click,447,0,C_CheckList,B4XPage_Appear,148,0,C_Cliente,Cuestionario,2125,6,C_Productos,Class_Globals,0,0,C_Productos,cuentaProds,823,1,B4XMainPage,B4XPage_Created,189,0
 SelectedBuild=0
-VisibleModules=1,27,11,3,12,4,28,2,23
+VisibleModules=1,27,11,3,12,4,28,2,23,22,17