- VERSION 4.10.11

- Encuesta Pedrigree Cajitas Act II
- Actualizacion Forzosa

B4A/Subs.bas

@@ -1177,7 +1177,7 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
 			B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
 			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
 		End If
-		Log(1)
+'		Log(1)
 	Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
 		Try
 			B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
@@ -1487,4 +1487,26 @@ Sub revisaPRO2265(idCliente As String) As Boolean
 	Loop
 	Log($">>>>  revisaPRO2265 ${idCliente} = ${x}"$)
 	Return x
-End Sub
+End Sub
+
+'Regresa TRUE si el cliente especificado existe en el historico de compra de la promo.
+Sub revisaPRO3054(idCliente As String) As Boolean
+	Private r As ResultSet = Starter.skmt.ExecQuery($"select * from HIST_PRO3054 where H_IDCLIENTE = '${idCliente}'"$)
+	Private x As Boolean = False
+	Do While r.NextRow
+		x = True
+	Loop
+	Log($">>>>  revisaPRO3054 ${idCliente} = ${x}"$)
+	Return x
+End Sub
+
+'Regresa TRUE si el cliente especificado existe en el historico de compra de la promo.
+Sub revisaPRO3055(idCliente As String) As Boolean
+	Private r As ResultSet = Starter.skmt.ExecQuery($"select * from HIST_PRO3055 where H_IDCLIENTE = '${idCliente}'"$)
+	Private x As Boolean = False
+	Do While r.NextRow
+		x = True
+	Loop
+	Log($">>>>  revisaPRO3055 ${idCliente} = ${x}"$)
+	Return x
+End Sub