Рубрика: Вопросы программирования

Иногда необходимо знать дату создания документа, ошибочно полагать, что поле «Дата» содержит именно дату создания, тут можно проанализировать идентификатор объекта:

Функция ДатаСозданияСсылки(Ссылка)
// любая ссылка хранит в себе уникальный идентификатор
ГУИД = Ссылка.УникальныйИдентификатор();
// идентфикатор хранит в себе дату и время создания
Строка16 = Сред(ГУИД, 16, 3) + Сред(ГУИД, 10, 4) + Сред(ГУИД, 1, 8);
Разрядность = СтрДлина(Строка16);
ЧислоСек = 0;
// время создания хранится в секундах 
// от 15 октября 1582 года 
// в шестнадцатиричной системе
Для Позиция = 1 По Разрядность Цикл
     ЧислоСек = ЧислоСек +
          Найти(«123456789abcdef»,Сред(Строка16, Позиция, 1))*
          Pow(16, Разрядность — Позиция);
КонецЦикла;
ЧислоСек = ЧислоСек / 10000000;
// вычисляем смещение от начальной точки
датаТ = Дата(1582, 10, 15, 04, 00, 00) + ЧислоСек;
// составляем только дату 
датаТ = Дата( Год(датаТ), Месяц(датаТ), День(датаТ), 00, 00, 00);
Возврат датаТ;

КонецФункции

Фирма 1С решила отказаться от модальных форм в интерфейсах web и Такси, это значит, что попытка просто сохранить файл через диалог потребует больше усилий чем раньше. В примере ниже надо НА КЛИЕНТЕ просто создать текстовый файл и сохранить его куда укажет пользователь:

&НаКлиенте
Процедура НажатиеКнопкиСохранитьФайл() 

// создаем на клиенте текстовый файл
ИмяВременногоФайла = ПолучитьИмяВременногоФайла(«txt»);
// создаем документ который надо записать
ТД = новый ТекстовыйДокумент;
ТД.ДобавитьСтроку(«Некоторый текст»);
ТД.Записать(ИмяВременногоФайла);
// помещаем файл в хранилище
Адрес = ПоместитьВоВременноеХранилище(новый ДвоичныеДанные(ИмяВременногоФайла ));
// описание события после выбора файла пользователем
ОписаниеОповещения = Новый ОписаниеОповещения(«ОбработкаСохраненияФайлов», ЭтаФорма);
// место хранения файла в 1С
Файл = Новый ОписаниеПередаваемогоФайла(,Адрес);
// создаем перечень файлов
ПолучаемыеФайлы = Новый Массив;
ПолучаемыеФайлы.Добавить(Файл);
// создаем диалог сохранения файла
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
// выводим диалог на экран, после выбора файла 
// вызовется процедура ОбработкаСохраненияФайлов
НачатьПолучениеФайлов(ОписаниеОповещения,ПолучаемыеФайлы, ДиалогОткрытияФайла, Истина);

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

&НаКлиенте
Процедура ОбработкаСохраненияФайлов(ПомещенныеФайлы, ДополнительныеПараметры) Экспорт
// какие-то действия
// …
КонецПроцедуры

В некоторых случаях удобно выгрузить из 1С какие либо данные в Access для дальнейшей работы. Работа осуществляется через ADODB.Connection, причем возможно использование языка запросов Transact SQL. Пример ниже:

adOpenForwardOnly = 0; // код состояния
adLockPessimistic = 2; // режим блокировок
adOpenStatic = 3; // режим открытия соединения
adStateOpen = 1; // код открытия соединения
ИмяФайла = «C:\MyFile.accdb»; // имя файла 

// строка подключения к файлу БД Access
conn_str = «Provider=Microsoft.ACE.OLEDB.12.0; Data Source=» + ИмяФайла + «;»»»;
cn = Новый COMОбъект(«ADODB.Connection»); // объект для соединения
cn.Open(conn_str); // соединяемся с БД Access
Если (cn.State <> adStateOpen ) тогда // проверка открытия соединения
     Сообщить(«Не удалось открыть ADODB.Connection»);
     Возврат;
