Архивы 1C - Страница 39 из 46

Получение контактной информации о контрагенте.

18.06.2013 Павел Грибов 1C

Может быть есть в конфигурации и стандартная процедура получения контактной информации, однако мне показалось легче написать запрос чем найти. По желанию сиё можно обернуть в функцию.

Запрос = Новый Запрос;
 Запрос.Текст = 
"ВЫБРАТЬ
| Контрагенты.Наименование,
| Контрагенты.ИНН,
| Юр.ЮридическийАдрес,
| Факт.ФактическийАдрес,
| Тел.Телефон,
| Контрагенты.НаименованиеПолное
|ИЗ
| Справочник.Контрагенты КАК Контрагенты,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК ЮридическийАдрес
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ГДЕ
| КонтактнаяИнформация.Вид.Наименование = ""Юридический адрес контрагента""
| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Юр,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК ФактическийАдрес
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ГДЕ
| КонтактнаяИнформация.Вид.Наименование = ""Фактический адрес контрагента""
| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Факт,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Телефон
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ГДЕ
| КонтактнаяИнформация.Вид.Наименование = ""Телефон контрагента""
| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Тел
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка",ВыбДокумент.Грузополучатель);
 
 Результат = Запрос.Выполнить().Выбрать();
 ГрузополучательПредставление="";
 пока Результат.Следующий() цикл
 ГрузополучательПредставление=ГрузополучательПредставление+Результат.НаименованиеПолное+",ИНН "+Результат.ИНН+","+Результат.ЮридическийАдрес+","+Результат.ФактическийАдрес+","+Результат.Телефон;
 конеццикла;

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

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

"ВЫБРАТЬ

| Контрагенты.Наименование,

| Контрагенты.ИНН,

| Юр.ЮридическийАдрес,

| Факт.ФактическийАдрес,

| Тел.Телефон,

| Контрагенты.НаименованиеПолное

|ИЗ

| Справочник.Контрагенты КАК Контрагенты,

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

| КонтактнаяИнформация.Вид.Наименование = ""Юридический адрес контрагента""

| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Юр,

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

| КонтактнаяИнформация.Вид.Наименование = ""Фактический адрес контрагента""

| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Факт,

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

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

| И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Тел

|ГДЕ

| Контрагенты.Ссылка = &Ссылка";

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

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

ГрузополучательПредставление="";

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

ГрузополучательПредставление=ГрузополучательПредставление+Результат.НаименованиеПолное+",ИНН "+Результат.ИНН+","+Результат.ЮридическийАдрес+","+Результат.ФактическийАдрес+","+Результат.Телефон;

конеццикла;

Оставить комментарий 1с, контактная информация

Переполнение длинны строки в запросе 1С

18.06.2013 Павел Грибов 1C

В одном из запросов участвовала строка вида КонтактнаяИнформация.Поле1 + «,» + КонтактнаяИнформация.Поле2 + » » + КонтактнаяИнформация.Поле3 + …….

Долго ломал голову, почему же результат запроса не выводится на экран, в табличном поле. Оказывается все просто — переполняется допустимая длинна текстового поля результата запроса. Достаточно было выражение обернуть в:

ВЫРАЗИТЬ(КонтактнаяИнформация.Поле1 + "," + КонтактнаяИнформация.Поле2 + " " + КонтактнаяИнформация.Поле3 + "," + КонтактнаяИнформация.Поле4 + " " + КонтактнаяИнформация.Поле5 + "," + КонтактнаяИнформация.Поле6 + " " + КонтактнаяИнформация.Поле7 + " " + КонтактнаяИнформация.Поле8 КАК СТРОКА(100))

1	ВЫРАЗИТЬ(КонтактнаяИнформация.Поле1 + "," + КонтактнаяИнформация.Поле2 + " " + КонтактнаяИнформация.Поле3 + "," + КонтактнаяИнформация.Поле4 + " " + КонтактнаяИнформация.Поле5 + "," + КонтактнаяИнформация.Поле6 + " " + КонтактнаяИнформация.Поле7 + " " + КонтактнаяИнформация.Поле8 КАК СТРОКА(100))

и все чудесным образом заработало.

Оставить комментарий 1с, переполнение результата запроса

Перестали выполнятся фоновые задания в 1С

17.06.2013 Павел Грибов 1C

Сегодня заметил, что все выходные не выполнялись фоновые регламентные задания у 1С. Гугл ответил, что такое происходит, если агент сервера MSSQL запускается раньше службы 1С предприятия. Помог перезапуск службы 1с.

2 комментария 1с, регламентные задания

Работа с базами и выполнение запросов MSSQL на прямую, посредством встроенного языка 1С

16.04.2013 Павел Грибов 1C

Задача: выгрузить в удаленную базу MSSQL некие данные с произвольной структурой.

Решение: 1С умеет работать с COM соединениями. Их и используем.

Сначала напишем процедуру отвечающую за подключение к MSSQL, и выдающее на выходе ссылку на полученное соединение: » Читать далее

Один комментарий 1c, работа из 1с с MSSQL

Отчет по статистике «Раздел 1. Производство и отгрузка по видам продукции»

01.04.2013 Павел Грибов 1C

Формируется на основании документов «Реализация товаров и услуг», «Отчет производства за смену» и регистров «Остатки и обороты товаров на складах». Применимо к УПП 8.2 конфигурации «КТ-Алкоголь»

Скачать можно здесь

Оставить комментарий 1с, отгрузка, по видам, производство, статистика

« 1 … 37 38 39 40 41 … 46 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31