Поздравление с Новым Годом 2012
Поздравление с новым годом 2012
01.12.11
Задачи пользователя - Поздравления
Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров
Скачать файл
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование | По подписке [?] | Купить один файл | |
|---|---|---|---|
|
перекомпелированный файл картинки jpg
.ert 503,00Kb
88
|
88 | Скачать (1 SM) | Купить за 1 850 руб. |
|
Поздравляем_jpg.ert
.ert 2,79Mb
45
|
45 | Скачать (1 SM) | Купить за 1 850 руб. |
См. также
Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
1 стартмани
26.12.2013 16847 14 lushka 9
Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
1 стартмани
28.12.2012 16859 12 lushka 6
Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
1 стартмани
19.12.2012 20885 37 Vital451 20
Поздравления Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.
1 стартмани
04.12.2012 20440 98 alf2006x 9
Поздравления Оперативный учет 7.7 Бухгалтерский учет 7.7 Конфигурации 1cv7 Россия Бесплатно (free)
Обработка с картинкой и текстом поздравления с 8 марта. Написана не мною, найдена на одной из работ. На инфостарте нет, публикую для коллекции.
12.02.2012 20502 68 fixin 9
Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Для наших любимых дам простое поздравление.
1 стартмани
25.01.2011 19688 364 kenshin 17
Поздравления OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
1 стартмани
27.12.2010 23920 304 Tatitutu 70
27.12.2010
40
304
70
23920
Поздравления Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
1 стартмани
13.12.2010 19669 108 Шёпот теней 37
Комментарии
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
При открытии:
НадоПоздравитьс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)}: Переменная не определена (Нет)
да-нет заменила на 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
Статистика:
Просмотры 20377
Загрузки 133
Рейтинг
50
Комментарии 57
Характеристики:
Код открыт Не указано
Рубрики Поздравления
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v7.7
Конфигурация Конфигурации 1cv7
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
