Имя: Пароль:
1C
1С v8
v8: Кнопка обновления
0 igoza
 
10.03.13
21:20
Процедура ПриОткрытии(Отказ)
//1.Создаём временной интервал
ОдинДень = 60 * 60 * 24;
ДатаОт = НачалоДня(ТекущаяДата() - ОдинДень*7);
//Элементы.От = ДатаОт;
ДатаДо = КонецДня(ТекущаяДата() + ОдинДень*14);
//Элементы.До = ДатаДо;
Сообщить("ДатаОт " + Строка(ДатаОт) + ", ДатаДо " + Строка(ДатаДо));
//ДатаНачала = //сегодня -1 неделя
//ДатаКонца = //сегодня +2 недели
//2. Запрос справочник физ.лиц получение ФИО и ДР
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|    ФизическиеЛица.Ссылка КАК ФИО,
|    ФизическиеЛица.ДатаРождения КАК ДатаРождения,
|    РАЗНОСТЬДАТ(ФизическиеЛица.ДатаРождения, &Сегодня, День) КАК До,
|    РАЗНОСТЬДАТ(ФизическиеЛица.ДатаРождения, &Сегодня, Год) КАК СЧем
|ИЗ
|    Справочник.ФизическиеЛица КАК ФизическиеЛица
|ГДЕ
|    ФизическиеЛица.ДатаРождения МЕЖДУ &ДатаОт И &ДатаДо
|УПОРЯДОЧИТЬ ПО
|   ФизическиеЛица.ДатаРождения
|
|
|    
|";                            

Запрос.УстановитьПараметр("ДатаОт", ДатаОт);
Запрос.УстановитьПараметр("ДатаДо", ДатаДо);
Запрос.УстановитьПараметр("Сегодня", ТекущаяДата());
Выборка = Запрос.Выполнить().Выгрузить();
//ЗначениеВДанныеФормы(Справочники.ФизическиеЛица.Наименование);
//3. Обработка таблици значений с заполнение графф "ДО" и "С чем"
//4. Загрузка значений в таблицу формы
обЗагрузитьВТаблицуЗначений(Выборка, ТабличнаяЧасть1);
// Вставить содержимое обработчика.
КонецПроцедуры


Вот теперь нада сделать кнопку, обновление с переносом дат ОТ и ДО.

пока бы просто обновление, т.е заного запустить эту процедуру, можно сдлать это всё в кнопке и при запуске обработки, она как бы нажималась сразу сама, но как это сделать GoTo если не ошибаюсь работает только в 1й процедуре не выход9 за её приделы?

9 Д9ТЕЛ В ЭТОМ))
1 Волшебник
 
10.03.13
21:22
Почему вместо "я" ты пишешь "9"?
2 igoza
 
10.03.13
21:25
(1) Клавиатура горелая 3 клавиши не работают, запаяная, если разберу не факт что обратно склею)
3 Волшебник
 
10.03.13
21:26
(2) Купи новую, будь мужиком, блеать!
4 igoza
 
10.03.13
21:26
(3) 3.5к и новая, может лучше на вопрос ответите?
5 ДенисЧ
 
10.03.13
21:27
(4) новая стоит 300 рублей.
6 Волшебник
 
10.03.13
21:27
(2) Кстати, в слове "запаяная" ты успешно написал даже две буквы "я".

Тут на мисте с орфографией строго. Горелые клавиатуры не являются уважительной причиной для нарочитой безграмотности. Пользуйся копипастом буквы "я" или экранной клавиатурой.
7 ДенисЧ
 
10.03.13
21:27
А на вопрос...
Вынеси код в отдельную процедуру. И вызывай её
8 igoza
 
10.03.13
21:29
(7) спасибо, для остальных уменя 3 клавиши горелые, и так постоянно копипастить приходится
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший