Студопедия — Список использованных источников. 1. PDM-система – Википедия
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Список использованных источников. 1. PDM-система – Википедия






1. PDM-система – Википедия. [Электронный ресурс]. URL: http://ru.wikipedia.org/wiki/PDM (дата обращения 10.03.2014).

2. «1С:Предприятие» – Википедия. [Электронный ресурс]. URL: http://ru.wikipedia.org/wiki/1С:Предприятие (дата обращения 20.03.2014).

3. М. Г. Радченко 1С:Предприятие 8.2 практическое пособие разработчика». Издательство: ООО «1С-Паблишинг», Москва 2009. – 874 с.

4. Разработка нетиповых решений – Аудит софт. [Электронный ресурс]. URL: http://www.auditsoft.com.ua/services/view/4 (дата обращения 20.03.2014).

5. Встроенный язык программирования «1С:Предприятие» – Википедия. [Электронный ресурс]. URL: http://ru.wikipedia.org/wiki/Встроенный_язык_программирования_1С:Предприятие (дата обращения 10.04.2014).

6. Общие сведения о САПР КОМПАС-3D. Типы документов – MySapr. [Электронный ресурс]. URL: http://mysapr.com/pages/1_obschie_svedeniya_o_kompas.php (дата обращения 15.03.2014).

7. Интеграция с другими системами – 1С:Предприятие 8. [Электронный ресурс]. URL: http://www.v8.1c.ru/overview/integration.htm (дата обращения 15.03.2014).


 

Приложение А
(справочное)
Листинг модуля обработки

&НаКлиенте

Процедура ЗагрузитьИзФайла(Команда)

 

Перем _имяФайла, _полноеИмяФайла;

 

// Выбор файла через диалоговое окно

ВыбратьФайл(_имяФайла, _полноеИмяФайла);

 

// Выгрузка интересующих колонок из Excel в таблицу значений

ЗагрузитьИзExcel(_полноеИмяФайла);

 

ПодсчитатьИтоговуюСумму();

 

Объект.Наименование = _имяФайла;

 

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

 

// Вернуть из справочников элемент по наименованию

Функция ВернутьИзСправочника(_наименование)

 

// Просматриваем справочник Болты

_элементСправочника= Справочники.Болты.НайтиПоНаименованию(_наименование);

Если _элементСправочника <> Справочники.Болты.ПустаяСсылка() Тогда

Возврат _элементСправочника;

КонецЕсли;

 

// Просматриваем справочник Гайки

_элементСправочника= Справочники.Гайки.НайтиПоНаименованию(_наименование);

Если _элементСправочника <> Справочники.Гайки.ПустаяСсылка() Тогда

Возврат _элементСправочника;

КонецЕсли;

 

// Если ничего не нашли возвращаем Неопределено

Возврат Неопределено;

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

 

// Вернуть цену детали из справочника если она имеется

Функция ВернутьЦену(_наименование)

 

_элементСправочника = ВернутьИзСправочника(_наименование);

 

// Если поле «Цена» запонено, то возвращаем её

Если _элементСправочника <> Неопределено Тогда

Возврат _элементСправочника.Цена;

КонецЕсли;

 

Возврат Неопределено;

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

 

// Добавляем в табличную часть элемент из сборки

Процедура ДобавитьВТабличнуюЧасть(_наименование, _количество)

 

// СоставляющиеЭлементы - название табличной части

_объектТаблЧасти = Объект.СоставляющиеЭлементы.Добавить();

 

_объектТаблЧасти.Наименование = _наименование;

_объектТаблЧасти.Количество = _количество;

 

// Если в справочнике указана цена детали, то записываем ее

// и пожсчитываем сумму

_цена = ВернутьЦену(_наименование);

Если (_цена <> Неопределено) Тогда

_объектТаблЧасти.Цена = _цена;

_объектТаблЧасти.Сумма = _цена * _количество;

КонецЕсли;

 

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

 

Процедура ПодсчитатьИтоговуюСумму()

 

Объект.Сумма = Объект.СоставляющиеЭлементы.Итог(«Сумма»);

 

// Проверяем все ли поля заполнены

Для Каждого _строка Из Объект.СоставляющиеЭлементы Цикл

Если НЕ ЗначениеЗаполнено(_строка.Сумма) Тогда

Сообщить(«Внимание!! Не все поля колонки 'Сумма' заполнены!»);

//ПолнотаЗаполнения.Видимость = Истина;

КонецЕсли;

КонецЦикла;

 

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

 

Процедура ЗагрузитьИзExcel(_полноеИмяФайла)

 

_таблЗначений = Excel_ПолучитьДанные_COM(_полноеИмяФайла, «Лист1»);

 

// Достаем из таблицы (из Excel) наименования деталей и их количество

Для Каждого _строка Из _таблЗначений Цикл

Если (_строка.К6 <> Неопределено) И (_строка.К6 <> «Количество») Тогда

ДобавитьВТабличнуюЧасть(_строка.К5, _строка.К6);

КонецЕсли;

КонецЦикла;

 

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

 

&НаКлиенте

Процедура ВыбратьФайл(_имяФайла, _полноеИмяФайла) Экспорт

 

_диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

_диалог.Фильтр = «*.xlsx|*.xls»;

Если _диалог.Выбрать() Тогда

_имяФайла = СтрЗаменить(_диалог.ПолноеИмяФайла,_диалог.Каталог,'''');

_имяФайла = СтрЗаменить(_имяФайла, ''.xls'', '''');

 

_полноеИмяФайла = _диалог.ПолноеИмяФайла;

КонецЕсли;

 

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

 

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт

 

#Если Клиент Тогда

Состояние(''Открытие Excel'');

#КонецЕсли

 

Если XLSОбъект = Неопределено Тогда

XLSОбъект = Новый COMОбъект(«Excel.Application»);

XLSОбъект.Visible = Ложь;

XLSОбъект.DisplayAlerts = Ложь;

КонецЕсли;

 

Попытка

Book = XLSОбъект.Workbooks.Open(пФайл,, Истина);

Исключение

Сообщить (''Проблемы с подключением к Excel'');

Возврат Неопределено;

КонецПопытки;

 

Лист = Book.Sheets(1);

КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

КолвоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

 

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

 

Если СтруктураКолонок = Неопределено Тогда

 

Для Счетчик = 1 По КолвоКолонок Цикл

Колонка = Таблица.Колонки.Добавить(«К» + Счетчик);

КонецЦикла;

 

Иначе

 

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

КонецЦикла;

 

КонецЕсли;

 

НачСтрока =?(НачСтрока = 0, 1, НачСтрока);

КонСтрока =?(КонСтрока = 0, КолвоСтрок, КонСтрока);

КонСтрока = Мин(КонСтрока, КолвоСтрок);

 

Для НомерСтроки = НачСтрока По КонСтрока Цикл

 

#Если Клиент Тогда

Состояние(«Чтение файла: «+ Формат(НомерСтроки) + «из «+ Формат(КонСтрока));

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

#КонецЕсли

 

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

 

Если СтруктураКолонок = Неопределено Тогда

 

Для НомерКолонки = 1 По КолвоКолонок Цикл

 

Поле = Лист.Cells(НомерСтроки, НомерКолонки);

НоваяСтрока[«К» + Формат(НомерКолонки, «ЧГ=0»)] = Поле.Value;

 

КонецЦикла;

 

Иначе

 

Для каждого КлючИЗначение Из СтруктураКолонок Цикл

 

Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;

 

КонецЦикла;

 

КонецЕсли;

 

КонецЦикла;

 

XLSОбъект.Application.Quit();

Возврат Таблица;

 

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

 

 







Дата добавления: 2015-10-12; просмотров: 396. Нарушение авторских прав; Мы поможем в написании вашей работы!



Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

МЕТОДИКА ИЗУЧЕНИЯ МОРФЕМНОГО СОСТАВА СЛОВА В НАЧАЛЬНЫХ КЛАССАХ В практике речевого общения широко известен следующий факт: как взрослые...

СИНТАКСИЧЕСКАЯ РАБОТА В СИСТЕМЕ РАЗВИТИЯ РЕЧИ УЧАЩИХСЯ В языке различаются уровни — уровень слова (лексический), уровень словосочетания и предложения (синтаксический) и уровень Словосочетание в этом смысле может рассматриваться как переходное звено от лексического уровня к синтаксическому...

Плейотропное действие генов. Примеры. Плейотропное действие генов - это зависимость нескольких признаков от одного гена, то есть множественное действие одного гена...

Функциональные обязанности медсестры отделения реанимации · Медсестра отделения реанимации обязана осуществлять лечебно-профилактический и гигиенический уход за пациентами...

Определение трудоемкости работ и затрат машинного времени На основании ведомости объемов работ по объекту и норм времени ГЭСН составляется ведомость подсчёта трудоёмкости, затрат машинного времени, потребности в конструкциях, изделиях и материалах (табл...

Гидравлический расчёт трубопроводов Пример 3.4. Вентиляционная труба d=0,1м (100 мм) имеет длину l=100 м. Определить давление, которое должен развивать вентилятор, если расход воздуха, подаваемый по трубе, . Давление на выходе . Местных сопротивлений по пути не имеется. Температура...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия