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

Настоящая инструкция распространяется на персонал, эсплуатирующий средства вычислительной техники и периферийное оборудование. Инструкция содержит общие указания по безопасному применению электрооборудования в учреждении. Требования настоящей инструкции являются обязательными, отступления от нее не допускаются. К самостоятельной эксплуатации электроаппаратуры допускается только специально обученный персонал не моложе 18 лет, пригодный по состоянию здоровья и квалификации к выполнению указанных работ.

Перед началом работы следует убедиться в исправности электропроводки, выключателей, штепсельных розеток, при помощи которых оборудование включается в сеть, наличии заземления компьютера, его работоспособности

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

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

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

Запрещается под напряжением очищать от пыли и загрязнения электроооборудование.

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

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

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

При пользовании элетроэнергией в сырых помещениях соблюдать особую осторожность.

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

При обнаружении неисправности немедленно обесточить электрооборудование, оповестить администрацию. Продолжение работы возможно только после устранения неисправности.

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

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

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

Искусственное дыхание пораженному электрическим током производится вплоть до прибытия врача.

На рабочем месте запрещается иметь огнеопасные вещества

В помещениях запрещается:

а) зажигать огонь;

б) включать электрооборудование, если в помещении пахнет газом;

в) курить;

г) сушить что-либо на отопительных приборах;

д) закрывать вентиляционные отверстия в электроаппаратуре

Источниками воспламенения являются:

а) искра при разряде статического электричества

б) искры от электроборудования

в) искры от удара и трения

г) открытое пламя

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

Помещения с электроборудованием должны быть оснащены огнетушителями типа ОУ-2 или ОУБ-3.

ЗАКЛЮЧЕНИЕ

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

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

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

В результате прохождения преддипломной практики  мною были закреплены теоретические знания, полученные в процессе обучения, а также были усовершенствованы навыки работы в 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;

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

 

 

⇐ Предыдущая123456789

Поделиться: