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

     ДатаЧисло(Тпл.ДатаС)+1)*Тпл.КоличПут;

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

     ДатаЧисло(НачМесяца(Тпл.ДатаПо))+1)*

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

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

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

                  ИначеЕсли  ДатаМесяц(ДатаС)=ДатаМесяц(ДатаПо) Тогда

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

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

                        Тпл.ДнейТМ=(ДатаЧисло(Тпл.ДатаПо)-

     ДатаЧисло(Тпл.ДатаС)+1)*Тпл.КоличПут;

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

                        Тпл.МесяцС="--";

                  КонецЕсли;

            Если СокрЛП(ФПРасчетМесяц(ДатаМесяц(Тпл.ДатПут)))=СокрЛП(Тпл.МесяцТ) Тогда

                        Тпл.СуммаОТ=(Тпл.ДнейТМ)*ЦенаСут;

                  КонецЕсли;

            КонецЕсли;

      КонецЦикла; 

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

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

      СтрокНаЛисте=740; ТекущСтрЛиста=1000;НомерЛиста=1;

      НомСтр=0;НомПП=0;ВысСтр=22.5;

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

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

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

            ном=ном+1;

            Х="Строка";

            ПечатьСтрок(ВысСтр);

      КонецЦикла;

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

      Х="Конец";

      ПечатьСтрок(ВысСтр);

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

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

      Таб.Показать("Акт","");

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

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

      В данной процедуре используются функции и процедура. Функция ФПРасчетМесяц() – конвертирует месяца, процедура ПечатьСтрок(у) рассчитывает строки печати.

     Функция ФПРасчетМесяц(мес) экспорт

            Если  СокрЛП(мес)="1" Тогда

                  месяц="январь";

            ИначеЕсли СокрЛП(мес)="2" Тогда

                  месяц="февраль";

            ИначеЕсли СокрЛП(мес)="3" Тогда

                  месяц="март";

            ИначеЕсли СокрЛП(мес)="4" Тогда

                  месяц="апрель";

            ИначеЕсли СокрЛП(мес)="5" Тогда

                  месяц="май";

            ИначеЕсли СокрЛП(мес)="6" Тогда

                  месяц="июнь";

            ИначеЕсли СокрЛП(мес)="7" Тогда

                  месяц="июль";

            ИначеЕсли СокрЛП(мес)="8" Тогда

                  месяц="август";

            ИначеЕсли СокрЛП(мес)="9" Тогда

                  месяц="сентябрь";

            ИначеЕсли СокрЛП(мес)="10" Тогда

                  месяц="октябрь";

            ИначеЕсли СокрЛП(мес)="11" Тогда

                  месяц="ноябрь";

            ИначеЕсли СокрЛП(мес)="12" Тогда

                  месяц="декабрь";

            КонецЕсли;

          Возврат месяц;

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

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

            Если (СтрокНаЛисте<ТекущСтрЛиста) Тогда

                  Если (НомерЛиста>1) Тогда

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

                  КонецЕсли;

                  Таб.НоваяСтраница();

                  Если (НомерЛиста>=1) Тогда

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

                  КонецЕсли;

                  НомерЛиста=НомерЛиста+1; ТекущСтрЛиста=50;

            КонецЕсли;

            НомСтр=НомСтр+1;Таб.ВывестиСекцию(Х);

      ТекущСтрЛиста=ТекущСтрЛиста+У;

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

      При обмене информацией между санаторием и смоленским представительством санатория  используются две процедуры:  ЗаписатьВТекстовыйФайл(), СформироватьДокументИзТекстовогоФайла();

      В первой подпрограмме происходит выгрузка данных в текстовый файл:

      Процедура ЗаписатьВТекстовыйФайл()

      Спт=СоздатьОбъект("Текст");

      Если  ФС.ВыбратьФайл(0,Файл,Путь,"ВфберитеФайл","Текст(*.txt) | *.txt",,)=1 Тогда

            СпТ.Открыть(Путь+Файл);

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

      КонецЕсли;

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

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

            СтрСпТ=""+ КатегНом +Р+ ДатаС +Р+  ДатаПо +Р+ ТипПут +Р+ 

            НомПутС +Р+ НомПутПо +Р+  ДатПут +Р+

            ВремяС +Р+ ВремяПо +Р+ Сумма +Р+ Фамил +Р+ (""+Организ) +Р+

            Лечение +Р+ Проживание +Р+ Питание +Р+ Что +Р+ Дней +Р+

            НомДов +Р+ ДатДов +Р+ ПроцНДС +Р+ НДС +Р+ Стоим +Р+ Всего +Р+

            КоличПут +Р+ ЦенаСут +Р+ НомСч +Р+

