"Нужна помощь скачал бесплатную версию "путевой лист для л/а" и она вобще не работает почему? Постаянно выдаёт то неработает оператор то ещё что нибудь.<br>модуль: <br>Перем ТаблицаПечФорм;<br>Перем НомерТекущейФормы;<br>Перем СтрБазоваяНорма,СтрСезоннаяНадбавка; <br>Перем НачальнаяДатаДокумента;<br>Перем Новый;<br>Перем СписокДействий;<br>Перем Стр;<br>Функция ПолучитьПериодВремени(Начало,Окончание,ДатаНачала,ДатаОкончания,Представление) НачалоЧ=Цел(Начало);<br> НачалоМ=(Начало-НачалоЧ)*100;<br>ВремяНачала=НачалоЧ+НачалоМ/60;<br>ОкончаниеЧ=Цел(Окончание);<br>ОкончаниеМ=(Окончание-ОкончаниеЧ)*100;<br>ВремяОкончания=ОкончаниеЧ+ОкончаниеМ/60;<br>Если ДатаНачала<ДатаОкончания Тогда ВремяОкончания=ВремяОкончания+24*(ДатаОкончания-ДатаНачала);<br>КонецЕсли;<br>ПериодЧ=Цел(ВремяОкончания-ВремяНачала);<br>ПериодМ=(ВремяОкончания-ВремяНачала-ПериодЧ)*60;<br>Если Представление=1 Тогда ПериодВремени= Окр(ПериодЧ+ПериодМ/100,2); <br>ИначеЕсли Представление=2 Тогда ПериодВремени= ВремяОкончания-ВремяНачала;<br>КонецЕсли;<br>Возврат ПериодВремени;<br>КонецФункции<br><br>Процедура Пересчет(Подбор=0)<br>Если (Форма.ТекущаяКолонка()="Маршрут") или (Подбор=1) Тогда Протяженность=Маршрут.Протяженность; <br> Поправка1=Маршрут.Поправка1;<br> Поправка2=Маршрут.Поправка2;<br> Поправка3=Маршрут.Поправка3;<br>КонецЕсли; <br>ДопПоправки=0; <br>Для Сч=1 по 3 Цикл Поправка=ПолучитьАтрибут("Поправка"+Сч);<br>Если ПустоеЗначение(Поправка)=0 Тогда ДопПоправки=ДопПоправки+Поправка.Значение;<br>КонецЕсли;<br>КонецЦикла; <br>РасходПоНорме=Окр(0.01*Протяженность*БазоваяНорма*(1+0.01*(СезоннаяНадбавка+ ПрочиеПоправки+ДопПоправки)),2); <br>КонецПроцедуры<br><br>Процедура ПересчетТаблицы() ВыбратьСтроки();<br>Пока ПолучитьСтроку()=1 Цикл Пересчет(); <br>КонецЦикла;<br>КонецПроцедуры<br><br>Процедура Проверка (Реквизит)<br> Если ТипЗначенияСтр(Реквизит)="Дата"<br> Тогда Если (ПустоеЗначение(ДатаВозвр)+ПустоеЗначение(ДатаВыезда)=0) И (ДатаВозвр<ДатаВыезда) <br> Тогда Предупреждение ("Дата прибытия не должна быть меньше даты выезда !");<br>КонецЕсли; <br>ИначеЕсли Цел(Реквизит)>23 Тогда Предупреждение ("Введите число часов от 0 до 23 !"); <br> Реквизит=0;<br>ИначеЕсли Реквизит-Цел(Реквизит)>0.59 Тогда Предупреждение ("Введите число минут от 0 до 59 !"); <br> Реквизит=0;<br>КонецЕсли; <br>КонецПроцедуры<br><br>Функция СтрокаИтога() Стр="""";<br>Если Итог("Протяженность")>0<br>Тогда Стр="Всего пробег за день- "+СокрЛП(Формат(Итог("Протяженность"),"Ч8.1.,"))+ " км. с нормой расхода "+ СокрЛП(Формат( Итог("РасходПоНорме"),"Ч7.2.,"))+" л.";<br> Расхождение=Итог("Протяженность")-СпидометрВозврата+СпидометрВыезда;<br>Если Расхождение<>0 Тогда Стр=Стр+" .Расхождение "+СокрЛП(Формат(Расхождение,"Ч7.2.,"))+" км"; <br> Форма.СтрокаИтога.Цвет(255,0,0); <br>Иначе Форма.СтрокаИтога.Цвет(-1);<br>КонецЕсли;<br>КонецЕсли;<br>Возврат Стр;<br>КонецФункции Функция Про() Рез=1;А=10;<br>Док=СоздатьОбъект("Документ.ПутевойЛист");<br>Если Док.ВыбратьДокументы()=1 Тогда Док.ПолучитьДокумент();<br> Д1=Док.ДатаДок;<br> В=А*3;<br> Док.ОбратныйПорядок(1);<br> Док.ВыбратьДокументы();<br> Док.ПолучитьДокумент();<br> Д2=Док.ДатаДок;<br> Если (РабочаяДата()-Д1>В) ИЛИ (Д2-Д1>В)<br> Тогда Рез=0; <br> Предупреждение(Стр,20); <br> КонецЕсли;<br>КонецЕсли;<br>Возврат Рез;<br>КонецФункции <br><br>Процедура ПриВыбореСчета() Для А = 1 По 3 Цикл НазначитьТип("Субконто"+А,СчетЗатрат.ВидСубконто(А));<br>КонецЦикла;<br>Форма.ПрямыеРасходы.Видимость(?(Строка(СчетЗатрат)="20",1,0)); <br>КонецПроцедуры<br><br>Процедура ПриВыбореАвтомобиля()<br>//БуИт=СоздатьОбъект("БухгалтерскиеИтоги");<br>//БуИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Автомобиль.МестоХраненияТоплива,2);<br>//БуИт.ВыполнитьЗапрос(ДатаДок,"10.3",,,1,,"К");<br>//БуИт.ПолучитьСубконто(1);<br>Если Новый=1 Тогда ОстатокТопливаНаНачалоДня//=БуИт.СКД("К");<br>//СпидометрВыезда=Автомобиль.Пробег.Получить(ДатаДок);<br>//КонецЕсли;<br>//Водитель=Автомобиль.Водитель;<br>//ЗакупленоТопливаЗаДень=БуИт.ДО ("К")+БуИт.СНД("К")-ОстатокТопливаНаНачалоДня;<br>//ОстатокТопливаНаКонецДня=ОстатокТопливаНаНачалоДня+ЗакупленоТопливаЗаДень- РасходТоплива;<br>БазоваяНорма=Автомобиль.БазоваяНорма; <br>СезоннаяНадбавка=Константа.СезоннаяНадбавка.Получить(ДатаДок);<br>ПрочиеПоправки=Автомобиль.ПрочиеПоправки.Получить(ДатаДок); <br>СтрБазоваяНорма=Формат(БазоваяНорма,"Ч4.1,.");<br>СтрСезоннаяНадбавка=Формат(СезоннаяНадбавка,"Ч4.1,.");<br>СчетЗатрат=Автомобиль.СчетЗатрат; ПриВыбореСчета();<br>Субконто1=Автомобиль.Субконто1;<br>Субконто2=Автомобиль.Субконто2;<br>Субконто3=Автомобиль.Субконто3; <br>ПрямыеРасходы=Автомобиль.ПрямыеРасходы;<br>КонецЕсли<br>КонецПроцедуры <br><br>Процедура ПриЗаписиПрочихПоправок()<br>Если ПрочиеПоправки<>Автомобиль.ПрочиеПоправки.Получить(ДатаДок) Тогда<br>Если Вопрос("Введенное значение отличается от значения в справочнике автомобилей."+ РазделительСтрок+"Установить новое значение на дату документа?",1)=1 <br>Тогда Спр=СоздатьОбъект("Справочник.Автомобили");<br> Спр.ИспользоватьВладельца(Автомобиль.Владелец); <br> Спр.НайтиЭлемент(Автомобиль);<br>Спр.ПрочиеПоправки.Установить(ДатаДок,ПрочиеПоправки); <br>Спр.Записать(); <br>ПересчетТаблицы();<br>Иначе ПрочиеПоправки=Автомобиль.ПрочиеПоправки.Получить(ДатаДок);<br>КонецЕсли;<br>КонецЕсли;<br>КонецПроцедуры <br><br>Процедура ПриНачалеВыбораЗначения(Ид,Флаг) Если Ид="Автомобиль" Тогда<br>Спр=СоздатьОбъект("Справочник.Автомобили");<br>Спр.ИспользоватьВладельца("""");<br>Если Спр.Выбрать ("Выберите автомобиль","Основная")=1 Тогда Автомобиль=Спр.ТекущийЭлемент();<br> Флаг=0;<br>Иначе Флаг=1; <br>КонецЕсли;<br>КонецЕсли;<br>КонецПроцедуры <br><br>Процедура ВводНового(Копирование,Объект)<br>Новый=1;<br>Если Про()=0 Тогда СтатусВозврата(0);<br> Возврат;<br>КонецЕсли;<br>Если Копирование = 1 Тогда СпидометрВыезда=Автомобиль.Пробег.Получить(ДатаДок); <br> Возврат; <br>Иначе СЗ=СоздатьОбъект("СписокЗначений");<br> ВидПрочихРасходов=ВосстановитьЗначение("СписокНастроекПутевогоЛиста");<br>КонецЕсли;<br>//СезоннаяНадбавка=Константа.СезоннаяНадбавка.Получить(РабочаяДата()); <br>//РасходСверхНормы=1;<br>//Однодневный=1;<br>КонецПроцедуры <br><br>Процедура ПриОткрытии() ПриЗаписиПерепроводить(1);<br>глПроверкаРазрешенияРедактирования(Контекст); Если Форма.ТолькоПросмотр() = 1 Тогда<br>Форма.КнопкаОК.Доступность(0);<br>Форма.КнОчистить.Доступность(0);<br>Форма.КнПодбор.Доступность(0);<br>Форма.КнОтчета.Доступность(0); <br>Форма.КНРасчетаВремени.Доступность(0); <br>Форма.ВсегоВНаряде.Доступность(0); <br>Форма.ВсегоВработе.Доступность(0);<br>КонецЕсли;<br>Форма.ИспользоватьЗакладки(1);<br>Форма.Закладки.ДобавитьЗначение(1,"Основной");<br>Форма.Закладки.ДобавитьЗначение(2,"Настройка");<br>Форма.ИспользоватьСлой("Основной,Общий",2); <br>НачальнаяДатаДокумента=ДатаДок; <br>НомерТекущейФормы = глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм);<br>ПриВыбореАвтомобиля();<br>КонецПроцедуры <br><br>Процедура ПриЗаписи() Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда СтатусВозврата(0);<br> Возврат;<br>ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда СтатусВозврата(0); <br> Возврат; <br>ИначеЕсли Новый=1 Тогда<br>Если Про()=0 Тогда СтатусВозврата(0); <br> Возврат; <br>КонецЕсли;<br>КонецЕсли;<br>Операция.Содержание = "Списание топлива по путевому листу"; <br>СохранитьЗначение("СписокНастроекПутевогоЛиста",ВидПрочихРасходов); <br>КонецПроцедуры <br><br>//Процедура ПриОткрытии() глОткрытьЖурнал(Контекст. Новый); <br>//КонецПроцедуры<br><br>//Процедура ПриЗакрытии() глОткрытьЖурнал(Контекст, Новый);<br>//КонецПроцедуры <br><br>Процедура Подбор() ОткрытьПодбор("Справочник.МаршрутыПоездок");<br>КонецПроцедуры <br><br>Процедура ОбработкаПодбора(Элемент,Конт) Перем ВыбЧисло; НоваяСтрока();<br>Маршрут=Элемент; <br>Для Сч=1 по 2 Цикл Пока 1=1 Цикл Если ВвестиЧисло (ВыбЧисло,"Введите время "+?(Сч=1,"выезда","прибытия")+", час-мин",5,2)=1 Тогда<br>Если (ВыбЧисло<0) ИЛИ (Цел(ВыбЧисло)>23) Тогда Предупреждение ("Введите число часов от 0 до 23 !"); <br>ИначеЕсли ВыбЧисло-Цел(ВыбЧисло)>0.59<br>Тогда Предупреждение ("Введите число минут от 0 до 59 !"); <br>Иначе Если Сч=1 Тогда Выезд=ВыбЧисло; <br> Иначе Возвр=ВыбЧисло;<br> КонецЕсли;<br>Прервать; <br>КонецЕсли;<br>Иначе Прервать;<br>КонецЕсли; <br>КонецЦикла;<br>Если Однодневный=1 Тогда ДатаВыезда=ДатаДок;<br> ДатаВозвр=ДатаДок;<br>Иначе ВыбДата=ДатаДок;<br> Пока 1=1 Цикл Если ВвестиДату (ВыбДата,"Введите дату "+?(Сч=1,"выезда","прибытия"))=1<br> Тогда Если (Сч=2) и (ВыбДата<ДатаВыезда) Тогда<br>Предупреждение ("Дата прибытия не может быть меньше даты выезда!"); <br>Иначе Если Сч=1 Тогда ДатаВыезда=ВыбДата; <br> Иначе ДатаВозвр=ВыбДата;<br> КонецЕсли;<br> Прервать;<br>КонецЕсли; <br>Иначе Прервать;<br>КонецЕсли;<br>КонецЦикла;<br>КонецЕсли; <br>КонецЦикла; <br>АктивизироватьСтроку(); <br>Пересчет(1);<br>КонецПроцедуры <br><br>Процедура ПриВыбореЗакладки(ном,Значение)<br>Если Значение=1 Тогда Форма.ИспользоватьСлой("Основной,Общий",2); <br>ИначеЕсли Значение=2 Тогда Форма.ИспользоватьСлой("Настройка,Общий",2); <br> Форма.ПрямыеРасходы.Видимость(?(Строка(СчетЗатрат)="20",1,0));<br>КонецЕсли; <br>КонецПроцедуры <br><br>Процедура ПриУстановкеФлага() Если РасходСверхНормы=1 Тогда Форма.ВидПрочихРасходов.Видимость(1); <br>Иначе Форма.ВидПрочихРасходов.Видимость(0);<br>КонецЕсли;<br>КонецПроцедуры<br><br>Процедура Печать() Если (СпидометрВозврата>0) И (Итог("Протяженность")<>(СпидометрВозврата-СпидометрВыезда)) Тогда<br>Предупреждение ("Общий пробег по спидометру не равен длине маршрутов по таблице");<br>Возврат;<br>КонецЕсли;<br>Удостоверение="""";<br>Класс="""";<br>Спр=СоздатьОбъект("Справочник.Водители"); <br>Спр.ИспользоватьВладельца(Водитель);<br>Спр.ВыбратьЭлементы(); <br>Если Спр.ПолучитьЭлемент()=1 Тогда<br>Удостоверение=Спр.Удостоверение;<br>Класс=Спр.Класс.Получить(ДатаДок); <br>КонецЕсли;<br>Поз=1;<br>Таб=СоздатьОбъект("Таблица"); <br>Если ПустоеЗначение("Контрагент")=0 Тогда СЗ=СоздатьОбъект("СписокЗначений"); <br> СЗ.ДобавитьЗначение("Путевой лист легкового а/м"); <br>СЗ.ВыбратьЗначение(,,Поз,,1); <br> Таб.Вывести(); Таб.ТолькоПросмотр(1);<br> Таб.Опции(0,0,0,0,"ОпцииПечатиПутевогоЛистаЛегкового а/м");<br>КонецЕсли;<br>//КонецЕсли;<br>Если Поз=1 Тогда Таб.ИсходнаяТаблица("Таблица"); <br> Авто=Автомобиль;<br> Если КоличествоСтрок()=0 Тогда<br>ВыездИзГаража="""";<br>ВозвращениеВГараж=""""; <br>Иначе ПолучитьСтрокуПоНомеру(1);<br> ВыездЧ=Цел(Выезд);ВыездМ=(Выезд-ВыездЧ)*100;<br> ВыездИзГаража=Формат(ВыездЧ,"Ч(0)2.0")+"-"+Формат(ВыездМ,"Ч(0)2.0"); <br> ПолучитьСтрокуПоНомеру(КоличествоСтрок());<br> ВозврЧ=Цел(Возвр); ВозврМ=(Возвр-ВозврЧ)*100;<br>ВозвращениеВГараж=Формат(ВозврЧ,"Ч(0)2.0")+"-"+Формат(ВозврМ,"Ч(0)2.0");<br>ВнарядеЧ=Цел(ВсегоВнаряде);<br>ВнарядеМ=(ВсегоВнаряде-ВнарядеЧ)*100;<br>ВремяВНаряде=Формат(ВнарядеЧ,"Ч(0)2.0")+"-"+Формат(ВнарядеМ,"Ч(0)2.0"); <br>КонецЕсли;<br>Таб.ВывестиСекцию("шапка");<br>Таб.НоваяСтраница();<br>Таб.ВывестиСекцию("ШапкаОборота"); <br>ВыбратьСтроки();<br>Пока ПолучитьСтроку()=1 Цикл ВыездЧ=Цел(Выезд);<br> ВыездМ=(Выезд-ВыездЧ)*100;<br> ВозврЧ=Цел(Возвр); <br> ВозврМ=(Возвр-ВозврЧ)*100;<br> Таб.ВывестиСекцию("Строка"); <br>КонецЦикла; <br>Если КоличествоСтрок()<18 Тогда Для А=1 по 18-КоличествоСтрок() Цикл<br>Таб.ВывестиСекцию ("ПустаяСтрока");<br>КонецЦикла;<br>КонецЕсли; <br>Таб.ВывестиСекцию("Подвал");<br>Таб.ТолькоПросмотр(1);<br>Таб.Опции(0,0,0,0,"ОпцииПечатиПутевогоЛиста");<br>Таб.Показать("Печать путевого листа"); <br>КонецЕсли;<br>КонецПроцедуры<br><br>Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)<br>Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда НомерТекущейФормы = 1; <br> Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));<br>КонецЕсли;<br>Если НомерТекущейФормы = 1 Тогда Печать();<br>Иначе Параметры = СоздатьОбъект("СписокЗначений");<br>Параметры.ДобавитьЗначение(Контекст, "Контекст");<br>Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");<br>Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");<br>ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));<br>КонецЕсли; <br>КонецПроцедуры<br><br>Процедура ПоКнопкеВыборПечатнойФормы() ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(),<br> ТаблицаПечФорм);<br> Если ВыбНомер > 0 Тогда НомерТекущейФормы = ВыбНомер; <br> Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));<br>ПоКнопкеПечать();<br>КонецЕсли; <br>КонецПроцедуры<br><br>Процедура ВвестиАвансовыйОтчет() Док=СоздатьОбъект("Документ.АвансовыйОтчет");<br> Док.Новый(); <br> Док.ДатаДок=ДатаДок;<br> Док.Сотрудник=Водитель; <br> Док.НаименованиеАванса="Расходы на покупку ГСМ"; <br> Док.НоваяСтрока();<br> Док.ПорядковыйНомерДокумента=1;<br>Док.ДатаС=ДатаДок;<br>Док.КомуЗаЧто="за гсм по чекам АЗС";<br>Док.КоррСчет=СчетПоКоду("10.3");<br>Док.НазначитьТип("Субконто1","Справочник.Материалы");<br>Док.НазначитьТип("Субконто2","Справочник.МестаХранения"); <br>Док.Субконто1=Автомобиль.ТипГорючего;<br>Док.Субконто2=Автомобиль.МестоХраненияТоплива;<br>Попытка Док.Записать();<br>Исключение Док.УстановитьНовыйНомер("""");<br> Док.Записать();<br>КонецПопытки;<br>ОткрытьФорму(Док.ТекущийДокумент(),,0);<br>КонецПроцедуры <br><br>Процедура Перемещение() Док=СоздатьОбъект("Документ.ТребованиеНакладная"); <br> Док.Новый(); <br> Док.ДатаДок=ДатаДок;<br>Док.ВидПеремещения=1;<br>Док.МестоХранения=Константа.СкладМоторногоТоплива;<br>Док.МестоХраненияПриемник=Автомобиль.МестоХраненияТоплива; <br>НазначитьВид(Док.Материал,"Материалы"); <br>Док.НоваяСтрока();<br>Док.Материал=Автомобиль.ТипГорючего;<br>Док.КоличествоЗатребовано=ЗакупленоТопливаЗаДень;<br>Док.КоличествоОтпущено=ЗакупленоТопливаЗаДень;<br>Попытка Док.Записать(); <br>Исключение Док.УстановитьНовыйНомер("""");<br> Док.Записать(); <br>КонецПопытки;<br>ОткрытьФорму(Док.ТекущийДокумент(),,0);<br>КонецПроцедуры <br><br>Процедура Поступление() Док=СоздатьОбъект("Документ.ПоступлениеМатериалов");<br>Док.Новый();<br>Док.ДатаДок=ДатаДок;<br>Док.Контрагент=Константа.ПоставщикМоторногоТоплива;<br>Док.МестоХранения=Автомобиль.МестоХраненияТоплива;<br>Док.ЗачитыватьАванс = 0;<br>Док.ВариантРасчетаНалогов = Константа.ОсновнойВариантРасчетаНалогов;<br>Если Константа.ОрганизацияЯвляетсяПлательщикомНДС = Нет Тогда<br>Док.НДСвключатьВСтоимость = 1;<br>КонецЕсли;<br>Док.ВерсияОбъекта = Константа.НомерРелиза; <br>Док.НоваяСтрока();<br>Док.Материал=Автомобиль.ТипГорючего;<br>Док.Количество=ЗакупленоТопливаЗаДень; <br>Док.Цена=Док.Материал.Цена;<br>Док.Сумма=Док.Цена*Док.Количество; <br>Док.НДС=Окр(Док.Сумма*Константа.ОсновнаяСтавкаНДС.Ставка,2);<br>Док.Всего=Док.Сумма+Док.НДС;<br>Попытка Док.Записать();<br>Исключение Док.УстановитьНовыйНомер("""");<br> Док.Записать();<br>КонецПопытки; <br>ОткрытьФорму(Док.ТекущийДокумент(),,0); <br>КонецПроцедуры<br><br>Процедура Заправка() Перем Выбор;<br> СЗ=СоздатьОбъект("СписокЗначений"); <br> СЗ.ДобавитьЗначение("Перемещение");<br>СЗ.ДобавитьЗначение("Поступление");<br>Если СЗ.ВыбратьЗначение(Выбор,,,,1)=1 Тогда Если Выбор="Перемещение" Тогда Перемещение();<br> Иначе Поступление();<br> КонецЕсли;<br>КонецЕсли;<br>КонецПроцедуры <br><br>Процедура РассчитатьОбщееВремя() ВсегоВРаботе=0;<br> ВыбратьСтроки();<br> Пока ПолучитьСтроку()=1 Цикл<br>ВсегоВРаботе=ВсегоВРаботе+ПолучитьПериодВремени(Выезд,Возвр,ДатаВыезда,ДатаВозвр,2);<br>КонецЦикла;<br>ВсегоВработеЧ=Цел(ВсегоВРаботе);<br>ВсегоВРаботеМ=(ВсегоВработе-ВсегоВработеЧ)*60;<br>ВсегоВработе=Окр(ВсегоВРаботеЧ+ВсегоВработеМ/100,2);<br>ПолучитьСтрокуПоНомеру(1);<br>ВыездИзГаража=Выезд;<br>ДатаВыездаИзГаража=Датавыезда;<br>ПолучитьСтрокуПоНомеру(КоличествоСтрок());<br>ВозвращениеВГараж=Возвр;ДатаВозвращенияВГараж=ДатаВозвр; <br>ВсегоВнаряде=ПолучитьПериодВремени(ВыездИзГаража,ВозвращениеВГараж,ДатаВыездаИзГаража,ДатаВозвращенияВГараж,1); <br>КонецПроцедуры<br>СтрБазоваяНорма=""""; <br>СтрСезоннаяНадбавка="""";<br>Новый = 0; <br>ТаблицаПечФорм = СоздатьОбъект("ТаблицаЗначений"); <br>ТаблицаПечФорм.НоваяКолонка("Название","Строка",,,,30);<br>ТаблицаПечФорм.НоваяКолонка("Файл","Строка",,,"Файл",10); <br>ТаблицаПечФорм.НоваяКолонка("Кнопка","Строка",,,,10);<br>ТаблицаПечФорм.НоваяКолонка("ФайлОписания","Строка");<br>ТаблицаПечФорм.НоваяСтрока(); <br>ТаблицаПечФорм.Название = "Путевой лист";<br>ТаблицаПечФорм.Кнопка = "Печать";<br>СписокДействий = СоздатьОбъект("СписокЗначений");<br>СписокДействий.ДобавитьЗначение("Отчет о движениях документа"); <br>СписокДействий.ДобавитьЗначение("Структура подчиненности");<br>СписокДействий.ДобавитьЗначение("Ввести на основании");<br>СписокДействий.ДобавитьЗначение("Перейти в журнал");<br>пробывал сам исправлять не получилось хоть посматреть как бедет работать.<br> "
