Шпаргалка 1с8

Это не большая шпаргалка для меня.

#Соединения

Параметры = «Srvr=»»ххх»»;Ref=»»ххх»»;Usr=»»ххх»»;Pwd=»»ххх»»;
//Параметры = «File = «»С:\MyBase»»; Usr = ***; Pwd = ***»;
COMConnector= Новый COMОбъект(«V83.COMConnector»);
Попытка  Соединение = COMConnector.Connect(Параметры);
Сообщить(«ОКАЙ!»);
Исключение
Сообщить(«Ошибка подключения!»);
Возврат;
КонецПопытки;

#Запросы

Таблица значений в качестве параметра

«ВЫБРАТЬ
|ВнешняяТаблица.Ссылка КАК Номенклатура
|ПОМЕСТИТЬ В ВнешняяТаблица
|ИЗ
|ВнешняяТаблица КАК &ВнешняяТаблица»;
Запрос.УстановитьПараметр(«ВнешняяТаблица», ТЗ);

Условие в запросе
|И ВЫБОР
| КОГДА &Валюта = НЕОПРЕДЕЛЕНО
| ТОГДА ИСТИНА
| ИНАЧЕ Валюта = &Валюта
| КОНЕЦ

|ВЫБОР
|КОГДА
|&Валюта = НЕОПРЕДЕЛЕНО
|ТОГДА ХозрасчетныйОбороты.СуммаОборотКт
|ИНАЧЕ
|ХозрасчетныйОбороты.ВалютнаяСуммаОборотКт
|КОНЕЦ = 0
Результат = Запрос.ВыполнитьПакет();Результат = Запрос.ВыполнитьПакет();ПараметрыПроведения.Вставить(НомерТаблицы.Ключ, Результат[НомерТаблицы.Значение].Выгрузить());

/c ЗапуститьОбновлениеИнформационнойБазы

ТЗ.Колонки.Добавить(«ИндексСортировки» , Новый ОписаниеТипов(«Число»));
ТЗ.Колонки.Добавить(«ИмяРаздела» , Новый ОписаниеТипов(«Строка»));
ТЗ.Колонки.Добавить(«ДатаКорр» , Новый ОписаниеТипов(«Дата»));
ТЗ.Колонки.Добавить(«БезусловноеУдаление» , Новый ОписаниеТипов(«Булево»));
ТЗ.Колонки.Добавить(«Номенклатура» , Новый ОписаниеТипов(«СправочникСсылка.Номенклатура»));
ТЗ.Колонки.Добавить(«ДанныеРаздела» , Новый ОписаниеТипов(«Структура»));
// пример создания колонок «число» и «строка» с уточнением параметров:
ТЗ.Колонки.Добавить(«ПроцентВыполнения» , Новый ОписаниеТипов(«Число» , Новый КвалификаторыЧисла(18, 2)));
ТЗ.Колонки.Добавить(«ИмяРаздела» , Новый ОписаниеТипов(«Строка» , , Новый КвалификаторыСтроки(200, ДопустимаяДлина.Переменная)));
ТЗ.Колонки.Добавить(«ДатаСписания» , Новый ОписаниеТипов(«Дата» , , , Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя)));

 

#Документы
Как программно проверить что документ новый.
&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Ключ.Пустая() Тогда Объект.Ответственный = ПараметрыСеанса.ТекущийПользователь;
КонецЕсли;


Ваш отзыв