- VERSION 4.10.17

- Se modificó la sección del engrane para que se pueda modificar el servidor de DBRequest.
- Se agregó en el engrane la opción de importar una base de datos desde Whatsapp.

B4A/C_Cliente.bas

@@ -508,6 +508,13 @@ Sub B4XPage_Appear
 		b_Inicio_Fin_venta.Visible = False
 	End If
 	
+	If Subs.hayPedido Then 'Si hay pedido, deshabilitamos el boton de "No Venta"
+		Log(">>>>>     HAY PEDIDO")
+		Tels.Enabled = False
+	Else
+		Tels.Enabled = True
+	End If
+	
 	If Not(Starter.gps.GPSEnabled) Then
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
 		StartActivity(Starter.gps.LocationSettingsIntent)
@@ -537,7 +544,7 @@ Sub B4XPage_Appear
 	If META2 < 1 Then
 		META2 = "CUBIERTO"
 	End If
-	la_saldooper.Text = META2
+	la_saldooper.Text = numberformat2(META2, 0, 2, 2, True)
 	c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
 	If c.RowCount>0 Then
 		C.Position=0
@@ -1116,7 +1123,7 @@ End Sub
 Sub JobDone(Job As HttpJob)
 	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