Имя: Пароль:
1C
1С v8
Присоединить();
,
0 PeaceDeath
 
14.03.13
14:45
Почему у меня не присоединяет области?

Пока ВыборкаДетали.Следующий() Цикл
       
       Н=1;
       ОбластьДеталей.Параметры.Ном                =    Н;
       ОбластьДеталей.Параметры.Сотрудник            =    ВыборкаДетали.Сотрудник;
       ОбластьДеталей.Параметры.МестоНазначения    =    ВыборкаДетали.МестоНазначения;
       ОбластьДеталей.Параметры.Должность            =    ВыборкаДетали.Должность;
       ОбластьДеталей.Параметры.ДатаОтправки        =   Лев(ВыборкаДетали.ДатаОтправки, 10);
       ОбластьДеталей.Параметры.ДатаПрибытия        =   Лев(ВыборкаДетали.ДатаПрибытия, 10);
       ОбластьДеталей.Параметры.КоличествоДней        =    (ВыборкаДетали.ДатаПрибытия - ВыборкаДетали.ДатаОтправки)/60/60/24;
       ОбластьДеталей.Параметры.ЦельПоездки        =    ВыборкаДетали.ЦельПоездки;

       ТабДок.Вывести(ОбластьДеталей);
       Пока СтатьяРез.Следующий() Цикл
       Пар = Новый Структура;
       
       Пар.Вставить("Статья", СтатьяРез.СтатьяЗатрат);
       Пар.Вставить("Сумма",  СтатьяРез.СуммаФактическаяОборот);
       
       ОбластьШапки.Параметры.СтатьяЗатрат        =  СокрЛП(Пар.Статья.Name);
       ОбластьДеталей.Параметры.Сумма              =  Пар.Сумма;
           
       ОбластьДопДеталей.Область().ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
       ОбластьДеталей.Присоединить(ОбластьДопДеталей,2,"Группа 2", Истина);
   
КонецЦикла;

http://img13.imageshost.ru/img/2013/03/14/image_5141ac7a15b6f.png
1 Wobland
 
14.03.13
14:46
куда второй конец цикла дел? что-то не договариваешь
2 PeaceDeath
 
14.03.13
14:48
(1) Он чуток ниже)
   ТабДок.НачатьАвтогруппировкуСтрок();
   ТабДок.Вывести(ОбластьШапки);
   
   Пока ВыборкаДетали.Следующий() Цикл
       
       Н=1;
       ОбластьДеталей.Параметры.Ном                =    Н;
       ОбластьДеталей.Параметры.Сотрудник            =    ВыборкаДетали.Сотрудник;
       ОбластьДеталей.Параметры.МестоНазначения    =    ВыборкаДетали.МестоНазначения;
       ОбластьДеталей.Параметры.Должность            =    ВыборкаДетали.Должность;
       ОбластьДеталей.Параметры.ДатаОтправки        =   Лев(ВыборкаДетали.ДатаОтправки, 10);
       ОбластьДеталей.Параметры.ДатаПрибытия        =   Лев(ВыборкаДетали.ДатаПрибытия, 10);
       ОбластьДеталей.Параметры.КоличествоДней        =    (ВыборкаДетали.ДатаПрибытия - ВыборкаДетали.ДатаОтправки)/60/60/24;
       ОбластьДеталей.Параметры.ЦельПоездки        =    ВыборкаДетали.ЦельПоездки;

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

       КонецЦикла;
       Н=Н+1;
   КонецЦикла;
   
   ТабДок.ЗакончитьАвтогруппировкуСтрок();
3 Wobland
 
14.03.13
14:49
и как это выглядит?
4 PeaceDeath
 
14.03.13
14:50
5 Wobland
 
14.03.13
14:51
плин, а готовое?
6 Wobland
 
14.03.13
14:53
Н=1;
ОбластьДеталей.Параметры.Ном                =    Н;
Н=Н+1;

а это, конечно, здорово
7 PeaceDeath
 
14.03.13
14:55
8 pessok
 
14.03.13
14:55
ОбластьДеталей.Присоединить(ОбластьДопДеталей,2,"Группа 2", Истина);

присоединять надо к ТабДок, не?
9 PeaceDeath
 
14.03.13
14:56
(6) Ну я нумерую так)
10 PeaceDeath
 
