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