Имя: Пароль:
1C
1С v8
Кварталы
0 pele
 
05.07.12
14:57
Процедура КварталыНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка,ДокументОбъект,НачальнаяДатаДокумента)
   СтандартнаяОбработка = Ложь;
   Список = Новый СписокЗначений;
   Список.Добавить("01.01.01","I квартал ");
   Список.Добавить("01.04.01","II квартал ",);  
   Список.Добавить("01.07.01","III квартал ");
   Список.Добавить("01.10.01","IV квартал ");
   Вид = ВыбратьИзСписка(Список, Элемент, Список.НайтиПоЗначению(Элемент.Значение));
   
КонецПроцедуры

Процедура ЗаполнитьНажатие(Элемент)
    Запрос = Новый Запрос;
    Запрос.Текст =
      "ВЫБРАТЬ
      |    уцВыдачаМатериаловОбучающим.НазваниеКурса,
      |    уцВыдачаМатериаловОбучающим.ФамилияПреподавателя,
      |    уцВыдачаМатериаловОбучающим.ПланируемаяГруппа,
      |    уцВыдачаМатериаловОбучающим.ФизическоеЛицо,
      |    уцВыдачаМатериаловОбучающим.МестоРаботы,
      |    уцВыдачаМатериаловОбучающим.НомерСвидетельства,
      |    уцВыдачаМатериаловОбучающим.Номенклатура,
      |    уцВыдачаМатериаловОбучающим.Период
      |ИЗ
      |    РегистрНакопления.уцВыдачаМатериаловОбучающим КАК уцВыдачаМатериаловОбучающим";
    Выборка = Запрос.Выполнить().Выгрузить();
    ЕжеквартальныйОтчет.Загрузить(Выборка);
   
   
   
КонецПроцедуры  



Как сделать чтобы при выборе квартала происходил отбор документов по кварталу???
1 Ненавижу 1С
 
гуру
05.07.12
14:58
Список.Добавить("01.01.01","I квартал ");
   Список.Добавить("01.04.01","II квартал ",);  
   Список.Добавить("01.07.01","III квартал ");
   Список.Добавить("01.10.01","IV квартал ");

жалко кварталов только 4 ))
2 AaNnDdRrEeYy
 
05.07.12
15:00
зато есть 1 квартал 2010 года 1 квартал 2011 года и т.д
так что еще не все потеряно
3 AaNnDdRrEeYy
 
05.07.12
15:01
(0) а вообще используй тип данных СтандартныйПериод.
4 unregistered
 
05.07.12
15:03
(0) Кварталы какого года нужны?
5 pele
 
05.07.12
15:10
зависит от текущего года
6 unregistered
 
05.07.12
15:13
Процедура КварталыНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка,ДокументОбъект,НачальнаяДатаДокумента)
   СтандартнаяОбработка = Ложь;
   Список = Новый СписокЗначений;
   Список.Добавить(0,"I квартал ");
   Список.Добавить(1,"II квартал ",);  
   Список.Добавить(2,"III квартал ");
   Список.Добавить(3,"IV квартал ");
   Вид = ВыбратьИзСписка(Список, Элемент, Список.НайтиПоЗначению(Элемент.Значение));
КонецПроцедуры

Процедура ЗаполнитьНажатие(Элемент)
    Запрос = Новый Запрос;
    Запрос.Текст =
      "ВЫБРАТЬ
      |    уцВыдачаМатериаловОбучающим.НазваниеКурса,
      |    уцВыдачаМатериаловОбучающим.ФамилияПреподавателя,
      |    уцВыдачаМатериаловОбучающим.ПланируемаяГруппа,
      |    уцВыдачаМатериаловОбучающим.ФизическоеЛицо,
      |    уцВыдачаМатериаловОбучающим.МестоРаботы,
      |    уцВыдачаМатериаловОбучающим.НомерСвидетельства,
      |    уцВыдачаМатериаловОбучающим.Номенклатура,
      |    уцВыдачаМатериаловОбучающим.Период
      |ИЗ
      |    РегистрНакопления.уцВыдачаМатериаловОбучающим КАК уцВыдачаМатериаловОбучающим
      |ГДЕ
      |  уцВыдачаМатериаловОбучающим.Период МЕЖДУ ДОБАВИТЬКДАТЕ(&НачалоНужногоГода, КВАРТАЛ, &ЗначениеВбранноеВСписке) И КОНЕЦПЕРИОДА(ДОБАВИТЬКДАТЕ(&НачалоНужногоГода, КВАРТАЛ, &ЗначениеВбранноеВСписке), КВАРТАЛ)";
    Запрос.УстановитьПараметр("НачалоНужногоГода", НачалоГода(Текущаядата()));
    Запрос.УстановитьПараметр("ЗначениеВбранноеВСписке", ЭлементыФормы.Кварталы.Значение);
    Выборка = Запрос.Выполнить().Выгрузить();
    ЕжеквартальныйОтчет.Загрузить(Выборка);
КонецПроцедуры
7 pele
 
05.07.12
15:20
огромное спасибо!!!)