Общее ознакомление с предприятием

Стр 1 из 9Следующая ⇒

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

Общее ознакомление с предприятием

1.1. История предприятия (краткая информация о предприятии)

1.2. Характеристика выпускаемой продукции

1.3. Техническая оснащённость предприятия

1.4. Контроль качества выпускаемой продукции

Отделы предприятия: организационная структура, назначение, оборудование отделов

Заказчики предприятия

Характер работ в отделе предприятия

Производственная работа на штатных рабочих местах

Изучение технологического процесса обработки информации

Оценка организации работ по ремонту и замене вычислительных устройств

Изучение банков справочной информации

9. Индивидуальное задание

9.1. Постановка задачи

9.1.1. Описание предметной области

9.1.2. Описание круга задач, решаемых программой

9.1.3. Входная и выходная информация

9.2. Проектирование задачи

9.2.1. Алгоритм решения задачи

9.2.2. Физическая структура

9.2.3. Логическая структура

9.3. Описание программы

9.3.1. Выбор и обоснование средств разработки

9.3.2. Описание пользовательского интерфейса

9.3.3. Программно-аппаратные требования к ПК

9.4. Тестирование

9.5. Применение программы

9.5.1. Руководство пользователя

9.5.2. Возможность интеграции программы в САПР

9.6. Расчет себестоимости программного средства

Правила техники безопасности. Инструкция по охране труда и пожарной безопасности

ЗАКЛЮЧЕНИЕ (итоги практики)

ПРИЛОЖЕНИЕ (диаграммы, листинг программы)

ВВЕДЕНИЕ

Основной целью прохождения преддипломной практики является приобретение профессиональных навыков по профилю специальности, закрепление, расширение и систематизация знаний, полученных при изучении специальных дисциплин. Также во время прохождения практики необходимо ознакомиться с организационной структурой предприятия, функциональными обязанностями подразделений базы практики, степенью автоматизации предприятия, а также с услугами, оказываемыми предприятием.

Цели и задачи преддипломной практики следующие:

– изучение структуры предприятия

– сбор информации для отчета по преддипломной практике проектирования.

– получение возможности самостоятельной работы в условиях производства

– приобретение навыков по специальности

– систематизация знаний

В период прохождения практики я:

– ознакомился с законодательством Республики Беларусь, регулирующим деятельность общества.

– ознакомился с сотрудниками организации.

– ознакомился с организацией и выполняемыми функциями и обязанностями работника предприятия.

– выполнял поручения своего руководителя.

– ознакомился с содержанием экономической и организационной работой.

– ознакомился с особенностями работы практиканта в сфере программиста.

– усовершенствовал навыки оптимизации ПК (отключение ненужных служб, чистка и дефрагментация HDD)

– изучил и совершенствовал знания в использовании таких программ как:

· Photoshop CS6 (многофункциональный графический редактор)

· ProShow Producer (создание видео слайд-шоу из фотографий)

· Recuva (востановление потерянных данных)

· Advanced SystemCare 10 (универсальный оптимизатор ПК)

· CCleaner (чистка и дефрагментация)

· Victoria (проверка HDD на bad сектора)

· FileZilla (FTP клиент)

Место прохождения практики ОАО «СГЦ Западный». Период прохождения практики с 04.12.2017г. по 31.12.2017г.

Общее ознакомление с предприятием

История предприятия

Республиканское унитарное сельскохозяйственное предприятие «Селекционно – гибридный центр «Западный» (далее РУСП "СГЦ "Западный") является государственным сельскохозяйственным предприятием Республики Беларусь и находится в собственности Республики Беларусь.

Предприятие зарегистрировано 27 июня 2001 года Брестским областным исполнительным комитетом в Едином государственном регистре юридических лиц и индивидуальных предпринимателей за № 200034946 (Свидетельство о государственной регистрации коммерческой организации № 02559 от 01.08.2001 года ).

Головным органом управления является «Белорусское государственное объединение по племенному животноводству «Белплемживобъединение». Полномочия собственника по отношению к имуществу предприятия осуществляет Министерство сельского хозяйства и продовольствия Республики Беларусь через «Белорусское государственное объединение по племенному животноводству «Белплемживобъединение» в пределах прав, определенных законодательством.

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

РУСП «СГЦ «Западный» - как отдельная производственная единица было образовано в сентябре 1978 года. Первоначально представляло собой межхозяйственное предприятие «Западное», промышленный свиноводческий комплекс по выращиванию и откорму свиней на 54000 голов. Строительство было закончено в 1981 году. Срок окупаемости составил 3,5 года.

С декабря 1985 года начинается строительство селекционно – гибридного центра (СГЦ). Основными его задачами являются: производство гибридных свинок и хряков, оцененных по собственной продуктивности для комплексов и ферм Брестской области. Производственная мощность СГЦ рассчитана на получение 12,2 тысяч голов ремонтного молодняка, в том числе 11,2 тысячи голов свинок и около 1000 голов хрячков. Строительство последних цехов СГЦ продолжается и в настоящее время. В 1985 - 1986 годах предприятие входит в состав «Созплемгибридсвинотреста» Министерства сельского хозяйства СССР, а с 1987 года - в состав АПК «Западный Буг» Брестского райисполкома.

Республиканское унитарное сельскохозяйственное предприятие «Селекционно – гибридный центр «Западный», основанное на праве хозяйственного ведения, переименовано из совхоза – комбината «Западный», созданного на основании решения исполкома Брестского областного Совета депутатов от 1 июля 1984 года № 375, УНП – 200034946.

С 1990 года по настоящее время РУСП «СГЦ «Западный» находится в подчинении Белорусского государственного объединения по племенному животноводству «Белплемживобъединение». Является самостоятельным хозяйствующим субъектом, коммерческой организацией, обладает правами юридического лица, владеет обособленным имуществом, имеет самостоятельный баланс, расчетный счет в рублях в ОАО «Бел Агропромбанк», фирменную эмблему (товарный знак), печать с изображением Государственного герба Республики Беларусь и со своим наименованием, другие штампы и печати и иную необходимую атрибутику.

Форма собственности государственная республиканская, дата регистрации Устава № 65 от 22.05.2001 года. Размер Уставного фонда по состоянию на 01.01.2006 года составил – 1,2 млн. рублей. Государство выступает главным учредителем предприятия, которому принадлежит 100 % Уставного фонда предприятия.

РУСП «СГЦ «Западный» не является учредителем дочерних предприятий.

В свою очередь РУСП «СГЦ «Западный» является учредителем таких предприятий как: Брестский АК «Агропромбанк», ОАО «Брестский мясокомбинат», ОАО «Жабинковский комбикормовый завод», ОАО «Брестский молочный комбинат», ОАО «Жабинковский сахарный завод», ОАО «Брестский райагросервис», ОАО «Красносельскстройматериалы» со следующим количеством акций (табл. №1):

№ п/п	Наименование эмитента	Количество (штук)	Номиналь-ная стоимость 1 штуки (рублей)	Балансовая стоимость на 01.01.2007 года (рублей)
1. 2. 3. 4. 5. 6. 7. 8. 9.	ОАО «Савушкин продукт» ОАО «Брестский мясокомбинат» ОАО «Жабинковский сахарный завод» ОАО «Брестский райагросервис» ОАО «Красносельскстройматериалы» ОАО «Белагропромбанк» ОАО «Жабинковский комбикормовый завод» ОАО «Верховичский крахмальный завод» ЗАО «Белорусский торгово-выставочный и информационно-маркетинговый центр (Россия) Итого:	7 537 18 382 1 383 1 078 151 715 26 030 739 2 415 1 329 200 Х	25 14400 140 481 447 10 2 105 3 000 235 277 Х	188 425 264 700 800 193 620 519 000 000 1 517 150 52 061 478 253 575 3 987 000 47 055 400 888 957 448

Таблица № 1

Стратегия развития предприятия определяется Министерством сельского хозяйства, а текущее руководство возложено на директора предприятия.

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

Предприятие самостоятельно организует свою деятельность исходя из необходимости производства продукции (выполнения работ, оказания услуг) и определяет перспективы развития, если иное не предусмотрено Правительством Республики Беларусь, уполномоченным органом и учредителем.

Основным обобщающим показателем финансовой деятельности предприятия является прибыль. Прибыль предприятия, после уплаты налогов и других обязательных платежей в бюджет (чистая прибыль) и выплаты части прибыли собственнику имущества Унитарного предприятия, остается в полном его распоряжении. Чистая прибыль направляется в фонды, формируемые предприятием. Порядок использования фондов определяется предприятием самостоятельно.

Заказчики предприятия

ОАО «СГЦ «Западный» является учредителем таких предприятий как: Брестский АК «Агропромбанк», ОАО «Брестский мясокомбинат», ОАО «Жабинковский комбикормовый завод», ОАО «Брестский молочный комбинат», ОАО «Жабинковский сахарный завод», ОАО «Брестский райагросервис», ОАО «Красносельскстройматериалы».

Постановка задачи

Разработать АИС «Учет реализации продукции предприятия.

Описание предметной области

Разработка АИС которая включает в себя информацию об выпускаемой продукции предприятия. Эта программа будет использоваться бухгалтерами для учета количества продукции, что упростит работу, и совершение различных ошибок.

Проектирование задачи

Алгоритм решения задачи

Алгоритм решения задачи можно разделить на несколько этапов:

• Разработка интерфейса программы,

• Создание форм,

• Анализ входных данных и определения реакции программы в случае их ошибочности,

• Анализ выходных данных и определения реакции программы в случае их ошибочности,

• Тестирование программы, исправление ошибок.

Физическая структура

Перем ТекущееСостояние; // если "0" - (открытие журнала, готов к вводу);

// "1" - (открыт ввод чека, идет заполнение чека);

// "2" - (состояние Х).

Перем ИнфТекст;

Перем ТекущаяКарта;

Перем ТекущийТН;

Перем ТекущаяКартаСтрокой;

Перем ТекущийСотрудник;

Перем ФИО;

Перем БалансСотрудника;

Перем УдержаниеСотрудника;

Перем Доступно;

Перем БухИт;

Перем БухИтДень;

Перем СчБС;

Перем ИтогПоКассе;

Перем ИтогПоСотруднику;

Перем ФлагКонтроля;

//_____________________________________________________________________________

Процедура ИтогПоКассе()

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Кассы,глКасса,2);

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Сотрудники);

