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

Пропадают параметры в Страница3

Автор Zverff, 14 мар 2012, 12:15

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

Zverff

   Если ПриемСДиагнозом = 1 Тогда
         ДатаКарты = СокрЛП(Формат(ТекДокумент.Дата,"ДЛФ=ДД"));
         ДатаКарты = Лев(ДатаКарты,СтрДлина(ДатаКарты)-2);
         ОбластьМакета.Параметры.ДатаКарты = ДатаКарты;
         ПеренесенныеЗаболевания = ТекДокумент.ПеренесенныеЗаболевания;
         РазвитиеЗаболевания = ТекДокумент.РазвитиеЗаболевания;
         Прикус = ТекДокумент.Прикус;
         Эпикриз = ТекДокумент.Эпикриз;
         Рекомендации = ТекДокумент.Рекомендации;
         
         ЛечениеТекст1 = ТекДокумент.ЛечениеТекст;
         ПланЛечения = ТекДокумент.ПланЛеченияТекст;
         Консультации = ТекДокумент.Консультации;
         
         ОбластьМакета.Параметры.ДиагнозПредставление = ДиагнозПредставление;
         ОбластьМакета.Параметры.ЖалобыПредставление = ЖалобыПредставление;
         ОбластьМакета.Параметры.ПеренесенныеЗаболевания = ПеренесенныеЗаболевания;
         ОбластьМакета.Параметры.РазвитиеЗаболевания = РазвитиеЗаболевания;
      
         ТабДокумент.Вывести(ОбластьМакета);
         ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
//----------------------------------------------------------------------------------------------------------------
            ОбластьМакета = Макет.ПолучитьОбласть("Страница2");
         
         Для Н = 0 По 31 Цикл
            ОбластьМакета.Параметры.Установить(Н, ""+z[Н]);
         КонецЦикла;
      
         ОбластьМакета.Параметры.ВнешнийОсмотр = ВнешнийОсмотр;
         ОбластьМакета.Параметры.Прикус = Прикус;
         ОбластьМакета.Параметры.СостояниеСлизистойОболочки = СостояниеСлизистойОболочки;
         ОбластьМакета.Параметры.ДанныеОбъективногоИсследования = ДанныеОбъективногоИсследования;
         ОбластьМакета.Параметры.ДанныеРентгеновскихИсследований = ДанныеРентгеновскихИсследований;
      
           ОбластьМакета = Макет.ПолучитьОбласть("Страница2");
         Запрос = Новый Запрос;
         Запрос.Текст = "ВЫБРАТЬ
                        |   КартинкиИФайлы.Данные,
                        |   КартинкиИФайлы.Идентификатор КАК Идентификатор
                        |ИЗ
                        |   РегистрСведений.КартинкиИФайлы КАК КартинкиИФайлы
                        |ГДЕ
                        |   КартинкиИФайлы.Объект.Пациент.Ссылка = &Ссылка
                        |   И КартинкиИФайлы.Идентификатор = &Идентификатор";
            Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект.Ссылка);   
            Запрос.УстановитьПараметр("Идентификатор", "Первый");    //Справочник ссылка: Пациенты
            Выборка = Запрос.Выполнить().Выбрать();
            Если Выборка.Следующий() Тогда
            Попытка
               ОбластьМакета.Рисунки.ФСД.Картинка = Выборка.Данные.Получить();
            Исключение
             //
            КонецПопытки;
         КонецЕсли;
      ТабДокумент.Вывести(ОбластьМакета);
   ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
//---------------------------------------------------------------------------------------------------------------         
      ИначеЕсли ПриемСДиагнозом > 1 Тогда
         ОбластьМакета = Макет.ПолучитьОбласть("Страница3");
         ОбластьМакета.Параметры.ЖалобыПредставление = ЖалобыПредставление;
         ОбластьМакета.Параметры.ВнешнийОсмотр = ВнешнийОсмотр;
         ОбластьМакета.Параметры.СостояниеСлизистойОболочки = СостояниеСлизистойОболочки;
         ОбластьМакета.Параметры.ДанныеОбъективногоИсследования = ДанныеОбъективногоИсследования;
         ОбластьМакета.Параметры.ДанныеРентгеновскихИсследований = ДанныеРентгеновскихИсследований;
         ОбластьМакета.Параметры.ДиагнозПредставление = ДиагнозПредставление;
         ОбластьМакета.Параметры.ЛечениеТекст = ЛечениеТекст;
         ОбластьМакета.Параметры.ДатаПриема = Формат(ТекДокумент.Дата,"ДЛФ=ДД");
         ОбластьМакета.Параметры.Специалист = ФИО(ТекДокумент.Специалист);
         
        ТабДокумент.Вывести(ОбластьМакета);
   ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();   
КонецЕсли;   
КонецЦикла;

После вывода рисунка на страница2, то в старница3 не заполняеться. пустое появляеться

Klyacksa

xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

Теги:

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

Рейтинг@Mail.ru

Поиск