Доброго дня всем! Помогите разобраться плиз : делаю на форме ТаблицуЗначений, создаю столбцы
Настройки=ЭтотОбъект.ПолучитьФорму("Форма").ЭлементыФормы;
Период=Настройки.НачПериода.Значение;
НачПериода=Настройки.НачПериода.Значение;
КонПериода=Настройки.КонПериода.Значение;  
сч=0;
сч1=0;
сч2=0;
      
Пока Период <= КонПериода Цикл
    сч=сч+1;
    сч1=сч1+1;
    сч2=сч2+1;

    Дата1=Строка(Формат(Период,"ДФ=dd.MM.yyyy"));
    ПрошлыйПериод = ДобавитьМесяц(Период,-12);
    Дата2=Строка(Формат(ПрошлыйПериод,"ДФ=dd.MM.yyyy"));
    
    
    Колонка1 = ("Прошлый"+сч);
    Колонка2 = ("Этот"+сч1);
    Колонка3 = ("Разница"+сч2);
    Колонка4 = ("Итого"+сч);

    
    Таблица.Колонки.Добавить(Колонка1, Новый ОписаниеТипов("Строка"), Дата2);
    Таблица.Колонки.Добавить(Колонка2, Новый ОписаниеТипов("Строка"), Дата1);
    Таблица.Колонки.Добавить(Колонка3, Новый ОписаниеТипов("Строка"), "Разница");
    Если Настройки.ПоКварталам.Значение=Истина Тогда
        Если сч=3 или сч=6 или сч = 9 или сч = 12 тогда
            Таблица.Колонки.Добавить(Колонка4, Новый ОписаниеТипов("Строка"), "Итого за квартал");
        КонецЕсли;
    КонецЕсли;
    ЭлементыФормы.Таблица.СоздатьКолонки();
    Период= ДобавитьМесяц(Период,1);
    
    
КонецЦикла;
как эту готовую таблицу записать данные из запроса ?

нужно сравнить продажи за периоды по месяцам

этой функцией заполняю товары и остатки
Функция ЗаполнитьТоварыИОстатки()
    
Настройки=ЭтотОбъект.ПолучитьФорму("Форма").ЭлементыФормы;
Период=Настройки.НачПериода.Значение;
НачПериода=Настройки.НачПериода.Значение;
КонПериода=Настройки.КонПериода.Значение;  
//Выборка = Справочники.Номенклатура.ВыбратьИерархически(Номенклатура);
Индикатор=Настройки.Индикатор1;
Индикатор.Значение=0;

ЗапросТовары=Новый Запрос;
ЗапросТовары.Текст="ВЫБРАТЬ
                   |    Номенклатура.Ссылка,
                   |    Номенклатура.Артикул,
                   |    Номенклатура.Наименование КАК Наименование,
                   |    Номенклатура.ЕдиницаДляОтчетов.Коэффициент КАК Коэффициент,
                   |    Номенклатура.ЕдиницаДляОтчетов.Вес КАК Вес,
                   |    Номенклатура.ЕдиницаДляОтчетов.Объем КАК Объем
                   |ИЗ
                   |    Справочник.Номенклатура КАК Номенклатура
                   |ГДЕ
                   |    Номенклатура.Родитель В ИЕРАРХИИ(&Родитель)
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Наименование";

ЗапросТовары.УстановитьПараметр("Родитель",Номенклатура);
Выборка=ЗапросТовары.Выполнить().Выбрать();
Количество=Выборка.Количество();
Индикатор.МаксимальноеЗначение=Количество;


Пока Выборка.Следующий() Цикл
///////////////////////////////////////////////////////////////////////////остатки    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("Номенклатура",Выборка.Ссылка);
        Запрос.Текст =  
         "ВЫБРАТЬ
         |    ТоварыНаСкладахОстатки.КоличествоОстаток КАК Остаток
         |ИЗ
         |    РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
         |ГДЕ
         |    ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура";
        РезультатОстатки = Запрос.Выполнить().Выбрать();
          РезультатОстатки.Следующий();
        Остатки = РезультатОстатки.Остаток;
        
        Если Остатки<>Неопределено Тогда
            Если Остатки<>Null Тогда
                   Остатки = ОбработкаТабличныхЧастей.глФорматКоличества(Остатки, Выборка.Коэффициент);
            Иначе
                Остатки = РезультатОстатки.Остаток;
            КонецЕсли;    
        КонецЕсли;
        
