Поздравление с Новым Годом 2012
Вступайте в нашу телеграмм-группу Инфостарт
Поздравление с новым годом 2012
01.12.11
Задачи пользователя - Поздравления
Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойСм. также
Поздравления 1С v7.7 1C77 Россия Абонемент ($m)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
1 стартмани
26.12.2013 17021 14 lushka 9
Поздравления 1С v7.7 1C77 Россия Абонемент ($m)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
1 стартмани
28.12.2012 16998 12 lushka 6
Поздравления 1С v7.7 1C77 Абонемент ($m)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
1 стартмани
19.12.2012 21088 37 Vital451 20
Поздравления Системный администратор Программист 1С v7.7 1C77 Россия Абонемент ($m)
Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.
1 стартмани
04.12.2012 20610 98 alf2006x 9
Поздравления Оперативный учет 7.7 Бухгалтерский учет 7.7 1C77 Россия Бесплатно (free)
Обработка с картинкой и текстом поздравления с 8 марта. Написана не мною, найдена на одной из работ. На инфостарте нет, публикую для коллекции.
12.02.2012 20664 71 fixin 9
Поздравления 1С v7.7 1C77 Россия Абонемент ($m)
Для наших любимых дам простое поздравление.
1 стартмани
25.01.2011 19951 364 kenshin 17
Поздравления OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1C77 Россия Абонемент ($m)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
1 стартмани
27.12.2010 24094 304 Tatitutu 70
27.12.2010
40
304
70
24094
Поздравления 1С v7.7 1C77 Россия Абонемент ($m)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
1 стартмани
13.12.2010 19850 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
Статистика:
Просмотры 20826
Загрузки 133
Рейтинг
50
Комментарии 57
Характеристики:
Код открыт Не указано
Рубрики Поздравления
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа 1С v7.7
Конфигурация 1C77
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