НомСчФак +Р+ НомНакл +Р+ ДатСч +Р+ ДатСчФак +Р+ ДатНакл +Р+ ДатОпл +Р;

            СпТ.ДобавитьСтроку(СтрСпТ);

      КонецЦикла;   

      СпТ.Записать(Путь+Файл);

      Размер=СпТ.КоличествоСтрок();

      Сообщить ("Всего строк"+Размер);

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

- в втором  загрузка из текстового файла  в создаваемый документ:

Процедура СформироватьДокументИзТекстовогоФайла()

      УдалитьСтроки();

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

      Спт=СоздатьОбъект("Текст");

      Если  ФС.ВыбратьФайл(0,Файл,Путь,"ВфберитеФайл","Текст(*.txt) | *.txt",,)=1 Тогда

            СпТ.Открыть(Путь+Файл);

      Иначе

            Возврат;

      КонецЕсли; 

      Размер=СпТ.КоличествоСтрок();

      Сообщить ("Всего строк"+Размер);

      Для Поз1=1 по Размер Цикл

            СтрокаКолода=СпТ.ПолучитьСтроку(Поз1);

            НоваяСтрока();

            КатегНом=Вр();  ДатаС=Вр(); ДатаПо=Вр();  ТипПут=Вр();

            НомПутС=Вр(); НомПутПо=Вр(); ДатПут=Вр(); ВремяС=Вр(); ВремяПо=Вр();

            Сумма=ВрЧ(); Фамил=Вр();

            ОрганизЪ=Вр();

            Если(СокрЛП(ОрганизЪ)<>"")Тогда

                  Если (Контр.НайтиПоНаименованию(ОрганизЪ,0,1)=1) Тогда

                        Организ=Контр.ТекущийЭлемент();

                  Иначе Сообщить("Не найденаОрганиз="+ОрганизЪ);

                  КонецЕсли;

            КонецЕсли;

            Лечение=ВрЧ();

            Проживание=ВрЧ(); Питание=ВрЧ();Что=Вр(); 

            Дней=ВрЧ(); НомДов=Вр(); ДатДов=Вр(); ПроцНДС=ВрЧ(); НДС=ВрЧ();

            Стоим=ВрЧ(); Всего=ВрЧ();

            КоличПут=ВрЧ(); ЦенаСут=ВрЧ(); НомСч=Вр();

НомСчФак=Вр(); НомНакл=Вр();ДатСч=Вр();  ДатСчФак=Вр(); ДатНакл=Вр();

            ДатОпл=Вр();

      КонецЦикла;

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

      В процедуре СформироватьДокументИзТекстовогоФайла() используются две функции:

Функция Вр()

      ПозицРазд=Найти(СтрокаКолода,"^");

      СтрИзКолоды=Лев(СтрокаКолода,ПозицРазд-1);

      СтрокаКолодаТ=Сред(СтрокаКолода,ПозицРазд+1);

      СтрокаКолода=СтрокаКолодаТ;

      Возврат СтрИзКолоды;

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

Функция ВрЧ()

      ПозицРазд=Найти(СтрокаКолода,"^");

      СтрИзКолоды=Лев(СтрокаКолода,ПозицРазд-1);

      СтрокаКолодаТ=Сред(СтрокаКолода,ПозицРазд+1);

      СтрокаКолода=СтрокаКолодаТ;

      Возврат Число(СтрИзКолоды);

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