///////////////////////////////////////////////////////////////////////////остатки    
//------------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////////////////////продажи
        ЗапросПродажи=Новый Запрос;
        
        ЗапросПродажи.Текст="ВЫБРАТЬ
                     |    СУММА(ПродажиОбороты.КоличествоОборот) КАК Количество
                     |ИЗ
                     |    РегистрНакопления.Продажи.Обороты(&Нач, &Кон,) КАК ПродажиОбороты
                     |ГДЕ
                     |    ПродажиОбороты.Номенклатура = &Номенклатура";
        ЗапросПродажи.УстановитьПараметр("Нач",НачПериода);
        ЗапросПродажи.УстановитьПараметр("Кон",КонПериода);
        ЗапросПродажи.УстановитьПараметр("Номенклатура",Выборка.Ссылка);
        РезультатПродажи=ЗапросПродажи.Выполнить().Выбрать();
        Если РезультатПродажи.Следующий()Тогда
            Если РезультатПродажи.Количество<>Null тогда
                Продажи=РезультатПродажи.Количество;
                ВсегоПродаж=ОбработкаТабличныхЧастей.глФорматКоличества(Продажи, Выборка.Коэффициент);
            Иначе
                ВсегоПродаж=РезультатПродажи.Количество;
            КонецЕсли;
        
        КонецЕсли;
////------------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////////////////////продажи
    стр= Таблица.Добавить();
    стр.Артикул=Выборка.Артикул;
    стр.Номенклатура=Выборка.Наименование;
    стр.Остаток=Остатки;
    стр.ВсегоПродаж=ВсегоПродаж;




Индикатор.Значение =   Индикатор.Значение+1;
    
КонецЦикла;
    
    
    
КонецФункции

а вот как заполнить данные по месяцам ни как не вкурю)

(0) Сильно код не смотрел, но примерно так можно

Пока Цикл // по выборке

    Строка = Таблиц.Добавить();
    ЗаполнитьЗеначенияСвойств(Строка, Выборка);

КонецЦикла;


(2) Запрос в цикле это плохо. Первый запрос должен за один раз вернуть все нужные данные.

Пока Выборка.Следующий() Цикл
    Запрос = Новый Запрос;
...
может ну его?

дык это понятно что следующий .......
запросом пользоваться мы могем ) не могем ни как понять где вызвать заполнение таблицы на форме .
1. создаю столбцы.
2. заполняю там значения номенклатура, остатки, всего продаж.
3. как записать дынные из выборки в ячейки циклом ни как....

может  я не правильно  колонку называю..?
Колонка1 = ("Прошлый"+сч);
    Колонка2 = ("Этот"+сч1);
    Колонка3 = ("Разница"+сч2);
    Колонка4 = ("Итого"+сч);

    
    Таблица.Колонки.Добавить(Колонка1, Новый ОписаниеТипов("Строка"), Дата2);
    Таблица.Колонки.Добавить(Колонка2, Новый ОписаниеТипов("Строка"), Дата1);
    Таблица.Колонки.Добавить(Колонка3, Новый ОписаниеТипов("Строка"), "Разница");

(8) Колонку можно назвать хоть ... забыл как там в пословице...

Строка = Таблиц.Добавить();
Строка.КолонкаСоСтрашнымИменем_1 = Выборка.Сумма1;
Строка.КолонкаСоСтрашнымИменем_2 = Выборка.Сумма1;

В чем проблема-то ставь точку останова и смотри что там и куда присваивается.

И точно ли, что типы создаваемых колонок - Строки

))) Итого9    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Таблица.Колонки    КоллекцияКолонокТаблицыЗначений    КоллекцияКолонокТаблицыЗначений
Артикул    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
ВсегоПродаж    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Итого12    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Итого3    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Итого6    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Номенклатура    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Остаток    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый1    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый10    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый11    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый12    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый2    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый3    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый4    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый5    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый6    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый7    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый8    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Прошлый9    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница1    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница10    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница11    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница12    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница2    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница3    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница4    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница5    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница6    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница7    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница8    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Разница9    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот1    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот10    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот11    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот12    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот2    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот3    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот4    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот5    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот6    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот7    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот8    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений
Этот9    КолонкаТаблицыЗначений    КолонкаТаблицыЗначений

