- VERSION 5.06.08

- Se implementaron los globos dinamicos en el mapa.
- Se centro panel de clientes.
- Se desaparecen los botones de venta y No Venta en cliente si el cliente es nuevo.
- Se ajusto el tamaño del listview de clientes para que no se saga del panel.

B4A/Subs.bas

@@ -1379,4 +1379,19 @@ End Sub
 
 Sub capitalizar(str As String) As String 'ignore
 	Return str.Substring2(0,1).ToUppercase & str.SubString(1)
+End Sub
+
+Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'ignore
+	Dim NewBitmap As Bitmap
+	NewBitmap.InitializeMutable(OriginalBitmap.Width, OriginalBitmap.Height)
+	Dim Canvas As Canvas
+	Canvas.Initialize2(NewBitmap)
+	' Definir el rectángulo donde se dibujará el Bitmap
+	Dim DestRect As Rect
+	DestRect.Initialize(0, 0, OriginalBitmap.Width, OriginalBitmap.Height)
+	' Dibujar la imagen original
+	Canvas.DrawBitmap(OriginalBitmap, Null, DestRect)
+	' Dibujar el número en el centro del Bitmap y configurar el estilo del texto
+	Canvas.DrawText(Number, (OriginalBitmap.Width / 2), (OriginalBitmap.Height / 2.4), Typeface.DEFAULT, 15, Colors.White, "CENTER")
+	Return NewBitmap
 End Sub