Гороскоп на каждый день

02.07.12

Внешняя обработка, позволяющая получать ежедневный гороскоп по дате рождения.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Получить гороскоп .ert 32,50Kb 8	8	Скачать (1 SM)	Купить за 1 850 руб.

Написать подобную обработку навеяло изучение статьи о чтении динамических страниц, опубликованной http://www.infostart.ru/public/60330/ (автор: mai).

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

В качестве источника информации использовал сайт http://horoscopes.rambler.ru

+8 –

См. также

1С 7.7. Разрешительный режим на кассах. Честный знак. Онлайн проверка с 01.04.2024. Три варианта отправки API запросов, два из них работают на старых Windows

WEB-интеграция Обмен с ГосИС Программист Платформа 1С v7.7 1C77 Россия Абонемент ($m)

В связи с нововведением Разрешительного Режима Онлайн проверки, написал механизм взаимодействия 1С 7.7 с Честным знаком. Использовал три варианта отправки запросов.

3 стартмани

01.04.2024 3410 44 buka99999 28

HTTP сервер, HTTP асинхронный клиент, клиент ГИС МТ "Честный знак" внешние компоненты для 1С 7.7

Разработка внешних компонент WEB-интеграция Программист Платформа 1С v7.7 1C77 Платные (руб)

Компонента HttpSrv7 позволяет создавать веб-сервисы в среде 1С 7.7 и даже, используя файлы HTML, несложные веб-сайты. С помощью нее можно обеспечить доступ к данным 1С 7.7 из браузера. Дополнительно используя компоненту HTTP_Async или синхронный клиент HTTP для 1С 7.7 (публикация № 1152364) можно наладить обмен данными между удаленными информационными базами. С помощью компоненты HTTP_Async можно сначала послать несколько запросов к сайтам, веб-сервисам (в т.ч. к HttpSrv7), а затем обрабатывать данные по мере их поступления. Компонента GISMT в дополнение к HTTP_Async имеет функцию цифровой подписи и, таким образом, имеет все возможности для работы с API ГИС МТ "Честный знак" непосредственно из среды 1С 7.7.

2000 руб.

27.05.2022 9135 23 17

Заполнение контрагента по ИНН с сайта DaData

WEB-интеграция Мастера заполнения Программист Пользователь Платформа 1С v7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

Обработка для заполнения контрагента по ИНН с сайта DAData для Торговли.

2 стартмани

17.02.2022 4737 12 lazarsr 0

Загрузка курсов валют с НБУ (Украина) в 1С 7.7

Банковские операции WEB-интеграция Программист Платформа 1С v7.7 1C77 Украина Абонемент ($m)

Загрузка курсов валют в 1С 7.7 с сайта НБУ (Украина), используя "Msxml2.ServerXMLHTTP.6.0"

1 стартмани

31.05.2021 6918 5 user729873 0

Загрузка курсов валют для РБ (Мисофт) с https

Банковские операции WEB-интеграция Программист Бухгалтер Пользователь Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Беларусь Бухгалтерский учет Абонемент ($m)

Обработка для загрузки курсов валют в конфигурации для РБ (Мисофт).

1 стартмани

08.12.2020 7906 6 stavrosoleg 3

Загрузка курсов валют (для РБ) с сайта nbrb.by для конфигурации "Юкола-Инфо"

Банковские операции WEB-интеграция Программист Бухгалтер Пользователь Платформа 1С v7.7 1C77 Беларусь Бухгалтерский учет Абонемент ($m)

В сентябре 2020 года запланирован переход официального интернет-сайта Национального банка Республики Беларусь на работу только по протоколу https.

1 стартмани

08.12.2020 9741 2 BotMan4 4

Проверка контрагентов для ТиС 9.2 1С 7.7 с помощью WEB-сервиса ФНС

WEB-интеграция Бухгалтер Пользователь Платформа 1С v7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

C помощью WEB-сервиса ФНС проводится проверка идентификационных реквизитов юридических лиц и индивидуальных предпринимателей по данным ЕГРН. Предусмотрена проверка как одного контрагента, так и списка контрагентов. Список контрагентов формируется по наличию товарного движения в заданный период. Платформа 1С 7.7. Торговля и Склад 9.2.