КонецЕсли;
rs = Новый COMОбъект(«ADODB.Recordset»); // объект для обхода строк
rs_select = Новый COMОбъект(«ADODB.Recordset»);
strSQL = «customers»; // таблица Access, с которой имеем дело
rs.Open(strSQL, cn, adOpenStatic, adLockPessimistic); // открываем таблицу 
strSQL = «select name from customers where id=100»; // sql запрос к таблице
rs_select.Open(strSQL, cn, adOpenStatic, adLockPessimistic); // делаем выборку
Если rs_select.EOF = Ложь тогда // проверка наличия записей в выборке
     Сообщить(«Нет строки с таким идентификатором: «);
     rs_select.Close(); // закрываем выборку
     rs_select = Неопределено; // уничтожаем лишние данные
КонецЕсли;
Попытка
rs.AddNew(); // добавить новую строку в табл  customers
rs.Fields(0) .Value = 250; // имя нового контрагента
rs.Fields(1) .Value = «Новый контрагент»; // имя нового контрагента
rs.Update(); // записать новую строку в таблицу
// вывод на печать строки по колонкам
Для Каждого col Из rs.Fields Цикл
     Сообщить(«Колонка « + col.Name + » = « + Строка(col.Value));
КонецЦикла;
Исключение
// исключение может быть вызвано наличием сроки с таким же 
// идентификатором
Если  rs.ActiveConnection.Errors(0).Number = -2147217887  тогда
     Сообщить(«Такая запись уже есть в таблице»);
Иначе
     Сообщить(ОписаниеОшибки());// другая ошибка
КонецЕсли;
КонецПопытки;
// закрываем выборку, если она открыта
Если (rs.state = adStateOpen) тогда
      rs.Close();
КонецЕсли;
// закрываем соединение с БД, если оно открыто
Если cn.state = adStateOpen тогда
      cn.Close();
КонецЕсли;
// уничтожаем лишние данные
rs = Неопределено;
cn = Неопределено;

В некоторых случаях надо на клиенте не просто открыть форму элемента справочника или документа, но и получить саму форму для дальнейших действий с ней, для этого можно воспользоваться таким кодом:

ПараметрыФормы = Новый Структура(«Ключ», СсылкаНаНоменклатуру);
Форма = ПолучитьФорму(«Справочник.Номенклатура.ФормаОбъекта», ПараметрыФормы);
Форма.Открыть();

Excel — это сторонняя программа, ее можно запускать из 1С в невидимом и видимом режиме и пользоваться всеми возможностями. Excel должен быть установлен на компьютере. Для примера приведено чтение таблицы в из файла Excel на клиенте, передача на сервер и создание на сервере таблицы значений с данными из файла. Такую задачку любят давать на собеседованиях на должность программиста 1С.

&НаКлиенте
Процедура НажатиеКноки()
// обращаемся к Excel
Попытка
     Эксель = новый COMОбъект(«Excel.Application»);
Исключение
Сообщить(ОписаниеОшибки());
     Возврат;
КонецПопытки;
ПутьКФайлу = «C:\Некоторый файл.xlsx»;
// открываем ексель файл
Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
// переходим на первую страницу
Лист = Книга.WorkSheets(1);
// для количества колонок и строк в экселе есть специальные ячейки
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

// сохраняем файл в массив строк, где строка это так же массив (на клиенте
// нельзя создавать таблицу значений
НаборСтрокФайла = новый массив;
для Строка = 1 по ВсегоСтрок цикл
     МассивСтрока = новый массив;
     для Колонка = 1 по ВсегоКолонок цикл
// получаем значение из ячейки excel
          Значение = СокрЛП(Лист.Cells(Строка,Колонка).Value); 
          МассивСтрока.Добавить(Значение);
         КонецЦикла;
     НаборСтрокФайла.Добавить(МассивСтрока);
