Поздравление с Новым Годом 2010
Станислав Гриценко (kenshin)
Рейтинг: 234
Скачать файлы
| Наименование | Файл | Версия | Размер | |||
|---|---|---|---|---|---|---|
|
сам файл ert .ert 2,67Mb
15.02.10
656
|
.ert | 2,67Mb | 656 | Скачать |
Специальные предложения
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
И анекдоты старенькие))
А так, конечно, плюс: остальное всё новенькое, да и вообще раньше всех в этом году спохватился)
это должна быть или переменная или перечисление ДА или НЕТ
а вот размер можно было и поменьше сделать в 5 РАЗ посмотри
всего 499 кб и не в архиве
Че-то с переменными напутано немного:
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
Может быть
если у кого в друг будет вопрос, почему 8марта, ответ потому что влом переменную в глобальнике было переписывать, она у мя там просто за 15 дней до нового года на машинах данный отчет запускает, или когда 8 марта ))
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(55)}: Переменная не определена (Нет)
Нет таких переменных в типовой конфигурации. Чтобы заработало, надо все это дело исправить или хотя бы закомментировать.
В целом идея хорошая, хоть и не Ваша.
//НадоПоздравитьс8марта=Нет;
//ПредупредитьЗаДней=10;
//ДатаСКоторойПоздравлять="24.11."+Строка(ДатаГод(ТекущаяДата()));
//Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
// НадоПоздравитьс8марта=Да;
//КонецЕсли;
//Если НадоПоздравитьс8марта=Нет Тогда
// Форма.Закрыть(0);
// СтатусВозврата(0);
//КонецЕсли;
за Комментируй это в конфигураторе и будет счастье
Автор порекомендовал бы Вам на кнопку повесить не просто стрелочки ">>" а добавить к примеру так " ЕЩЕ>>".
Не каждый сразу догадается что можно еще раз нажать на кнопку и будет продолжение, а так к примеру :
"Поздравляем" -- "Поздравляем! ЕЩЕ>>" --- "Поздравляем! ЕЩЕ>>" ----"Поздравляем!".
Я думаю Вы меня поняли что я имел ввиду!
:)
ПредупредитьЗаДней=12;
ДатаСКоторойПоздравлять="31.12."+Строка(ДатаГод(ТекущаяДата()));
Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
НадоПоздравитьс8марта=Да;
КонецЕсли;
Если НадоПоздравитьс8марта=Да Тогда
ОбработкаПоздравление=КаталогИБ()+"extforms\Поздравляем.ert";
Если ФС.СуществуетФайл(ОбработкаПоздравление)=1 тогда
ОткрытьФорму("Отчет",,ОбработкаПоздравление);
КонецЕсли;
КонецЕсли;
КонецПроцедуры;
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
ЗЫ долго ждал, пока кто-нибудь сделает для 8.1, но народ не спешил, пришлось самому заняться :)
В гм следующие переменные:
Да=Перечисление.Булево.Да;
Нет=Перечисление.Булево.Нет;
До поздравлялки, соответственно: в отладчике Да=Да Нет=Нет
После запуска: Да="" Нет=""
Оказалось в обработке тоже эти переменные есть.((
А я уж на агента стал грешить.
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
Я НАЧИНАЛ ДЕЛАТЬ НА 8-ке но как написано очень много переделки а времени свободного нет так что молодец что сделал народ надо баловать
Просмотры 15952
Загрузки 1
Рейтинг
64
Комментарии 54
Создание 26.11.09 14:41
Обновление 15.02.10 00:00
№ Публикации 61649
Рубрики Поздравления
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v7.7 (все механизмы)
Конфигурация Конфигурации 1cv7
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
Код открыт Не указано
См. также
Мультфильм к новому году Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Простенькая внешняя обработка, с мультфильмом, поднимающая настроение всем пользователям 1С.
1 стартмани
04.12.2012 16928 5 alf2006x 9
С Новым Годом 2014
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
1 стартмани
26.12.2013 13562 1 lushka 9
С Новым Годом 2013!
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
1 стартмани
28.12.2012 13275 0 lushka 6
Поздравление с Новым Годом 2013
Поздравления v7.7 1cv7.md Абонемент ($m)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
1 стартмани
19.12.2012 16833 0 Vital451 20
Поздравление с 8 Марта Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Для наших любимых дам простое поздравление.
1 стартмани
25.01.2011 16097 2 kenshin 17
Поздравление с новым годом 2012
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров
1 стартмани
30.11.2011 16091 0 kenshin 57
Исполнитель желаний - можно ВСЁ!!! Скачай и получи в подарок 1 доллар США
Поздравления openconf v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Абонемент ($m)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
1 стартмани
27.12.2010 19705 1 Tatitutu 70
"пАздрАвлЯлкА" для семёрки ...
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
1 стартмани
13.12.2010 16328 2 Шёпот теней 37
Оригинальное поздравление с 23 февраля ! Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравляю вас с 23 февраля, оригинально - как программист программистов. Это как раз тот случай , когда с кодом в конфигураторе очень приятно разбираться. Больше не скажу, но это стоит видеть ))) С праздником вас , мужики !
1 стартмани
21.02.2010 31342 3 Tatitutu 58
Поздравление с Новым Годом 2011
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравление с Новым Годом 2011. Внешний отчет с поздравительными картинками, который можно поставить в автозапуск 1С.
1 стартмани
23.11.2010 16418 0 kenshin 28
Смешные "советы дня" для 1С77
Поздравления v77::БУ 1cv7.md Абонемент ($m)
Шутки вместо стандартных советов дня для любой базы 7.7.
1 стартмани
07.10.2009 13792 0 adapter 8
МОЗГОДЕР - универсальное решение для пользователей
Поздравления v77::ОУ v77::БУ v77::Расчет 1cv7.md Абонемент ($m)
Наконец то найдено универсальное решение всех проблем в 1С Решение практически любого вопроса и проблемы Более 1000 ! любых отчетов все на Ваш вкус. Стоит только сильно захотеть. Теперь пользователь не будет отвлекать Вас от важных дел. Он решит проблему сам.
1 стартмани
17.06.2009 20923 3 Tatitutu 22
