VERSION 6.01.05

- Se cambio el nombre de las imagenes cuando se realiza a primera venta.
- Se agrego la fecha de la bitacora en todos lados para que siempre ponga inicioi y fin

B4A/Starter.bas

@@ -237,6 +237,9 @@ Sub mandaForma(almacen_ As String, ruta_ As String, cliente_ As String, imagen_
 	If job.Success Then
 		' El servidor respondió correctamente (HTTP 200 OK)
 		Log("Respuesta del servidor: " & job.GetString)
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOTO_INICIAL"))
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOTO_INICIAL", "ENVIADA"))
+	
 '		MsgboxAsync("¡Imagen subida con éxito!", "Completado")
 	Else
 		' Hubo un error en la conexión o el servidor respondió con un error