Архивы Павел - Страница 231 из 283

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

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

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

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

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

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

"ВЫБРАТЬ

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

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

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

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

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

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

|ИЗ

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

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

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

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

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

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

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

| (ВЫБРАТЬ

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

| ИЗ

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

| ГДЕ

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

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

|ГДЕ

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

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

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

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

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

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

конеццикла;

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

Пьянству на детских площадках — бой

18.06.2013 Павел Грибов Из жизни

Вчера пришлось вызвать полицию на ул. Ленинградскую75б, т.к. прямо на детской площадке расположилась бомжеватого вида группа людей в количестве 3-х мужчин и одной женщины и начали распивать в пластиковых стаканчиках вино.

Позвонил 112, обещали приехать. Уж не знаю приехали или нет, не стал дожидаться, ушел на другую площадку.

Оставить комментарий детская площадка, пьянство

Переполнение длинны строки в запросе 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с, регламентные задания

Эх дороги..

16.06.2013 Павел Грибов Из жизни

Ездил в субботу в Ярославский зоопарк.Вывозил семейство на так сказать прогулку. Что сказать? Здорово там. С погодой повезло, солнышко. Медведь, страусы, зебры позировали хорошо. Остальные немножко ленились ибо жарко.

Из примечательного в дороге, в очередной раз отметил что на дорогах практически нет гаишников, а потому водители все поголовно едут и нарушают. Как скоростной режим, так и разметку. Однако несмотря на это ни одной аварии я в ярославской области не увидел. Напротив, не смотря на обилие машин ГИБДД в Вологодской области, три машины в кювете увидел именно в ней.