Рубрики

• Анализ
• Видео
• Лирика
  • Всячина
  • Игрушки
  • Кино
  • Отношения
• Новости
• Работа
  • 1С
  • Вирусы и антивирусы
  • Вопросы и ответы
  • Железки
  • Программы
  • Спутники
• Спорт
  • Горные лыжи
  • Горный туризм
  • Интересные места
  • Тренировки
• Фото
  • Локации
  • Фотки. Природа
• Экстремальные игры
  • DozoR
  • Encounter

Популярные статьи

• Не открываются сайты антивирусов drweb.com, kaspersky.ru и esetnod32.ru. Что делать? - 220 677 просмотров
• Обзор спутникового ресивера GS 8300 - 176 488 просмотров
• Что делать если закрыли доступ на одноклассники, вконтакте, маил, аську - 171 688 просмотров
• Монтаж потолка из пластиковых панелей на металлический каркас. - 153 488 просмотров
• Взлом пароля пользователя 1С 8 версии - 138 559 просмотров
• Вирус просит пополнить счет абонента билайн - 121 810 просмотров
• Как самому собрать душевую кабину - 75 878 просмотров
• Как сделать Live CD Dr Web и просканировать компьютер если не загружается Windows из-за вируса - 75 153 просмотров
• Megafon модем HUAWEI Mobile Connect 3G - 73 347 просмотров
• Описание китайского iPhone 3G - 67 650 просмотров

Как настроить беспроводной роутер D-Link DIR 300 для работы с корбиной (Билайн)

Давно мечтал о беспроводном роутере, ибо дома 2 компа и два ноутбука, оснащенных Wi-Fi. До приобретения роутера сеть поддерживал старенький D-Link-овский свитч, к которому цеплялись компьютеры и ноутбуки по витой паре, что делало невозможным доступ в интернет по Вай — Фаю, а ведь так хочется иногда лежа в теплой постели перед сном ответить на пару [...]

Отпрявляем почту из 1С

При написании конфигурации-робота, которая висит в трее и выполняет необходимые обработки по расписанию встала необходимость отслеживать ошибки, возникающие проблемы, записывать в файл и отправлять на почту. Можно конечно использовать для этой цели (отправка почты) средства 1cpp.dll, используя встроенный почтовый клиент, но в этом случае будет запускаться сам почтовый клиент, например outlook express, что не приемлемо, [...]

Метки

Как подключить 1С к базе данных Oracle

Ковырялся недавно в старых файлах. В одной из «шараг» стоял Oracle сервер, который активно взаимодействовал с SQL сервером, на котором крутилась 1С. Нашел несколько обработок, которые подключаются к Оракловскому серверу напрямую и обрабатывают данные.

Вот пример подключения и обработки:

Конторка занималась фармакологическим бизнесом и там было понятие ХИТ продаж — наиболее уходимый, продаваемый товар, вот их то обработка и выставляла, в соответствии с запросом по продажам

Процедура ЗаписатьХиты()
//    ТЗ — это таблица значений, которая заполняется запросом 1С анализирующим продажи. Заполняется в другой процедуре

Если ТЗ.КоличествоСтрок() = 0 Тогда
Предупреждение(«Не выбраны хиты!»);
Возврат;
КонецЕсли;
Стр = 0;
// Подключение к базе Oracle, где base — имя базы данных в Оракле, mak/mak — пользователь/пароль
Попытка
OraSession  = СоздатьОбъект(«OracleInProcServer.XOraSession»);
OraDatabase = OraSession.OpenDatabase(«omsk», «mak/mak», 0);
Исключение
Предупреждение(«Ошибка подключения к Oracle»);
OraSession  = 0;
OraDatabase =  0;
Возврат;
КонецПопытки;
SqlFindHitNumber = «select ps.param_num from elz.params_system ps where ps.name_param = ‘NUM_KATEG_HIT’»;
FindHitNumber = OraDatabase.CreateDynaset(SqlFindHitNumber, 4);
НомерХита = Строка(FindHitNumber.Fields(«param_num»).value);
FindHitNumber = 0;
// Очистим ВСЕ хиты в базе Oracle
SqlDelHits=»begin update elz.c_med_list t set t.cd_c_m = 0 where t.cd_c_m = «+ НомерХита + «;commit;end;»;
OraDatabase.ExecuteSQL(SqlDelHits);
Сообщить(«Таблица хитов очищена!», «!»);
//Проставим хиты в базе Oracle.  ТЗ_Вр — временная ТЗ
ТЗ_Вр = СоздатьОбъект(«ТаблицаЗначений»);
ТЗ.Выгрузить(ТЗ_Вр);
ТЗ_Вр.Сортировать(«-Пометка»);
ТЗ_Вр.ВыбратьСтроки();
Сч = 1;
Пока ТЗ_Вр.ПолучитьСтроку() > 0 Цикл
Если ТЗ_Вр.Пометка = МеткаЕсть Тогда
КодТовара = Число(ТЗ_Вр.Товар.Код);

//Далее пишем текст запроса и выполняем его.
SqlDelHits=»begin update elz.c_med_list t set t.cd_c_m = » + НомерХита + » where t.cd_med = » + Строка(КодТовара) + «;commit;end;»;
OraDatabase.ExecuteSQL(SqlDelHits);
Сообщить(Шаблон(«[Сч] — добавлен хит: [ТЗ_Вр.Товар.Код] [ТЗ_Вр.Товар]«), «i»);
Иначе
// Закончились отмеченные позиции
Прервать;
КонецЕсли;
Сч = Сч + 1;
КонецЦикла;
Сообщить(«Таблица хитов записана!», «!»);
КонецПроцедуры    // ЗаписатьХиты()

Оставить комментарий

Нажмите, чтобы отменить ответ.

(обязательно)

(обязательно)

(дополнительно)

CAPTCHA Code *

Оповещать о новых комментариев по почте

Отменить написание комментария

Видео

Комментарии

• OPS: Можно смотреть как SD, так и HD каналы. Его полное название Dr.HD F-15. Цены везде разные. Заказать можно по...
• сергей: а вообще где F-15 продают ,заказывать нужно? сколько бабосов стоит? можно ли hd каналы смотреть?
• Серж: Это та, которая орёт в рупор: «на посадку, автобус следует по маршруту и т.д.»? ))
• Леха: Пардон! Прошивка отстой сплошные глюки, придется переходить на старую!!!
• Леха: Прошивка отстой сплошные глюки, придется перодить на старую!!!

Страницы блога

• Контакты
• О сайте
• Скачать наработки автора

Статистика

Ссылки

• Блог java программиста
• Здесь можно скачать софт
• Справочник програмиста 1С Выписываю основные приемы программирования

Друзья

• лицензия мчс готовые фирмы .

Twitter