Процедура Печать() ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если ПечСертификат=1 Тогда ПечатьСертификата(ТМЦ); КонецЕсли; КонецЦикла; КонецПроцедуры
В справочнике ТМЦ прийдется хранить путь к картинке сертификата
Разрешение картинки может быть и другим, у меня были такие. В таблице, которую выводим на печать рисуем картинку и в "Свойства-Текст" пишем - ВывестиКартинку(Таб.ТекущийОбъект)
Все вроди как у вас красиво и правильно написано, но вот как я не пытался собрать все до кучи ничего не получалось. максимум могу из справочника создать пустую таблицу. а чтоб вывести секцию сертификаты в таблице, необходимо ее сперва создать, а в справочнике я так понимаю можно работать с таблицами только кодом. но создать секцию и еще впихнуть туда фотку никак не могу. максимум чистую таблицу показать могу (((. весь код для анализа приведен ниже. если у есть мысли по етому поводу буду рад обсудить. реально уже замучался с ними.
Процедура ПриОткрытии()
// попытаемся установить фото КаталогФотографий = КаталогИБ() + "\Photo\"; ФайлФото = КаталогФотографий + "ph" + СокрЛП(Строка(ПолнНаименование))+".*"; Если ФС.СуществуетФайл(ФайлФото) = 1 Тогда Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото)); КонецЕсли; КонецПроцедуры
Процедура СменитьФото() // загружаем или меняем фото елемента
Перем Файл, Каталог; Каталог = КаталогИБ() + "image"; Если ФС.СуществуетФайл(Каталог) = 0 Тогда ФС.СоздатьКаталог(Каталог); КонецЕсли; Файл = ""; Если ФС.ВыбратьФайлКартинки(0,Файл,Каталог,"Выберите сертификат") = 1 Тогда Если ФС.СуществуетФайл(КаталогФотографий) = 0 Тогда ФС.СоздатьКаталог(КаталогФотографий); КонецЕсли; ФС.УдалитьФайл(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото)); ФайлФото = КаталогФотографий+"ph"+СокрЛП(Строка(ПолнНаименование))+"."+Прав(Файл,3); ФС.КопироватьФайл(Каталог+Файл,ФайлФото,0); Фото.Загрузить(ФайлФото); КонецЕсли; КонецПроцедуры
неужели ни у кого нет никаких мыслей ? или что то не понятно написал? мысль короче: в процедуру "ПечатьСертификата" необходимо вставить создание секции в таблице, а в секцию вставить картинку.
Все вроди как у вас красиво и правильно написано, но вот как я не пытался собрать все до кучи ничего не получалось. максимум могу из справочника создать пустую таблицу. а чтоб вывести секцию сертификаты в таблице, необходимо ее сперва создать, а в справочнике я так понимаю можно работать с таблицами только кодом. но создать секцию и еще впихнуть туда фотку никак не могу. максимум чистую таблицу показать могу (((. весь код для анализа приведен ниже. если у есть мысли по етому поводу буду рад обсудить. реально уже замучался с ними.
Создайте в форме элемента справочника таблицу (правой кнопкой мыши рядом с закладками"диалог,модуль" - добавитьТаблицу). Назовите ее "Сертификат". В ней создайте секцию и в этой секции добавте картинку, в свойтвах на закладке текст напишите как говорилось Выше. Эта таблица ни чем не отличается от любой другой
После не долгих дискуссий было решено делать выборку тмц для печати в обработке через поле со списком. но вот не задача, как всегда что-то работает не так как надо. функция " Таб.НоваяСтраница();" бокопорит все. при печати после каждого сертификата выдает еще пустую страницу. а если без нее, то картинки налазят на страницы и выправить ето невозможно в ручную. так что нужно оставить ету функцию и добиться того чтоб она не выводила еще одну пустую страницу, а просто создавала страницу для вывода новой картинки.
КОД ОБРАБОТКИ
Перем ВыбТМЦ;
//******************************************* Процедура ПриОткрытии() Если ПустоеЗначение(Форма.Параметр)=1 Тогда Сообщить ("Печать возможна только с документа _ расходная накладная"); СтатусВозврата(0); Возврат; КонецЕсли; ДатаСертификата=РабочаяДата(); СписокТМЦ.УдалитьВсе(); тбТМЦ = СоздатьОбъект("ТаблицаЗначений"); Форма.Параметр.Выгрузить(тбТМЦ); тбТМЦ.ВыбратьСтроки(); Пока тбТМЦ.ПолучитьСтроку()=1 Цикл СписокТМЦ.ДобавитьЗначение(тбТМЦ.ТМЦ); КонецЦикла;
Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сертификаты"); Для Инд=1 по СписокТМЦ.РазмерСписка() Цикл Если СписокТМЦ.Пометка(Инд)=0 Тогда Продолжить; КонецЕсли; ВыбТМЦ= СписокТМЦ.ПолучитьЗначение(Инд); Таб.ВывестиСекцию("Сертификаты"); Таб.НоваяСтраница(); КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать(); КонецПроцедуры
Ну, тут я даже не знаю чем помочь. Таблица Сертификата помещается на одной странице - нижнее или правое поле не выходит за границу ? Можно поэксперементировать с ПараметрамиПечати() вручную задав масштаб и поля. Увидеть бы как оно без НоваяСтраница() выглядит.
Ну, тут я даже не знаю чем помочь. Таблица Сертификата помещается на одной странице - нижнее или правое поле не выходит за границу ? Можно поэксперементировать с ПараметрамиПечати() вручную задав масштаб и поля. Увидеть бы как оно без НоваяСтраница() выглядит.
Без новая страница секции сбиваются одна к одной, и никакие поля не помогают
я так понимаю что проще скинуть md файл чем что-то выцарапывать. все равно не будет понятно без мд. кинуть md ?
Можно и md. А можно Выделить все в Таблице, создать ноую внешнюю, туда все скопировать и отправить. Ну ладно, давайте md, а то при копировании может потеряться оригинальность..
Можно и md. А можно Выделить все в Таблице, создать ноую внешнюю, туда все скопировать и отправить. Ну ладно, давайте md, а то при копировании может потеряться оригинальность..
кину минут через 5-10 бо появились новые требования и я там уже немного наизменял, нужно вернуть старфй вариант чтоб все работало.
пока чистил чтоб вам отправить все подправил и не выводит пустую страницу)))) но я все равно отправил. теперь буду думать как дальше делать. в том варианте что я отправил печатает все нормально, но по дополнению к тех заданию необходимо теперь чтоб у одного ТМЦ была возможность хъранить несколько сертификатов. так как товар может быть один и тот же но от разных поставщиков, соответственно и сертификаты разные. и еще одна загвоздочка, при сохранении новой картинки периодический реквизит сертификат сохраняется на конец дня, и необходимо в ручную менять время сохранения.
пока чистил чтоб вам отправить все подправил и не выводит пустую страницу)))) но я все равно отправил. теперь буду думать как дальше делать. в том варианте что я отправил печатает все нормально, но по дополнению к тех заданию необходимо теперь чтоб у одного ТМЦ была возможность хъранить несколько сертификатов. так как товар может быть один и тот же но от разных поставщиков, соответственно и сертификаты разные. и еще одна загвоздочка, при сохранении новой картинки периодический реквизит сертификат сохраняется на конец дня, и необходимо в ручную менять время сохранения.
Подкорректировали размер картинки, чтоб влазила на одну страницу. Периодический реквизит в семерке может быть только один в один день (вроде, там ведь только Дата и значение) . Если надо хранить для одного ТМЦ несколько путей к картинкам, то наверное придется делать подчиненный справочник этому ТМЦ с полем строка Сертификат. Таким образом их будет сколько угодно.
Подкорректировали размер картинки, чтоб влазила на одну страницу. Периодический реквизит в семерке может быть только один в один день (вроде, там ведь только Дата и значение) . Если надо хранить для одного ТМЦ несколько путей к картинкам, то наверное придется делать подчиненный справочник этому ТМЦ с полем строка Сертификат. Таким образом их будет сколько угодно.
периодический все уже нормально, ето видать в процесе у меня гдето что-то было не доделано. а по поводу подчиненного щас как раз и занимаюсь, небольшая путаница выходит. прийдется теперь загружать картинку не в спр.тмц а в справочнике сертификаты и передавать ее в тмц. шаманю, но отвлекают много, иногда пока отвлечешся, то уже забыл что делал )).
kalyamov! вы не смотрели md? интерестно знать взгляд со стороны, как все вышло на данный момент.
Я смотрел только таблицу в справочнике ТМЦ. А что именно надо посмотреть ? Вроде все нормально, можно было вместо обработки все в модуле расходной писать, но с обработкой можно будет печатать выбранные позиции. Я не сразу понял, почему сертификат переодический - но Вы объяснили, что их может быть несколько. Может стоит это как то привязать к приходным накладным ?
Здравствуйте. У меня точно такая же проблема. Не могу в документе реализация в ТИС 9.2 распечатать от сканированные сертификаты. Читал внимательно эту ветку, но так и не получилось по данным пример вывести на печать. Если можно более подробно рассказать об этом.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
печать сертификатов при печати расходной накладной 
19.08.11, 9:49