(8) если Колонка1 = "Колонка1" то норм
а добавлять в таком случае можно как-то так:
Строка = Таблиц.Добавить();
Для инд = 1 по 12 цикл
Строка.Установить(инд, Значение)

зы: если я ничего не напутал :)

* Строка = СтрокаТаблицы // а то Строка  - зарезервированное

(13) Работает и так, со Строкой...

(12)+1 Наверное в этом загвоздка, и такое нужно

Строка["СуперКолонка" + ч] = Выборка.Сумма;

(14) ну просто глаз режет

у меня уже не только глаз.... )))

(15) если там строго 12 колонок - можно и по индексу

подскажите в каком месте это использовать.. при выводе строки?

(18) Не, даже не стоит по индексу, трудно потом сопровождать

нет, там число колонок зависит от периода какой выберет пользователь

(17) вообще говоря, проблема у тебя не в ТЗ, проблема, если меня мой телепат не дурит, в том, что тебе нужно получить остатки "помесячно" + "поквартально"

(19) "При выводе строки" применяется, что бы подменить значение в ячейке или расскрасить, там и пр.

Пока Период <= КонПериода Цикл
    сч=сч+1;
    сч1=сч1+1;
    сч2=сч2+1;

    Дата1=Строка(Формат(Период,"ДФ=dd.MM.yyyy"));
    ПрошлыйПериод = ДобавитьМесяц(Период,-12);
    Дата2=Строка(Формат(ПрошлыйПериод,"ДФ=dd.MM.yyyy"));
    
    
    Колонка1 = ("Прошлый"+сч);
    Колонка2 = ("Этот"+сч1);
    Колонка3 = ("Разница"+сч2);
    Колонка4 = ("Итого"+сч);

да, и сравнить их с прошлыми продажами и вывести разницу и потом показать востребованные.....

... и что нужно дозаказать

поэтому принял решение это все делать в таблице значений

и чегото завис... на выводе данных в колонки с месяцами

(25) а где там про продажи? ...это что, отчет типа "оборачиваемость товара"?

(25) 1. Проще всего создать таблицу сразу на форме, не связываясь с программным формированием.
2. Сделать один запрос в котором будут получены сразу все нужные данный в нужном виде.
3. Вывести этот запрос в таблицу. (или в макет)

(30) + То есть из всего кода запрос будет занимать 95%.

kosts, я так собственно и сделал.. только добавляю программно туда колонки месяцЭтот, месяцПрошлый, Разница..  
вызываю эту форму из основной и при открытии делаю...
Процедура ПриОткрытии()
ДобавитьКолонки();    
ЗаполнитьТоварыИОстатки();    

////ЗаполнитьПродажи(); /// вот эта **** куда?




КонецПроцедуры

Процедура ДобавитьКолонки()
Настройки=ЭтотОбъект.ПолучитьФорму("Форма").ЭлементыФормы;
Период=Настройки.НачПериода.Значение;
НачПериода=Настройки.НачПериода.Значение;
КонПериода=Настройки.КонПериода.Значение;  
сч=0;
сч1=0;
сч2=0;
      
Пока Период <= КонПериода Цикл
    сч=сч+1;
    сч1=сч1+1;
    сч2=сч2+1;

    Дата1=Строка(Формат(Период,"ДФ=dd.MM.yyyy"));
    ПрошлыйПериод = ДобавитьМесяц(Период,-12);
    Дата2=Строка(Формат(ПрошлыйПериод,"ДФ=dd.MM.yyyy"));
    
    
    Колонка1 = ("Прошлый"+сч);
    Колонка2 = ("Этот"+сч1);
    Колонка3 = ("Разница"+сч2);
    Колонка4 = ("Итого"+сч);

    
    Таблица.Колонки.Добавить(Колонка1, Новый ОписаниеТипов("Строка"), Дата2);
    Таблица.Колонки.Добавить(Колонка2, Новый ОписаниеТипов("Строка"), Дата1);
    Таблица.Колонки.Добавить(Колонка3, Новый ОписаниеТипов("Строка"), "Разница");
    Если Настройки.ПоКварталам.Значение=Истина Тогда
        Если сч=3 или сч=6 или сч = 9 или сч = 12 тогда
            Таблица.Колонки.Добавить(Колонка4, Новый ОписаниеТипов("Строка"), "Итого за квартал");
        КонецЕсли;
    КонецЕсли;
    ЭлементыФормы.Таблица.СоздатьКолонки();
    Период= ДобавитьМесяц(Период,1);
    
    
