"пАздрАвлЯлкА" для семёрки ...

14.12.10

Задачи пользователя - Поздравления

Решил сделать «поздравлялку» с праздниками в 1С 7.7.

Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует.

Решение искалось исключительно штатными средствами.

Скачать файлы

Наименование Файл Версия Размер
Addition.rar
.rar 1,03Mb
108
.rar 1,03Mb 108 Скачать

.

.

 

Решение следующее.

 

1. Создаём папку «Addition» в каталоге информационной базы.

 

2. В каталоге «Addition» создаём несколько внешних обработок по количеству праздников с разными картинками у формы обработок, например «Events_holiday_NewYear_1.ert» и «Events_holiday_NewYear_2.ert».

 

3. В каталоге «Addition» создаём обработку «Events.ert» которая и является программным шлюзом. Её задача, получив управление выполнить дополнительные функции - в данном случае в зависимости от текущей даты запускать соответствующие, ранее созданные, обработки с поздравлениями.

 

4. Делаем программный шлюз в глобальном модуле следующим образом:

 

Подключение шлюза:

 

 

Процедура ПриНачалеРаботыСистемы()

 …. текст модуля …

//Алекс 09.12.2010 начало   

        // Загрузка программного шлюза дополнительных возможностей    

                        Попытка

                                                           путь_КаталогИБ = КаталогИБ();

                                                           путь_КаталогОбработка = "Addition\Events.ert";  

                                               Путь = путь_КаталогИБ + путь_КаталогОбработка;

                                   ОткрытьФорму("Отчет",,Путь);

                        Исключение

                                   // Обработка исключительной ситуации;

                        КонецПопытки;

//Алекс 09.12.2010 конец    

            

КонецПроцедуры // ПриНачалеРаботыСистемы()


 

 

Небольшой пример обработок смотри в прилагаемом файле-архиве.

 

 

За последние 5 лет первая программа на 7-ке. Многое забыл или не знал.

 

Буду всем благодарен за критику, советы, указание найденных ошибок.

 

Спасибо Арчибальду и Альтаиру за помощь и поддержку.

 

… вот …

 

С Уважением Шёпот теней …

 

.

См. также

С Новым Годом 2014

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.

1 стартмани

26.12.2013    16712    14    lushka    9    

3

С Новым Годом 2013!

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/

1 стартмани

28.12.2012    16742    12    lushka    6    

3

Поздравление с Новым Годом 2013

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.

1 стартмани

19.12.2012    20610    37    Vital451    20    

6

Мультфильм к новому году

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.

1 стартмани

04.12.2012    20281    98    alf2006x    9    

16

Поздравление с 8 марта для 1С:7.7

Поздравления Оперативный учет 7.7 Бухгалтерский учет 7.7 Конфигурации 1cv7 Россия Бесплатно (free)

Обработка с картинкой и текстом поздравления с 8 марта. Написана не мною, найдена на одной из работ. На инфостарте нет, публикую для коллекции.

12.02.2012    20349    67    fixin    9    

2

Поздравление с новым годом 2012

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров

1 стартмани

30.11.2011    19841    133    kenshin    57    

50

Поздравление с 8 Марта

Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Для наших любимых дам простое поздравление.

1 стартмани

25.01.2011    19481    364    kenshin    17    

22

Исполнитель желаний - можно ВСЁ!!! Скачай и получи в подарок 1 доллар США

Поздравления OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)

от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu

1 стартмани

27.12.2010    23611    304    Tatitutu    70    

40
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Шёпот теней 1779 13.12.10 14:12 Сейчас в теме
... моя первая программа на 7-ке за последние пять лет ... уффф ... даже вспотел ... вот ...
2. Alraune 1500 13.12.10 14:43 Сейчас в теме
(1) Лучше бы вспотели посильнее, но написали правильно название
3. Шёпот теней 1779 13.12.10 14:57 Сейчас в теме
... нуууу ... ужжж ... а мне понДравилось ... ))) ... вот ...

п.с. первый блин всегДА комом ...
4. Rusk51 88 13.12.10 18:39 Сейчас в теме
Ох уж эти поздравлялки. Все надоело.
6. Шёпот теней 1779 14.12.10 08:06 Сейчас в теме
(4) ... в принципе СОгласен ... а чтоБЫ ВЫ хотели ? например как максимизировать окно обработки штатными 1С и Виндоус средствами ? ...
(5) ... СпАсиБО ! Абадонна ! ... испрАвил ... (хм, странно ... точно помню что вставлял. виноват не проверил) ...

