SEOgramota.Ru блог о SEO, продвижении, заработке в интернете

Доброго время суток!!! В этой статье, я кратко роскажу, как заработать в сети 1 – 2 бакса в день, ничего не делая! Суть способа в том, что в свёрнутом режиме работает прога, которая насчитывает бонусы. по достижению определённой сумы онусов, мы переводим их в доллары)!Тоисть чем дольше онлайн, тем больше денег, при этом не требуется ни какого вмешательства, ну разве что перевод денег)!Итак прогу скачиваем с депозита: http://depositfiles.

com/ru/files/s8zdzq1xk? redirect или летитбита: http://letitbit.

Уже давно не секрет, что развитие современных информационных технологий сделало поиск информации наиболее быстрым и доступным. В наше время программы, книги, любимые фильмы, музыку и игры можно без каких-либо проблем отыскать на любом тематическом портале, при этом тамошний ассортимент не уступает количеству товаров в обычных медиа-маркетах. Но дело даже не в разнообразии

Google запустил широкомасштабную рекламную кампанию по продвижению собственного браузера Google Chrome. Ролики и баннеры появились не только на стартовой странице поисковика, результатах видеопоиска YouTube и на странице выдачи, но и в телевизионном эфире. Реклама браузера будет осуществляться при помощи средств собственного продукта – Google TV Ads. По мнению

http://delmi-company. com/vik666/ – пройдя по этой ссылке, вы не только поможете мне заработать, но и сами поймёте, как на самом деле легко заработать играя в эту Экономическую игру. Это очень надёжный проект! Экономическая игра Экономическая игра “Вексель” — это первый коммерческий проект Интернет-Корпорации Delmi. Являясь пользователем нашего мега-портала Delmi, Вы, как и любой участник

Интернет уникальная среда, с одной стороны он предоставляет безграничные возможности, с другой это сумрачное царство, где блуждаешь как ежик в тумане и не знаешь, с кем имеешь дело на самом деле, куда податься, кому продаться и довериться. Интернет уравнивает,

мая 8, 2010 | by Макс | Сегодня получил подтверждение сабжа Фильтр АГС учитывает переходы и ссылки на внутренние страницы. Экспериментов специальных не ставил, но наблюдается маленькая тенденция подтверждающая это правило. В начале работы АГС было запущено два сайта: на сайт №1 покупались ссылки как на морду

Смысл каталога сайтов и раскрутки сайтов с помощью этого очень прост. Каталог представляет собой сайт, который добавляет в свое тело гиперссылку на ваш ресурс и краткое описание ресурса. После этого ссылку и описание индексируется поисковой машиной и ваш сайт начинает подниматься в выдаче поисковой машины. Но сейчас

Когда люди впервые открывают для себя Интернет, им редко приходит в голову, что на нем можно заработать. Они используют ресурсы Всемирной паутины с самыми разнообразными целями – для общения, для поиска информации, для удовлетворения своих самых разных потребностей. Однако постепенно наиболее продвинутые пользователи начинают задаваться вопросами: «Позвольте, а как работает Интернет? Ведь содержание сайтов,

  В данной статье речь пойдет о создании формы подбора Номенклатуры, открываемой из формы документа для подбора необходимых позиций. Форма будет создана на основе общих форм и будет состоять из трех списков. Первый список будет отображать дерево значений номенклатуры, второй – непосредственно список номенклатуры, а в третьем будут отображаться выбранные значения.     Для начала зайдем в документ, создадим кнопку “Подбор” и команду на кнопку. Теперь добавим действие на эту команду в котором пропишем код, открывающий форму подбора: &НаКлиенте Процедура Подбор(Команда)    ОткрытьФорму(“ОбщаяФорма. ФормаПодбора”); КонецПроцедуры Далее закрываем форму документа (к ней мы вернемся чуть позже) и создаем новую общую форму “ФормаПодбора”:       Далее добавляем таблицу на форму и реквизит к таблице. Тип данных реквизита будет “ДинамическийСписок”. В свойствах реквизита в разделе Объект поставим галочку – “Произвольный запрос” и нажмем на ссылку Настройка списка:     В появившейся форме нам необходимо будет написать запрос который будет отображаться в таблице “Дерево”.