14.03.13
14:57
вот чуток изменил но все равно
ТабДок.НачатьАвтогруппировкуСтрок();
   ТабДок.Вывести(ОбластьШапки);
   
   Пока ВыборкаДетали.Следующий() Цикл
       
       Н=1;
       ОбластьДеталей.Параметры.Ном                =    Н;
       ОбластьДеталей.Параметры.Сотрудник            =    ВыборкаДетали.Сотрудник;
       ОбластьДеталей.Параметры.МестоНазначения    =    ВыборкаДетали.МестоНазначения;
       ОбластьДеталей.Параметры.Должность            =    ВыборкаДетали.Должность;
       ОбластьДеталей.Параметры.ДатаОтправки        =   Лев(ВыборкаДетали.ДатаОтправки, 10);
       ОбластьДеталей.Параметры.ДатаПрибытия        =   Лев(ВыборкаДетали.ДатаПрибытия, 10);
       ОбластьДеталей.Параметры.КоличествоДней        =    (ВыборкаДетали.ДатаПрибытия - ВыборкаДетали.ДатаОтправки)/60/60/24;
       ОбластьДеталей.Параметры.ЦельПоездки        =    ВыборкаДетали.ЦельПоездки;

       ТабДок.Вывести(ОбластьДеталей);
       Пока СтатьяРез.Следующий() Цикл
       Пар = Новый Структура;
       
       МассивСтатусов = РезультатСтатус.НайтиСтроки(Пар);
       //Если ВыборкаДетали.Сотрудник.Наименование = СтатьяРез.Сотрудник.Наименование Тогда
       Пар.Вставить("Статья", СтатьяРез.СтатьяЗатрат);
       Пар.Вставить("Сумма",  СтатьяРез.СуммаФактическаяОборот);
       
       ОбластьШапки.Параметры.СтатьяЗатрат        =  СокрЛП(Пар.Статья.Name);
       ОбластьДеталей.Параметры.Сумма              =  Пар.Сумма;
       КонецЦикла;
       ТабДок.Присоединить(ОбластьДопДеталей);
       Н=Н+1;
       
       
       
       
       
   КонецЦикла;
   
   ТабДок.ЗакончитьАвтогруппировкуСтрок();
Тоже что и на  картинке
11 PeaceDeath
 
14.03.13
14:59
В (0) внизу есть ссылка как построен этот макет.
а это как он выглядит
http://img13.imageshost.ru/img/2013/03/14/image_5141af090bf0c.png
12 del123
 
14.03.13
15:01
(10) табдок присоединить в цикл зауснь
13 pessok
 
14.03.13
15:03
по (10) он 1 разок должен был присоединить теперь :)
а вообще (12)
14 PeaceDeath
 
14.03.13
15:05
Так последняя запись у меня должна идти по горизонтали!
15 PeaceDeath
 
14.03.13
15:05
16 del123
 
14.03.13
15:08
а как ты определяешь областьДетали покажи
17 del123
 
14.03.13
15:08
и область допдетали заодно
18 PeaceDeath
 
14.03.13
15:10
ОбластьШапки            = Макет.ПолучитьОбласть("Шапка");
   ОбластьДеталей            = Макет.ПолучитьОбласть("Детали|ДеталиДоп");    
   ОбластьДопДеталей      = Макет.ПолучитьОбласть("ДеталиДоп");
19 PeaceDeath
 
14.03.13
15:11
Пардон этой из другой конфы
ОбластьШапки             = Макет.ПолучитьОбласть("Шапка");
   ОбластьДеталей             = Макет.ПолучитьОбласть("Детали");    
   ОбластьДопДеталей       = Макет.ПолучитьОбласть("ДеталиДоп");
20 del123
 
14.03.13
15:13
должно быть
ОбластьДеталей = Макет.ПолучитьОбласть("Детали|ПерваяЧастьДеталей");
ОбластьДопДеталей = Макет.ПолучитьОбласть("Детали|ДеталиДоп");

ПерваяЧастьДеталей у тебя сейчас в макете не обозначена, это часть до вертикальной области ДеталиДоп
21 del123
 
14.03.13
15:13
а то у тебя получается, что при вывести(детали), он выводит строку, и где то потом дописывает твои допдетали, а надо выводить только часть строки
22 PeaceDeath
 
14.03.13
15:38
Извиняюсь может я чего то недопонял.. Но итог сейчас выглядит другим!!

