Поздравление с Новым Годом 2012
Специальные предложения
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(55)}: Переменная не определена (Нет)
Процедура Загрузка(Файл)
Агент.Characters.Load("Char", Файл);
Персонаж=Агент.Characters("Char");
Персонаж.MoveTo(526,401);
Персонаж.Show(0);
Персонаж.Play("Decline");
ТекстАгент="Сегодня "+Формат(ТекущаяДата(),"ДДДММММГГГГ");
//НАЧАЛО ИЗМЕНЕНИЙ
СчетчикДней = (Дата(2011,12,31)-ТекущаяДата());
ФорматСлова = "";
Если СчетчикДней>4 Тогда ФорматСлова=" дней"
ИначеЕсли (СчетчикДней<=4) И (счетчикДней>=2) Тогда ФорматСлова=" дня";
КонецЕсли;
Если СчетчикДней>1 Тогда
ТекстАгент=ТекстАгент+РазделительСтрок + "До Нового года осталось " + счетчикДней + ФорматСлова;
ИначеЕсли СчетчикДней=1 Тогда
ТекстАгент=ТекстАгент+РазделительСтрок + "До Нового года остался 1 день";
ИначеЕсли СчетчикДней=0 Тогда
ТекстАгент = ТекстАгент+ "До Нового Года осталось совсем мало! А ну-ка марш домой с работы!"
КонецЕсли;
//ТекстАгент="Сегодня "+Формат(ТекущаяДата(),"ДДДММММГГГГ");
//ТекстАгент=ТекстАгент+РазделительСтрок+"До Нового года осталась "+Строка(Дата(2010,12,31)-ТекущаяДата())+" дней";
//
//КОНЕЦ ИЗМЕНЕНИЙ
Персонаж.Speak(ТекстАгент);
Персонаж.AutoPopupMenu=0; // вырубим показ контекстного меню
КонецПроцедуры
Просмотры 17104
Загрузки 133
Рейтинг
51
Комментарии 57
Создание 30.11.11 17:08
Обновление 01.12.11 16:27
№ Публикации 100235
Рубрики Поздравления
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v7.7
Конфигурация Конфигурации 1cv7
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
Код открыт Не указано
См. также
Мультфильм к новому году Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.
1 стартмани
04.12.2012 17839 98 alf2006x 9
С Новым Годом 2014
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
1 стартмани
26.12.2013 14418 14 lushka 9
С Новым Годом 2013!
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
1 стартмани
28.12.2012 14213 12 lushka 6
Поздравление с Новым Годом 2013
Поздравления v7.7 1cv7.md Абонемент ($m)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
1 стартмани
19.12.2012 17879 37 Vital451 20
Поздравление с 8 Марта Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Для наших любимых дам простое поздравление.
1 стартмани
25.01.2011 17006 364 kenshin 17
Исполнитель желаний - можно ВСЁ!!! Скачай и получи в подарок 1 доллар США
Поздравления openconf v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Абонемент ($m)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
1 стартмани
27.12.2010 20918 304 Tatitutu 70
"пАздрАвлЯлкА" для семёрки ...
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
1 стартмани
13.12.2010 17284 108 Шёпот теней 37
Поздравление с Новым Годом 2011
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравление с Новым Годом 2011. Внешний отчет с поздравительными картинками, который можно поставить в автозапуск 1С.
1 стартмани
23.11.2010 17458 679 kenshin 28
Оригинальное поздравление с 23 февраля ! Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравляю вас с 23 февраля, оригинально - как программист программистов. Это как раз тот случай , когда с кодом в конфигураторе очень приятно разбираться. Больше не скажу, но это стоит видеть ))) С праздником вас , мужики !
1 стартмани
21.02.2010 33856 448 Tatitutu 58
Поздравление с Новым Годом 2010
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Идея позаимствованная. Автор оригинальной версии - djkxfhf(точка)nm(точка)ru Я лишь доработал поправил картинки + добавил слои и т.д и немного текст.
1 стартмани
26.11.2009 17136 656 kenshin 54
Смешные "советы дня" для 1С77
Поздравления v77::БУ 1cv7.md Абонемент ($m)
Шутки вместо стандартных советов дня для любой базы 7.7.
1 стартмани
07.10.2009 14688 28 adapter 8
МОЗГОДЕР - универсальное решение для пользователей
Поздравления v77::ОУ v77::БУ v77::Расчет 1cv7.md Абонемент ($m)
Наконец то найдено универсальное решение всех проблем в 1С Решение практически любого вопроса и проблемы Более 1000 ! любых отчетов все на Ваш вкус. Стоит только сильно захотеть. Теперь пользователь не будет отвлекать Вас от важных дел. Он решит проблему сам.
1 стартмани
17.06.2009 22556 797 Tatitutu 22

