- VERSION 5.04.23

- Se agrega la parte de Trend Spending de Bonificaciones (Gracias Javy!!!)

B4A/kms_helperSubs.bas

@@ -1300,4 +1300,16 @@ Sub motivoNoVisitaActivo As Boolean
 		If nv.GetString("valor") = "1" Then rnv = True
 	End If
 	Return rnv
+End Sub
+
+' Trae el precio desde la base de datos
+Sub traePrecio(id As String) As String
+	Private precio As String = "1000000000"
+	Private c As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_PRECIO from ${Subs.traeTablaProds(Starter.tipov)} where cat_gp_id = '${id}'"$)
+	If c.RowCount > 0 Then
+		c.Position = 0
+		precio = c.GetString("CAT_GP_PRECIO")
+	End If
+	Log("EL PRECIO = " & precio)
+	Return precio
 End Sub