... ОДНАКОвот ...
7. Ish_2 1104 14.12.10 08:36 Сейчас в теме
(6) Шепот , ты пугаешь людей своими последними разработками.
8. Шёпот теней 1779 14.12.10 09:45 Сейчас в теме
(7) ... да лаТно уж ... пугаю прямь ... ))) ...
5. Abadonna 3958 14.12.10 03:49 Сейчас в теме
Наконец-то! Свершилось! Додуматься ПриНачалеРаботыСистемы() запустить стартовую обработку - уже вспотеть можно, а придумать к ней название
"программный шлюз" - это уже за рамками реальности.
И где, простите,
Небольшой пример обработок смотри в прилагаемом файле-архиве.
?????
вОт таК КАк-ТО....
9. Tatitutu 3855 14.12.10 12:47 Сейчас в теме
(0) это что ? и для чего ? Или где ?
Фон = СоздатьОбъект("Картинка");
Фон.Загрузить(КаталогИБ() + "Addition\Image\НГ_02.bmp");
10. Abadonna 3958 14.12.10 13:00 Сейчас в теме
(9) Все нормал ;)
Просто надо подсократить
... моя первая программа на 7-ке за последние пять лет ...

до
... моя первая программа последние пять лет ...

:D
Ёпрст; artbear; +2 Ответить
12. Шёпот теней 1779 14.12.10 14:24 Сейчас в теме
(9) ... блин ... это надо удалить ... совсем вспотел, в двух соснах блуждаю ... исправил ...
(10) злые "вы" ...
(11) удачи ! ...

... вот ...
13. Abadonna 3958 14.12.10 14:49 Сейчас в теме
(12)
злые "вы" ...

Конечно, злой. И ты должен догадываться, где и когда меня разозлил.
А я не злопамятный: просто злой с отличной памятью ;)
14. Шёпот теней 1779 14.12.10 15:08 Сейчас в теме
(13) ... ))) ... знАмо где ...

... хм ... может стоит посмотреть на проблему шире ... к тому же задача "злить" - не ставилась и не подразумевалась и вОООбще "никак" ... ОДНОЗНАЧНО ...

... вот ...

п.с. часто то что "есть" - не есть "что" а есть "то" ... )))
15. Abadonna 3958 14.12.10 15:16 Сейчас в теме
(14)
к тому же задача "злить" - не ставилась и не подразумевалась

Пізно, панна: померла так померла
17. Ish_2 1104 15.12.10 11:16 Сейчас в теме
(13) "Пізно, панна: померла так померла"
Не сразу понял, что "Пізно" это вполне приличное : "Поздно".
Подумал , что ты озорничаешь..
18. Abadonna 3958 15.12.10 11:17 Сейчас в теме
(17) Я ж хохол, причем западный ;) Как и Кушнир
11. OlgaG 14.12.10 14:09 Сейчас в теме
16. Abadonna 3958 15.12.10 10:38 Сейчас в теме
(0)
Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет.

Шёпот, зачем смущаешь неокрепшие умы? Есть такая возможность, вполне штатная. Если ты не нашел, не значит, что её нет.
Перем ТекНомер;   
Перем КаталогКартинок;     

Процедура СменитьКартинку() 
	ТекНомер=ТекНомер+1;
	Если ТекНомер>4 Тогда
		ТекНомер=1;
	КонецЕсли;
	ТекФайл=КаталогКартинок+"К"+Строка(ТекНомер)+".bmp";
	КартинкаФормы.Загрузить(ТекФайл);  
	//КартинкаФормы - идентификатор объекта на форме типа "Картинка"
	Форма.Обновить();
КонецПроцедуры

Процедура ПриОткрытии()  
	КаталогКартинок="c:\Картинки\";
	Форма.ОбработкаОжидания("СменитьКартинку",2); // тут таймер на 2 секунды 
	ТекНомер=0;                                                                         
	СменитьКартинку(); // чтобы сразу первая появилась
КонецПроцедуры
Показать

Как два байта отослать, однако
27. Шёпот теней 1779 16.12.10 08:31 Сейчас в теме
(16) ... менять картинку ... можно конечно ... мне важен был "фон" формы ... чтобы изменение формы приводило к растягиванию и картинки ... спАсиБО за код и помощь ...
(19) ... не думал что "помощь" и "поддержка" являются морально-наказуемым деянием ... п.с. могу убрать ваше имя если вас ЭТО смущает ...
(22) ... как можно посмотреть ? ...
(23) ... можно и раскрасить ... (неужели это тАААк важно) а если это важно то важно и форматирование текста в описаниях - которое вАААще непонятно как работает ...

