заявка » Поиск

Результаты по ключевому слову: заявка

Как в отобразить картинку в табличной части Категория: Табличный документ

COM-подключение к базе 7.7 из 8.2 1С

Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине.

Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)):

Код 1C v 8.2 УП

 &НаКлиенте

   Процедура Загрузки()

    ПутьКБазе="D:\ВашаБаза\1с77\";

    Пользователь="stvbliz";//пользователь базы 7.7

    Пароль="вашпароль";

    МонопольныйРежимOLE = ""; // " /m";

    ЗапускБезЗаставки = 1;

    База = Новый COMОбъект("V1CEnterprise.Application");

    СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";

    РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));



    Если НЕ РезультатПодключения Тогда

        Сообщить("Не удалось произвести подключение к информационной базе");

    КонецЕсли;

    Таблица.Очистить();

    Док = База.CreateObject("Документ.ЗаявкаПокупателя");

    Док.ВыбратьДокументы(НачалоНедели(Дата),КонецНедели(Дата));                  

    Пока Док.ПолучитьДокумент() = 1 Цикл

        ОбработкаПрерыванияПользователя();

        Если Док.НомерДок = НомерЗаявки Тогда

            Док.ВыбратьСтроки();

            Пока Док.ПолучитьСтроку()=1 Цикл

                нов=Таблица.Добавить();

                нов.Номенклатура = Док.Номенклатура.Наименование;

                нов.Количество = Док.Количество;

                нов.Единица = Док.Единица.Наименование;

                нов.Цена = Док.Цена;

                Нов.Сумма = Док.Сумма;

                нов.Коэффициент = Док.Коэффициент;

                нов.Производитель = Док.производитель;

                Нов.Валюта = Док.Валюта.Наименование;



            КонецЦикла;

        КонецЕсли;



    КонецЦикла;  



    Док=NULL;

КонецПроцедуры

Код 1C v 8.2 УП

 //Примеры получения значений



//Периодический реквизит нужно получать на дату

ДатаОст= ТекущаяДата();

Спр77Оле.ВидГрейда.Получить(ДатаОст).код;



// Перечисление

Если База77ОЛЕ.ВидКонтрагента.Идентификатор() = "ЧастноеЛицо"

// или

Если Сотрудник.ХарактерРаботы.Получить(Необходимая_Дата).Идентификатор() = БазаОЛЕ.EvalExpr("Перечисление.ХарактерРаботы.ТрудовыеОтношения.Идентификатор()") Тогда 

// Принадлежит ...

КонецЕсли;



//В запросе

   // в v7 ссылка OLE

   Запрос = v7.CreateObject("Запрос");

   ТипТовара = v7.evalexpr("Перечисление.ТипыТоваров.Собственный.ПорядковыйНомер()");

   

   ТекстЗапроса = 

   "//{{ЗАПРОС(Сформировать) 

   |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;

   |Наименование = Справочник.Номенклатура.Наименование;

   |ТипТовара = Справочник.Номенклатура.ТипТовара;

   |ЕдиницаИзмерения = Справочник.Номенклатура.ЕдиницаИзмерения;

   |Функция Счётчик = Счётчик();

   |Группировка ТекущийЭлемент;

   |Условие(ТипТовара.ПорядковыйНомер() = "+ТипТовара+");

   |"//}}ЗАПРОС 

   ;

Категория: COM-объекты, WMI, WSH

Как открыть форму документа созданного программно на сервере? Категория: Документы

Программное использование универсальной обработки Выгрузка Загрузка Данных XML

Для работы, необходимо взять обработку "ВыгрузкаЗагрузкаДанныхXML", которая находится в шаблоне "Конвертация данных".

Пример обработки(автор Misha Macklaud): Скачивать файлы может только зарегистрированный пользователь!

а это ее код:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	ОбработкаОбмен = Обработки.ВыгрузкаЗагрузкаДанныхXML.Создать();

	ОбработкаОбмен.Инициализация();

	ОбработкаОбмен.ОбработанныхКонстант = 0;

	ОбработкаОбмен.ОбработанныхНаборовЗаписей = 0;

	

	//отметки выгрузки Документов

	СписокОбъектовВыгрузки = Новый СписокЗначений;

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.РеализацияТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ПоступлениеТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ТребованиеНакладная);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

		//отбор

		Построитель = ОбработкаОбмен.ПодготовитьПостроительДляВыгрузки(СтрокаВыгрузки);

		СписокСсылокВыгрузки = Новый СписокЗначений;

		Для Каждого СтрокаТабДокументы Из ТабДокументы Цикл

			Если (СтрокаТабДокументы.Документ.Метаданные() = СписокОбъектовВыгрузки[й].Значение) И (СтрокаТабДокументы.ФлагВыгружать) Тогда

				СписокСсылокВыгрузки.Добавить(СтрокаТабДокументы.Документ.Ссылка);

			КонецЕсли;

		КонецЦикла;

		Отбор = Построитель.Отбор;

		Отбор.Добавить("Ссылка","Ссылка");

		Отбор[0].Использование 	= Истина;

		Отбор[0].ВидСравнения  	= ВидСравнения.ВСписке;

		Отбор[0].Значение		= СписокСсылокВыгрузки;

		

		СтрокаВыгрузки.НастройкиПостроителя = Построитель.ПолучитьНастройки();

		СтрокаВыгрузки.ИспользоватьОтбор = Истина;

	

	КонецЦикла;

	

	//отметки ОТМЕНЫ выгрузки Документов

	СписокОбъектовВыгрузки.Очистить();         

