Добавление колонки адрес в справочник Контрагенты!
16.05.2013
11:44
#1
"Проблема при выводе колонки и данных.
БП 8.2 справочник контрагенты На форму "ФормаСписка" Добавил колонку Юр.Адрес
настройки:данные "Пусто", Элемент управления "Поле ввода", вроде все
далее настройка строки, там тип строка 100
Далее я добавил в модуль этой формы обработчик ну собственно вот этот код:
Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок)
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
Для каждого ОформлениеСтроки из ОформленияСтрок Цикл
НаборЗаписей.Очистить();
УправлениеКонтактнойИнформацией.ПрочитатьКонтактнуюИнформацию(НаборЗаписей, ОформлениеСтроки.ДанныеСтроки.Ссылка);
Для Каждого Запись Из НаборЗаписей Цикл
Если Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
Если Запись.Вид.Наименование = "Юридический адрес" Тогда
ОформлениеСтроки.Ячейки.ЮрАдрес.Значение = Запись.Представление;
ИначеЕсли Запись.Вид.Наименование = "Фактический адрес" Тогда
ОформлениеСтроки.Ячейки.ФактАдрес.Значение = Запись.Представление;
КонецЕсли;
ИначеЕсли Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
ОформлениеСтроки.Ячейки.Телефон.Значение = Запись.Представление;
КонецЕсли;
КонецЦикла
КонецЦикла;
КонецПроцедуры
Вопрос что я сделал не так? Нужно чтобы выводил Юр. Адрес в эту колонку. Уже много всего перепробывал много тем посмотрел и никак понять не могу....Подскажите плиз кому не сложно. Заранее благодарен!!!"
БП 8.2 справочник контрагенты На форму "ФормаСписка" Добавил колонку Юр.Адрес
настройки:данные "Пусто", Элемент управления "Поле ввода", вроде все
далее настройка строки, там тип строка 100
Далее я добавил в модуль этой формы обработчик ну собственно вот этот код:
Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок)
НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
Для каждого ОформлениеСтроки из ОформленияСтрок Цикл
НаборЗаписей.Очистить();
УправлениеКонтактнойИнформацией.ПрочитатьКонтактнуюИнформацию(НаборЗаписей, ОформлениеСтроки.ДанныеСтроки.Ссылка);
Для Каждого Запись Из НаборЗаписей Цикл
Если Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда
Если Запись.Вид.Наименование = "Юридический адрес" Тогда
ОформлениеСтроки.Ячейки.ЮрАдрес.Значение = Запись.Представление;
ИначеЕсли Запись.Вид.Наименование = "Фактический адрес" Тогда
ОформлениеСтроки.Ячейки.ФактАдрес.Значение = Запись.Представление;
КонецЕсли;
ИначеЕсли Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
ОформлениеСтроки.Ячейки.Телефон.Значение = Запись.Представление;
КонецЕсли;
КонецЦикла
КонецЦикла;
КонецПроцедуры
Вопрос что я сделал не так? Нужно чтобы выводил Юр. Адрес в эту колонку. Уже много всего перепробывал много тем посмотрел и никак понять не могу....Подскажите плиз кому не сложно. Заранее благодарен!!!"
16.05.2013
12:04
#2
1. зачем очищаете набор?
2. получив заполненный набор из ОМ доставайте из него данные юрЛица по виду юрАдреса и выводите представление
2. получив заполненный набор из ОМ доставайте из него данные юрЛица по виду юрАдреса и выводите представление
16.05.2013
12:32
#3
что то не очень понятно, извините не могли бы по подробней сказать, а то мучаюсь незнамо сколько, можете на примере моего кода что убрать а что добавить? и вопрос то есть кроме изменения кода я все правильно сделал? код должен быть именно в этой форме? а не в модуле справочника контрагенты?
16.05.2013
13:07
#4
Функция СведенияОЮрФизЛице в модуле УправлениеКонтактнойИнформацией не подойдет?
// Функция формирует сведения об указанном ЮрФизЛице. К сведениям относятся -// наименование, адрес, номер телефона, банковские реквизиты.//// Параметры:// ЮрФизЛицо - организация или физическое лицо, о котором собираются сведения.// ДатаПериода - дата, на которую выбираются сведения о ЮрФизЛице.// ДляФизЛицаТолькоИнициалы - Для физ. лица выводить только инициалы имени и отчества.//// Возвращаемое значение:// Сведения - собранные сведения.//
16.05.2013
13:33
#6
"создал запрос для примера телефона но и он тоже не пашет
Подскажите что не так то делаю??
Процедура СписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Контрагент = Справочники.Контрагенты.НайтиПоКоду(ДанныеСтроки.Код).Ссылка;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ФизЛицо", Контрагент);
Запрос.УстановитьПараметр("ТипКИ", Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("ВидКИ", Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
Запрос.Текст =
"ВЫБРАТЬ
| КонтактнаяИнформация.Объект,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Объект),
| КонтактнаяИнформация.Тип,
| КонтактнаяИнформация.Вид,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Вид),
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &ФизЛицо
| И КонтактнаяИнформация.Тип = &ТипКИ
| И КонтактнаяИнформация.Вид = &ВидКИ";
ТелефонКонтрагента = Запрос.Выполнить().Выгрузить();
Для каждого Строка из ТелефонКонтрагента Цикл
Телефон = Строка.Представление;
КонецЦикла;
ОформлениеСтроки.Ячейки.Телефон.УстановитьТекст(Телефон);
КонецПроцедуры"
Подскажите что не так то делаю??
Процедура СписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Контрагент = Справочники.Контрагенты.НайтиПоКоду(ДанныеСтроки.Код).Ссылка;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ФизЛицо", Контрагент);
Запрос.УстановитьПараметр("ТипКИ", Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("ВидКИ", Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
Запрос.Текст =
"ВЫБРАТЬ
| КонтактнаяИнформация.Объект,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Объект),
| КонтактнаяИнформация.Тип,
| КонтактнаяИнформация.Вид,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Вид),
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &ФизЛицо
| И КонтактнаяИнформация.Тип = &ТипКИ
| И КонтактнаяИнформация.Вид = &ВидКИ";
ТелефонКонтрагента = Запрос.Выполнить().Выгрузить();
Для каждого Строка из ТелефонКонтрагента Цикл
Телефон = Строка.Представление;
КонецЦикла;
ОформлениеСтроки.Ячейки.Телефон.УстановитьТекст(Телефон);
КонецПроцедуры"
16.05.2013
14:01
#7
"> ОформлениеСтроки.Ячейки.ЮрАдрес.Значение = Запись.Представление;
ОформлениеСтроки.Ячейки.ЮрАдрес.УстановитьТекст(Запись.Представление);
P.S. См. на ИТС "Система стандартов и методик разработки...""
ОформлениеСтроки.Ячейки.ЮрАдрес.УстановитьТекст(Запись.Представление);
P.S. См. на ИТС "Система стандартов и методик разработки...""
16.05.2013
14:28
#10
> опишет ещё раз задачу и что нужно сделать
нужно чтобы в контрагентах была добавочная колонка где будет выводиться Юр Адрес контрагента
Вот для пробы был сделан запрос на вывод хотябы телефона! и крах, ничего не выводиться. Также код был написал и также ничего!
Все коды представлены выше!
нужно чтобы в контрагентах была добавочная колонка где будет выводиться Юр Адрес контрагента
Вот для пробы был сделан запрос на вывод хотябы телефона! и крах, ничего не выводиться. Также код был написал и также ничего!
Все коды представлены выше!
Обработка для печати упрощенной накладной (не бесплатно:-)) для 1С77Нестандартное поведение при построении отчета БУХГАЛТЕРСКИЙ БАЛАНС
Читают тему
(гостей: 1)