1 стартмани

06.12.2020 6617 10 alex_serb 0

Загрузка курсов валют с сайта Нацбанка Республики Беларусь (МиСОФТ 1С 7.7 )

Изменились правила загрузки курсов валют с сайта Нацбанка Республики Беларусь. Обновление обработки типовой загрузки курсов валют в конфигурации бухгалтерии 1С 7.7 Мисофт.

1 стартмани

16.11.2020 11477 5 igor_1c 6

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. AndrewEv 18 20.01.10 17:42 Сейчас в теме

Троян-ДаунЛоадер в файле. Автор, извинитесь перед нами, пожалуйста

2. Noy 1079 20.01.10 18:03 Сейчас в теме

(1) Антивирус свой воспитывай! Ниче там нет.

3. by_1Cnik 240 21.01.10 13:14 Сейчас в теме

Вирусов нет! NOD32
А гороскоп прикольный+

4. by_1Cnik 240 21.01.10 14:11 Сейчас в теме

только какие то теги в конце вылазят...
*****************************************************
Гороскоп для знака Рак на 21 января 2010

Если утром вам покажется, что цель недостижима, не паникуйте.
Возможно, такое действие на вас оказывает критика со стороны другого человека (например, вашего партнера по делам, товарища по учебе, консультанта по важным вопросам).
Любое высказанное вам в лицо мнение обязательно примите во внимание, так как в прямоте и откровенности вашим оппонентам не откажешь.
Но как только обсуждение будет окончено, суммируйте сказанное и немедленно действуйте.
Если вы будете смелее и не станете сидеть сложа руки, то к вечеру сможете многого добиться.

********************************horoscopes.rambler.ru

5. zaic 133 21.01.10 15:47 Сейчас в теме

Касперский не дал скачать (базы в нем сегодняшние).

6. mdbm 190 22.01.10 10:40 Сейчас в теме

Странно, а вирус обнаруживается при запуске обработчика или при скачивании ?

7. mdbm 190 22.01.10 11:01 Сейчас в теме

Да, действительно Касперский выдает вирус, а на НОД32 тишина.
Но глядя на рисунок видно, что вирус обнаружен в тексте кода 1С.
Вы можете открыть текст и убедится, что под вирусом Касперский воспринимает код:

	
        Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.language = "vbscript";
	x = CreateObject("Microsoft.XMLHTTP");
	x.Open("GET", Адрес, 0,"","");
	x.Send();
	s = CreateObject("ADODB.Stream");
	s.Mode = 3;
	s.Type = 1;
	s.Open();
	Скрипт.AddObject("s",s);
	Скрипт.AddObject("x",x);
	Скрипт.Eval("s.Write(x.responseBody)");
	s.SaveToFile(ФайлРезультата, 2);

Показать

и в отчете касперского так и написано

2010_ПолучитьГороскоп.ert//1С ProgramText

Прикрепленные файлы:

8. mdbm 190 22.01.10 11:21 Сейчас в теме

теги исправил

9. AndrewEv 18 22.01.10 23:05 Сейчас в теме

прикольно, Касперский пошёл в 1C...

10. pupkinSana 114 02.02.10 12:49 Сейчас в теме

Да троянчик есть здесь...

11. mdbm 190 02.02.10 15:59 Сейчас в теме

Я написал письмо в лабораторию Касперского.
Посмотрим что они ответят.

Вот текст письма:

Добрый день.
Я написал программу - внешнюю обработку для программы 1С.
Выложил ее на сайте.
При попытке скачать, антивирус выдает сообщение о вирусе.

В тексте программы есть такой код:
Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language = "vbscript";
x = CreateObject("Microsoft.XMLHTTP");
x.Open("GET", Адрес, 0,"","");
x.Send();
s = CreateObject("ADODB.Stream");
s.Mode = 3;
s.Type = 1;
s.Open();
Скрипт.AddObject("s",s);
Скрипт.AddObject("x",x);
Скрипт.Eval("s.Write(x.responseBody)");
s.SaveToFile(ФайлРезультата, 2);

Данный скрипт открывает страницу определенного сайта и сохраняет ее в текстовый файл.

