Читайте также:
|
(обязательное)
Листинги документов и отчетов
Листинг документа «ЗакаАвто»:
перем сумм;
перем rez;
перем док;
перем видд;
Процедура КнПоОсн()
видд="ЗаказАвто";
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", видд);
КонецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док = "";
док = ДокОснование;
Если ДокОснование.Вид() = "ЗаказАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОтгрузки = ДокОснование.ДатаОтгрузки;
ДатаОплаты = ДокОснование.ДатаОплаты;
СуммаПоДок = ДокОснование.СуммаПоДок;
докн = ДокОснование;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
ИначеЕсли ДокОснование.Вид() = "ПоступлениеАвто" Тогда
КонецЕсли;
КонецПроцедуры
Процедура Подбор()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Автомобили", "ДляПодбора");
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "Документ" Тогда
ВводНаОсновании(ВыбЗнач);
Возврат;
КонецЕсли;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура Очистить()
Поставщик = 0;
ДатаОтгрузки = 0;
ДатаОплаты = 0;
СуммаПоДок = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
ИнфоПоФирме = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
v = "";
v = ТекущийДокумент();
Докум = СокрЛП(v)+" от "+ДатаДок;
КонецПроцедуры
Процедура ПриОткрытии()
Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);
КонецПроцедуры
Процедура ПриОкончанииРедактированияСтроки()
Сумма = Цена*Количество;
КонецПроцедуры
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ЗаказАвто","");
КонецПроцедуры
Функция Фирма(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
Фирма = СпрФирм.ПолнНаим;
КонецЦикла;
Возврат(Фирма);
КонецФункции
Функция ФиоРуковод(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
ФиоРуковод = СпрФирм.ФИОруковод;
КонецЦикла;
Возврат(ФиоРуковод);
КонецФункции
Процедура ol()
ОткрытьПодбор("Журнал.Общий");
КонецПроцедуры
Функция ГлБух(REZ)
СпрФирм2 = СоздатьОбъект("Справочник.Должность");
СпрФирм2.ВыбратьЭлементы();
СпрФирм2.НайтиПоКоду(2);
Услов = СпрФирм2.ТекущийЭлемент();
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если (СпрСотр.Должность = услов) Тогда
Если (СпрСотр.Филиал = Филиал) Тогда
РЕЗ = СпрСотр.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат(РЕЗ);
КонецФункции;
Листинг документа «ПоступлениеАвто»:
перем сумм;
перем rez;
перем док;
перем ТекД;
Процедура Очистить()
Поставщик = 0;
ДатаОтгрузки = 0;
ДатаОплаты = 0;
СуммаПоДок = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
ИнфоПоФирме = 0;
склад = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
//Данный фрагмент построен конструктором.
//При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
Если ДокОснование.Вид() = "ЗаказАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
ДокОснование.ВыбратьСтроки();
докн = ДокОснование;
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
ИначеЕсли ДокОснование.Вид() = "ПоступлениеАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура Подбор()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Автомобили", "ДляПодбора");
КонецПроцедуры
Процедура КнПоОсн()
видд="ЗаказАвто";
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", видд);
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Склад) = 1 Тогда
Предупреждение("Не указано наименование склада!", 60);
Активизировать("Склад");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
v = "";
v = ТекущийДокумент();
Докум = СокрЛП(v)+" от "+ДатаДок;
докк = ТекущийДокумент();
КонецПроцедуры
Процедура ОткрытьСчетФ()
Если Проведен()=0 Тогда
Предупреждение("Счет-фактуру нельзя вводить на основании не проведенного документа!", 60);
Возврат;
КонецЕсли;
ТекД = ТекущийДокумент();
ОткрытьФорму("Документ.СчетФактураПолученный", ТекД);
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "Документ" Тогда
ВводНаОсновании(ВыбЗнач);
Возврат;
КонецЕсли;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии()
Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);
КонецПроцедуры
Процедура ПриОкончанииРедактированияСтроки()
Сумма = Цена*Количество;
КонецПроцедуры
КонецПроцедуры
Функция ГлБух(REZ)
СпрФирм2 = СоздатьОбъект("Справочник.Должность");
СпрФирм2.ВыбратьЭлементы();
СпрФирм2.НайтиПоКоду(2);
Услов = СпрФирм2.ТекущийЭлемент();
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если (СпрСотр.Должность = услов) Тогда
Если (СпрСотр.Филиал = Филиал) Тогда
РЕЗ = СпрСотр.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат(РЕЗ);
КонецФункции;
факт = ТекД;
Листинг документа «СчетФактураПолученный»:
перем сумм;
перем rez;
перем док;
Процедура Очистить()
Поставщик = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ПоКнопкеПечать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать СчетФактураВыданный","");
КонецПроцедуры
Процедура КнПоОсн()
видд="ПоступлениеАвто";
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", видд);
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
КонецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
Если ДокОснование.Вид() = "ЗаказАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
ИначеЕсли ДокОснование.Вид() = "ПоступлениеАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
Докум = ДокОснование.Докум;
докн = ДокОснование;
докк = ДокОснование.докк;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
КонецЕсли;
Если ДокОснование.Вид() = "Реализация" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура Подбор()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Автомобили", "ДляПодбора");
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ВводНаОсновании(ВыбЗнач);
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 1 Тогда
Возврат;
Иначе
ВводНаОсновании(Форма.Параметр);
КонецЕсли;
КонецПроцедуры
Процедура ПриОкончанииРедактированияСтроки()
Сумма = Цена*Количество;
КонецПроцедуры
Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)
Если НомерЗакладки = 1 Тогда
Форма.ИспользоватьСлой("Шапка,Осн");
Иначе
Форма.ИспользоватьСлой("Шапка,Сумма");
КонецЕсли;
КонецПроцедуры
Функция Фирма(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
Фирма = СпрФирм.ПолнНаим;
КонецЦикла;
Возврат(Фирма);
КонецФункции
Функция ФиоРуковод(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
ФиоРуковод = СпрФирм.ФИОруковод;
КонецЦикла;
Возврат(ФиоРуковод);
КонецФункции
Функция ГлБух(REZ)
СпрФирм2 = СоздатьОбъект("Справочник.Должность");
СпрФирм2.ВыбратьЭлементы();
СпрФирм2.НайтиПоКоду(2);
Услов = СпрФирм2.ТекущийЭлемент();
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если (СпрСотр.Должность = услов) Тогда
Если (СпрСотр.Филиал = Филиал) Тогда
РЕЗ = СпрСотр.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат(РЕЗ);
КонецФункции;
Форма.ИспользоватьЗакладки(1);
Форма.ИспользоватьСлой("Шапка,Осн", 2);
Форма.Закладки.ДобавитьЗначение(1, "Общий");
Форма.Закладки.ДобавитьЗначение(2, "Сумма");
Листинг документа «ПлатежноеПоручение»:
перем сумм;
перем rez;
перем док, СписокВидовДокументов, ВыбЗначение;
Процедура КнПоОсн()
dfd = СписокВидовДокументов.ВыбратьЗначение(ВыбЗначение,"Выбор вида документов",,60,0);
Если dfd = 1 Тогда
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", ВыбЗначение);
КонецЕсли;
КонецПроцедуры
Процедура Очистить()
Поставщик = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
БанковскийСчет = 0;
БанковскийСчетФирмы = 0;
Назнач = "";
Сумма = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
сумм = СоздатьОбъект("ТаблицаЗначений");
сумм.НоваяКолонка("Сумма15");
Если ДокОснование.Вид() = "ПоступлениеАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
докн = ДокОснование;
Докум = ДокОснование.Докум;
докк = ДокОснование.докк;
Сумма = ДокОснование.Сумма;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
сумм.НоваяСтрока();
сумм.Сумма15=ДокОснование.Сумма;
КонецЦикла;
Сумма = сумм.Итог("Сумма15");
КонецЕсли;
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование поставщика!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(ИнфоПоФирме) = 1 Тогда
Предупреждение("Не указано наименование фирмы!", 60);
Активизировать("ИнфоПоФирме");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(БанковскийСчетФирмы) = 1 Тогда
Предупреждение("Укажите банковский счет плательщика!", 60);
Активизировать("БанковскийСчетФирмы");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(БанковскийСчет) = 1 Тогда
Предупреждение("Укажите банковский счет получателя!", 60);
Активизировать("БанковскийСчеты");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ВводНаОсновании(ВыбЗнач);
КонецПроцедуры
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 1 Тогда
Возврат;
Иначе
ВводНаОсновании(Форма.Параметр);
КонецЕсли;
КонецПроцедуры
Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)
Если НомерЗакладки = 1 Тогда
Форма.ИспользоватьСлой("Шапка,Осн");
Иначе
Форма.ИспользоватьСлой("Шапка,Сумма");
КонецЕсли;
КонецПроцедуры
Процедура Печать()
Если ПустаяСтрока(БанковскийСчетФирмы) = 1 Тогда
Предупреждение("Укажите банковский счет плательщика!", 60);
Активизировать("БанковскийСчетФирмы");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(БанковскийСчет) = 1 Тогда
Предупреждение("Укажите банковский счет получателя!", 60);
Активизировать("БанковскийСчет");
СтатусВозврата(0); Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.ВывестиСекцию("осн");
Таб.Опции(0,0,0,0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ПлатежноеПоручение","");
КонецПроцедуры
Функция Фирма(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
Фирма = СпрФирм.ПолнНаим;
КонецЦикла;
Возврат(Фирма);
КонецФункции
Функция ФиоРуковод(rez)
СпрФирм = СоздатьОбъект("Справочник.ИнфоПоФирме");
СпрФирм.ВыбратьЭлементы();
Пока СпрФирм.ПолучитьЭлемент() = 1 Цикл
ФиоРуковод = СпрФирм.ФИОруковод;
КонецЦикла;
Возврат(ФиоРуковод);
КонецФункции
СписокВидовДокументов = СоздатьОбъект("СписокЗначений");
СписокВидовДокументов.ДобавитьЗначение("ПоступлениеАвто");
Листинг документа «СтрокаВыпискиРасход»:
перем сумм;
перем rez;
перем док, СписокВидовДокументов, ВыбЗначение;
Процедура КнПоОсн()
dfd = СписокВидовДокументов.ВыбратьЗначение(ВыбЗначение,"Выбор вида документов",,60,0);
Если dfd = 1 Тогда
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", ВыбЗначение);
КонецЕсли;
КонецПроцедуры
Процедура Очистить()
Поставщик = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
БанковскийСчет = 0;
БанковскийСчетФирмы = 0;
Назнач = "";
Сумма = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
сумм = СоздатьОбъект("ТаблицаЗначений");
сумм.НоваяКолонка("Сумма15");
Если ДокОснование.Вид() = "ПоступлениеАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Докум = ДокОснование.Докум;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
докк = ДокОснование.докк;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
сумм.НоваяСтрока();
сумм.Сумма15=ДокОснование.Сумма;
КонецЦикла;
Сумма = сумм.Итог("Сумма15");
КонецЕсли;
Если ДокОснование.Вид() = "ПлатежноеПоручение" Тогда
Поставщик = ДокОснование.Поставщик;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
БанковскийСчетФирмы = ДокОснование.БанковскийСчетФирмы;
БанковскийСчет = ДокОснование.БанковскийСчет;
Докум = ДокОснование.Докум;
докк = ДокОснование.докк;
Сумма = ДокОснование.сумма;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ВводНаОсновании(ВыбЗнач);
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование получателя!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 1 Тогда
Возврат;
Иначе
ВводНаОсновании(Форма.Параметр);
КонецЕсли;
КонецПроцедуры
СписокВидовДокументов = СоздатьОбъект("СписокЗначений");
СписокВидовДокументов.ДобавитьЗначение("ПоступлениеАвто");
СписокВидовДокументов.ДобавитьЗначение("ПлатежноеПоручение");
Листинг документа «Реализация»:
перем сумм;
перем rez;
перем док;
перем ТекД;
перем наценка;
перем стр;
перем логс;
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
Если ДокОснование.Вид() = "ЗаказАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
ДокОснование.ВыбратьСтроки();
докн = ДокОснование;
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
ИначеЕсли ДокОснование.Вид() = "ПоступлениеАвто" Тогда
Поставщик = ДокОснование.Поставщик;
ДатаОплаты = ДокОснование.ДатаОплаты;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ИзмНац()
ОткрытьФорму("Справочник.Наценки");
КонецПроцедуры
Процедура ОбнНац()
Нац = СоздатьОбъект("Справочник.Наценки");
Нац.ВыбратьЭлементы();
наценка = Нац.ПолучитьАтрибут("Наценка");
КонецПроцедуры
Процедура Подбор()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование покупателя!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
ОткрытьПодбор("Справочник.Автомобили", "ДляПодбора");
КонецПроцедуры
Процедура КнПоОсн()
видд="ЗаказАвто";
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", видд);
КонецПроцедуры
Процедура ПриЗаписи()
НомерСтр=мен.ТекущаяСтрока();
Если НомерСтр = 0 Тогда
Предупреждение("Не выбран менеджер!", 60);
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Склад) = 1 Тогда
Предупреждение("Не указано наименование склада!", 60);
Активизировать("Склад");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование покупателя!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
v = "";
v = ТекущийДокумент();
Докум = СокрЛП(v)+" от "+ДатаДок;
докк = ТекущийДокумент();
НомерСтр=мен.ТекущаяСтрока();
Результат = мен.ПолучитьЗначение(НомерСтр);
Менеджер = Результат;
КонецПроцедуры
Процедура ОткрытьСчетФ()
Если Проведен()=0 Тогда
Предупреждение("Счет-фактуру нельзя вводить на основании не проведенного документа!", 60);
Возврат;
КонецЕсли;
ТекД = ТекущийДокумент();
ОткрытьФорму("Документ.СчетФактураВыданный", ТекД);
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
//Если логс = 1 Тогда
//стр = СокрЛП(ВыбЗнач);
//Менеджер = стр;
//логс = 0;
//КонецЕсли;
//логс = 0;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "Документ" Тогда
ВводНаОсновании(ВыбЗнач);
Возврат;
КонецЕсли;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена+наценка;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура fg()
мен.УдалитьВсе();
Спр = СоздатьОбъект("Справочник.Сотрудники");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.Филиал = Филиал Тогда
Если СокрЛП(Спр.Должность) = "Менеджер" Тогда
менеджеер = Спр.ТекущийЭлемент();
Если СокрЛП(менеджеер) = Менеджер Тогда
мен.ВставитьЗначение(1, Менеджер);
Иначе
мен.ДобавитьЗначение(СокрЛП(Спр.ТекущийЭлемент()));
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии()
Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);
Если ПустаяСтрока(Филиал) = 0 Тогда
fg();
КонецЕсли;
КонецПроцедуры
Процедура ПриОкончанииРедактированияСтроки()
Сумма = Цена*Количество;
КонецПроцедуры
Функция ГлБух(REZ)
СпрФирм2 = СоздатьОбъект("Справочник.Должность");
СпрФирм2.ВыбратьЭлементы();
СпрФирм2.НайтиПоКоду(2);
Услов = СпрФирм2.ТекущийЭлемент();
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если (СпрСотр.Должность = услов) Тогда
Если (СпрСотр.Филиал = Филиал) Тогда
РЕЗ = СпрСотр.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат(РЕЗ);
КонецФункции;
ОбнНац();
Листинг документа «ВводОстатков»:
перем сумм;
перем rez;
перем док;
перем ТекД;
Процедура Очистить()
Поставщик = 0;
ДатаОтгрузки = 0;
ДатаОплаты = 0;
СуммаПоДок = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
ИнфоПоФирме = 0;
склад = 0;
УдалитьСтроки();
конецПроцедуры
Процедура Подбор()
ОткрытьПодбор("Справочник.Автомобили", "ДляПодбора");
КонецПроцедуры
Процедура КнПоОсн()
видд="ЗаказАвто";
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", видд);
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Склад) = 1 Тогда
Предупреждение("Не указано наименование склада!", 60);
Активизировать("Склад");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
v = "";
v = ТекущийДокумент();
Докум = СокрЛП(v)+" от "+ДатаДок;
докк = ТекущийДокумент();
КонецПроцедуры
Процедура ОткрытьСчетФ()
Если Проведен()=0 Тогда
Предупреждение("Счет-фактуру нельзя вводить на основании не проведенного документа!", 60);
Возврат;
КонецЕсли;
ТекД = ТекущийДокумент();
ОткрытьФорму("Документ.СчетФактураПолученный", ТекД);
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии()
Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);
КонецПроцедуры
Процедура ПриОкончанииРедактированияСтроки()
Сумма = Цена*Количество;
КонецПроцедуры
// КонецПроцедуры
Функция ГлБух(REZ)
СпрФирм2 = СоздатьОбъект("Справочник.Должность");
СпрФирм2.ВыбратьЭлементы();
СпрФирм2.НайтиПоКоду(2);
Услов = СпрФирм2.ТекущийЭлемент();
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.ВыбратьЭлементы();
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл
Если (СпрСотр.Должность = услов) Тогда
Если (СпрСотр.Филиал = Филиал) Тогда
РЕЗ = СпрСотр.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат(РЕЗ);
КонецФункции;
факт = ТекД;
Листинг документа «ПриходнойКассовыйОрдер»:
перем сумм;
перем rez;
перем док, СписокВидовДокументов, ВыбЗначение;
Процедура КнПоОсн()
dfd = СписокВидовДокументов.ВыбратьЗначение(ВыбЗначение,"Выбор вида документов",,60,0);
Если dfd = 1 Тогда
ОткрытьПодбор("Журнал.Общий", "ФормаСписка", ВыбЗначение);
КонецЕсли;
КонецПроцедуры
Процедура Очистить()
Поставщик = 0;
докн = 0;
ИнфоПоФирме = 0;
Филиал = 0;
Назнач = "";
Сумма = 0;
УдалитьСтроки();
конецПроцедуры
Процедура ВводНаОсновании(ДокОснование)
док="";
док=ДокОснование;
сумм = СоздатьОбъект("ТаблицаЗначений");
сумм.НоваяКолонка("Сумма15");
Если ДокОснование.Вид() = "Реализация" Тогда
Поставщик = ДокОснование.Поставщик;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
докк = ДокОснование.докк;
Докум = ДокОснование.Докум;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
Сумма = ДокОснование.Сумма;
сумм.НоваяСтрока();
сумм.Сумма15=ДокОснование.Сумма;
КонецЦикла;
Сумма = сумм.Итог("Сумма15");
КонецЕсли;
Если ДокОснование.Вид() = "ЗаявкаКлиента" Тогда
Поставщик = ДокОснование.Поставщик;
Филиал = ДокОснование.Филиал;
ИнфоПоФирме = ДокОснование.ИнфоПоФирме;
докн = ДокОснование;
Докум = ДокОснование.Докум;
ДокОснование.ВыбратьСтроки();
Пока ДокОснование.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ДокОснование.НаименованиеАвто;
Количество = ДокОснование.Количество;
Цена = ДокОснование.Цена;
докк = ДокОснование.докк;
Сумма = ДокОснование.Сумма;
сумм.НоваяСтрока();
сумм.Сумма15=ДокОснование.Сумма;
КонецЦикла;
Сумма = сумм.Итог("Сумма15");
Форма.кнПред.Видимость(1);
Форма.кнПред2.Видимость(1);
КонецЕсли;
КонецПроцедуры
Процедура рассч()
Сумма = Сумма/2;
докум = докум+" Предоплата";
КонецПроцедуры
Процедура рассч2()
Сумма = Сумма/2;
докум = докум+" Доплата";
КонецПроцедуры
процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)
Перем ТаблЧасть, ТаблицаПодбора;
ВводНаОсновании(ВыбЗнач);
ТипЗнач = ТипЗначенияСтр(ВыбЗнач);
Если ТипЗнач = "СписокЗначений" Тогда
ТаблицаПодбора = ВыбЗнач.Получить("ТаблицаПодбора");
Иначе
Возврат;
КонецЕсли;
ВыгрузитьТабличнуюЧасть(ТаблЧасть);
ТаблицаПодбора.ВыбратьСтроки();
Пока ТаблицаПодбора.ПолучитьСтроку() = 1 Цикл
НоваяСтрока();
НаименованиеАвто = ТаблицаПодбора.Наименование;
Количество = ТаблицаПодбора.Количество;
Цена = ТаблицаПодбора.Цена;
Сумма = Количество*Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПечатьПоКн()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ПечатьПоКн");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Таб.ВывестиСекцию("осн");
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать ПКО","");
КонецПроцедуры
Процедура ПриЗаписи()
Если ПустаяСтрока(Поставщик) = 1 Тогда
Предупреждение("Не указано наименование получателя!", 60);
Активизировать("Поставщик");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Филиал) = 1 Тогда
Предупреждение("Не указано наименование филиала!", 60);
Активизировать("Филиал");
СтатусВозврата(0); Возврат;
КонецЕсли;
Если ПустаяСтрока(Касса) = 1 Тогда
Предупреждение("Не указана касса", 60);
Активизировать("Касса");
СтатусВозврата(0); Возврат;
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 1 Тогда
Возврат;
Иначе
ВводНаОсновании(Форма.Параметр);
КонецЕсли;
КонецПроцедуры
СписокВидовДокументов = СоздатьОбъект("СписокЗначений");
СписокВидовДокументов.ДобавитьЗначение("Реализация");
СписокВидовДокументов.ДобавитьЗначение("ЗаявкаКлиента");
Форма.кнПред.Видимость(0);
Форма.кнПред2.Видимость(0);
Листинг отчета «БанковскиеДвижения»:
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с НачД по КонД;
|Филиал = Регистр.Банк.Филиал;
|БанковскийСчет = Регистр.Банк.БанковскийСчет;
|Поставщик = Регистр.Банк.Поставщик;
|док = Регистр.Банк.док;
|Наименование = Регистр.Банк.Авто;
|докк = Регистр.Банк.докк;
|Цена = Регистр.Банк.Цена;
|Сумма = Регистр.Банк.Сумма;
|Количество = Регистр.Банк.Количество;
|Группировка БанковскийСчет;
|Группировка Док;
|Группировка Наименование;
|Функция КоличествоКонОст = КонОст(Количество);
|Условие(Филиал в ВыбФ);
|Условие(Поставщик в ВыбПоставщик);
|Условие(докк в ВыбДокумент);
|"
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Таблиц = СоздатьОбъект("ТаблицаЗначений");
Таблиц.НоваяКолонка("сумма","Число",15,2,"Цена",10,,2);
Таблиц2 = СоздатьОбъект("ТаблицаЗначений");
Таблиц2.НоваяКолонка("суммак","Число",15,2,"Цена",10,,2);
Таблиц3 = СоздатьОбъект("ТаблицаЗначений");
Таблиц3.НоваяКолонка("суммак","Число",15,2,"Цена",10,,2);
Таблиц4 = СоздатьОбъект("ТаблицаЗначений");
Таблиц4.НоваяКолонка("суммак","Число",15,2,"Цена",10,,2);
Таблиц5 = СоздатьОбъект("ТаблицаЗначений");
Таблиц5.НоваяКолонка("сумма","Число",15,2,"Цена",10,,2);
Таблиц6 = СоздатьОбъект("ТаблицаЗначений");
Таблиц6.НоваяКолонка("сумма","Число",15,2,"Цена",10,,2);
i=0;
Пока Запрос.Группировка(1) = 1 Цикл
Таб.ВывестиСекцию("банкс");
Пока Запрос.Группировка(2) = 1 Цикл
Если Запрос.Поставщик.ЭтоГруппа()=1 Тогда
Иначе
Таб.ВывестиСекцию("Контр");
КонецЕсли;
Пока Запрос.Группировка(3) = 1 Цикл
Если Запрос.Наименование.ЭтоГруппа()=1 Тогда
Иначе
Если Запрос.Цена < 0 Тогда
Таблиц.НоваяСтрока();
Таблиц.Сумма = Запрос.Цена*Запрос.Количество;
Таблиц2.НоваяСтрока();
Таблиц2.Суммак = Запрос.Цена*Запрос.Количество;
Таблиц3.НоваяСтрока();
Таблиц3.Суммак = Запрос.Цена*Запрос.Количество;
Если ВыводАвто = 0 Тогда
Таб.ВывестиСекцию("Наим");
КонецЕсли;
Иначе
Таблиц5.НоваяСтрока();
Если Запрос.докк.Вид() = "ЗаявкаКлиента" Тогда
Таблиц5.Сумма = Запрос.Сумма;
Иначе
Таблиц5.Сумма = Запрос.Цена*Запрос.Количество;
КонецЕсли;
Таблиц6.НоваяСтрока();
Если Запрос.докк.Вид() = "ЗаявкаКлиента" Тогда
Таблиц6.Сумма = Запрос.Сумма;
Иначе
Таблиц6.Сумма = Запрос.Цена*Запрос.Количество;
КонецЕсли;
Таблиц4.НоваяСтрока();
Если Запрос.докк.Вид() = "ЗаявкаКлиента" Тогда
Таблиц4.Суммак = Запрос.Сумма;
Иначе
Таблиц4.Суммак = Запрос.Цена*Запрос.Количество;
КонецЕсли;
Если ВыводАвто = 0 Тогда
Таб.ВывестиСекцию("Наим2");
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Запрос.Поставщик.ЭтоГруппа()=1 Тогда
Иначе
Таб.ВывестиСекцию("итпост");
Таблиц2.УдалитьСтроки();
Таблиц4.УдалитьСтроки();
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("ИтогоБанк");
Таблиц3.УдалитьСтроки();
Таблиц6.УдалитьСтроки();
КонецЦикла;
Таб.ВывестиСекцию("Всего");
рез = Таблиц5.Итог("Сумма")-Таблиц.Итог("Сумма");
Если рез >= 0 Тогда
Таб.ВывестиСекцию("приб");
Иначе
Таб.ВывестиСекцию("расх");
КонецЕсли;
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Листинг отчета «ЗаявкиКлиентов»:
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с НачД по КонД;
|Наименование = Регистр.Заявки.Авто;
|Филиал = Регистр.Заявки.Филиал;
|Количество = Регистр.Заявки.Количество;
|Цена = Регистр.Заявки.Цена;
|Докум = Регистр.Заявки.Док;
|СуммаОпл = Регистр.Заявки.СуммаОпл;
|Поставщик = Регистр.Заявки.Поставщик;
|Долг = Регистр.Заявки.Долг;
|Группировка Докум;
|Группировка Наименование;
|Функция КоличествоКонОст = КонОст(Количество);
|Условие(Филиал в ВыбФ);
|Условие(Поставщик в ВыбПоставщик);
|"
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Таблиц = СоздатьОбъект("ТаблицаЗначений");
Таблиц.НоваяКолонка("сумма","Число",15,2,"Цена",10,,2);
Таблиц.НоваяКолонка("Кол","Число",15,2,"Цена",10,,2);
Пока Запрос.Группировка(1) = 1 Цикл
Если Запрос.Поставщик.ЭтоГруппа()=1 Тогда
Иначе
Таб.ВывестиСекцию("Группа");
Пока Запрос.Группировка(2) = 1 Цикл
Если Запрос.Наименование.ЭтоГруппа()=1 Тогда
Если ВыводАвто = 0 Тогда
Таб.ВывестиСекцию("Группа2");
КонецЕсли;
Иначе
Таблиц.НоваяСтрока();
Таблиц.Сумма = Запрос.Количество*Запрос.Цена;
Таблиц.Кол = Запрос.Количество;
КолШт = КолШт+Запрос.Количество;
Сумм = Сумм+(Запрос.Количество*Запрос.Цена);
Если ВыводАвто = 0 Тогда
Таб.ВывестиСекцию("Наименование");
КонецЕсли;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("итогпофирме");
КолШт=0;
Сумм=0;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Листинг отчета «Реализованные автомобили»:
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Наименование = Регистр.РеализАвт.Автомобили;
|Склад = Регистр.РеализАвт.Склад;
|Количество = Регистр.РеализАвт.Количество;
|Группировка Наименование;
|Группировка Склад;
|Функция КоличествоКонОст = КонОст(Количество);
|Условие(Наименование в ВыбНаименование);
|Условие(Склад в ВыбСклад);
|"
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Таблиц = СоздатьОбъект("ТаблицаЗначений");
Таблиц.НоваяКолонка("Количество","Число",15,2,"Цена",10,,2);
Пока Запрос.Группировка(1) = 1 Цикл
Таблиц.НоваяСтрока();
Таблиц.Количество = Запрос.Количество;
Если Запрос.Наименование.ЭтоГруппа()=1 Тогда
Таб.ВывестиСекцию("Группа");
Иначе
Таб.ВывестиСекцию("Наименование");
Если Фл_НеВыводитьСклады = 0 Тогда
Пока Запрос.Группировка(2) = 1 Цикл
Таб.ВывестиСекцию("Склад");
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
Дата добавления: 2015-07-10; просмотров: 63 | Нарушение авторских прав