КонецЦикла;

    
КонецПроцедуры

Функция ЗаполнитьТоварыИОстатки()
    
Настройки=ЭтотОбъект.ПолучитьФорму("Форма").ЭлементыФормы;
Период=Настройки.НачПериода.Значение;
НачПериода=Настройки.НачПериода.Значение;
КонПериода=Настройки.КонПериода.Значение;  
//Выборка = Справочники.Номенклатура.ВыбратьИерархически(Номенклатура);
Индикатор=Настройки.Индикатор1;
Индикатор.Значение=0;

ЗапросТовары=Новый Запрос;
ЗапросТовары.Текст="ВЫБРАТЬ
                   |    Номенклатура.Ссылка,
                   |    Номенклатура.Артикул,
                   |    Номенклатура.Наименование КАК Наименование,
                   |    Номенклатура.ЕдиницаДляОтчетов.Коэффициент КАК Коэффициент,
                   |    Номенклатура.ЕдиницаДляОтчетов.Вес КАК Вес,
                   |    Номенклатура.ЕдиницаДляОтчетов.Объем КАК Объем
                   |ИЗ
                   |    Справочник.Номенклатура КАК Номенклатура
                   |ГДЕ
                   |    Номенклатура.Родитель В ИЕРАРХИИ(&Родитель)
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Наименование";

ЗапросТовары.УстановитьПараметр("Родитель",Номенклатура);
Выборка=ЗапросТовары.Выполнить().Выбрать();
Количество=Выборка.Количество();
Индикатор.МаксимальноеЗначение=Количество;


Пока Выборка.Следующий() Цикл
///////////////////////////////////////////////////////////////////////////остатки    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("Номенклатура",Выборка.Ссылка);
        Запрос.Текст =  
         "ВЫБРАТЬ
         |    ТоварыНаСкладахОстатки.КоличествоОстаток КАК Остаток
         |ИЗ
         |    РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
         |ГДЕ
         |    ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура";
        РезультатОстатки = Запрос.Выполнить().Выбрать();
          РезультатОстатки.Следующий();
        Остатки = РезультатОстатки.Остаток;
        
        Если Остатки<>Неопределено Тогда
            Если Остатки<>Null Тогда
                   Остатки = ОбработкаТабличныхЧастей.глФорматКоличества(Остатки, Выборка.Коэффициент);
            Иначе
                Остатки = РезультатОстатки.Остаток;
            КонецЕсли;    
        КонецЕсли;
        
///////////////////////////////////////////////////////////////////////////остатки    
//------------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////////////////////продажи
        ЗапросПродажи=Новый Запрос;
        
        ЗапросПродажи.Текст="ВЫБРАТЬ
                     |    СУММА(ПродажиОбороты.КоличествоОборот) КАК Количество
                     |ИЗ
                     |    РегистрНакопления.Продажи.Обороты(&Нач, &Кон,) КАК ПродажиОбороты
                     |ГДЕ
                     |    ПродажиОбороты.Номенклатура = &Номенклатура";
        ЗапросПродажи.УстановитьПараметр("Нач",НачПериода);
        ЗапросПродажи.УстановитьПараметр("Кон",КонПериода);
        ЗапросПродажи.УстановитьПараметр("Номенклатура",Выборка.Ссылка);
        РезультатПродажи=ЗапросПродажи.Выполнить().Выбрать();
        Если РезультатПродажи.Следующий()Тогда
            Если РезультатПродажи.Количество<>Null тогда
                Продажи=РезультатПродажи.Количество;
                ВсегоПродаж=ОбработкаТабличныхЧастей.глФорматКоличества(Продажи, Выборка.Коэффициент);
            Иначе
                ВсегоПродаж=РезультатПродажи.Количество;
            КонецЕсли;
        
        КонецЕсли;
