Архивы 1C - Страница 34 из 41

Программный вызов формы выбора из списка с фильтром по дате.

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

Иногда бывает необходимо вызвать форму выбора списка документов с применением фильтра. Например показывать документы попадающие в интервал из дат.

	СтандартнаяОбработка = Ложь;
	 ФормаВыбора = Документы.ПоступлениеТоваровУслуг.ПолучитьФормуВыбора();	 

	 ФормаВыбора.Отбор.Дата.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;
		ФормаВыбора.Отбор.Дата.ЗначениеС=элементыформы.start_date.Значение;
		ФормаВыбора.Отбор.Дата.ЗначениеПо=элементыформы.end_date.Значение;
		ФормаВыбора.Отбор.Дата.Установить();	 

	 ФормаВыбора.Открыть();

СтандартнаяОбработка = Ложь;

ФормаВыбора = Документы.ПоступлениеТоваровУслуг.ПолучитьФормуВыбора();

ФормаВыбора.Отбор.Дата.ВидСравнения = ВидСравнения.ИнтервалВключаяГраницы;

ФормаВыбора.Отбор.Дата.ЗначениеС=элементыформы.start_date.Значение;

ФормаВыбора.Отбор.Дата.ЗначениеПо=элементыформы.end_date.Значение;

ФормаВыбора.Отбор.Дата.Установить();

ФормаВыбора.Открыть();

Если хотим обработать выбор, то например так:

	 выбранноезначение=ФормаВыбора.ОткрытьМодально();
	 элементыформы.Поступление.ТекущаяСтрока.ДокПоступления=выбранноезначение;

1 2	выбранноезначение=ФормаВыбора.ОткрытьМодально(); элементыформы.Поступление.ТекущаяСтрока.ДокПоступления=выбранноезначение;

Оставить комментарий 1с, 8.2, списокдокументов, фильтр, формавыбора

Печатная форма приказа на выплату премии

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

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

Для адаптации в условия вашего предприятия нужно будет поправить макет.

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

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

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

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 … 32 33 34 35 36 … 41 »

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