- VERSION 4.10.20

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

B4A/C_Cliente.bas

@@ -3836,6 +3836,7 @@ Sub revisaPromoEspecial As Map
 '	If clienteImpreso = "0" Then Log("El cliente no tiene venta impresa.")
 	x.Close
 	'Revisamos que tenga asignada la promo.
+	
 	x=Starter.skmt.ExecQuery("select count(*) as clienteConPromo, CPM_PROID, CPM_CANT, CPM_RANGO, CPM_DESC, CPM_IDPROMO, CPM_MONTO from CAT_PROMO_MONTO where CPM_CLIENTE in (Select CUENTA from cuentaa)")
 	If x.RowCount > 0 Then
 		x.Position = 0
@@ -3876,7 +3877,7 @@ Sub metePromoEspecial(idProd As String, idPromo As String, cantProd As Int, nomb
 	query = "cat_gunaprod"
 	If Starter.tipov = "VENTA" Then query = "cat_gunaprod2"
 '	Falta nombre de producto en el insert
-	Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CEDIS = ?", Array As String (idPromo))
+	Starter.skmt.ExecNonQuery2("DELETE from PEDIDO where PE_CEDIS = ?", Array As String (idPromo)) ' HAY QUE AGREGAR EL CLIENTE PARA QUE NO BORRE TODAS LAS PROMOS!!
 	'Metemos encabezado de la promo.
 	Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (idPromo, 0, 0, cantProd, promoDescr, idPromo, idCliente, sDate & sTime, idUsuario, idRuta, Starter.tipov, 0))
 	'Metemos el producto de regalo.
@@ -4101,7 +4102,7 @@ Sub JobDone(Job As HttpJob)
 	Log("JOBDONE CLIENTE")
 	If Job.Success = False Then
 '		ToastMessageShow("Error: " & Job.ErrorMessage, True)
-		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
+		LogColor("Error: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.red)
 '		LogColor("Error: " & Job.ErrorMessage, Colors.red)
 	Else
 		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211110