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

Как выбрать документы за период в 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С:Предприятие: "+ВыборкаДетальныеЗаписи.Ссылка);
	КонецЦикла;
КонецПроцедуры

Как найти документ по номеру в 1С:Предприятие 83, 82, 81?

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

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

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

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

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		// Вставить обработку выборки ВыборкаДетальныеЗаписи
		Сообщить("Документ 1С Предприятие: "+ВыборкаДетальныеЗаписи.Ссылка);
		ОбъектПоступлениеТоваровУслуг=ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
		ОбъектПоступлениеТоваровУслуг.УстановитьПометкуУдаления(Истина);
	КонецЦикла;
КонецПроцедуры

Как получить ПустуюСсылку ТипаДокумент в 1С?

Процедура КакПолучитьПустуюСсылкуТипаДокументВ1С()
	ДокСсылка=Документы.ПоступлениеТоваровУслуг;
	ПустаяССылка=ДокСсылка.ПустаяСсылка();
	Если ПустаяССылка=ДокСсылка.ПустаяСсылка() Тогда
		 Сообщить("Это пустая ссылка");
	КонецЕсли;
КонецПроцедуры

Как вывести список документов в 1С:Предприятие 8.0,8.1,8.2?
Выберите пункт меню Документы. Выберем Реализация товаров и услуг. Когда откроется список документов, станьте курсором мыши на список документов Реализация товаров и услуг. Далее произведем щелчок правой кнопкой мыши. В контекстном меню имеется команда Вывести список. Нажмите ее. В новом окне Вывести список перечислены все колонки списка документа.

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

Процедура ВыполнитьЗапросЛи()
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ

Прочитать остальную часть записи »

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

Процедура ПолучитьКурсВалюты()
	ОчиститьСообщения();
	ДатаКурса=ТекущаяДата();
	Валюта=Справочники.Валюты.НайтиПоКоду("840");
	регВалюта=РегистрыСведений.КурсыВалют;
	Отбор=Новый Структура("Валюта", Валюта);
	Структура = регВалюта.ПолучитьПоследнее(ДатаКурса,Отбор);
	Сообщить("Текущий курс: "+Структура.Курс+" Кратность: "+Структура.Кратность);
КонецПроцедуры

Прочитать остальную часть записи »

Как записать картинку в хранилище 1С:Предприятие? Процедура ЗаписатьКартинкуВХранилище(СпрНоменклатура,НайденныйОбъект="") ИмяФайла="D:\123451.jpg"; Хранилище= Новый ХранилищеЗначения (Новый Картинка(ИмяФайла)); Если ТипЗнч(НайденныйОбъект)=Тип("СправочникСсылка.ХранилищеДополнительнойИнформации") Тогда спрХранилище=НайденныйОбъект.ПолучитьОбъект(); Иначе спрХранилище=Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент(); КонецЕсли; спрХранилище.Объект =СпрНоменклатура; спрХранилище.ВидДанных=Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение; спрХранилище.Наименование="Изображение"; спрХранилище.Хранилище=Хранилище; Прочитать остальную часть записи »

Проверка наличия номенклатуры при загрузке. 1С:Предприятие 8.0,8.1,8.2,8.3.

// ТЗЕ-табличное значения
Процедура ПровекаНаличия()

Прочитать остальную часть записи »