КонецЦикла;
// запишем файл с другим именем
Эксель.SaveAs(«C:\ФайлСДругимИменем.xlsx»);
// закрываем ексель, иначе он останется висеть в памяти
Эксель.Application.Quit();

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

&НаСервере
Процедура СоздатьИОбработатьТаблицуЗначений(НаборСтрокФайла, ВсегоКолонок)
     ТЗ = новый ТаблицаЗначений;
     // создаем колонки таблицы значений (столько сколько в файле ексель)
     для й=1 по ВсегоКолонок цикл
          ТЗ.Колонки.Добавить(«кол» + Формат(й,«ЧЦ=4; ЧГ=»));
     КонецЦикла;
     // переносим строки из массива в таблицу значений
     для каждого МассивСтрока из НаборСтрокФайлацикл
          НовСтрока = ТЗ.Добавить();
          для Колонка = 1 по ВсегоКолонок цикл
// переносим значение из массива в таблицу
               НовСтрока[Колонка — 1] = МассивСтрока[Колонка — 1]; 
          КонецЦикла;
     КонецЦикла;

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

Далее приводятся наиболее частые ситуации, возникающие на

Поиск и замена текста в ячейках файла Excel

//Выбираем область поиска — весь лист
ОбластьПоиска = Лист.Cells;
// Начинаем поиск с левого верхнего угла
НачалоЛиста =Лист.Cells(1, 1);
// Ищем ячейку с текстом «привет»
ОбластьПараметр = ОбластьПоиска.Find(«привет», НачалоЛиста);
// Если нашли вывсодим найденую строку
Если ОбластьПараметр <> неопределено Тогда
     Сообщить(ОбластьПараметр.Value);
КонецЕсли;

Работа со строками в Excel

//Выбираем первую строку
НачальнаяСтрока = Лист.Cells(1, 1);
// Выделяем всю строку
НачальнаяСтрока .EntireRow.Select();
// Копируем выделенное
НачальнаяСтрока .EntireRow.Copy();
// Вставляем (новая строка будет вставлена тут же)
НачальнаяСтрока .EntireRow.Insert();
// Удалим строку
НачальнаяСтрока .EntireRow.Delete();

Прочие полезные методы Excel

Отборы в списках управляемых форм имеют особенность вязанную с иерархией —  если в качестве отбираемого элемента стоит некоторый подчиненный (не корневой) элемент, например, эл 2.1, то в форме выбора не отобразится ничего, т.к. вышестоящие элементы (Эл 2) в отборе не участвуют. Пример — разрешить выбирать статьи затрат только в иерархии эл 2.1:

Корень
* Эл 1
* * Эл 1.1
* * Эл 1.2
* Эл 2
* * Эл 2.1
* * * Эл 2.1.1
* * * Эл 2.1.2
* * Эл 2.2

Неправильно будет просто указать все подчиненные элементы Эл 2.1 в отборе для формы, пример:

&НаКлиенте
Процедура НажаниеКнопкиВыбора()
     Отбор = новый Структура(«Ссылка»,   ПолучитьСписокПодчиненныхСтатейЗатрат(ПредопределенноеЗначение(«Справочник.СтатьиЗатрат.Эл_2_1»)));
     ОткрытьФорму(«Справочник.СтатьиЗатрат.ФормаВыбора», Новый     Структура(«Отбор», Отбор), Элемент);
КонецФункции

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

Правильно будет в функции ПолучитьСписокПодчиненныхСтатейЗатрат дополнительно в выбранный список подчиненных элементов добавить родительские:

Родитель = СЗ.Родитель;
пока ЗначениеЗаполнено(Родитель) цикл
     Список.Добавить(Родитель);
     Родитель = Родитель.Родитель;
КонецЦикла;

Таким образом в окне выбора появится кусок дерева с теми элементами, которые нужны.