- VERSION 4.10.20

- Se agregó que restaure desde la tarjeta de memoria la base de respaldo cuando se reinstala la aplicación.

B4A/Subs.bas

@@ -1019,7 +1019,7 @@ Sub traePromo(promo As String, cliente As String) As Map
 '	Si la promo esta en la lista, SOLO los clientes que la tengan la pueden ver.
 	Private ps As Cursor = Starter.skmt.ExecQuery($"select * from HIST_CLIENTE_CANT_PROMOS where HCCP_PROMO = '${promo}' and HCCP_CLIENTE = '${cliente}'"$)
 '	Log($"select * from HIST_CLIENTE_CANT_PROMOS where HCCP_PROMO = '${promo}'"$)
-	Log($"PROMOS SEGMENTADAS DISPONIBLES: ${ps.RowCount}"$)
+	If thisLog Then Log($"PROMOS SEGMENTADAS DISPONIBLES: ${ps.RowCount}"$)
 	If ps.RowCount > 0 Then
 		ps.Position = 0
 		promoMap = CreateMap("id":promo, "maxXcliente":0, "maxRecurrente":0, "maxPromos":0) 'Si es segmentada la ponemos en cero, porque SOLO le debe de aparecer a ciertos clientes.
@@ -1349,7 +1349,7 @@ End Sub
 'regresa el maximo por productos fijos. Ej. si las promos por variables es 10, pero el maximo por
 'fijos es 5, entonces regresamos 5.
 Sub revisaMaxPromosProdsVariablesPorInventario(pm As Map) As Int 'ignore
-	Private thisLog As Boolean = True
+	Private thisLog As Boolean = False
 	If thisLog Then Log("======================================================")
 	If thisLog Then Log("======================================================")
 	Private invFijoXpromo As Map
@@ -1898,4 +1898,16 @@ Sub generaGUID_EnExterno
 		File.WriteString(File.DirRootExternal,$"/Android/kmts/GUID_${Starter.GUID}"$, "0")
 	End If
 	Log($"#####     GUID: ${Starter.GUID}     #####"$)
+End Sub
+
+Sub parseHTTPError(error As String) As String
+	Private nuevoError As String = error
+	Private inicio As Int = error.IndexOf("<title>")
+	Private final As Int = error.IndexOf("</title>")
+	Log("|" & inicio & "|" & final & "|")
+	If inicio > 0 And final > 0 Then
+		nuevoError = error.SubString2(inicio + 17, final)
+'		LogColor(error.SubString2(inicio + 17, final), Colors.Blue)
+	End If
+	Return nuevoError
 End Sub