контактной » Поиск

Результаты по ключевому слову: контактной

Работа с контактной информацией в типовых конфигурациях

Код 1C v 8.х

 // Исправляем значения Контактной Информации контрагента в Регистре сведений

Функция ОчиститьEmail(

    Контрагент, 

    ТипКонтактнойИнформации,

    ВидКонтактнойИнформации,

    Представление 

    )



    // #1  Создаем набор записей

    НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();



    // #2 Отбираем (по измерениям)

    НаборЗаписей.Отбор.Объект.Установить(Контрагент);

    НаборЗаписей.Отбор.Тип.Установить(ТипКонтактнойИнформации);

    НаборЗаписей.Отбор.Вид.Установить(ВидКонтактнойИнформации);    



    // #3 Читаем набор записей

    НаборЗаписей.Прочитать();



    // #4 редактируем в цикле каждую запись из набора

    Для каждого СтрНабЗап Из НаборЗаписей Цикл



        СтрНабЗап.Представление    = ""; 



        сообщить("" + Контрагент + " | " 

        + ТипКонтактнойИнформации + " | " 

        + ВидКонтактнойИнформации + " | " 

        + Представление + " -> " + СтрНабЗап.Представление + " [Ok!]");



    КонецЦикла;



    // #5 Сохраняем набор записей

    НаборЗаписей.Записать();    



КонецФункции



// Получить таблицу значений

// Записи из Регистра Сведений КонтактнаяИнформация с некорректными Email

функция ПолучитьТЗ()        



    Запрос = Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1000000

    |    КонтактнаяИнформация.Объект,

    |    КонтактнаяИнформация.Тип,

    |    КонтактнаяИнформация.Вид,

    |    КонтактнаяИнформация.Представление,

    |    (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) как стрПредставление

    |ИЗ

    |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

    |ГДЕ

    |    КонтактнаяИнформация.Тип = &Тип

    |    //И КонтактнаяИнформация.Вид = &Вид    

    |    И (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) <> &ПустоеЗначение        

    |    И НЕ КонтактнаяИнформация.Представление ПОДОБНО &ШаблонEmail";



    //Параметры запроса:    



    // Типы контактной информации

    Запрос.УстановитьПараметр("Тип",Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);



    // пустая строка

    Запрос.УстановитьПараметр("ПустоеЗначение","");// Строка



    // критерий отбора для примера простой - строка содержит символ "@" - значит это почта

    Запрос.УстановитьПараметр("ШаблонEmail","%@%");// Строка

    Результат = Запрос.Выполнить();    



    //Выборка = Результат.Выбрать();



    // результат запроса выгрузить в

    // таблицу значений 

    ПлохиеEmailТЗ   = Результат.Выгрузить();



    Возврат ПлохиеEmailТЗ;

КонецФункции

Категория: 1С Общие вопросы - Обычные формы

Вывод несколько раз макета ActiveDocument в один документ Word

Текст кода для вывода шаблона несколько раз в один документ Ворд.
Случилось, что понадобилось вывести шаблон справки к продукции для каждой строки ТЧ товары документа. Создаем макет печ. формы с типом ActiveDocument и загружаем туда наш шаблон. Далее все стандартно по созданию внешней печ. формы + код ниже