ОбластьШапки            = Макет.ПолучитьОбласть("Шапка");
   ОбластьДеталей            = Макет.ПолучитьОбласть("Детали|ПерваяЧастьДопДеталей");    
   ОбластьДопДеталей      = Макет.ПолучитьОбласть("Детали|ДеталиДоп");

   
   ТабДок.НачатьАвтогруппировкуСтрок();    
   Пока ВыборкаДетали.Следующий() Цикл
       
       Н=1;
       ОбластьДеталей.Параметры.Ном                =    Н;
       ОбластьДеталей.Параметры.Сотрудник            =    ВыборкаДетали.Сотрудник;
       ОбластьДеталей.Параметры.МестоНазначения    =    ВыборкаДетали.МестоНазначения;
       ОбластьДеталей.Параметры.Должность            =    ВыборкаДетали.Должность;
       ОбластьДеталей.Параметры.ДатаОтправки        =   Лев(ВыборкаДетали.ДатаОтправки, 10);
       ОбластьДеталей.Параметры.ДатаПрибытия        =   Лев(ВыборкаДетали.ДатаПрибытия, 10);
       ОбластьДеталей.Параметры.КоличествоДней        =    (ВыборкаДетали.ДатаПрибытия - ВыборкаДетали.ДатаОтправки)/60/60/24;
       ОбластьДеталей.Параметры.ЦельПоездки        =    ВыборкаДетали.ЦельПоездки;

       Пока СтатьяРез.Следующий() Цикл
       Пар = Новый Структура;

       Пар.Вставить("Статья", СтатьяРез.СтатьяЗатрат);
       Пар.Вставить("Сумма",  СтатьяРез.СуммаФактическаяОборот);
       
       ОбластьШапки.Параметры.СтатьяЗатрат        =  СокрЛП(Пар.Статья.Name);
       ОбластьДопДеталей.Параметры.Сумма              =  Пар.Сумма;
       
       ТабДок.Вывести(ОбластьШапки);
       ТабДок.Присоединить(ОбластьДеталей);
       ТабДок.Присоединить(ОбластьДопДеталей);
       КонецЦикла;
       Н=Н+1;
   КонецЦикла;

   ТабДок.ЗакончитьАвтогруппировкуСтрок();


http://img13.imageshost.ru/img/2013/03/14/image_5141b936b7d4c.png
23 PeaceDeath
 
14.03.13
15:39
24 del123
 
14.03.13
15:42
вместо
       ТабДок.Присоединить(ОбластьДеталей);
надо
       ТабДок.Вывести(ОбластьДеталей);
и поставить перед вторым циклом
25 PeaceDeath
 
14.03.13
15:42
А можно ли по секция ходить в цикле например ОбластьДопДеталей = макет.получитьОбласть(R4C10)
26 del123
 
14.03.13
15:42
а
       ТабДок.Вывести(ОбластьШапки);
перед первым циклом
27 del123
 
14.03.13
15:44
да и создание структуры тоже можно было бы из циклов вынести
28 PeaceDeath
 
14.03.13
15:52
(26) В таком случае выводится одна сумма и к тому же без названия..

Пока СтатьяРез.Следующий() Цикл
       Пар = Новый Структура;
       Пар.Вставить("Статья", СтатьяРез.СтатьяЗатрат);
       Пар.Вставить("Сумма",  СтатьяРез.СуммаФактическаяОборот);
       
       ОбластьШапки.Параметры.СтатьяЗатрат        =  СокрЛП(Пар.Статья.Name);
       ОбластьДопДеталей.Параметры.Сумма              =  Пар.Сумма;
       ТабДок.Вывести(ОбластьШапки);
       ТабДок.Вывести(ОбластьДеталей);
       ТабДок.Присоединить(ОбластьДопДеталей);
           КонецЦикла;

Сделал так.. и вся инфа выходит как надо.. единственное не по горизонтали. а по вертикали
29 PeaceDeath
 
14.03.13
15:53
Парадокс прям какой то
30 PeaceDeath
 
14.03.13
15:58
Попробую переписать по секциям.. в какой бы цикл я не засуну записи все равно криво отображается!!

Спасибо всем
31 del123
 
14.03.13
15:59
скинь отчет куда нить, посмотрю, а то все равно на работе скучно :)
32 PeaceDeath
 
14.03.13
16:02
позвольте спросить а как??
33 del123
 
14.03.13
16:05
ну хоть на почту [email protected]
34 PeaceDeath
 
14.03.13
16:07
не я не про почту))
я про то как отчет отдельным файлом сохранить?? или всю БД нуно кидать? она прилично весит)
35 del123
 
14.03.13
16:08
в дереве конфигурации тыкаешь правой кнопкой и сохранить как внешний отчет