////------------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////////////////////продажи
    стр= Таблица.Добавить();
    стр.Артикул=Выборка.Артикул;
    стр.Номенклатура=Выборка.Наименование;
    стр.Остаток=Остатки;
    стр.ВсегоПродаж=ВсегоПродаж;




Индикатор.Значение =   Индикатор.Значение+1;
    
КонецЦикла;
    
    
    
КонецФункции

вопрос в том куда и когда "втыкать" запрос и заполнение ячейки Этот, месяцПрошлый, Разница..

(32) Сделай одну процедуру

ЗаполнитьТоварыИОстаткиИПродажи();

ни разу к Вам за помощью не обращался)) но тут уже кипит мозг, извините))

делал так сначала
пока товары.следующий цикл
................
внутри сделал пока дата1<>дата2 цикл
.........
добавил колонки
закрылцикл


добавил строку
закрылцикл

не выходит(

решил на разные процедуры разбить...

(34) поменй свои запросы в цикле на примерно такое:

ВЫБРАТЬ
    Товар.Ссылка КАК Товар,
    ТоварыНаСкладахОстатки.КоличествоОстаток
ИЗ
    Справочник.Номенклатура КАК Товар
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&Кон, ) КАК ТоварыНаСкладахОстатки
        ПО Товар.Ссылка = ТоварыНаСкладахОстатки.Номенклатура
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты(&Нач, &Кон, Месяц, ) КАК ПродажиОбороты
        ПО Товар.Ссылка = ПродажиОбороты.Номенклатура

(38) Открой консоль запросов. Сделай в одном запросе всё. Нет не так сделай в одном запросе всё, всё, всё.

А в своей форме в при открытии сделай (4)

+(40) про продажи забыл

ВЫБРАТЬ
    Товар.Ссылка КАК Товар,
    ТоварыНаСкладахОстатки.КоличествоОстаток,
    ПродажиОбороты.КоличествоОборот
ИЗ
    Справочник.Номенклатура КАК Товар
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&Кон, ) КАК ТоварыНаСкладахОстатки
        ПО Товар.Ссылка = ТоварыНаСкладахОстатки.Номенклатура
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты(&Нач, &Кон, Месяц, ) КАК ПродажиОбороты
        ПО Товар.Ссылка = ПродажиОбороты.Номенклатура

запутали вы меня )
выберу я это и как мне результат в таблицу добавить?
чтобы по месяцам  этот, прошлый, разница, процент,
разве если создать таблицуЗначений в нее данные потом запросом ни как не запихнуть?

может  всетаки
Строка = Таблиц.Добавить();
Для инд = 1 по 12 цикл
Строка.Установить(инд, Значение)
где 12 = колво колонок посчитать?

(44) Опередил...

так еще

Строка["СуперКолонка" + ч] = Выборка.Сумма;

ага.. вот это по мне) а в каком месте это вставить? ЗаполнитьТоварыИОстатки()

Пока товары.следующий  цикл

    стр= Таблица.Добавить();
    стр.Артикул=Выборка.Артикул;
    стр.Номенклатура=Выборка.Наименование;
    стр.Остаток=Остатки;
    стр.ВсегоПродаж=ВсегоПродаж;


Для инд = 1 по 12 цикл
Строка.Установить(инд, Значение)
КонецЦикла
КонецЦикла

Так?

из Ростова я) с меня раки))

Строка["СуперКолонка" + ч]  не катит ч=ч+1 с цикле с товарами

а колонки которые нужно только посчитать в условии по имени перебирать ? типа если колонка.имя=[колонка] тогда кол+1?

(48) ну если у тебя уже есть 4 колонки (Артикул, Номенклатура,...) то может тогда
Для инд = 5 по 15 цикл ? :)

по 16

по колво колонок )
их ведь не обязательное число будет

к зависимости от периода у меня добавляются колонки
колонка1,колонка2,Разница...

(54) дык считай сколько после "обязательных"

01-2013,01-2014,Разница, потом добавиьт хочу процент разницы, и посчитать итог за 3 месяца

фууф..

а как сюда скрин выложить господа?)

(59) к примеру, сюда бросай http://i-fotki.info