Не могли бы вы объяснить почему данный текст программы блокируется антивирусом как вирус и мешает пользователям скачать мою обработку ?

При этом НОД32 ДокторВеб молчат.

Показать

Ваш запрос успешно отправлен в Департамент исследований и разработки Лаборатории Касперского.

ждем....

12. mdbm 190 09.02.10 15:02 Сейчас в теме

пока ответа не пришло

13. simuljakr1 25.11.10 17:42 Сейчас в теме

Нашел небольшой косячок :)
"Козерога" неправильно обрабатывает...
Потому что "козерожье" условие никогда не выполняется:

	ИначеЕсли (ТекДата>=Дата("22.12."+Год)) И (ТекДата<=Дата("20.01."+Год))  Тогда
Возврат ?(Язык="ru","Козерог","capricorn");

Но в целом прикольная обработка +

14. by_1Cnik 240 20.06.12 11:49 Сейчас в теме

перестал работать... дело в Рамблере

15. mdbm 190 02.07.12 22:52 Сейчас в теме

(14) 1v7, Обновил ) Продолжаем получать звёздные подсказки ))

16. by_1Cnik 240 04.07.12 09:35 Сейчас в теме

(15) спасибо!!! а то без вгляда в будущее по утрам тяжело жить))
единственное, для комфорта, надо рабочие сообщения "зарисовать":
//Сообщить("НачальнаяСтрока = "+НачальнаяСтрока);
//Сообщить("КонечнаяСтрока = "+КонечнаяСтрока);

17. by_1Cnik 240 04.07.12 12:48 Сейчас в теме

как писал simuljakr1, есть косячок. я бы так поправил:

Функция глПолучитьЗнакЗодиака(ТекДата,Язык="ru") Экспорт
Год=Прав(ДатаГод(ТекДата),2);
Если (ТекДата>=Дата("21.03."+Год)) И (ТекДата<=Дата("20.04."+Год)) Тогда
Возврат ?(Язык="ru","Овен","aries");
ИначеЕсли (ТекДата>=Дата("21.04."+Год)) И (ТекДата<=Дата("20.05."+Год)) Тогда
Возврат ?(Язык="ru","Телец","taurus");
ИначеЕсли (ТекДата>=Дата("21.05."+Год)) И (ТекДата<=Дата("21.06."+Год)) Тогда
Возврат ?(Язык="ru","Близнец","gemini");
ИначеЕсли (ТекДата>=Дата("22.06."+Год)) И (ТекДата<=Дата("22.07."+Год)) Тогда
Возврат ?(Язык="ru","Рак","cancer");
ИначеЕсли (ТекДата>=Дата("23.07."+Год)) И (ТекДата<=Дата("23.08."+Год)) Тогда
Возврат ?(Язык="ru","Лев","leo");
ИначеЕсли (ТекДата>=Дата("24.08."+Год)) И (ТекДата<=Дата("23.09."+Год)) Тогда
Возврат ?(Язык="ru","Дева","virgo");
ИначеЕсли (ТекДата>=Дата("23.09."+Год)) И (ТекДата<=Дата("23.10."+Год)) Тогда
Возврат ?(Язык="ru","Весы","libra");
ИначеЕсли (ТекДата>=Дата("24.10."+Год)) И (ТекДата<=Дата("22.11."+Год)) Тогда
Возврат ?(Язык="ru","Скорпион","scorpio");
ИначеЕсли (ТекДата>=Дата("23.11."+Год)) И (ТекДата<=Дата("21.12."+Год)) Тогда
Возврат ?(Язык="ru","Стрелец","sagittarius");
ИначеЕсли (ТекДата>=Дата("21.01."+Год)) И (ТекДата<=Дата("18.02."+Год)) Тогда
Возврат ?(Язык="ru","Водолей","aquarius");
ИначеЕсли (ТекДата>=Дата("19.02."+Год)) И (ТекДата<=Дата("20.03."+Год)) Тогда
Возврат ?(Язык="ru","Рыба","pisces");
ИначеЕсли (ТекДата>=Дата("22.12."+Год)) ИЛИ (ТекДата<=Дата("20.01."+Год)) Тогда
Возврат ?(Язык="ru","Козерог","capricorn");
КонецЕсли;
КонецФункции