БухИтДень.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(), СчБС,,,,,"С");

ИтогПоКассе=БухИтДень.ДО("С");

КонецПроцедуры //ИтогПоКассе

//__________________________________ПечатьЧекаТаблицы()___________________________________________

Процедура ПечатьЧекаТаблицы()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

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

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации;

НомерЧека=ТекущийДокумент.НомерДок;

Покупатель=ТекущийДокумент.Сотрудник;

СуммаПоЧеку=ТекущийДокумент.СуммаЧека;

НомерКарты=""+Лев(ТекущийДокумент.Сотрудник.НомерКарты,3)+"****"+Прав(ТекущийДокумент.Сотрудник.НомерКарты,3);

ИмяКассы=ТекущийДокумент.Касса;

Таб.ВывестиСекцию("Шапка");

//Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,0,0,0,0,0,0,0);

Таб.КоличествоЭкземпляров(1);

//Таб.Показать("Печать чека" );

//Если НастройкаПечати=1 Тогда

// Таб.Напечатать(1); Форма.Обновить();

//Иначе Таб.Напечатать(0); Форма.Обновить();

//КонецЕсли;

Таб.Напечатать(0);

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

//_____________________________________________________________________________

Процедура ПечатьЧека()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

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

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации;

Покупатель=ТекущийСотрудник;

СуммаПоЧеку=Калькулятор;

НомерКарты=ТекущаяКартаСтрокой;

Таб.ВывестиСекцию("Шапка");

Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,,,0,0,0,0,1);

Таб.КоличествоЭкземпляров(1);

Таб.Показать("Печать чека" );

//Таб.Напечатать(0);

Логическая структура

Программа состоит из справочников, чеков магазина, сотрудники переход по которым возможно при помощи кнопок.

Для работы программы используются базы данных:

Описание программы

Тестирование

Применение программы

Программа АИС предназначена для проверки и посещаемости рабочих . Может использоваться бухгалтерами в различных учебных заведениях, что позволит быстро, безошибочно и без каких-либо подсчетов занести данные в таблицу и в дальнейшем вывести на печать .

9.5.1 Руководство пользователя

В программе имеется помощь, описание программы которая позволит быстрее понять интерфейс и работу программы.

ЗАКЛЮЧЕНИЕ

При прохождении преддипломной практики я изучил структуру предприятия ОАО СГЦ «Западный», основные направления, техническое оснащение и программные средства лицея.

Конечным итогом является работоспособная программа АИС. Программа со временем будет обновляться.

Эта программа повысит эффективность работы бухгалтеров, а также позволит не делать ошибок.

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

Полученные результаты будут применятся в будущем.

ПРИЛОЖЕНИЕ

Диаграмма деятельности

Листинг программы

Перем ТекущееСостояние; // если "0" - (открытие журнала, готов к вводу);

// "1" - (открыт ввод чека, идет заполнение чека);

// "2" - (состояние Х).

Перем ИнфТекст;

Перем ТекущаяКарта;

Перем ТекущийТН;

Перем ТекущаяКартаСтрокой;

Перем ТекущийСотрудник;

Перем ФИО;

Перем БалансСотрудника;

Перем УдержаниеСотрудника;

Перем Доступно;

Перем БухИт;

Перем БухИтДень;

Перем СчБС;

Перем ИтогПоКассе;

Перем ИтогПоСотруднику;

Перем ФлагКонтроля;

//_____________________________________________________________________________

Процедура ИтогПоКассе()

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Кассы,глКасса,2);

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Сотрудники);

БухИтДень.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(), СчБС,,,,,"С");

ИтогПоКассе=БухИтДень.ДО("С");

КонецПроцедуры //ИтогПоКассе

//__________________________________ПечатьЧекаТаблицы()___________________________________________

Процедура ПечатьЧекаТаблицы()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

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

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации;

НомерЧека=ТекущийДокумент.НомерДок;

Покупатель=ТекущийДокумент.Сотрудник;

СуммаПоЧеку=ТекущийДокумент.СуммаЧека;

НомерКарты=""+Лев(ТекущийДокумент.Сотрудник.НомерКарты,3)+"****"+Прав(ТекущийДокумент.Сотрудник.НомерКарты,3);

ИмяКассы=ТекущийДокумент.Касса;

Таб.ВывестиСекцию("Шапка");

//Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,0,0,0,0,0,0,0);

Таб.КоличествоЭкземпляров(1);

//Таб.Показать("Печать чека" );

//Если НастройкаПечати=1 Тогда

// Таб.Напечатать(1); Форма.Обновить();

//Иначе Таб.Напечатать(0); Форма.Обновить();

//КонецЕсли;

Таб.Напечатать(0);

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

//_____________________________________________________________________________

Процедура ПечатьЧека()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

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

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации;

Покупатель=ТекущийСотрудник;

СуммаПоЧеку=Калькулятор;

НомерКарты=ТекущаяКартаСтрокой;

Таб.ВывестиСекцию("Шапка");

Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,,,0,0,0,0,1);

Таб.КоличествоЭкземпляров(1);

Таб.Показать("Печать чека" );

//Таб.Напечатать(0);

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

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

УстановитьИнтервал(РабочаяДата(),РабочаяДата(),0);

Форма.РамкаИтогаПоКассе.Заголовок("Итог по кассе за "+РабочаяДата());

СчБС = СчетПоКоду("БС");

ДатаАктуальности = КонМесяца(РабочаяДата());

БухИт = СоздатьОбъект("БухгалтерскиеИтоги");

БухИт.ПериодМ(ДатаАктуальности);

БухИтДень = СоздатьОбъект("БухгалтерскиеИтоги");

ИтогПоКассе();

БалансСотрудника = "0 руб. 00 коп.";

УдержаниеСотрудника = "0 руб. 00 коп.";

Доступно = "0 руб. 00 коп.";

ТекущееСостояние=0;

Активизировать("Калькулятор",1);

ФлагКонтроля=0;

ФлБуфет=0; ФлМагазин=0; ФлСтоловая=0;

