|
staff
|
 |
« Ответ #4 : 16-10-2009 05:53 » |
|
написал процедуру с изменениями необходимыми для вывода букв все буквенные значения выводятся кроме одного mst я его обвел
код процедуры
Процедура КнопкаСформироватьНажатие(Кнопка)
// Вставить содержимое обработчика.
Запрос = новый запрос;
Запрос.Текст=
"ВЫБРАТЬ
| СводкаПоКачествуМасла.Смена КАК Смена,
| СводкаПоКачествуМасла.Бригада КАК Бригада,
| СводкаПоКачествуМасла.Регистратор КАК Регистратор,
| СводкаПоКачествуМасла.mst КАК mst,
| СводкаПоКачествуМасла.mst1 КАК mst1,
| СводкаПоКачествуМасла.mst2 КАК mst2,
| СводкаПоКачествуМасла.mst3 КАК mst3,
| СводкаПоКачествуМасла.mst4 КАК mst4,
| СводкаПоКачествуМасла.mst5 КАК mst5,
| СводкаПоКачествуМасла.mst6 КАК mst6,
| СводкаПоКачествуМасла.mst7 КАК mst7,
| СУММА(СводкаПоКачествуМасла.mm) КАК mm,
| СУММА(СводкаПоКачествуМасла.mm1) КАК mm1,
| СУММА(СводкаПоКачествуМасла.mm2) КАК mm2,
| СУММА(СводкаПоКачествуМасла.mm3) КАК mm3,
| СУММА(СводкаПоКачествуМасла.mm4) КАК mm4,
| СУММА(СводкаПоКачествуМасла.mm5) КАК mm5,
| СУММА(СводкаПоКачествуМасла.mm6) КАК mm6,
| СУММА(СводкаПоКачествуМасла.mm7) КАК mm7,
| СУММА(СводкаПоКачествуМасла.q1) КАК q1,
| СУММА(СводкаПоКачествуМасла.q2) КАК q2,
| СУММА(СводкаПоКачествуМасла.qwe) КАК qwe,
| СУММА(СводкаПоКачествуМасла.qwe1) КАК qwe1,
| СУММА(СводкаПоКачествуМасла.qwe2) КАК qwe2,
| СУММА(СводкаПоКачествуМасла.qwe3) КАК qwe3,
| СУММА(СводкаПоКачествуМасла.qwe4) КАК qwe4,
| СУММА(СводкаПоКачествуМасла.qwe5) КАК qwe5,
| СУММА(СводкаПоКачествуМасла.qwe6) КАК qwe6,
| СУММА(СводкаПоКачествуМасла.qwe7) КАК qwe7,
| СУММА(СводкаПоКачествуМасла.x1) КАК x1,
| СУММА(СводкаПоКачествуМасла.x10) КАК x10,
| СУММА(СводкаПоКачествуМасла.x11) КАК x11,
| СУММА(СводкаПоКачествуМасла.x12) КАК x12,
| СУММА(СводкаПоКачествуМасла.x13) КАК x13,
| СУММА(СводкаПоКачествуМасла.x14) КАК x14,
| СУММА(СводкаПоКачествуМасла.x15) КАК x15,
| СУММА(СводкаПоКачествуМасла.x16) КАК x16,
| СУММА(СводкаПоКачествуМасла.x17) КАК x17,
| СУММА(СводкаПоКачествуМасла.x18) КАК x18,
| СУММА(СводкаПоКачествуМасла.x19) КАК x19,
| СУММА(СводкаПоКачествуМасла.x2) КАК x2,
| СУММА(СводкаПоКачествуМасла.x20) КАК x20,
| СУММА(СводкаПоКачествуМасла.x21) КАК x21,
| СУММА(СводкаПоКачествуМасла.x22) КАК x22,
| СУММА(СводкаПоКачествуМасла.x23) КАК x23,
| СУММА(СводкаПоКачествуМасла.x24) КАК x24,
| СУММА(СводкаПоКачествуМасла.x25) КАК x25,
| СУММА(СводкаПоКачествуМасла.x26) КАК x26,
| СУММА(СводкаПоКачествуМасла.x27) КАК x27,
| СУММА(СводкаПоКачествуМасла.x28) КАК x28,
| СУММА(СводкаПоКачествуМасла.x29) КАК x29,
| СУММА(СводкаПоКачествуМасла.x3) КАК x3,
| СУММА(СводкаПоКачествуМасла.x30) КАК x30,
| СУММА(СводкаПоКачествуМасла.x31) КАК x31,
| СУММА(СводкаПоКачествуМасла.x32) КАК x32,
| СУММА(СводкаПоКачествуМасла.x4) КАК x4,
| СУММА(СводкаПоКачествуМасла.x5) КАК x5,
| СУММА(СводкаПоКачествуМасла.x6) КАК x6,
| СУММА(СводкаПоКачествуМасла.x7) КАК x7,
| СУММА(СводкаПоКачествуМасла.x8) КАК x8,
| СУММА(СводкаПоКачествуМасла.x9) КАК x9,
| СУММА(СводкаПоКачествуМасла.Спарафин) КАК Спарафин,
| СУММА(СводкаПоКачествуМасла.Спарафин1) КАК Спарафин1,
| СУММА(СводкаПоКачествуМасла.Спарафин2) КАК Спарафин2,
| СУММА(СводкаПоКачествуМасла.Спарафин3) КАК Спарафин3,
| СУММА(СводкаПоКачествуМасла.Спарафин4) КАК Спарафин4,
| СУММА(СводкаПоКачествуМасла.Спарафин5) КАК Спарафин5,
| СУММА(СводкаПоКачествуМасла.Спарафин6) КАК Спарафин6,
| СУММА(СводкаПоКачествуМасла.Спарафин7) КАК Спарафин7,
| СУММА(СводкаПоКачествуМасла.z) КАК z,
| СУММА(СводкаПоКачествуМасла.z1) КАК z1,
| СУММА(СводкаПоКачествуМасла.z2) КАК z2,
| СУММА(СводкаПоКачествуМасла.z3) КАК z3,
| СУММА(СводкаПоКачествуМасла.z4) КАК z4,
| СУММА(СводкаПоКачествуМасла.z5) КАК z5,
| СУММА(СводкаПоКачествуМасла.z15) КАК z15,
| СУММА(СводкаПоКачествуМасла.z23) КАК z23
|ИЗ
| РегистрНакопления.СводкаПоКачествуМасла КАК СводкаПоКачествуМасла
|ГДЕ
| СводкаПоКачествуМасла.Период МЕЖДУ &НачалоДня И &КонецДня
|
|СГРУППИРОВАТЬ ПО
| СводкаПоКачествуМасла.Смена,
| СводкаПоКачествуМасла.Бригада,
| СводкаПоКачествуМасла.Регистратор,
| СводкаПоКачествуМасла.mst,
| СводкаПоКачествуМасла.mst1,
| СводкаПоКачествуМасла.mst2,
| СводкаПоКачествуМасла.mst3,
| СводкаПоКачествуМасла.mst4,
| СводкаПоКачествуМасла.mst5,
| СводкаПоКачествуМасла.mst6,
| СводкаПоКачествуМасла.mst7
|
|УПОРЯДОЧИТЬ ПО
| Смена,
| Бригада,
| Регистратор
|ИТОГИ
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst1),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst2),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst3),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst4),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst5),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst6),
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ mst7),
| СУММА(mm),
| СУММА(mm1),
| СУММА(mm2),
| СУММА(mm3),
| СУММА(mm4),
| СУММА(mm5),
| СУММА(mm6),
| СУММА(mm7),
| СУММА(q1),
| СУММА(q2),
| СУММА(qwe),
| СУММА(qwe1),
| СУММА(qwe2),
| СУММА(qwe3),
| СУММА(qwe4),
| СУММА(qwe5),
| СУММА(qwe6),
| СУММА(qwe7),
| СУММА(x1),
| СУММА(x10),
| СУММА(x11),
| СУММА(x12),
| СУММА(x13),
| СУММА(x14),
| СУММА(x15),
| СУММА(x16),
| СУММА(x17),
| СУММА(x18),
| СУММА(x19),
| СУММА(x2),
| СУММА(x20),
| СУММА(x21),
| СУММА(x22),
| СУММА(x23),
| СУММА(x24),
| СУММА(x25),
| СУММА(x26),
| СУММА(x27),
| СУММА(x28),
| СУММА(x29),
| СУММА(x3),
| СУММА(x30),
| СУММА(x31),
| СУММА(x32),
| СУММА(x4),
| СУММА(x5),
| СУММА(x6),
| СУММА(x7),
| СУММА(x8),
| СУММА(x9),
| СУММА(Спарафин),
| СУММА(Спарафин1),
| СУММА(Спарафин2),
| СУММА(Спарафин3),
| СУММА(Спарафин4),
| СУММА(Спарафин5),
| СУММА(Спарафин6),
| СУММА(Спарафин7),
| СУММА(z),
| СУММА(z1),
| СУММА(z2),
| СУММА(z3),
| СУММА(z4),
| СУММА(z5),
| СУММА(z15),
| СУММА(z23)
|ПО
| Смена,
| Бригада,
| Регистратор
|АВТОУПОРЯДОЧИВАНИЕ";
Запрос.УстановитьПараметр("НачалоДня", НачалоДня(НачПериода));
Запрос.УстановитьПараметр("КонецДня", КонецДня(КонПериода));
Результат=Запрос.Выполнить();
Выборка=Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
темп = Новый ТабличныйДокумент;
ТабДок=ПолучитьМакет("Макет");
Пока Выборка.Следующий() цикл
ОбластьШапка=ТабДок.ПолучитьОбласть("Шапка");
ОбластьШапка.Параметры.Смена=Выборка.Смена;
Темп.Вывести(ОбластьШапка);
ВыборкаПериод=Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаПериод.Следующий() цикл
ОбластьПериод=ТабДок.ПолучитьОбласть("Период");
ОбластьПериод.Параметры.Период=" Период с "+Формат(НачПериода,"ДЛФ=DD")+" по "+Формат(КонПериода,"ДЛФ=DD");
ОбластьПериод.Параметры.Бригада=ВыборкаПериод.Бригада;
Темп.Вывести(ОбластьПериод);
ВыборкаРегистратор=ВыборкаПериод.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ОбластьОписание=ТабДок.ПолучитьОбласть("Описание");
Темп.Вывести(ОбластьОписание);
Пока ВыборкаРегистратор.Следующий() цикл
если ВыборкаРегистратор.Регистратор<>Неопределено тогда
ОбластьРегистратор=ТабДок.ПолучитьОбласть("Регистратор");
ОбластьРегистратор.Параметры.Дата=ВыборкаРегистратор.Регистратор.Дата;
ОбластьРегистратор.Параметры.x3=ВыборкаРегистратор.x3;
ОбластьРегистратор.Параметры.x4=ВыборкаРегистратор.x4;
ОбластьРегистратор.Параметры.x5=ВыборкаРегистратор.x5;
ОбластьРегистратор.Параметры.qwe=ВыборкаРегистратор.qwe;
ОбластьРегистратор.Параметры.x1=ВыборкаРегистратор.x1;
ОбластьРегистратор.Параметры.mm=ВыборкаРегистратор.mm;
ОбластьРегистратор.Параметры.Спарафин=ВыборкаРегистратор.Спарафин;
ОбластьРегистратор.Параметры.mst=ВыборкаРегистратор.mst;
темп.Вывести(ОбластьРегистратор);
ВыборкаРегистратор1=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
конецесли;
Пока ВыборкаРегистратор1.Следующий() цикл
ОбластьРегистратор1=ТабДок.ПолучитьОбласть("Регистратор1");
ОбластьРегистратор1.Параметры.Дата=ВыборкаРегистратор1.Регистратор.Дата;
ОбластьРегистратор1.Параметры.x2=ВыборкаРегистратор1.x2;
ОбластьРегистратор1.Параметры.x6=ВыборкаРегистратор1.x6;
ОбластьРегистратор1.Параметры.x7=ВыборкаРегистратор1.x7;
ОбластьРегистратор1.Параметры.qwe1=ВыборкаРегистратор1.qwe1;
ОбластьРегистратор1.Параметры.x8=ВыборкаРегистратор1.x8;
ОбластьРегистратор1.Параметры.mm1=ВыборкаРегистратор1.mm1;
ОбластьРегистратор1.Параметры.Спарафин1=ВыборкаРегистратор1.Спарафин1;
ОбластьРегистратор1.Параметры.mst1=ВыборкаРегистратор1.mst1;
Темп.Вывести(ОбластьРегистратор1);
ВыборкаРегистратор2=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор2.Следующий() цикл
ОбластьРегистратор2=ТабДок.ПолучитьОбласть("Регистратор2");
ОбластьРегистратор2.Параметры.Дата=ВыборкаРегистратор2.Регистратор.Дата;
ОбластьРегистратор2.Параметры.x9=ВыборкаРегистратор2.x9;
ОбластьРегистратор2.Параметры.x10=ВыборкаРегистратор2.x10;
ОбластьРегистратор2.Параметры.x11=ВыборкаРегистратор2.x11;
ОбластьРегистратор2.Параметры.qwe2=ВыборкаРегистратор2.qwe2;
ОбластьРегистратор2.Параметры.x12=ВыборкаРегистратор2.x12;
ОбластьРегистратор2.Параметры.mm2=ВыборкаРегистратор2.mm2;
ОбластьРегистратор2.Параметры.Спарафин2=ВыборкаРегистратор2.Спарафин2;
ОбластьРегистратор2.Параметры.mst2=ВыборкаРегистратор2.mst2;
Темп.Вывести(ОбластьРегистратор2);
ВыборкаРегистратор3=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор3.Следующий() цикл
ОбластьРегистратор3=ТабДок.ПолучитьОбласть("Регистратор3");
ОбластьРегистратор3.Параметры.Дата=ВыборкаРегистратор3.Регистратор.Дата;
ОбластьРегистратор3.Параметры.x13=ВыборкаРегистратор3.x13;
ОбластьРегистратор3.Параметры.x14=ВыборкаРегистратор3.x14;
ОбластьРегистратор3.Параметры.x15=ВыборкаРегистратор3.x15;
ОбластьРегистратор3.Параметры.qwe3=ВыборкаРегистратор3.qwe3;
ОбластьРегистратор3.Параметры.x16=ВыборкаРегистратор3.x16;
ОбластьРегистратор3.Параметры.mm3=ВыборкаРегистратор3.mm2;
ОбластьРегистратор3.Параметры.Спарафин3=ВыборкаРегистратор3.Спарафин3;
ОбластьРегистратор3.Параметры.mst3=ВыборкаРегистратор3.mst3;
Темп.Вывести(ОбластьРегистратор3);
ВыборкаРегистратор4=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор4.Следующий() цикл
ОбластьРегистратор4=ТабДок.ПолучитьОбласть("Регистратор4");
ОбластьРегистратор4.Параметры.Дата=ВыборкаРегистратор4.Регистратор.Дата;
ОбластьРегистратор4.Параметры.x17=ВыборкаРегистратор4.x17;
ОбластьРегистратор4.Параметры.x18=ВыборкаРегистратор4.x18;
ОбластьРегистратор4.Параметры.x19=ВыборкаРегистратор4.x19;
ОбластьРегистратор4.Параметры.qwe4=ВыборкаРегистратор4.qwe4;
ОбластьРегистратор4.Параметры.x20=ВыборкаРегистратор4.x20;
ОбластьРегистратор4.Параметры.mm4=ВыборкаРегистратор4.mm4;
ОбластьРегистратор4.Параметры.Спарафин4=ВыборкаРегистратор4.Спарафин4;
ОбластьРегистратор4.Параметры.mst4=ВыборкаРегистратор4.mst4;
Темп.Вывести(ОбластьРегистратор4);
ВыборкаРегистратор5=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор5.Следующий() цикл
ОбластьРегистратор5=ТабДок.ПолучитьОбласть("Регистратор5");
ОбластьРегистратор5.Параметры.Дата=ВыборкаРегистратор5.Регистратор.Дата;
ОбластьРегистратор5.Параметры.x21=ВыборкаРегистратор5.x21;
ОбластьРегистратор5.Параметры.x22=ВыборкаРегистратор5.x22;
ОбластьРегистратор5.Параметры.x23=ВыборкаРегистратор5.x23;
ОбластьРегистратор5.Параметры.qwe5=ВыборкаРегистратор5.qwe5;
ОбластьРегистратор5.Параметры.x24=ВыборкаРегистратор5.x24;
ОбластьРегистратор5.Параметры.mm5=ВыборкаРегистратор5.mm5;
ОбластьРегистратор5.Параметры.Спарафин5=ВыборкаРегистратор5.Спарафин5;
ОбластьРегистратор5.Параметры.mst5=ВыборкаРегистратор5.mst5;
Темп.Вывести(ОбластьРегистратор5);
ВыборкаРегистратор6=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор6.Следующий() цикл
ОбластьРегистратор6=ТабДок.ПолучитьОбласть("Регистратор6");
ОбластьРегистратор6.Параметры.Дата=ВыборкаРегистратор6.Регистратор.Дата;
ОбластьРегистратор6.Параметры.x25=ВыборкаРегистратор6.x25;
ОбластьРегистратор6.Параметры.x26=ВыборкаРегистратор6.x26;
ОбластьРегистратор6.Параметры.x27=ВыборкаРегистратор6.x27;
ОбластьРегистратор6.Параметры.qwe6=ВыборкаРегистратор6.qwe6;
ОбластьРегистратор6.Параметры.x28=ВыборкаРегистратор6.x28;
ОбластьРегистратор6.Параметры.mm6=ВыборкаРегистратор6.mm6;
ОбластьРегистратор6.Параметры.Спарафин6=ВыборкаРегистратор6.Спарафин6;
ОбластьРегистратор6.Параметры.mst6=ВыборкаРегистратор6.mst6;
Темп.Вывести(ОбластьРегистратор6);
ВыборкаРегистратор7=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор7.Следующий() цикл
ОбластьРегистратор7=ТабДок.ПолучитьОбласть("Регистратор7");
ОбластьРегистратор7.Параметры.Дата=ВыборкаРегистратор7.Регистратор.Дата;
ОбластьРегистратор7.Параметры.x29=ВыборкаРегистратор7.x29;
ОбластьРегистратор7.Параметры.x30=ВыборкаРегистратор7.x30;
ОбластьРегистратор7.Параметры.x31=ВыборкаРегистратор7.x31;
ОбластьРегистратор7.Параметры.qwe7=ВыборкаРегистратор7.qwe7;
ОбластьРегистратор7.Параметры.x32=ВыборкаРегистратор7.x32;
ОбластьРегистратор7.Параметры.mm7=ВыборкаРегистратор7.mm7;
ОбластьРегистратор7.Параметры.Спарафин7=ВыборкаРегистратор7.Спарафин7;
ОбластьРегистратор7.Параметры.mst7=ВыборкаРегистратор7.mst7;
Темп.Вывести(ОбластьРегистратор7);
ВыборкаРегистратор8=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ОбластьОписание1=ТабДок.ПолучитьОбласть("Описание1");
Темп.Вывести(ОбластьОписание1);
Пока ВыборкаРегистратор8.Следующий() цикл
ОбластьРегистратор8=ТабДок.ПолучитьОбласть("Регистратор8");
ОбластьРегистратор8.Параметры.Дата=ВыборкаРегистратор8.Регистратор.Дата;
ОбластьРегистратор8.Параметры.z=ВыборкаРегистратор8.z;
ОбластьРегистратор8.Параметры.z1=ВыборкаРегистратор8.z1;
ОбластьРегистратор8.Параметры.z2=ВыборкаРегистратор8.z2;
ОбластьРегистратор8.Параметры.z15=ВыборкаРегистратор8.z15;
ОбластьРегистратор8.Параметры.z3=ВыборкаРегистратор8.z3;
ОбластьРегистратор8.Параметры.z4=ВыборкаРегистратор8.z4;
ОбластьРегистратор8.Параметры.z5=ВыборкаРегистратор8.z5;
ОбластьРегистратор8.Параметры.z23=ВыборкаРегистратор8.z23;
Темп.Вывести(ОбластьРегистратор8);
ВыборкаРегистратор9=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ОбластьОписание2=ТабДок.ПолучитьОбласть("Описание2");
Темп.Вывести(ОбластьОписание2);
Пока ВыборкаРегистратор9.Следующий() цикл
ОбластьРегистратор9=ТабДок.ПолучитьОбласть("Регистратор9");
ОбластьРегистратор9.Параметры.Дата=ВыборкаРегистратор9.Регистратор.Дата;
ОбластьРегистратор9.Параметры.q1=ВыборкаРегистратор9.q1;
Темп.Вывести(ОбластьРегистратор9);
ВыборкаРегистратор10=ВыборкаРегистратор.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаРегистратор10.Следующий() цикл
ОбластьРегистратор10=ТабДок.ПолучитьОбласть("Регистратор10");
ОбластьРегистратор10.Параметры.Дата=ВыборкаРегистратор10.Регистратор.Дата;
ОбластьРегистратор10.Параметры.q2=ВыборкаРегистратор10.q2;
Темп.Вывести(ОбластьРегистратор10);
конеццикла;
конеццикла;
конеццикла;
конеццикла
конеццикла;
конеццикла;
конеццикла;
конеццикла;
конеццикла;
конеццикла;
конеццикла;
конеццикла;
конеццикла;
ТабФорма=Отчеты.СводкаПоКачествуМасла.ПолучитьФорму("ФормаТаблицы");
ТабФорма.Открыть();
ТабФорма.ЭлементыФормы.Результат.Вывести(Темп);
КонецПроцедуры
и еще такое, что необходимо добавить в процедуру вывода отчета для того что бы не создавалась новая таблица с результатами расчетов, а добавлялась к существующей таблице с результатами создавая позицию с низу под необходимыми измерениями.
например
Масло подсолнечное гидратированное экстракционное Дата x3 x4 x5 qwe x1 mm Спарафин mst
Дата x3 x4 x5 qwe x1 mm Спарафин mst
Масло подсолнечное гидратированное прессовое Дата x2 x6 x7 qwe1 x8 mm1 Спарафин1 mst1
Дата x2 x6 x7 qwe1 x8 mm1 Спарафин1 mst1
и т. д., только там где дата у меня стоит формат время
|