//	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.Заявка);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.ВыгружатьПриНеобходимости = 0;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	//отметки выгрузки Справочников

	СписокОбъектовВыгрузки.Очистить();         

	СписокОбъектовВыгрузки.Добавить(Метаданные.Справочники.Номенклатура);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	

	ИмяФайлаЗагрузки = "D:\А-Б.xml";

	ОбработкаОбмен.ВыполнитьЗагрузку(ИмяФайлаЗагрузки);

	

	ИмяФайлаВыгрузки = "D:\Б-А.xml";

	ОбработкаОбмен.ВыполнитьВыгрузку(ИмяФайлаВыгрузки);

	

КонецПроцедуры



Процедура ВыбПериодНажатие(Элемент)

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	Если НастройкаПериода.Редактировать() Тогда

		НачПериода = НастройкаПериода.ПолучитьДатуНачала();

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

КонецПроцедуры



Процедура ПриОткрытии()

	

	НачПериода = ТекущаяДата();	

	КонПериода = ТекущаяДата();

	

КонецПроцедуры





Процедура ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ)

	Запрос.Текст = "ВЫБРАТЬ

	               |	ОбъектЗапроса.Ссылка

	               |ИЗ

	               |	Документ."+ОбъектЗапроса+" КАК ОбъектЗапроса

	               |ГДЕ

	               |	ОбъектЗапроса.ПометкаУдаления = ЛОЖЬ И 

				   | 	ОбъектЗапроса.Дата МЕЖДУ &ДатаНач И &ДатаКон";

				   

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(НачПериода));

	Запрос.УстановитьПараметр("ДатаКон",КонецДня(КонПериода));

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

	Пока Выборка.Следующий() Цикл

		НоваяСтрока 			= ТЗ.Добавить();

		НоваяСтрока.Дата 		= Выборка.Ссылка.Дата;

		НоваяСтрока.Документ	= Выборка.Ссылка;

	КонецЦикла;			   

	

КонецПроцедуры



Процедура ЗаполнитьНажатие(Элемент)

	

	ТабДокументы.Очистить();

		

	ТЗ = Новый ТаблицаЗначений;

	ТЗ.Колонки.Добавить("Дата");

	ТЗ.Колонки.Добавить("Документ");

	

	Запрос = Новый Запрос;

	

	Если флРеализация Тогда

		ОбъектЗапроса = "РеализацияТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

				   

	Если флПоступление Тогда

		ОбъектЗапроса = "ПоступлениеТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	Если флТребованиеНакладная Тогда

		ОбъектЗапроса = "ТребованиеНакладная";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	ТЗ.Сортировать("Дата");

	Для Каждого Стр Из ТЗ Цикл

		НоваяСтрока = ТабДокументы.Добавить();

		НоваяСтрока.Документ = Стр.Документ;

		НоваяСтрока.ФлагВыгружать = Истина;

	КонецЦикла;

	

КонецПроцедуры

Категория: Конвертация данных, Обмен, Перенос

Как в форме списка, журнала, открыть выбранный элемент в другой форме, отличной от формы элемента? Категория: Список Справочника, Документов, Регистров

Как занести лицевые счета работников для выплаты з/п, счета у сотрудников в разных банках? Категория: 1С Зарплата и Управление Персоналом 2.5

Как сделать чтобы при открытии программы сразу открывался справочник, список документов?

Добавить в Модуль Мриложения в процедуру "ПриНачалеРаботыСистемы()" код открытия журнала после загрузки

Код 1C v 8.х

 

//Список контрагентов

Панель=Справочники.Контрагенты.ПолучитьФорму("ФормаСписка");

Панель.Открыть();



//Журнал документов

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

Панель.Открыть();

Можно сделать так, что для каждой роли откроется свой список документов:

Код 1C v 8.х

 

	Если РольДоступна("Менеджер") Тогда

		Панель=Документы.Заявка.ПолучитьФормуСписка();

		Панель.Открыть();

	ИначеЕсли РольДоступна("Потребность") Тогда

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

		Панель.Открыть();

	ИначеЕсли РольДоступна("Безопасник") Тогда

		Панель=Справочники.Контрагенты.ПолучитьФорму("ФормаБезопасника");

		Панель.Открыть();

	ИначеЕсли РольДоступна("Бухгалтер") Тогда

		Панель=Обработки.Бухгалтера.ПолучитьФорму();

		Панель.Открыть();

	ИначеЕсли РольДоступна("Утверждающий") Тогда

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

		Панель.Открыть();

	ИначеЕсли РольДоступна("Руководитель") Тогда

		Панель=Документы.Заявка.ПолучитьФормуСписка("ИнтерфейсРуководителя");

		Панель.Открыть();

	Иначе       

		Предупреждение("Вам не присвоена необходимая Роль доступа, обратитесь к Администратору системы!");

		ЗавершитьРаботуСистемы();

	конецесли;

Категория: Полезные, Универсальные Функции

Вывод колонтитулов программно ВерхнийКолонтитул, НижнийКолонтитул Категория: Табличный документ