Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 18:26

Заполнение Макета

Автор adidasler, 10 мар 2013, 23:16

0 Пользователей и 1 гость просматривают эту тему.

adidasler

Добрый вечер уважаемые форумчани. Я не программист 1с , но стечению обстоятельств пришлось им стать. Одна из больниц в моем городе попросила меня сделать для них базу данных по операциям. В принципе разобрался и база готова но вот при следующей коррекции возникли трудности. А именно. Как из ниже переведенного кода мне Дату вывести в отдельную область?

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьСписокБольныхНаОперациюШапка = Макет.ПолучитьОбласть("СписокБольныхНаОперациюШапка");
ОбластьСписокБольныхНаОперацию = Макет.ПолучитьОбласть("СписокБольныхНаОперацию");
ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);


ТабДок.Вывести(ОбластьСписокБольныхНаОперациюШапка);
ВыборкаСписокБольныхНаОперацию = Выборка.СписокБольныхНаОперацию.Выбрать();
Пока ВыборкаСписокБольныхНаОперацию.Следующий() Цикл
ОбластьСписокБольныхНаОперацию.Параметры.Заполнить(ВыборкаСписокБольныхНаОперацию);
ТабДок.Вывести(ОбластьСписокБольныхНаОперацию, ВыборкаСписокБольныхНаОперацию.Уровень());

КонецЦикла;

ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры


Сразу скажу что дата не сегодняшняя, а дату именно выбираю это дата операции.
В приложенном изображении сама итоговая таблица. Видно что дата в самом конце мне необходимо вывести ее совсем в другую область например область "дата" которая будет выше под Заголовком. Будет написано "Список больных на операцию на ____ (и дата)". Выручите пожалуйста.

Yura063

Добавьте в область "Заголовок" эту строку! в коде допишите присвоение параметра к параметру дата! в принципе все!
Помогли, отблагодари!

adidasler

Цитата: Yura063 от 11 мар 2013, 11:49
Добавьте в область "Заголовок" эту строку! в коде допишите присвоение параметра к параметру дата! в принципе все!
Спасибо большое что ответили.Я не программист 1 с :-) Можно на примере?

Yura063

С низу после заголовка добавляете пару строк! в макет это будет выглядеть приблизительно так
Цитировать
<ВашЗаголовок1 (Архив записей)>

<Заголовок2>
Дальше идет таблица!

Добавлено: 11 мар 2013, 13:30


В коде перед выводом заголовка пишите:

   Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        ОбластьЗаголовок.Параметры.Заголовок2 = "Больничные листы на " + Дата; //Тут что вам надо!
        ТабДок.Вывести(ОбластьЗаголовок);

Добавлено: 11 мар 2013, 13:32


А убрать из таблицы вы я думаю сможете!
Помогли, отблагодари!

adidasler

Цитата: Yura063 от 11 мар 2013, 13:26
С низу после заголовка добавляете пару строк! в макет это будет выглядеть приблизительно так
Цитировать
<ВашЗаголовок1 (Архив записей)>

<Заголовок2>
Дальше идет таблица!

Добавлено: 11 мар 2013, 13:30


В коде перед выводом заголовка пишите:

   Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        ОбластьЗаголовок.Параметры.Заголовок2 = "Больничные листы на " + Дата; //Тут что вам надо!
        ТабДок.Вывести(ОбластьЗаголовок);

Добавлено: 11 мар 2013, 13:32


А убрать из таблицы вы я думаю сможете!

Пишет
{Справочник.ПечатьДокумента.МодульМенеджера(36,67)}: Переменная не определена (Дата)
ОбластьЗаголовок.Параметры.Заголовок2 = "Больничные листы на " + <<?>>Дата ; //Тут что вам надо! (Проверка: Сервер)


Дело в том что дату я выбираю сам, то есть дата ставиться не сегодняшняя , а именно дата операции. На картинке сама форма.


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск