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

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

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. Производство и отгрузка по видам продукции»

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

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

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

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

« 1 … 25 26 27 28 29 … 32 »

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