Поздравление с Новым Годом 2012
Вступайте в нашу телеграмм-группу Инфостарт
Поздравление с новым годом 2012
01.12.11
Задачи пользователя - Поздравления
Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
| Наименование | Скачано | Бесплатно |
|---|---|---|
|
перекомпелированный файл картинки jpg
.ert 503,00Kb
89
|
89 | Скачать бесплатно |
|
Поздравляем_jpg.ert
.ert 2,79Mb
46
|
46 | Скачать бесплатно |
См. также
Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
26.12.2013 17721 15 lushka 9
Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
28.12.2012 17705 12 lushka 6
Поздравления 1С:Предприятие 7.7 1C77 Бесплатно (free)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
19.12.2012 21770 39 Vital451 20
Поздравления Системный администратор Программист 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)
Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.
04.12.2012 21236 100 alf2006x 9
Поздравления Оперативный учет 7.7 Бухгалтерский учет 7.7 1C77 Россия Бесплатно (free)
Обработка с картинкой и текстом поздравления с 8 марта. Написана не мною, найдена на одной из работ. На инфостарте нет, публикую для коллекции.
12.02.2012 21253 71 fixin 9
Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)
Для наших любимых дам простое поздравление.
25.01.2011 20614 364 kenshin 17
Поздравления 1С:Предприятие 7.7 Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Бесплатно (free)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
27.12.2010 24837 305 Tatitutu 70
27.12.2010
40
305
70
24837
Поздравления 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
13.12.2010 20538 109 Шёпот теней 37
Комментарии
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
При нажатии на ? и на Приметы ошибка: в чем проблема может быть?
Персонаж.Stop();
{D:\ПОЗДРАВЛЯЕМ_JPG.ERT(277)}: Значение не представляет агрегатный объект (Stop)
Персонаж.Stop();
{D:\ПОЗДРАВЛЯЕМ_JPG.ERT(277)}: Значение не представляет агрегатный объект (Stop)
При открытии:
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(55)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1ВНЕШНИЕОТЧЕТЫ\ПОЗДРАВЛЯЕМ_JPG.ERT(55)}: Переменная не определена (Нет)
Обалдеть, до сих пор я один 2010 на 2011 в коде исправил? Обработка без этого выдает "до нового года осталось 386 дней" или вроде того.
А так спасибо, хорошее поздравление.
А так спасибо, хорошее поздравление.
Спасибо, хорошее поздравление, немного подрихтовать и получиться приятный подарок для бухгалтерии, в целом симпатично!
Kenshin, респект! Каждый год у тебя что то новое, открытки отличные.
Спасибо за обработку, бухгалтерам понравится!
Спасибо за обработку, бухгалтерам понравится!
2 kenshin,в прошлом году тоже скачивал вашу поздравлялку с Новым годом, все юзеры порадовались.
Спасибо!
Спасибо!
А у меня выдает ошибку при открытии Агент.Characters.Load("Char", Файл);
{G:\ПОЗДРАВЛЯЕМ-JPG.ERT(36)}: Значение не представляет агрегатный объект (Characters) как быть помогите
{G:\ПОЗДРАВЛЯЕМ-JPG.ERT(36)}: Значение не представляет агрегатный объект (Characters) как быть помогите
да-нет заменила на 1 и 0 и еще в прошлом году дописывала
Процедура Загрузка(Файл)
Агент.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; // вырубим показ контекстного меню
КонецПроцедуры
Процедура Загрузка(Файл)
Агент.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; // вырубим показ контекстного меню
КонецПроцедуры
и еще я поправила оформление гороскопа и вторую табличку (как встречать-чем встречать), а то как то куцо:) А вообще большое спасибо!!!
Спасибо за обработку, поставила, бухи и финики просто в восторге! И анекдоты актуальны, и картинки красивые. Немного мешает помощник, пришлось показывать как перетащить в др. место. А так все супер!
Спасибо за обработку.Бухгалтера были приятно удивлены.Одна даже испугалась-что-то не так,как прежде.
Очередной праздник пользуюсь Вашей поздравлялкой. Опять приходится отключать Агента править обработку :)
Автор:
Подписаться
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
Публикация:
№ 100235
Создание 30.11.11 17:08
Обновление 01.12.11 16:27
Статистика:
Просмотры 22248
Загрузки 135
Рейтинг
50
Комментарии 57
Характеристики:
Код открыт Не указано
Рубрики Поздравления
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа 1С:Предприятие 7.7
Конфигурация 1C77
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
