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

Как найти документ по номеру в 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.

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

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

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

Процедура КакОпределитьВремяРаботыОтчетаОбработки()
	Перем ВремяРаботыСек,ВремяРаботыМин,ВремяРаботыЧас;
	ВремяРаботыСек=0;
	ВремяРаботыМин=0;
	ВремяРаботыЧас=0;
	НачРаботы=ТекущаяДата();
	ОчиститьСообщения();
	//Собственно обработка 1С:Предприятие
	Для л=1 По 10000 Цикл
		Сообщить("Идет обработка данных!");
	КонецЦикла;
	КонРаботы=ТекущаяДата();
	ВремяРаботыСек=КонРаботы-НачРаботы;
	Если  ВремяРаботыСек > 60 Тогда
		ВремяРаботыМин=Окр(ВремяРаботыСек/60,0)-1;
	КонецЕсли;
	Если ВремяРаботыМин>60 Тогда
		ВремяРаботыЧас=Окр(ВремяРаботыМин/60,0)-1;
	КонецЕсли;
	ВремяРаботы=" "+ВремяРаботыЧас+" ч. "+ВремяРаботыМин+" мин. "+ВремяРаботыСек+" сек.";
	Сообщить ("Начало: "+НачРаботы+", конец: "+КонРаботы+" Время работы: "+ВремяРаботы);
КонецПроцедуры
 

Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	КакОпределитьВремяРаботыОтчетаОбработки();
КонецПроцедуры