Разработка информационной системы по продаже путевок

     …

КонецЦикла;

Величина  приращения счетчика при каждом выполнении цикла равна 1. Условие выполнения цикла всегда проверяется вначале, перед выполнением цикла. [1][2]

 

       2 Разработка информационной системы

      Для того чтобы информационная система, была гибкая, легко подстраиваемая  под любую версию программ 1С:Предприятия, возьмем только один стандартный  элемент  - Справочник.Контрагенты. Остальные элементы информационной системы спроектируем с помощью инструмента 1С, Конфигуратора. На рисунке 2.1 приведена структурная сема программы «Расчет путевок по безналичному расчету для санатория».

        
 
 
 
 
 
 
 
 
 
 

      Из  рисунка 2.1 видно, что система будет  иметь четыре элемента. «Реквизиты организации» используются для задания данных таких как наименование, фамилия руководителя, главного бухгалтера и д.р., элемент «Перечисления» необходим для хранения всех перечисления которые используются в программе. «Цены на путевки» выступает в качестве справочника путевок и цен на них. «База Данных путевок» хранит массив записей по выписанным путевкам.

      Теперь  опишем разработку всех элементов информационной системы по отдельности.

      2.1 Документ «Реквизиты  организации»

      На  рисунке 2.2 приведено диалоговое окно документа, так как оно разработано в Конфигураторе.

        
 
 
 
 
 
 
 
 
 
 

      Документ  имеет только реквизиты шапки, основное значение строка, с разнам значением  длинны. В банковских реквизитах: «БИК», «РасчСч», «КорСч»и налоговых –  «ИНН», КПП длинна ограничена количеством допустимого значения так «БИК» больше 9 знаков иметь не может, «РасчСч», «КорСч» имеет только 20 символов и только цифры, тем самым предусмотрена «защита от дурака».

      2.2 Документ «Перечисления»

       На рисунке 2.3 приведено диалоговое окно документа, так как оно разработано в Конфигураторе. 
 
 
 
 
 
 
 
 
 
 

      Этот  документ в отличие от предыдущего, имеет только реквизиты табличной  части. «Реквизит» с типом «Строка», служит в качестве критерия отбора, по одинаковым значениям его строится массив со значением поля «Значения». Данное поле также имеет тип «строка».

      2.3 Документ «ПутевкиЦены»

      В данном документе создаются и  хранятся все виды путевок. На рисунке 2.3 изображена форма данного документа.

        
 
 
 
 
 
 
 
 
 
 
 

      К полю табличной части – «КатегНом» привязана процедура ПпКатегНом() которая связана с документом «ПутевкиПеречисления», по полю «Реквизит». Листинг процедуры приведен ниже:

   Процедура ПпКатегНом()          

         КтгФ=КатегНом;

         СпКтг=СоздатьОбъект("СписокЗначений");

         Дд=СоздатьОбъект("Документ.ПутевкиПеречисления");

         Дд.ВыбратьДокументы();

         Пока (Дд.ПолучитьДокумент()=1) Цикл

               Дд.ВыбратьСтроки();

               Пока (Дд.ПолучитьСтроку()=1) Цикл

                     Если(СокрЛП(Дд.Реквизит)="Категория")Тогда

                           СпКтг.ДобавитьЗначение (Дд.Значения);

                     КонецЕсли;

               КонецЦикла;

         КонецЦикла;

         ФлКтгЪ="*";

         ПозКтг=0;

         Если (СпКтг.ВыбратьЗначение (КтгФ,"Выберите значение",ПозКтг)=1)Тогда

               КатегНом=КтгФ;

         КонецЕсли;

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

   В процедуре создается стандартный  объект СписокЗначений, в который добавляются все записи из документа «ПутевкиПеречисления» имеющие значение поля «Реквизит» равным - «Категория».

        2.4 Документ «ПутевкиРеализация»

      Этот  документ является основным, в нем  не только вводятся (записываются) данные, но и ведется обработка, печать отчетов. На рисунке 2.4 изображена форма документа  «ПутевкиРеализация».

      

                       
 
 
 
 
 
 
 
 
 

 

      Описывая  поля документа, опишем привязанные к ним процедуры и функции.

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

        Процедура ПпНомПутС()

            Если (НомПутПо<>0)И(НомПутПо<>"") Тогда

                КоличПут=НомПутПо-НомПутС+1;

            Иначе

                  НомПутПо=НомПутС;

                  КоличПут=1;

            КонецЕсли;

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

            Лечение=1;

            Питание=1;

            Проживание=1;

            ВремяС="Завтрак";

            ВремяПо="Ужин";

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

      При выборе путевки в поле КатегНом выполняется процедура ПпКатегНом(), и процедура ПпРасчет(). Данная процедура выполняет расчет стоимости путевки.

      Процедура ПпРасчет()   

            Тбл.Очистить();

            Тбл.НоваяКолонка ("КатегНом","Строка",45,,"",,,1); 

            Тбл.НоваяКолонка ("Лечение","Число",5,,"",,,1); 

            Тбл.НоваяКолонка ("Проживание","Число",5,,"",,"",1);

            Тбл.НоваяКолонка ("Питание","Число",5,,"",,"",1);

            Тбл.НоваяКолонка ("Завтрак","Число",5,,"",,"",1);

            Тбл.НоваяКолонка ("Обед","Число",5,,"",,"",1);

            Тбл.НоваяКолонка ("Ужин","Число",5,,"",,"",1);

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

            Дд.ВыбратьДокументы();

            Пока (Дд.ПолучитьДокумент()=1) Цикл

                  Дд.ВыбратьСтроки();

                  Пока (Дд.ПолучитьСтроку()=1) Цикл 

                        Если ((СокрЛП(Дд.ДатаПО)<>".  .")И(Дд.ДатаПО<ДатаС))

                        Или   (СокрЛП(Дд.ДатаС) <>".  .")И(Дд.ДатаС>ДатаС)Тогда

                              Продолжить;

                        КонецЕсли;

                        Тбл.НоваяСтрока();

                        Тбл.КатегНом=Дд.КатегНом;

                        Тбл.Лечение=Дд.Лечение;

                        Тбл.Проживание=Дд.Проживание;

                        Тбл.Питание=Дд.Питание;

                        Тбл.Завтрак=Дд.Завтрак;

                        Тбл.Обед=Дд.Обед;

                        Тбл.Ужин=Дд.Ужин;

                        КонецЦикла;

                  КонецЦикла; 

            КатегНомЪ=СокрЛП(КатегНом);

            Тбл.ВыбратьСтроки();

            Пока (Тбл.ПолучитьСтроку()=1) Цикл

                  Если (СокрЛП(Тбл.КатегНом)=КатегНомЪ) Тогда               ЦенаСут=(Тбл.Лечение*Лечение)

      +(Тбл.Проживание*Проживание)

      +(Тбл.Питание*Питание);

                        ЗаСутки=((Тбл.Лечение*Лечение)

      +(Тбл.Проживание*Проживание)

      +(Тбл.Питание*Питание));       ЗавтракЦ=Окр(Тбл.Завтрак*ЗаСутки 

      /(Тбл.Лечение+Тбл.Проживание

      +Тбл.Питание),0,1);

                        ОбедЦ=Окр(Тбл.Обед*ЗаСутки

      /(Тбл.Лечение+Тбл.Проживание

      +Тбл.Питание),0,1);

                        УжинЦ=Окр(Тбл.Ужин*ЗаСутки

      /(Тбл.Лечение+Тбл.Проживание

      +Тбл.Питание),0,1);

                        ЗаОбедД=ОбедЦ;ЗаУжинД=УжинЦ;ЗаСуткиД=ЗаСутки;

                  КонецЕсли;

            КонецЦикла;

            Если (СокрЛП(ВремяС)<>"")И(СокрЛП(ВремяПо)<>"") Тогда

                  ДнЪ=0; ЗавтракЪ=0; ОбедЪ=0; УжинЪ=0;

                  ВремяСЪ=СокрЛП(ВремяС);

                  ВремяПоЪ=СокрЛП(ВремяПо);

                  Если (ВремяСЪ="Завтрак")И(ВремяПоЪ="Завтрак")Тогда        

      ЗавтракЪ=1;        КонецЕсли; 

                  Если (ВремяСЪ="Завтрак")И(ВремяПоЪ="Обед")   Тогда

               ЗавтракЪ=1;ОбедЪ=1; КонецЕсли;

                  Если (ВремяСЪ="Завтрак")И(ВремяПоЪ="Ужин")   Тогда 

ДнЪ=1;                    КонецЕсли;

                  Если (ВремяСЪ="Обед")   И(ВремяПоЪ="Обед")   Тогда

         ОбедЪ=1;           КонецЕсли; 

                  Если (ВремяСЪ="Обед")   И(ВремяПоЪ="Ужин")   Тогда

               ОбедЪ=1;УжинЪ=1;   КонецЕсли;

                  Если (ВремяСЪ="Обед")   И(ВремяПоЪ="Завтрак")Тогда 

      ДнЪ=0;                    КонецЕсли;

                  Если (ВремяСЪ="Ужин")   И(ВремяПоЪ="Ужин")   Тогда 

      УжинЪ=1;           КонецЕсли;

                  Если (ВремяСЪ="Ужин")   И(ВремяПоЪ="Завтрак")Тогда 

      ДнЪ=-1;УжинЪ=1;ЗавтракЪ=1;  КонецЕсли;

                  Если (ВремяСЪ="Ужин")   И(ВремяПоЪ="Обед")   Тогда