Скачать файлы
| Наименование | Файл | Версия | Размер | |||
|---|---|---|---|---|---|---|
|
сам файл ert .ert 2,67Mb
656
|
.ert | 2,67Mb | 656 | Скачать |
Специальные предложения
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Че-то с переменными напутано немного:
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
И анекдоты старенькие))
А так, конечно, плюс: остальное всё новенькое, да и вообще раньше всех в этом году спохватился)
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
И анекдоты старенькие))
А так, конечно, плюс: остальное всё новенькое, да и вообще раньше всех в этом году спохватился)
+7
это должна быть или переменная или перечисление ДА или НЕТ
а вот размер можно было и поменьше сделать в 5 РАЗ посмотри
всего 499 кб и не в архиве
это должна быть или переменная или перечисление ДА или НЕТ
а вот размер можно было и поменьше сделать в 5 РАЗ посмотри
всего 499 кб и не в архиве
Прикрепленные файлы:
ПоздравляемНовыйГод.ert
bav 27.11.2009 17:35:55
Че-то с переменными напутано немного:
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
Может быть
если у кого в друг будет вопрос, почему 8марта, ответ потому что влом переменную в глобальнике было переписывать, она у мя там просто за 15 дней до нового года на машинах данный отчет запускает, или когда 8 марта ))
Че-то с переменными напутано немного:
НадоПоздравитьс8марта=Нет; Переменная не определена (Нет)
НадоПоздравитьс8марта=Да; Переменная не определена (Да)
Может быть
если у кого в друг будет вопрос, почему 8марта, ответ потому что влом переменную в глобальнике было переписывать, она у мя там просто за 15 дней до нового года на машинах данный отчет запускает, или когда 8 марта ))
Раз уж указываете платформу 1С: Расчет 7.7 как поддерживаемую, то будьте добры проверить работоспособность в типовой конфигурации 1С: Зарплата и Кадры.
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(55)}: Переменная не определена (Нет)
Нет таких переменных в типовой конфигурации. Чтобы заработало, надо все это дело исправить или хотя бы закомментировать.
В целом идея хорошая, хоть и не Ваша.
НадоПоздравитьс8марта=Нет<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(49)}: Переменная не определена (Нет)
НадоПоздравитьс8марта=Да<<?>>;
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(53)}: Переменная не определена (Да)
Если НадоПоздравитьс8марта=Нет <<?>>Тогда
{D:\1C CALC\EXTFORMS\ОБРАБОТКИ АЙТИШНЫЕ\ПОЗДРАВЛЯЕМНОВЫЙГОД\ПОЗДРАВЛЯЕМНОВЫЙГОД.ERT(55)}: Переменная не определена (Нет)
Нет таких переменных в типовой конфигурации. Чтобы заработало, надо все это дело исправить или хотя бы закомментировать.
В целом идея хорошая, хоть и не Ваша.
NatMar 02.12.2009 10:49:38
//НадоПоздравитьс8марта=Нет;
//ПредупредитьЗаДней=10;
//ДатаСКоторойПоздравлять="24.11."+Строка(ДатаГод(ТекущаяДата()));
//Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
// НадоПоздравитьс8марта=Да;
//КонецЕсли;
//Если НадоПоздравитьс8марта=Нет Тогда
// Форма.Закрыть(0);
// СтатусВозврата(0);
//КонецЕсли;
за Комментируй это в конфигураторе и будет счастье
//НадоПоздравитьс8марта=Нет;
//ПредупредитьЗаДней=10;
//ДатаСКоторойПоздравлять="24.11."+Строка(ДатаГод(ТекущаяДата()));
//Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
// НадоПоздравитьс8марта=Да;
//КонецЕсли;
//Если НадоПоздравитьс8марта=Нет Тогда
// Форма.Закрыть(0);
// СтатусВозврата(0);
//КонецЕсли;
за Комментируй это в конфигураторе и будет счастье
Вставить можно по разному, ну я что б не использовать другие папка в которых бы лежали картинки, решил использовать слои, то есть правой кнопкой мыши нажимаешь на слое, далее свойства закладка картинка - изменить картинку - добавить (сверку синяя кнопочка с пальцем) - далее добавляю и вуаля
сижу вот под себя перестраиваю, впечатлений от данного поздравления море.
Автор порекомендовал бы Вам на кнопку повесить не просто стрелочки ">>" а добавить к примеру так " ЕЩЕ>>".
Не каждый сразу догадается что можно еще раз нажать на кнопку и будет продолжение, а так к примеру :
"Поздравляем" -- "Поздравляем! ЕЩЕ>>" --- "Поздравляем! ЕЩЕ>>" ----"Поздравляем!".
Я думаю Вы меня поняли что я имел ввиду!
:)
Автор порекомендовал бы Вам на кнопку повесить не просто стрелочки ">>" а добавить к примеру так " ЕЩЕ>>".
Не каждый сразу догадается что можно еще раз нажать на кнопку и будет продолжение, а так к примеру :
"Поздравляем" -- "Поздравляем! ЕЩЕ>>" --- "Поздравляем! ЕЩЕ>>" ----"Поздравляем!".
Я думаю Вы меня поняли что я имел ввиду!
:)
Процедура ПриНачалеРаботыСистемы()
ПредупредитьЗаДней=12;
ДатаСКоторойПоздравлять="31.12."+Строка(ДатаГод(ТекущаяДата()));
Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
НадоПоздравитьс8марта=Да;
КонецЕсли;
Если НадоПоздравитьс8марта=Да Тогда
ОбработкаПоздравление=КаталогИБ()+"extforms\Поздравляем.ert";
Если ФС.СуществуетФайл(ОбработкаПоздравление)=1 тогда
ОткрытьФорму("Отчет",,ОбработкаПоздравление);
КонецЕсли;
КонецЕсли;
КонецПроцедуры;
ПредупредитьЗаДней=12;
ДатаСКоторойПоздравлять="31.12."+Строка(ДатаГод(ТекущаяДата()));
Если (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))<ПредупредитьЗаДней) и (НомерДняГода(ДатаСКоторойПоздравлять)-(НомерДняГода(ТекущаяДата()))>=0) тогда
НадоПоздравитьс8марта=Да;
КонецЕсли;
Если НадоПоздравитьс8марта=Да Тогда
ОбработкаПоздравление=КаталогИБ()+"extforms\Поздравляем.ert";
Если ФС.СуществуетФайл(ОбработкаПоздравление)=1 тогда
ОткрытьФорму("Отчет",,ОбработкаПоздравление);
КонецЕсли;
КонецЕсли;
КонецПроцедуры;
Выложил свой вариант поздравлялки для 8.1
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
ЗЫ долго ждал, пока кто-нибудь сделает для 8.1, но народ не спешил, пришлось самому заняться :)
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
ЗЫ долго ждал, пока кто-нибудь сделает для 8.1, но народ не спешил, пришлось самому заняться :)
В общем в старой комплексной (2.6) после запуска обработки - проявляется следующий глюк:
В гм следующие переменные:
Да=Перечисление.Булево.Да;
Нет=Перечисление.Булево.Нет;
До поздравлялки, соответственно: в отладчике Да=Да Нет=Нет
После запуска: Да="" Нет=""
Оказалось в обработке тоже эти переменные есть.((
А я уж на агента стал грешить.
В гм следующие переменные:
Да=Перечисление.Булево.Да;
Нет=Перечисление.Булево.Нет;
До поздравлялки, соответственно: в отладчике Да=Да Нет=Нет
После запуска: Да="" Нет=""
Оказалось в обработке тоже эти переменные есть.((
А я уж на агента стал грешить.
Выложил свой вариант поздравлялки для 8.1
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
моя версия основана на данной обработке + серьезная переделка кода и т.п.
Подробнее на странице моей разработки.
Я НАЧИНАЛ ДЕЛАТЬ НА 8-ке но как написано очень много переделки а времени свободного нет так что молодец что сделал народ надо баловать
Статистика:
Просмотры 16952
Загрузки 656
Рейтинг
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 17704 98 alf2006x 9
С Новым Годом 2014
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Если кто-то еще до сих пор пользуется семеркой то бухгалтерам надеюсь понравится. Требует установленного Microsoft Agent.
1 стартмани
26.12.2013 14271 14 lushka 9
С Новым Годом 2013!
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Доработанный вариант обработки Vital451 http://infostart.ru/public/166790/ Анекдоты, гороскоп и прочее наполнение позаимствованы отсюда http://infostart.ru/public/164866/
1 стартмани
28.12.2012 14052 12 lushka 6
Поздравление с Новым Годом 2013
Поздравления v7.7 1cv7.md Абонемент ($m)
Поздравлялка с Наступающим 2013 от имени программистов. Содержит открытки, поздравления, гороскоп, советы проведения праздника.
1 стартмани
19.12.2012 17718 37 Vital451 20
Поздравление с 8 Марта Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Для наших любимых дам простое поздравление.
1 стартмани
25.01.2011 16868 364 kenshin 17
Поздравление с новым годом 2012
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравление с Новым Годом 2012 для 1С предприятие 7.7 порадуйте бухгалтеров
1 стартмани
30.11.2011 16944 133 kenshin 57
Исполнитель желаний - можно ВСЁ!!! Скачай и получи в подарок 1 доллар США
Поздравления openconf v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Абонемент ($m)
от себя пожелаю тебе, всего того , чего нельзя купить за деньги... Здоровья, Любви, Удачи, Счастья, Славы, Успехов И настоящих верных Друзей С уважением, Tatitutu
1 стартмани
27.12.2010 20724 304 Tatitutu 70
"пАздрАвлЯлкА" для семёрки ...
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Решил сделать «поздравлялку» с праздниками в 1С 7.7. Проблема в том, что если захотеть устроить калейдоскоп картинок формы (фона), то такой возможности в 7-ке нет. Поиском ничего не нашёл. Хоть и «первая программа» а радует. Решение искалось исключительно штатными средствами.
1 стартмани
13.12.2010 17122 108 Шёпот теней 37
Оригинальное поздравление с 23 февраля ! Промо
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравляю вас с 23 февраля, оригинально - как программист программистов. Это как раз тот случай , когда с кодом в конфигураторе очень приятно разбираться. Больше не скажу, но это стоит видеть ))) С праздником вас , мужики !
1 стартмани
21.02.2010 33577 448 Tatitutu 58
Поздравление с Новым Годом 2011
Поздравления v7.7 1cv7.md Россия Абонемент ($m)
Поздравление с Новым Годом 2011. Внешний отчет с поздравительными картинками, который можно поставить в автозапуск 1С.
1 стартмани
23.11.2010 17289 679 kenshin 28
Смешные "советы дня" для 1С77
Поздравления v77::БУ 1cv7.md Абонемент ($m)
Шутки вместо стандартных советов дня для любой базы 7.7.
1 стартмани
07.10.2009 14550 28 adapter 8
МОЗГОДЕР - универсальное решение для пользователей
Поздравления v77::ОУ v77::БУ v77::Расчет 1cv7.md Абонемент ($m)
Наконец то найдено универсальное решение всех проблем в 1С Решение практически любого вопроса и проблемы Более 1000 ! любых отчетов все на Ваш вкус. Стоит только сильно захотеть. Теперь пользователь не будет отвлекать Вас от важных дел. Он решит проблему сам.
1 стартмани
17.06.2009 22284 797 Tatitutu 22