Текст запроса будет выглядеть так: ВЫБРАТЬ   Номенклатура. Наименование КАК Группа ИЗ   Справочник. Номенклатура КАК Номенклатура ГДЕ   Номенклатура. ЭтоГруппа Теперь нужно немного изменить настройки для таблицы Дерево, точнее изменить кое какие свойства отображения нашего древовидного списка:   1. Установим галочку на свойство ТолькоПросмотр 2. Установим галочку на свойство РежимВыбора 3. ПоложениеКоманднойПанели – Нет 4. Отображение – Дерево 5. Режим выделения – Одиночный 6. Начальное отображение дерева – Раскрывать верхний уровень 7. Выбор групп и элементов – Группы 8. РазрешитьВыборКорня – Галочка   Посмотрим что у нас получилось: Неплохо. Следующим шагом будет создание таблицы где будет отображаться сама номенклатура. Создадим на форме еще отдну таблицу Список и добавим реквизит с таким же названием. Как и в случае с реквизитом Дерево повторяем те же манипуляции, т. е. тип – ДинамическийСписок, произвольный запрос – Да. Открываем форму редактирования запроса. Тут придется написать запрос чуточку сложнее (подробности можно посмотреть в конструкторе запросов): ВЫБРАТЬ   ЦеныСрезПоследних. Цена,   НоменклатураСписок. Код,   НоменклатураСписок. Ссылка ИЗ   Справочник. Номенклатура КАК НоменклатураСписок   ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений. Цены. СрезПоследних КАК ЦеныСрезПоследних   ПО НоменклатураСписок. Ссылка = ЦеныСрезПоследних. Номенклатура. Ссылка ГДЕ   НоменклатураСписок. Родитель. Ссылка В(&Группа) СГРУППИРОВАТЬ ПО   ЦеныСрезПоследних. Цена,   НоменклатураСписок. Код,   НоменклатураСписок. Ссылка Плюс нужно создать событие формы ПриСозданииНаСервере и прописать в нем наш фильтр “Группа”: &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)   Список. Параметры. УстановитьЗначениеПараметра(“Группа”, Группа); КонецПроцедуры Форма почти готова. Осталось связать наши таблицы: Дерево и Список. Для этого нужно будет создать еще несколько событий для таблицы Дерево: &НаКлиенте Процедура ОбновитьСписок()   Список. Параметры. УстановитьЗначениеПараметра(“Группа”, Группа); КонецПроцедуры &НаКлиенте Процедура ДеревоВыборЗначения(Элемент, Значение, СтандартнаяОбработка)   Группа = Значение;   ОбновитьСписок(); КонецПроцедуры &НаКлиенте Процедура ДеревоОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)   Группа = ВыбранноеЗначение;   ОбновитьСписок(); КонецПроцедуры &НаКлиенте Процедура ДеревоПередРазворачиванием(Элемент, Строка, Отказ)   Группа = Строка;   ОбновитьСписок(); КонецПроцедуры   &НаКлиенте Процедура ДеревоПередСворачиванием(Элемент, Строка, Отказ)   Группа = Строка;   ОбновитьСписок(); КонецПроцедуры &НаКлиенте Процедура ДеревоПриСменеТекущегоРодителя(Элемент)   Группа = Элемент. Родитель;   ОбновитьСписок(); КонецПроцедуры Наша форма почти готова:     Ну и наконец добавим третий список (тип данных – ТаблицаЗначений), в который добавим 2 колонки – Номенклатура и Цена:     а в таблице “Список” добавим событие “Выбор”: &НаКлиенте Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)   ТекущаяСтрока = Элемент. ТекущиеДанные;   НоваяСтрока = Отобранные. Добавить();   НоваяСтрока. Номенклатура = ТекущаяСтрока. Ссылка;   НоваяСтрока. Цена = ТекущаяСтрока. Цена; КонецПроцедуры Теперь необходимо чтобы эта форма возвращала отобранные значения, обратно в форму документа. Для этого создадим новую кнопку “ОК” и создадим новую команду с таким же названием. Событие будет выглядеть так: &НаКлиенте Процедура ОК(Команда)   Закрыть(ЗаписатьВХранилище()); КонецПроцедуры а функция ЗаписатьВХранилище будет такая: &НаСервере Функция ЗаписатьВХранилище()   Возврат ПоместитьВоВременноеХранилище(Отобранные. Выгрузить()); КонецФункции Откроем опять форму нашего документа и исправим процедуру Подбор, добавив процедуру получения данных из временного хранилища: &НаСервере Процедура ПолучитьЗапасыИзХранилища(АдресВХранилище)   ВременнаяТаблица = ПолучитьИзВременногоХранилища(АдресВХранилище);   Для Каждого ЗагружаемаяСтрока Из ВременнаяТаблица Цикл   СтрокаТЧ = Объект["Товар"].Добавить();   СтрокаТЧ. Номенклатура = ЗагружаемаяСтрока. Номенклатура;   СтрокаТЧ. Цена = ЗагружаемаяСтрока. Цена;   КонецЦикла;  КонецПроцедуры &НаКлиенте Процедура Подбор(Команда)   ФормаПодбора = ПолучитьФорму(“ОбщаяФорма. ФормаПодбора”);   АдресВХранилище = ФормаПодбора. ОткрытьМодально();   Если ЗначениеЗаполнено(АдресВХранилище) Тогда   Пол

Один из создателей Всемирной паутины Винт Сёрф утверждает, что из-за большого роста количества пользователей Интернет, а также устройств, каждому из которых присваивается свой