Имя: Пароль:
1C
1С v8
вытянуть дополнительный адрес контрагента в печатную форму( помогите)
0 demous
 
31.05.12
14:14
упп 8.2
вообщем добавляем в контрагента помимо юридического и фактического адреса, еще один Местонахождение... подскажите как мне его вытащить вот в этот эллемент? заранее спасибо
Область.Параметры.НаименованиеПокупателя     = Контрагент.НаименованиеПолное;;
           Область.Параметры.ЮридическийАдресПокупателя = СведенияОПокупателе.ЮридическийАдрес;;
           Область.Параметры.ФактическийАдресПокупателя = СведенияОПокупателе.ФактическийАдрес;;
           Область.Параметры.Местонахождение            = .Местонахождение;;
1 PuhUfa
 
31.05.12
14:16
Посмотреть общий модуль который создает СведенияОПокупателе и поправить там или сделать свое по аналогии
2 hhhh
 
31.05.12
14:17
(0)     Область.Параметры.Местонахождение            = СведенияОПокупателе.Местонахождение;;

а в СведенияОПокупателе добавить поле Местонахождение, то есть скопипастить с юридического адреса.
3 demous
 
31.05.12
14:19
Если Не Контрагент.Пустая() Тогда
           
           СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Контрагент, Дата);
           
           // Получаем лицензию контрагента
           ТекстЗапроса =
           "ВЫБРАТЬ
           |    К_ЛицензииКонтрагентовСрезПоследних.Серия,
           |    К_ЛицензииКонтрагентовСрезПоследних.Номер,
           |    К_ЛицензииКонтрагентовСрезПоследних.НачалоДействия,
           |    К_ЛицензииКонтрагентовСрезПоследних.КонецДействия,
           |    К_ЛицензииКонтрагентовСрезПоследних.ОрганВыдавший
           |ИЗ
           |    РегистрСведений.К_ЛицензииКонтрагентов.СрезПоследних(
           |        &Дата,
           |        Контрагент = &Контрагент
           |            И Номенклатура = &Номенклатура) КАК К_ЛицензииКонтрагентовСрезПоследних"
           ;
           Запрос = Новый Запрос(ТекстЗапроса);
           Запрос.УстановитьПараметр("Дата"        , Дата);
           Запрос.УстановитьПараметр("Контрагент" , Контрагент);
           Запрос.УстановитьПараметр("Номенклатура", СтрокаДок.Номенклатура.К_КодПродукции);
           РезультатЗапроса = Запрос.Выполнить();
           
           Область.Параметры.НаименованиеПокупателя     = Контрагент.НаименованиеПолное;;
           Область.Параметры.ЮридическийАдресПокупателя = СведенияОПокупателе.ЮридическийАдрес;;
           Область.Параметры.ФактическийАдресПокупателя = СведенияОПокупателе.ФактическийАдрес;;
           Область.Параметры.Местонахождение            = .Местонахождение;;


(2) так не работает, выдает ошибку что не найдено поле
4 demous
 
31.05.12
14:23
док РеализицияТоваровУслуг - процедура ПечатьРазделБ
5 PuhUfa
 
31.05.12
14:23
Смотри общие модули УправлениеКонтактнойИнформацией в нем СведенияОЮрФизЛице. Дальше или правь в нем что бы выдергивало еще и твое Местонахождение или по аналогии выдергивай по месту
6 philll
 
31.05.12
14:32
Область.Параметры.Местонахождение    = контрагент.Местонахождение;

пробовал?
7 philll
 
31.05.12
14:33
ну раз в "контрагента" добавил,  и вот это

Область.Параметры.НаименованиеПокупателя     = Контрагент.НаименованиеПолное;;

работает,

то Местонахождение почему бы нет?
8 demous
 
31.05.12
14:37
(6)(7) добавил не как реквизит, а именно в адресе забили, не юр или факт, а местонахождение ( видконтактнойинформации)
9 demous
 
31.05.12
14:56
ИмяСправочника = "Контрагенты";
       
       ТекстКонтактнаяИнформацияАдреса = "
       |    , МАКСИМУМ (ВЫБОР КОГДА КонтактнаяИнформация.Вид = &ВидЮридическийАдрес ТОГДА ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК Строка(1000))
       |          ИНАЧЕ """" КОНЕЦ) КАК ЮридическийАдрес
       |    , МАКСИМУМ (ВЫБОР КОГДА КонтактнаяИнформация.Вид = &ВидФактическийАдрес ТОГДА ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК Строка(1000))
       |          ИНАЧЕ """" КОНЕЦ) КАК ФактическийАдрес
       // 31.05.2012
       |    , МАКСИМУМ (ВЫБОР КОГДА КонтактнаяИнформация.Вид = &ВидМестонахождение ТОГДА ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК Строка(1000))
       |          ИНАЧЕ """" КОНЕЦ) КАК Местонахождение";
       //
       
       ТекстУсловияОбъектКонтактнойИнформации =
       "КонтактнаяИнформация.Объект = Организации.Ссылка
       |    И КонтактнаяИнформация.Вид В (&ВидЮридическийАдрес, &ВидФактическийАдрес, &ВидТелефона, &ВидМестонахождение)
       |    И КонтактнаяИнформация.Тип В (&ТипАдрес, &ТипТелефон)";
       
       
       Запрос.УстановитьПараметр("ВидТелефона",         Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
       Запрос.УстановитьПараметр("ВидЮридическийАдрес", Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);
       Запрос.УстановитьПараметр("ВидФактическийАдрес", Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);
       // 31.05.2012
       Запрос.УстановитьПараметр("ВидМестонахождение",  Справочники.ВидыКонтактнойИнформации.МестонахождениеКонтрагента);
       //
так верно будет?
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.