//БалансСотрудника=0;

ИнфТекст="Система готова к работе!";

//Сигнал();

ТекущаяКарта="";

ТекущийТН="";

ТекущаяКартаСтрокой="";

Фото.Загрузить("NoFoto");

Форма.Калькулятор.Доступность(0);

Форма.ИнфоКнопка.Доступность(0);

КонецПроцедуры //ПриОткрытии

//_____________________________________________________________________________

Процедура ПослеСозданияФормы()

ФормаРасш = СоздатьОбъект("РасширениеФормы");

ФормаРасш.Максимизирована = 1;

КонецПроцедуры //ОслеОткрытия

//_____________________________________________________________________________

Процедура ПриВводеСуммы()

Если Калькулятор <> 0 Тогда

Форма.кнПодписиЧека.Доступность(1);

Иначе

Форма.кнПодписиЧека.Доступность(0);

КонецЕсли;

КонецПроцедуры //ПриВводеСуммы

//_____________________________________________________________________________

Процедура ОчиститьЧек()

ИнфТекст="Система готова к работе!";

//Сигнал();

БалансСотрудника="0 руб. 00 коп.";

УдержаниеСотрудника="0 руб. 00 коп.";

Доступно = "0 руб. 00 коп.";

Фото.Загрузить("NoFoto");

ТекущееСостояние=0;

Калькулятор=0;

ФлБуфет=0; ФлМагазин=0; ФлСтоловая=0;

ТекущаяКарта="";

ТекущийТН="";

ТекущаяКартаСтрокой="";

ФИО="";

ФлагКонтроля=0;

Форма.Калькулятор.Редактирование(0);

Форма.Калькулятор.Доступность(0);

Форма.кнОтменыЧека.Доступность(0);

Форма.кнПодписиЧека.Доступность(0);

Форма.ИнфоКнопка.Доступность(0);

КонецПроцедуры //ОчиститьЧек

//_____________________________________________________________________________

Процедура ПодписатьЧек()

БалСотр = 0;

//БалСотр = ТекущийСотрудник.Кредит-БухИт.ДО(СчБС,"С",,,ТекущийСотрудник,)-Калькулятор;

Если глКасса = Перечисление.Кассы.Столовая Тогда

БалСотр = ТекущийСотрудник.КредитСтоловая - БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Столовая,ТекущийСотрудник,) - Калькулятор;

ИначеЕсли (глКасса = Перечисление.Кассы.Буфет) ИЛИ (глКасса = Перечисление.Кассы.Магазин) Тогда

БалСотр = ТекущийСотрудник.Кредит - (БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Буфет,ТекущийСотрудник,)+БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Магазин,ТекущийСотрудник,)) - Калькулятор;

КонецЕсли;

Если (Калькулятор <> 0) И (БалСотр > -1) Тогда

ТекущееСостояние=2;

Форма.Калькулятор.Доступность(0);

Форма.ИнфоКнопка.Доступность(0);

ИнфТекст="Чек готов к проведению!";

//Сигнал();

Иначе

Предупреждение("Неверная сумма чека!!!",1);

Калькулятор=0;

ТекущееСостояние=1;

//Сигнал();

КонецЕсли;

КонецПроцедуры //ПодписатьЧек

//_____________________________________________________________________________

Процедура ОбработкаВнешнегоСобытия()

Если ТекущееСостояние=0 Тогда

База=СоздатьОбъект("Справочник.Сотрудники");

//Сообщить("Считан код: "+Scaner.ScanData);

Если (База.НайтиПоРеквизиту("НомерКарты",СокрЛП(Scaner.ScanData),1)=1) Тогда

Если глКасса = Перечисление.Кассы.Столовая Тогда

ФлагКонтроля=База.ФлагСтоловая;

//ФлСтоловая=ФлагКонтроля;

ИначеЕсли глКасса = Перечисление.Кассы.Буфет Тогда

ФлагКонтроля=База.ФлагБуфет;

//ФлБуфет=ФлагКонтроля;

ИначеЕсли глКасса = Перечисление.Кассы.Магазин Тогда

ФлагКонтроля=База.ФлагМагазин;

//ФлМагазин=ФлагКонтроля;

КонецЕсли;

Если (ФлагКонтроля = 1) Тогда

ТекущаяКартаСтрокой="Карта №: "+СокрЛП(Scaner.ScanData);

ТекущаяКарта=СокрЛП(Scaner.ScanData);

ТекущийТН="Таб.№: "+База.Код;

ТекущийСотрудник=База.ТекущийЭлемент() ;

ФлСтоловая=База.ФлагСтоловая;

ФлБуфет=База.ФлагБуфет;

ФлМагазин=База.ФлагМагазин;

ФИО=База.Наименование;

УдержаниеТС=0;

//___Балансы__________________________________________________________________________

Если глКасса = Перечисление.Кассы.Столовая Тогда

БалансСотрудника = ""+ Формат((ТекущийСотрудник.КредитСтоловая),"Ч19.2")+" руб.";

//БалансСотрудника = ""+Цел(ТекущийСотрудник.КредитСтоловая)+" руб. "+ (ТекущийСотрудник.КредитСтоловая-Цел(ТекущийСотрудник.КредитСтоловая)) +" коп.";

ИначеЕсли (глКасса = Перечисление.Кассы.Буфет) ИЛИ (глКасса = Перечисление.Кассы.Магазин) Тогда

БалансСотрудника = ""+ Формат((ТекущийСотрудник.Кредит),"Ч19.2")+" руб.";

//БалансСотрудника = ""+Цел(ТекущийСотрудник.Кредит)+" руб. "+ (ТекущийСотрудник.Кредит-Цел(ТекущийСотрудник.Кредит)) +" коп.";

КонецЕсли;

//_____________________________________________________________________________

Если глКасса = Перечисление.Кассы.Столовая Тогда

УдержаниеСотрудника = ""+ Формат((БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Столовая,ТекущийСотрудник,)),"Ч19.2")+" руб.";

//УдержаниеТС=БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Столовая,ТекущийСотрудник,);

//УдержаниеСотрудника=""+Цел(УдержаниеТС)+" руб. "+ (УдержаниеТС-Цел(УдержаниеТС)) +" коп.";

ИначеЕсли (глКасса = Перечисление.Кассы.Буфет) ИЛИ (глКасса = Перечисление.Кассы.Магазин) Тогда

УдержаниеСотрудника = ""+ Формат((БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Буфет,ТекущийСотрудник,)+БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Магазин,ТекущийСотрудник,)),"Ч19.2")+" руб.";

//УдержаниеТС=БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Буфет,ТекущийСотрудник,)+БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Магазин,ТекущийСотрудник,);

//УдержаниеСотрудника=""+Цел(УдержаниеТС)+" руб. "+ (УдержаниеТС-Цел(УдержаниеТС)) +" коп.";

КонецЕсли;

//_____________________________________________________________________________

Если глКасса = Перечисление.Кассы.Столовая Тогда

Доступно = ""+ Формат((ТекущийСотрудник.КредитСтоловая-БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Столовая,ТекущийСотрудник,)),"Ч19.2")+" руб.";

ИначеЕсли (глКасса = Перечисление.Кассы.Буфет) ИЛИ (глКасса = Перечисление.Кассы.Магазин) Тогда

Доступно = ""+ Формат((ТекущийСотрудник.Кредит-БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Буфет,ТекущийСотрудник,)-БухИт.ДО(СчБС,"С",,Перечисление.Кассы.Магазин,ТекущийСотрудник,)),"Ч19.2")+" руб.";

КонецЕсли;

//_____________________________________________________________________________

ИнфТекст="Операция разрешена!";

//Сигнал();

ТекущееСостояние=1;

Форма.Калькулятор.Редактирование(1);

Форма.Калькулятор.Доступность(1);

Форма.ИнфоКнопка.Доступность(1);

Форма.кнОтменыЧека.Доступность(1);

Активизировать("Калькулятор",1);

ФайлФото=КаталогФотографий+"p"+СокрЛП(строка(База.Код))+".jpg";

//Сообщить(ФайлФото);

Если ФС.СуществуетФайл(ФайлФото)=1 Тогда

Фото.Загрузить(КаталогФотографий+ФС.НайтиПервыйФайл(ФайлФото));

ИначеЕсли ФС.СуществуетФайл(ФайлФото)=0 Тогда

Фото.Загрузить(КаталогФотографий+"\NOFOTO.wmf");

КонецЕсли;

Иначе

Предупреждение("Карта заблокирована!!!",2);

ФлБуфет=0; ФлМагазин=0; ФлСтоловая=0;

Scaner.DeleteEvent();

КонецЕсли;

Иначе

Если База.Разрешение=Перечисление.Булево.Нет Тогда

//ИнфТекст.Цвет(4);

//ИнфТекст="Карта заблокирована!!!";

Предупреждение("Карта заблокирована!!!",2);

ОчиститьЧек();

Иначе

//ИнфТекст.Цвет(5);

//ИнфТекст="Карта не оформлена!!!";

Предупреждение("Карта не оформлена!!!",2);

ОчиститьЧек();

КонецЕсли;

//Сигнал();

КонецЕсли;

ИначеЕсли ТекущееСостояние=1 Тогда

Scaner.DeleteEvent();

ИначеЕсли ТекущееСостояние=2 Тогда

Если СокрЛП(Scaner.ScanData)=ТекущаяКарта Тогда

НовыйЧек=СоздатьОбъект("Документ.Чек");

НовыйЧек.Новый();

НовыйЧек.АвтоВремяТекущее();

НовыйЧек.Сотрудник=ТекущийСотрудник;

НовыйЧек.СуммаЧека=Калькулятор;

НовыйЧек.Касса=глКасса;

НовыйЧек.Автор = ИмяПользователя();

НовыйЧек.Записать();

НовыйЧек.Провести();

//_Печать проведеного чека ____________________________________________________________________________

//Если НовыйЧек.Провести()=1 Тогда

// Если ПечататьЧек=1 Тогда

// ПечатьЧека();

// КонецЕсли;

//КонецЕсли;

//_____________________________________________________________________________

Форма.Дискетка.Видимость(1);

ИнфТекст="Чек проведен!";

Форма.Обновить();

Предупреждение("Чек ПРОВЕДЕН!!!",1);

ИтогПоКассе();

Форма.Дискетка.Видимость(0);

Форма.Обновить();

//Сигнал();

ОчиститьЧек();

//АктивизироватьСтроку(КоличествоСтрок());

Scaner.DeleteEvent();

Иначе

Предупреждение("Неверный номер карты!!!",1);

//Сигнал();

Scaner.DeleteEvent();

КонецЕсли;

Иначе

Scaner.DeleteEvent();

КонецЕсли;

КонецПроцедуры //ОбработкаВнешнегоСобытия(Источник,Событие,Данные)

//*******************************************

//_____________________________________________________________________________

Процедура ПоСотрудникуЗаМесяц()

Предупреждение(""+ТекущийСотрудник.Наименование +"

|Кредит на столовую: "+ Формат(ТекущийСотрудник.КредитСтоловая,"Ч19 ")+" руб."+"

|Кредит на буфет/магазин: "+Формат(ТекущийСотрудник.Кредит,"Ч19 ")+" руб."+"

|Всего к удержвнию: "+ Формат((БухИт.ДО(СчБС,"С",,,ТекущийСотрудник,)),"Ч19 ")+" руб.", 0);

КонецПроцедуры //ПоСотрудникуЗаМесяц

//_____________________________________________________________________________

Процедура ПриВыбореСтроки()

Форма.ОбработкаВыбораСтроки(0);

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

///-----------------

Процедура Эмуль()

if LoadAddin("Event1C.dll") = 1 then

Event1c=CreateObject("AddIn.Event1C");

Event1c.SendEvent("Источник","Событие","Данные");

endif;

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

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

Общее ознакомление с предприятием

1.1. История предприятия (краткая информация о предприятии)

1.2. Характеристика выпускаемой продукции

1.3. Техническая оснащённость предприятия

1.4. Контроль качества выпускаемой продукции

12 3 4 5 6 7 8 9 Следующая ⇒

Последнее изменение этой страницы: 2019-04-10; Просмотров: 296; Нарушение авторского права страницы