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

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

                  Дней=0;

                  Если (ДатаГод(ДатаС)=ДатаГод(ДатаПо)) Тогда

                        Дней=НомерДняГода(ДатаПо)-НомерДняГода(ДатаС)+ДнЪ; 

                  ИначеЕсли (ДатаГод(ДатаС)<ДатаГод(ДатаПо)) Тогда

                        Дней=НомерДняГода(КонГода(ДатаС))

      -НомерДняГода(ДатаС)+НомерДняГода(ДатаПо)+ДнЪ;

                  КонецЕсли; 

                  ДнейД=Дней;

                  ПроцНДС=0;

                  Если (Дней<7) Тогда

                        ПроцНДС=18;

                  КонецЕсли;

                  ЗаЗавтракД=ЗавтракЦ*ЗавтракЪ;

      ЗаОбедД=ОбедЦ*ОбедЪ;

      ЗаУжинД=УжинЦ*УжинЪ;

      ЗаСуткиД=ЗаСутки;

                  Стоим=(ЦенаСут*Дней)+ЗаЗавтракД+ЗаОбедД+ЗаУжинД;

                  Сумма=Стоим*КоличПут; 

                  НДС=Окр(Сумма*ПроцНДС/100,2,1);

                  Всего=Сумма+Ндс;

            КонецЕсли;

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

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

      При установки даты пребывания в санатории – полями ДатаС ДатаПо. Происходит окончательный расчет стоимости путевки подпрограммой ПпРасчет() Листинг которой приведен выше.

      При выборе плательщика в поле Организ открывается справочник Контрагентов программы 1С:Предприятия.

      При нажатии кнопки Меню вызывается процедура открытия меню. Ниже приведен листинг подпрограммы ОткрытьМеню():

     Процедура ОткрытьМеню()                                    

      ЗагСпМеню="Выберите";

      Пока  СпМеню.ВыбратьЗначение(ВыбЗнСпМеню,ЗагСпМеню,ПозСпМеню)=1 Цикл

      Если (ПозСпМеню=1) Тогда  НапечататьСчетВсе(); КонецЕсли;

      Если (ПозСпМеню=2) Тогда  НапечататьСчетФактуру(); КонецЕсли;

      Если (ПозСпМеню=3) Тогда НапечататьНакладную(); КонецЕсли;

      Если (ПозСпМеню=4) Тогда НапечататьАктПродажиПутевок(); КонецЕсли;

      Если (ПозСпМеню=5) Тогда ЗаписатьВТекстовыйФайл(); КонецЕсли;

      Если(ПозСпМеню=6)ТогдаСформироватьДокументИзТекстовогоФайла(); КонецЕсли;

      Если (ПозСпМеню=7) Тогда НапечататьКнигуПродаж(); КонецЕсли;

      Если (ПозСпМеню=8) Тогда НапечататьПутевкуСинию(); КонецЕсли;

      Если (ПозСпМеню=9) Тогда НапечататьПутевкуКрасную(); КонецЕсли;

      КонецЦикла;

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

      Р="^";

      ЕстьНаДату="";ЕстьТбл="";

      КаталБД=КаталогБазыДанных();

      СтрЪбыл=0;

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

      СпМеню.ДобавитьЗначение ("1. Напечатать счет");

      СпМеню.ДобавитьЗначение ("2. Напечатать СчетФактуру");

      СпМеню.ДобавитьЗначение ("3. Напечатать Накладную");

      СпМеню.ДобавитьЗначение ("4. Напечатать акт продажи путевок");

      СпМеню.ДобавитьЗначение ("5. ЗаписатьВТекстовыйФайл");

      СпМеню.ДобавитьЗначение ("6. СформироватьДокументИзТекстовогоФайла");

      СпМеню.ДобавитьЗначение ("7. Напечатать Книгу Продаж");

     СпМеню.ДобавитьЗначение ("8. НапечататьПутевкуСинию");

      СпМеню.ДобавитьЗначение ("9. НапечататьПутевкуКрасную");

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

      Рассмотрим  только некоторые процедуры.

      Процедурами НапечататьСчетФактуру()и НапечататьНакладную() производится выборка по активной строке, тех записей у которых совпадают значения  НомСч, ДатСч, Организ, Что. Затем печатается Счет-фактура и накладная. Листинг подпрограммы НапечататьСчетФактуру() приведен ниже.

      Процедура НапечататьСчетФактуру()

            НомСчЪ=НомСч;

            ДатСчЪ=ДатСч;

            ОрганизЪ=Организ;

            ЧтоЪ=Что;

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

            ТекВремя=ТекущееВремя();

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

            Спр.ИспользоватьДату(ДатаДок);

            Спр.НайтиПоНаименованию("НаименованиеЮрЛица",Организ );

            Если  Спр.Выбран() > 0 Тогда

                  Наименование=Спр.Наименование;

                    Сообщить(Спр.Наименование);

            КонецЕсли;

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

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

            Если (Днр.ПолучитьДокумент()<>1)Тогда  Возврат;КонецЕсли;

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

            Таб.ИсходнаяТаблица("C:\TrgSkPrg\PutRealFaktura.mxl");

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

            Итог=0;ИтСуммаЪ=0;ВсегоЪ=0;

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

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

            Если (НомСч=НомСчЪ)И(ДатСч=ДатСчЪ)

      И(Организ=ОрганизЪ)И(Что=ЧтоЪ) Тогда 

                        НаимТовЙ=""+"С/кур.путевка "+ " ("+дней+"д.)";

                        КолВо=КоличПут;

                        Цена=Стоим;

                        ИтСуммаъ=ИтСуммаЪ+Сумма;

                        ИтогСумма=Всего;

                        ВсегоО=ИтогСумма;

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

                  КонецЕсли;

            КонецЦикла;

            ВсегоЪ=ИтСуммаЪ;

            Таб.ВывестиСекцию("Подвал");

            Таб.Опции(0,0,0,0,"Параметры  печати");

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

            Таб.Показать("СчетФактура","");

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

Для отчета за месяц в санаторий отправляется документ в котором расписано  количество проданных путевок за текущий месяц, в специальной форме. Для этого в отчеты введена процедура НапечататьАктПродажиПутевок(). Листинг подпрограммы:

Процедура НапечататьАктПродажиПутевок() 

      ДатПутЪ=ДатаМесяц(ДатПут);

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

      ТекВремя=ТекущееВремя();

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

      Тпл.НоваяКолонка ("ДатаС","Дата",10,,"",,,1);  

      Тпл.НоваяКолонка ("ДатаПо","Дата",10,,"",,,1);

     Тпл.НоваяКолонка ("НомПутС","Число",6,,"",,"",1);

     Тпл.НоваяКолонка ("НомПутПо","Число",6,,"",,"",1);

      Тпл.НоваяКолонка ("КоличПут","Число",6,,"",,"",1);

      Тпл.НоваяКолонка ("ДатПут","Дата",10,,"",,,1);  

      Тпл.НоваяКолонка ("МесяцТ","Строка",20,,"",,,1);

      Тпл.НоваяКолонка ("МесяцС","Строка",20,,"",,,1);

      Тпл.НоваяКолонка ("ДнейТМ","Число",5,,"",,"",1);

      Тпл.НоваяКолонка ("ДнейСМ","Число",5,,"",,"",1);

      Тпл.НоваяКолонка ("Стоим","Число",10,2,"",,"",1);

      Тпл.НоваяКолонка ("Всего","Число",10,2,"",,"",1);

      Тпл.НоваяКолонка ("МесяЦЦ","Строка",20,2,"",,"",1);

     Тпл.НоваяКолонка ("СуммаОТ","Число",10,2,"",,"",1);

      Тпл.НоваяКолонка ("СуммаОС","Число",10,2,"",,"",1);

      Тпл.НоваяКолонка ("ТипПут","Строка",1,,"",,"",1);

      НомСтрЪ=НомерСтроки;

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

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

            Если  ДатаМесяц(ДатПут)=ДатПутЪ  Тогда

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

                  //Тпл.МесяЦЦ=ФПРасчетМесяц(ДатаМесяц(ДатПут));

                  Тпл.НомПутС=НомПутС;

                  Тпл.НомПутПо=НомПутПо;

                  Тпл.ДатПут=ДатПут;

                  Тпл.КоличПут=КоличПут;

                  //Тпл.Дней=Дней;

                  Тпл.Стоим=Стоим;

                  Тпл.Всего=Всего;

                  Тпл.ТипПут=ТипПут;

                  Если  ДатаМесяц(ДатаС)<>ДатаМесяц(ДатаПо) Тогда

                        Тпл.ДатаС=ДатаС;

                        Тпл.ДатаПо=ДатаПо;

                        Тпл.ДнейТМ=(ДатаЧисло(КонМесяца(Тпл.ДатаС))-