Код 1C v 8.х

  ТабДокумент  = Новый ТабличныйДокумент;

    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Справка";



    АктивныйДокумент = ПолучитьМакет("Макет");

    КомОбъект = АктивныйДокумент.Получить();



    Попытка



        Word = КомОбъект.Application;

        Док=Word.Documents(1);

        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        Док.GrammarChecked=0;

        Док.ShowGrammaticalErrors=0;



        Док.Activate();

        Файл = КаталогВременныхФайлов() + "файл" + Выборка.Номер + ".doc";

        Word.S_election.WholeStory();

        Word.S_election.Copy();



        Счетчик = 1;

        Для каждого Строка Из СсылкаНаОбъект.Товары Цикл



            Замена = Док.Content.Find;

            НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);

            Замена.Execute("[Номер]",  Ложь, Истина, Ложь, , , Истина, , Ложь, НомерДокумента);

            Замена = Док.Content.Find;

            Замена.Execute("[Дата]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Формат(Выборка.Дата, "ДЛФ = ДДММГГ"));

            Замена = Док.Content.Find;

            Замена.Execute("[Наименование]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Номенклатура));

            Замена = Док.Content.Find;

            Замена.Execute("[Количество]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Количество));

            Замена = Док.Content.Find;

            Замена.Execute("[Декларация]", Ложь, Истина, Ложь, , , Истина, , Ложь, РегНомерДекларации);

            Замена = Док.Content.Find;

            СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата,,);

            ФактАдрес = ФормированиеПечатныхФормСервер.ОписаниеОрганизации(СведенияОПоставщике, "ФактическийАдрес");

            Производитель = Выборка.ОрганизацияНаименованиеСокращенное + ", " + Выборка.ФактАдресОрганизации;

            Замена.Execute("[Производитель]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Производитель);



            Word.S_election.EndKey(6);



            Если Счетчик < СсылкаНаОбъект.Товары.Количество() тогда

                Word.S_election.I_nsertBreak(7);

                Word.S_election.Paste();

            КонецЕсли;

            Счетчик = Счетчик + 1;

        КонецЦикла;



        Док.SaveAs(Файл);

        Док.Close(0);



        ЗапуститьПриложение("""" + Файл + """");



    Исключение

        Сообщить(ОписаниеОшибки());

        Word.Quit();

    КонецПопытки;

Автор: sanja

Категория: Работа с Microsoft Office и OpenOffice

Программное изменение записей регистра сведений Категория: Регистры сведений

Функция ЗНАЧЕНИЕ

Функция ЗНАЧЕНИЕ - Позволяет использовать прямо в текстах запроса предопределенные в конфигураторе данные. (т.е. позволяет избавиться от необходимости передавать их параметрами к запросу). Использование предопределенных данных конфигурации

Например:
можно было бы написать в запросе:

Код 1C v 8.х

 | ВзаиморасчетыСПокупателямиОстатки.Проект = &ПроектыПустаяСсылка

а потом передать в запрос параметр:

Код 1C v 8.х

 Запрос.УстановитьПараметр("ПроектыПустаяСсылка", Справочник.Проекты.ПустаяСсылка());

А при помощи ЗНАЧЕНИЕ будет так:

Код 1C v 8.х

 | ВзаиморасчетыСПокупателямиОстатки.Проект = ЗНАЧЕНИЕ(Справочник.Проекты.ПустаяСсылка)

Примеры использования:

Код 1C v 8.х

 //ПРИМЕР 1 (Получение паспортный данных сотрудника)

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("Физлицо", Физлицо);

Запрос.Текст =

"ВЫБРАТЬ РАЗРЕШЕННЫЕ

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКодПодразделения,

|             "","" + АдресаФактические.Поле1 + "","" + АдресаФактические.Поле2 + "","" + АдресаФактические.Поле3 + "","" + АдресаФактические.Поле4 + "","" + АдресаФактические.Поле5 + "","" + АдресаФактические.Поле6 + "","" + АдресаФактические.Поле7 + "","" + АдресаФактические.Поле8 + "","" + АдресаФактические.Поле9 КАК АдресФактический,

|             "","" + АдресПрописки.Поле1 + "","" + АдресПрописки.Поле2 + "","" + АдресПрописки.Поле3 + "","" + АдресПрописки.Поле4 + "","" + АдресПрописки.Поле5 + "","" + АдресПрописки.Поле6 + "","" + АдресПрописки.Поле7 + "","" + АдресПрописки.Поле8 + "","" + АдресПрописки.Поле9 КАК АдресПоПрописке,

|             ДомашниеТелефоны.Поле3 КАК ТелефонДомашний

|ИЗ

|             Справочник.ФизическиеЛица КАК ФизическиеЛица

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(, ФизЛицо = &ФизЛицо) КАК ПаспортныеДанныеФизЛицСрезПоследних

|             ПО ФизическиеЛица.Ссылка = ПаспортныеДанныеФизЛицСрезПоследних.ФизЛицо

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ДомашниеТелефоны

|             ПО ФизическиеЛица.Ссылка = ДомашниеТелефоны.Объект

|             И (ДомашниеТелефоны.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛица))

|             И (ДомашниеТелефоны.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон))

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресаФактические

|             ПО ФизическиеЛица.Ссылка = АдресаФактические.Объект

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресПрописки

|             ПО (ФизическиеЛица.Ссылка = АдресаФактические.Объект)

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

|ГДЕ

|             ФизическиеЛица.Ссылка = &Физлицо";

Выборка = Запрос.Выполнить().Выбрать();    

Если Выборка.Следующий() Тогда

    АдресПроживания = Выборка.АдресФактический;

    УдостоверениеЛичности = Строка(Выборка.ДокументВид)+"; "+Выборка.ДокументСерия+"; "+Выборка.ДокументНомер+"; "+Формат(Выборка.ДокументДатаВыдачи,"ДЛФ=D");

    Телефон = Выборка.ТелефонДомашний; 

КонецЕсли;



//ПРИМЕР 2

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

|    ВидыНоменклатуры.Ссылка как ссылка,

|    ВидыНоменклатуры.Порядок

|ИЗ

|    Перечисление.ВидыНоменклатуры КАК ВидыНоменклатуры

|ГДЕ

|    ВидыНоменклатуры.Ссылка = Значение(Перечисление.ВидыНоменклатуры.Услуга) ";



ТЗ = Новый ТаблицаЗначений;

ТЗ = запрос.Выполнить().Выгрузить();

ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;

ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

Категория: Запросы

Получить запросом контактную информацию одной строкой по Физ. лицу

Для тех, кто мучается с получением сведений из регистра сведений КонтактнаяИнформация в стандартных конфигурациях.

Код 1C v 8.х

   //Нужно запросом получить контактные данные(ФИО, Адрес, Телефон) :

// ФизЛицо			Адрес								Телефон

// Иванов Петр Сергеевич	140943, Московская обл, Дзержинский г, Угрешская ул, дом № 3, кв.21

// Иванова Оксана Александровна	119672, Москва г, Краснобогатырская ул, дом № 2, корпус 4, кв.15		(499) 730-18-02

// Петрова Тамара Алексеевна	141257, Московская обл, Долгопрудный г, Молодежная ул, дом № 7, кв.3	

// Сидорова Юлия Васильевна	107126, Москва г, Академика Анохина ул, дом № 12, кв.54			(495) 963-08-01



Запрос=Новый Запрос;

Запрос.Текст="

|ВЫБРАТЬ

|	ВЗАдрес.Ссылка КАК ФизЛицо,

|	ВЗАдрес.Адрес,

|	ВЗТелефон.Телефон

|ИЗ

|	(ВЫБРАТЬ

|		ФизическиеЛица.Ссылка КАК Ссылка,

|		КонтактнаяИнформация.Представление КАК Адрес

|	ИЗ

|		Справочник.ФизическиеЛица КАК ФизическиеЛица

|			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

|			ПО ФизическиеЛица.Ссылка = КонтактнаяИнформация.Объект

|	ГДЕ

|		КонтактнаяИнформация.Вид = &АдрПоПрописке

|		И КонтактнаяИнформация.Тип = &Адрес) КАК ВЗАдрес

|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

|			ФизическиеЛица.Ссылка КАК Ссылка,

|			КонтактнаяИнформация.Представление КАК Телефон

|		ИЗ

|			Справочник.ФизическиеЛица КАК ФизическиеЛица

|				ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

|				ПО ФизическиеЛица.Ссылка = КонтактнаяИнформация.Объект

|		ГДЕ

|			КонтактнаяИнформация.Вид = &ВидТелеф

|			И КонтактнаяИнформация.Тип = &Телефон) КАК ВЗТелефон

|		ПО ВЗАдрес.Ссылка = ВЗТелефон.Ссылка

|

|УПОРЯДОЧИТЬ ПО

|	ФизЛицо

|АВТОУПОРЯДОЧИВАНИЕ

|";

Запрос.УстановитьПараметр("Адрес",Перечисления.ТипыКонтактнойИнформации.Адрес);

Запрос.УстановитьПараметр("АдрПоПрописке",Справочники.ВидыКонтактнойИнформации.ЮрАдресФизЛица);

Запрос.УстановитьПараметр("ВидТелеф",Справочники.ВидыКонтактнойИнформации.ТелефонФизЛица);

Запрос.УстановитьПараметр("Телефон",Перечисления.ТипыКонтактнойИнформации.Телефон);

Результат = Запрос.Выполнить();

Результат = Результат.Выбрать();

Пока Результат.Следующий() Цикл

	// обработка

КонецЦикла;

Категория: Запросы