Автоматизация процесса складского учета в ООО "Альянс-Трейд"
Дипломная работа - Экономика
Другие дипломы по предмету Экономика
атегорияЦен;
КонецЕсли;
КонецЕсли;
Иначе
Договор = ПолучитьПустоеЗначение("Справочник.Договора");
КонецЕсли;
СтарыйКлиент = Клиент;
ОбновитьНадписи();
КонецПроцедуры// ВыборКлиента
//************************************************************
// НАЗНАЧЕНИЕ: вызывается по кнопке кнОснование.
Процедура ВыборОснования()
КонтекстДокумента = глВзятьКонтекст(Контекст);
ОткрытьФормуМодально("Обработка.ОснованиеДокумента", КонтекстДокумента);
ОбновитьНадписи();
ИспользоватьИнформациюОцене();
КонецПроцедуры// ВыборОснования
//************************************************************
// НАЗНАЧЕНИЕ: формирует таблицу для печати документа
Процедура Печать()
Перем ПорядокСекций;
Фирма.ИспользоватьДату(ДатаДок);
Таб= СоздатьОбъект("Таблица");
Если (ВариантРасчетаНалогов.СтавкаНПизНоменклатуры = 0) И
(глПроцентНП(ВариантРасчетаНалогов.СтавкаНП) = 0)
Тогда
ПечататьНП = Нет;
Иначе
ПечататьНП = Да;
КонецЕсли;
Если ПечататьНП =Да Тогда
ВертикальнаяСекция="С_НП";
Иначе
ВертикальнаяСекция="Без_НП";
КонецЕсли;
Таб.ВывестиСекцию("Шапка|"+ВертикальнаяСекция);
Ном= 1;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("Строка|"+ВертикальнаяСекция);
Ном= Ном + 1;
КонецЦикла;
Таб.ВывестиСекцию("Сумма_Итого|"+ВертикальнаяСекция);
Таб.ВывестиСекцию("В_том_числе|"+ВертикальнаяСекция);
Таб.ВывестиСекцию("Сумма_НДС|"+ВертикальнаяСекция);
Таб.ВывестиСекцию("Подвал|"+ВертикальнаяСекция);
Таб.Опции(0, 0, 0, 0, ПарСтрДок);
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать заказа","");
КонецПроцедуры// Печать
//************************************************************
// Предопределенные процедуры
//************************************************************
Процедура ВводНового(Скопирован)// Предопределенная процедура
Перем ВремКатегорияЦен;
глЗаполнитьШапку(Контекст, Скопирован);
Если Скопирован = 1 Тогда// копирование документа
Возврат;
КонецЕсли;
ДатаДок= РабочаяДата();
Склад= Константа.ОсновнойСклад;
Если ПустоеЗначение(глАктивныйДоговор) = 0 Тогда
Клиент= глАктивныйДоговор.Владелец;
Договор = глАктивныйДоговор;
СтарыйКлиент= Клиент;
КонецЕсли;
Если ПустоеЗначение(Клиент) = 1 Тогда
Клиент= Константа.ОсновнойПоставщик;
КонецЕсли;
Если ПустоеЗначение(Клиент) = 0 Тогда
КатегорияЦен = Клиент.КатегорияЦенПоставщика;
КонецЕсли;
Если ПустоеЗначение(КатегорияЦен) = 1 Тогда
КатегорияЦен= Автор.КатегорияЦен;
КонецЕсли;
Валюта= Константа.ОсновнаяВалютаЗакупки;
Если ПустоеЗначение(Валюта) = 1 Тогда
Валюта= Рубли;
КонецЕсли;
Дата_Курса= ДатаДок;
Курс= глКурсДляВалюты(Валюта, Дата_Курса);
ВыборКлиента();
Если ПустоеЗначение(ВариантРасчетаНалогов) = 1 Тогда
ВариантРасчетаНалогов= Константа.ОсновнойВариантРасчетаНалогов;
КонецЕсли;
ГлУстановкаНомера(Контекст);
КонецПроцедуры// ВводНового
//************************************************************
Процедура ВводНаОсновании(ДокОснование) //Предопределенная процедура
Предупреждение("Документ """ + ПредставлениеВида() + """ не вводят на основании других документов!");
СтатусВозврата(0);
КонецПроцедуры// ВводНаОсновании
//************************************************************
Процедура ПриОткрытии() // Предопределенная процедура
Парам = Форма.Параметр;
Если Лев(Парам, 13) = "ПЕЧАТЬСПРОСМ_" Тогда
Печать();
СтатусВозврата(0);
Возврат;
КонецЕсли;
НачальнаяДатаДокумента = ДатаДок;
Форма.Товар.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.Цена.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.Сумма.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.НДС.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.СтавкаНДС.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.СуммаНП.ВыполнятьФормулуТолькоПриИзменении(1);
Форма.СтавкаНП.ВыполнятьФормулуТолькоПриИзменении(1);
глПроверкаРазрешенияРедактирования(Контекст);
// Если открыли только на просмотр, то надо кнопки сделать недоступными
Если Форма.ТолькоПросмотр() = 1 Тогда
Форма.КнФирма.Доступность(0);
Форма.КнОснование.Доступность(0);
Форма.КнОплата.Доступность(0);
Форма.кнПодборПоКаталогу.Доступность(0);
Форма.кнПодборПоПрайсу.Доступность(0);
Форма.кнИзменить.Доступность(0);
Форма.кнЗаполнить.Доступность(0);
Форма.КнЗаписать.Доступность(0);
Форма.КнПровести.Доступность(0);
Форма.ОК.Доступность(0);
Форма.КнопкаПоУмолчанию("Закрыть");
Иначе
Форма.КнопкаПоУмолчанию("ОК");
КонецЕсли;
ОбновитьНадписи();
ИспользоватьИнформациюОцене();
СтараяДата= ДатаДок;
СтарыйКлиент= Клиент;
КонецПроцедуры
//************************************************************
Процедура ОбработкаПодбора(Выб, гКонтекстФормыПодбора)
ЗаголовокФормыПодбора = гКонтекстФормыПодбора.Форма.Заголовок();
Если Найти(ЗаголовокФормыПодбора, " (владелец - ") = 0 Тогда
глПриОбработкеПодбора(Выб, Контекст);
Иначе
СписокПараметровЦены=ПолучитьЗначениеИзПодбора("ОписаниеЦены()");
_цена=СписокПараметровЦены.Получить("Цена");
_валюта=СписокПараметровЦены.Получить("Валюта");
_единица=СписокПараметровЦены.Получить("Единица");
// пересчитаем цену в валюту документа
_це?/p>