Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как найти документ по номеру в 1С:Предприятии 8.0,8.1,8.2,8.3 используя запрос?

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

Интересные материалы:
Как зарегистрировать .dll?
В форму поместил поле Контрагент, по которому буду отбирать документы по одному контрагенту, но иногда надо по всем. Как это реализовать? 1С:Предприятие 8.2. Вариант 2
Метод ЭтоНовый(). 1С:Предприятие 8.2
Как реализовать ввод по строке (поле Артикул) из справочника Номенклатура в документе Расходная накладная? 1С:Предприятие 8.2
Что такое структрура в 1С:Предприятие 8.0, 8.1, 8.2, 8.3?

Как  найти документ по реквизиту в 1С:Предприятии 8.0,8.1,8.2,8.3 без запроса?

Процедура КакНайтиДокументПоРеквизитуВ1СПредприятииБезЗапроса()
	//Реквизит - должен быть проиндексирован
	//Будет найден только один документ
	ПоКонтрагенту=Справочники.Контрагенты.НайтиПоНаименованию("Морской");
	ДокументыЗаказПокупателя=Документы.ЗаказПокупателя;
	СсылкаДокументыЗаказПокупателя=ДокументыЗаказПокупателя.НайтиПоРеквизиту("Контрагент",ПоКонтрагенту);
	Сообщить("Найден один документ: "+СсылкаДокументыЗаказПокупателя);
КонецПроцедуры

Как найти документы по реквизиту в 1С:Предприятии 8.0,8.1,8.2,8.3 используя запрос?

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

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

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

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Сообщить("По контрагенту найдены документы: "+ ВыборкаДетальныеЗаписи.Номер);
	КонецЦикла;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
	КакНайтиДокументыПоРеквизитуВ1СПредприятииИспользуюЗапрос();
КонецПроцедуры

Как открыть список документов из обработки в 1С:Предприятии 8.0,8.1,8.2,8.3?

Процедура КакОткрытьСписокДокументовИзОбработкиВ1СПредприятии()
	Док=Документы.ЗаказПокупателя;
	СсылкаДок=Док.НайтиПоНомеру("НО000000006",Дата("20110101"));
	Если СсылкаДок<>Док.ПустаяСсылка() Тогда
		ФормаСписка=СсылкаДок.ПолучитьФорму("ФормаСписка");
		Если НЕ ФормаСписка.Открыта() Тогда
			ФормаСписка.Открыть();
		Иначе
			ФормаСписка.Активизировать();
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Как скопировать документ в 1С:Предприятие 8.0,8.1,8.2,8.3?

Процедура КакСкопироватьДокументВ1СПредприятие80_81_82_83()
	Док=Документы.ОприходованиеТоваров;
	СсылкаДокумента=Док.НайтиПоНомеру("00000000010",Дата("20120101"));
	Если Док.ПустаяСсылка()= СсылкаДокумента Тогда
		Сообщить("Нет документа: №"+"00000000010");
	Иначе
		НовыйДокумент=СсылкаДокумента.Скопировать();
		НовыйДокумент.Дата=Дата("20120102");
		НовыйДокумент.Записать();
	КонецЕсли;
КонецПроцедуры

Ответ на вопрос: Как скопировать документ в 1С:Предприятие 8.0,8.1,8.2,8.3?

Как выбрать документы помеченные на удаление в 1С:Предприятие 8.0,8.1,8.2,8.3()?

Процедура КакВыбратьДокументыПомеченныеНаУдалениеВ1СПредприятие()
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ПеремещениеТоваров.Ссылка
	|ИЗ
	|	Документ.ПеремещениеТоваров КАК ПеремещениеТоваров
	|ГДЕ
	|	ПеремещениеТоваров.ПометкаУдаления = ИСТИНА";

	Результат = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = Результат.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Сообщить("Документ: "+ВыборкаДетальныеЗаписи.Ссылка+" помечен на удаление!");
	КонецЦикла;
КонецПроцедуры

Рассмотрели вопрос: Как выбрать документы помеченные на удаление в 1С:Предприятие 8.0,8.1,8.2,8.3?

Как записать документ по ссылке в 1С:Предприятие 8.0,8.2,8.3?

Процедура КакЗаписатьДокументПоССылкеВ1СПредприятие()
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ПеремещениеТоваров.Ссылка
	|ИЗ
	|	Документ.ПеремещениеТоваров КАК ПеремещениеТоваров";
	Результат = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = Результат.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		ОбДокумент=ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
		Сообщить("Документ: "+ОбДокумент+" записан!");
		ОбДокумент.Записать();
	КонецЦикла;
КонецПроцедуры

Рассмотрели вопрос: Как записать документ по ссылке в 1С:Предприятие 8.0,8.2,8.3?

Как выбрать документы за период в 1С:Предприятие 8.0,8.1,8.2,8.3?

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

Рассматриваем вопрос: Как выбрать документы за период в 1С:Предприятие 8.0,8.1,8.2,8.3?

Как выбрать документы по организации в 1С:Предприятие 8.0,8.1,8.2,8.3?

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