... вОт ...
19. Altair777 644 15.12.10 14:08 Сейчас в теме
(0) > Спасибо Арчибальду и Альтаиру за помощь и поддержку
надо было дать мне возможность получить "спасибо" и за бета-тестинг :D
почему не сказал что выложил?! :evil:
20. Abadonna 3958 15.12.10 14:38 Сейчас в теме
(19) Это ты ему рассказал, что "такой возможности в 7-ке нет" :?:
:D
21. Altair777 644 15.12.10 15:07 Сейчас в теме
22. freetype 15.12.10 18:32 Сейчас в теме
А я сделал на основе использования компонента вэб-браузер :|
23. alexk-is 6533 15.12.10 20:18 Сейчас в теме
Программный код в тексте публикации можно раскрасить... :)
24. Abadonna 3958 16.12.10 03:35 Сейчас в теме
(23) Алекс, ты стал напоминать мне мужика из рекламы:
Вы всё еще кипятите? Тогда мы идем к Вам!

:D :D :D
25. alexk-is 6533 16.12.10 05:24 Сейчас в теме
(24) Я знаю и твердо убежден в том, что любое действие или бездействие можно трактовать с различных позиций: хорошее смешать с грязью или найти оправдание любым гадостям.

В данном случае я бы хотел в первую очередь, чтобы публикации на infostart.ru были оформлены наилучшим образом, а всё остальное потом.
26. Abadonna 3958 16.12.10 06:59 Сейчас в теме
(25)
чтобы публикации на infostart.ru были оформлены наилучшим образом

Раскрасить код - дело вкуса, однако. Знаю кучу людей, которые в Дельфи просто отключают раскраску - ну не нравится им цветной!
28. Altair777 644 16.12.10 10:50 Сейчас в теме
Шёпот теней пишет:
п.с. могу убрать ваше имя если вас ЭТО смущает

наоборот! :D
можно было в (0) не просто имена написать, а вставить гиперссылку со ссылками на профиль
29. Шёпот теней 1779 16.12.10 13:27 Сейчас в теме
(28) ... совершенно прАвильно ... виноват ... испрАвился ... вотВЕДЬ ...
30. neo-rsx11 1 17.12.10 07:47 Сейчас в теме
Автор, вот мне до сих пор интересно, смысл выкладывать что-то если не давать подробнейшего описания. Зато хвалиться что написал.
За изобретение 5, за инструкцию 2
31. Шёпот теней 1779 17.12.10 08:09 Сейчас в теме
(30) ... к сожалению сколько людей столько и мнений ... отсутствие стандартов и разного понимания - какое уж тут однозначное отношение ...

п.с. сделайте краткое ТЗ для написания "описания" и я исправлю обработку под ваше понимание ... или дайте пример ... к тому же мы должны понимать что стоимость любой обработки с "описанием" и "без" это разная стоимость ... написание инструкций пользователю занимает значителную часть времени программиста * нормоЧас = как минимум удвоенную стоимость ...

... вот ...
33. Spartan 365 17.12.10 08:53 Сейчас в теме
(30) Стесняюсь спросить... Что именно в описании публикации Вам не понятно и насколько подробная инструкция Вам нужна?
alexk-is; Шёпот теней; +2 Ответить
35. Шёпот теней 1779 20.12.10 09:20 Сейчас в теме
(33) ... спАсиБО ...!
(34) ... Че! мог бы и ссылку дать ...
32. neo-rsx11 1 17.12.10 08:29 Сейчас в теме
если ты работал ради денег, то зачем выкладывал. Выложил бы обявление о продаже и все дела.
ИМХО, если выкладываешь свое творение для общего скачивания, то делай подробную инструкцию, либо невыкладывай вообще. Зачем людям голову морочить. Без обид
34. CheBurator 3119 18.12.10 00:14 Сейчас в теме
Плохо искал.
как минимум одна точно есть, в которую можн втопатать список любой и она будет его "поздравлять".
Шёпот теней; +1 Ответить
36. m818rt 14.11.11 13:57 Сейчас в теме
Спасибо) Порадовало)
Шёпот теней; +1 Ответить
Оставьте свое сообщение