- VERSION 4.10.15

- Se genera un GUID para pruebas en lugar del IMEI

B4A/Subs.bas

@@ -1866,4 +1866,36 @@ Sub traeTotalCliente As Double
 	Next
 	cursorprueba.Close
 	Return sumaTotal
+End Sub
+
+'Genera un GUID (globally unique identifier)
+Sub GUID As String
+	Dim sb As StringBuilder
+	sb.Initialize
+	For Each stp As Int In Array(8, 4, 4, 4, 12)
+		If sb.Length > 0 Then sb.Append("-")
+		For n = 1 To stp
+			Dim c As Int = Rnd(0, 16)
+			If c < 10 Then c = c + 48 Else c = c + 55
+			sb.Append(Chr(c))
+		Next
+	Next
+	Return sb.ToString
+End Sub
+
+'Revisa si ya se genera el GUID de la aplicacion y si no lo genera, pone el valor en Starter.GUID
+Sub generaGUID_EnExterno
+	File.MakeDir(File.DirRootExternal,"/Android/kmts")
+'	Wait For (File.ListFilesAsync(File.DirRootExternal & "/Android/kmts")) Complete (Success As Boolean, Files As List)
+	Private Files As List = File.ListFiles(File.DirRootExternal & "/Android/kmts")
+'	Log(Files)
+	Starter.GUID = ""
+	For i = 0 To Files.Size - 1
+		If Files.Get(i).As(String).StartsWith("GUID_") Then Starter.GUID = Files.Get(i)
+	Next
+	If Starter.GUID = "" Then
+		Starter.GUID = GUID
+		File.WriteString(File.DirRootExternal,$"/Android/kmts/GUID_${Starter.GUID}"$, "0")
+	End If
+	Log($"#####     GUID: ${Starter.GUID}     #####"$)
 End Sub