Архивы 1с - Страница 27 из 33

Добавление записи в регистр сведений

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

Есть такой регистр сведений — Значения свойств обьектов. Спектр его применения — ну например хранения каких-то значений внешних отчетов и обработок. В моем случае, я буду хранить свойстово «1» в том случае если некое действие уже совершено над документом внешней обработкой, т.е. проверка «чтоб не два раза». Вот наглядный кусок кода:

	НаборД=регистрысведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
	// устанавливаем параметры отбора по полному набору Измерений регистра:	
	НаборД.Отбор.Объект.Установить(СсылкаНаОбъект);
	// Создаем новую строку в этом наборе записей:
	СтрокаДанных = НаборД.Добавить();

	// определяем значения Измерений этой строки:
	СтрокаДанных.Объект=СсылкаНаОбъект;
	СтрокаДанных.Свойство=ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду("алк00000011");

	// определяем значения Ресурсов
	СтрокаДанных.Значение = "1";
	НаборД.Записать();

НаборД=регистрысведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();

// устанавливаем параметры отбора по полному набору Измерений регистра:

НаборД.Отбор.Объект.Установить(СсылкаНаОбъект);

// Создаем новую строку в этом наборе записей:

СтрокаДанных = НаборД.Добавить();

// определяем значения Измерений этой строки:

СтрокаДанных.Объект=СсылкаНаОбъект;

СтрокаДанных.Свойство=ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду("алк00000011");

// определяем значения Ресурсов

СтрокаДанных.Значение = "1";

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

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

Добавление записи в регистр накопления

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

Захотелось мне добавить записи в регистр накопления из обработки, т.е. не из документа-регистратора. Вот пример как это у меня получилось:

Запрос = Новый Запрос;
 Запрос.Текст = 
"ВЫБРАТЬ
| ПередачаМатериаловВЭксплуатациюМатериалы.ФизЛицо,
| ПередачаМатериаловВЭксплуатациюМатериалы.Количество,
| ПередачаМатериаловВЭксплуатациюМатериалы.Номенклатура,
| ПередачаМатериаловВЭксплуатациюМатериалы.СерияНоменклатуры,
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Ссылка КАК док,
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Дата
|ИЗ
| Документ.ПередачаМатериаловВЭксплуатацию.Материалы КАК ПередачаМатериаловВЭксплуатациюМатериалы
|ГДЕ
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Проведен = ИСТИНА";

 //Запрос.УстановитьПараметр("Дата1", НачалоГода(текущаядата()));
 //Запрос.УстановитьПараметр("Дата2", КонецМесяца(текущаядата()));
 
 Результат = Запрос.Выполнить().Выбрать(); 
 //РегистрыНакопления.ГрРасчетПотребностей.Записывать = Истина;
 
 //РегистрыНакопления.ГрРасчетПотребностей.Очистить();
 
 пока Результат.Следующий() цикл
 
 
 Набор = РегистрыНакопления.ГрВыданнаяСпецодежда.СоздатьНаборЗаписей();
 Набор.Отбор.Регистратор.Установить(Результат.Док);
 НоваяЗапись = Набор.ДобавитьПриход();
 НоваяЗапись.Номенклатура = Результат.Номенклатура;
 НоваяЗапись.ДатаВыдачи = Результат.Дата;
 НоваяЗапись.Период = Результат.Дата;
 НоваяЗапись.Количество = Результат.Количество;
 НоваяЗапись.Серия = Результат.СерияНоменклатуры;
 НоваяЗапись.ФизЛицо = Результат.ФизЛицо;
 
 Набор.Записать();
конеццикла;

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

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

"ВЫБРАТЬ

| ПередачаМатериаловВЭксплуатациюМатериалы.ФизЛицо,

| ПередачаМатериаловВЭксплуатациюМатериалы.Количество,

| ПередачаМатериаловВЭксплуатациюМатериалы.Номенклатура,

| ПередачаМатериаловВЭксплуатациюМатериалы.СерияНоменклатуры,

| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Ссылка КАК док,

| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Дата

|ИЗ

| Документ.ПередачаМатериаловВЭксплуатацию.Материалы КАК ПередачаМатериаловВЭксплуатациюМатериалы

|ГДЕ

| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Проведен = ИСТИНА";

//Запрос.УстановитьПараметр("Дата1", НачалоГода(текущаядата()));

//Запрос.УстановитьПараметр("Дата2", КонецМесяца(текущаядата()));

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

//РегистрыНакопления.ГрРасчетПотребностей.Записывать = Истина;

//РегистрыНакопления.ГрРасчетПотребностей.Очистить();

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

Набор = РегистрыНакопления.ГрВыданнаяСпецодежда.СоздатьНаборЗаписей();

Набор.Отбор.Регистратор.Установить(Результат.Док);

НоваяЗапись = Набор.ДобавитьПриход();

НоваяЗапись.Номенклатура = Результат.Номенклатура;

НоваяЗапись.ДатаВыдачи = Результат.Дата;

НоваяЗапись.Период = Результат.Дата;

НоваяЗапись.Количество = Результат.Количество;

НоваяЗапись.Серия = Результат.СерияНоменклатуры;

НоваяЗапись.ФизЛицо = Результат.ФизЛицо;

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

конеццикла;

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

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

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

« 1 … 25 26 27 28 29 … 33 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		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