Version 5.03.24

Se agrega el apartado de comentarios para ubicar la tienda
Se agrega poder tomar foto de la tienda y que si ya se descargo o se tomo la foto aparece en miniatura
Se agrego las promociones por segmentacion (Guerra)
y ya

B4A/Subs.bas

@@ -45,6 +45,10 @@ Sub getPhnId As String 'ignore
 	Return devModel
 End Sub
 
+'Centra un listview dentro de un elemento superior
+Sub centraListView(elemento As ListView, anchoElementoSuperior As Int) 'ignore
+	elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
+End Sub
 
 
 'Comprime y regresa un texto (str) en base64
@@ -1826,4 +1830,20 @@ Sub enviaWhatsappMsg()
 '	Wait For (job) JobDone(job As HttpJob)
 '
 '	Log("Whatsapp enviado con exito: " & job.Success)
+End Sub
+
+
+'Regresa el tipo de cliente:
+' - 1 = platinum
+' - 2 = oro
+' - 3 = bronze
+Sub traeTipoCliente As Int
+	Private x As Cursor
+	Private tc As Int = 0
+	x = Starter.skmt.ExecQuery($"select cat_cl_tipocliente from kmt_info3 where cat_cl_codigo in (select cuenta from cuentaa)"$)
+	If x.RowCount > 0 Then
+		x.Position = 0
+		tc = x.GetInt("CAT_CL_TIPOCLIENTE")
+	End If
+	Return tc
 End Sub