[апостол]

Тут две страницы написано, куда подробнее? Задавайте конкретные вопросы - что именно не получается.

в справочнике сертификаты создал реквизит изображение в котором указан путь в от сканированному сертификату. Теперь как при проведении накладной распечатать эти сертификаты?.
в табличной части поместил картинку в модуле документа прописал вот этот код

Процедура ВывестиКартинку(ф) 
    к=СоздатьОбъект("Картинка");
    к.Загрузить("D:\IMAGE\"+СокрЛП(ТекТМЦ.ИмяФайла)+".bmp");
    ф.УстановитьКартинку(к);
КонецПроцедуры //ВывестиКартинку(ф)
Процедура ПечатьСертификата(ТекТМЦ)
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Сертификат");
КонецПроцедуры

Процедура Печать()
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл
        Если ПечСертификат=1 Тогда
              ПечатьСертификата(ТМЦ);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

когда вместо .Загрузить("D:\IMAGE\"+СокрЛП(ТекТМЦ.ИмяФайла)+".bmp"); пишу свой путь Загрузить("КаталогИБ()+Изображение) он ругается на Изображение

Причина редактирования: п.12.

[mister-x]

а що у вас у Изображение, це якась змінна - чому вона рівна?

 Загрузить(КаталогИБ()+змінна)

перед КаталогИБ() лапки не потрібні

оце

КаталогИБ()+змінна

має бути типу "строка"

[kalyamov]

На всякий случай Перед КаталогИБ() можно поставить "" (двойные кавычки) перед плюсом и после, потому что 1С-ка иногда это превращает в уравнение и плюсует строки. Пару раз такое было, разбираться не стал, решил , что легче пару кавычек поставить, чем отвлекаться и других отвлекать. Путь к картинке должен выглядеть где-то так: Загрузить(""+КаталогИБ()+""+Изображение), где изображение должно быть строкой заканчивающейся расширением картинки ("сертификат.bmp"). И не забывайте про \ - путь должен быть путевым

[апостол]

На всякий случай Перед КаталогИБ() можно поставить "" (двойные кавычки) перед плюсом и после, потому что 1С-ка иногда это превращает в уравнение и плюсует строки. Пару раз такое было, разбираться не стал, решил , что легче пару кавычек поставить, чем отвлекаться и других отвлекать. Путь к картинке должен выглядеть где-то так: Загрузить(""+КаталогИБ()+""+Изображение), где изображение должно быть строкой заканчивающейся расширением картинки ("сертификат.bmp"). И не забывайте про \ - путь должен быть путевым

Про кавычки, впереди КаталогИБ() это так некорректно вставил. Изображение это тип строка неограниченной длинны. в которой храниться путь до картинки.
А по по поводу ("сертификат.bmp) - это одна картинка или просто переменная в которую передается мои картинки? и вопрос, а если картинка храниться в другом формате tif или jpeg

[апостол]

Переписал свой код. Получилось следующее:

Процедура ВывестиКартинку(ф) 
    к=СоздатьОбъект("Картинка");
    к.Загрузить(КаталогИБ()+КаталогФотографий+(ИмяФайла));
    ф.УстановитьКартинку(к);
КонецПроцедуры //ВывестиКартинку(ф)

Процедура ПечатьСертификата()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Секция_2|Секция_1");
КонецПроцедуры

Процедура Печать1()
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл   
        имяФайла= РОСС_ГОСТ.Изображение;
       //Если ПечСертификат=1 Тогда
            ПечатьСертификата();
        //КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Но при попытке вывода на печать выдает следующую ошибку:

к.Загрузить(КаталогИБ()+КаталогФотографий+(ИмяФайла));
{Документ.Реализация.Форма.Модуль(1936)}: Общая файловая ошибка при доступе к D:\BASE\Флагман Елец\photo\photo\ошскоеРОСС RU.П013.Н16692-1.JPG

не подскажите в чем причина?!


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

[onis]

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

 Процедура ПечатьСвидетельства()   
       
       Если (Модифицированность() = 1) или (Проведен() = 0) Тогда
           Предупреждение ("Документ можно распечатать только после проведения расходной накладной.");
           Возврат;
       КонецЕсли;                                     
   
       
       Таб = СоздатьОбъект("Таблица");  
       
     ПечФорма = "Свидетельство";
       Язык = глЯзык(ПечФорма);     
       Таб.ИсходнаяТаблица(ПечФорма);
       глУстПропись(Валюта,Язык);
                            
       Фирма.ИспользоватьДату(ДатаДок,1); 
       
       Таб.ВывестиСекцию("Шапка"); 
       Таб.ВывестиСекцию("ШапкаТаблицы"); 
       Ном = 1;
       ВыбратьСтроки();
       Пока ПолучитьСтроку()=1 Цикл                
           Таб.ВывестиСекцию("Строка");
           Ном = Ном+1;
       КонецЦикла;
       Таб.ВывестиСекцию("Дно");
       Таб.ПараметрыСтраницы(2);
       Таб.Защита(Константа.ФлагЗащитыТаблиц);
       Таб.ТолькоПросмотр(1);
       Таб.Опции(0,0,,);
       Таб.Показать("ПЕЧАТЬ: Свидетельство о качестве","")

[nysysimara]

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

вместо

Таб.ПараметрыСтраницы(2);

поставте

Таб.ПараметрыСтраницы(1);

цитата:
"ПараметрыСтраницы(<Ориентация>,<Масштаб>,<РежимПечатиКопий>,<ПолеСлева>,<ПолеСправа>,<ПолеСверху>,<ПолеСнизу>,<КолонтитулСверху>,<КолонтитулСнизу>,<Автомасштаб>,<ФлагЧБПечати>,<ИмяПринтера>)
<Ориентация> - необязательный параметр. Ориентация вывода на печать: число: 1 - портрет; 2 - ландшафт."

Сообщение отредактировал nysysimara - 30.01.12, 11:55