1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46

Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Регистратор",              ЭтотОбъект.Отбор.Регистратор.Значение);
	Запрос.УстановитьПараметр("НачалоПериода",            ЭтотОбъект.Отбор.Регистратор.Значение.МоментВремени());
	Запрос.УстановитьПараметр("КонецПериода",             ЭтотОбъект.Отбор.Регистратор.Значение.МоментВремени());

	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ТаблицаСоставаДокумента.Склад,
	|	ТаблицаСоставаДокумента.Номенклатура,
	|	ТаблицаСоставаДокумента.Качество,
	|	ТаблицаСоставаДокумента.ХарактеристикаНоменклатуры,
	|	ТаблицаСоставаДокумента.СерияНоменклатуры
	|ПОМЕСТИТЬ ВТ_Состава_Документа
	|ИЗ
	|	&ТаблицаСоставаДокумента КАК ТаблицаСоставаДокумента
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	СвободныеОстаткиОстаткиИОбороты.Склад,
	|	СвободныеОстаткиОстаткиИОбороты.Номенклатура,
	|	СвободныеОстаткиОстаткиИОбороты.Качество,
	|	СвободныеОстаткиОстаткиИОбороты.ХарактеристикаНоменклатуры,
	|	СвободныеОстаткиОстаткиИОбороты.СерияНоменклатуры,
	|	СвободныеОстаткиОстаткиИОбороты.КоличествоНачальныйОстаток,
	|	СвободныеОстаткиОстаткиИОбороты.КоличествоКонечныйОстаток
	|ИЗ
	|	РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты(
	|			&НачалоПериода,
	|			&КонецПериода,
	|			Запись,
	|			Движения,
	|			НЕ Номенклатура.ВидНоменклатуры = ЗНАЧЕНИЕ(Справочник.ВидыНоменклатуры.Продукция)
	|				И НЕ Номенклатура.ВестиУчетПоСериям
	|				И (Склад, Номенклатура, Качество, ХарактеристикаНоменклатуры, СерияНоменклатуры) В
	|					(ВЫБРАТЬ
	|						ВТ_СоставаДокумента.Склад,
	|						ВТ_СоставаДокумента.Номенклатура,
	|						ВТ_СоставаДокумента.Качество,
	|						ВТ_СоставаДокумента.ХарактеристикаНоменклатуры,
	|						ВТ_СоставаДокумента.СерияНоменклатуры
	|					ИЗ
	|						ВТ_Состава_Документа КАК ВТ_СоставаДокумента)) КАК СвободныеОстаткиОстаткиИОбороты
	|ГДЕ
	|	СвободныеОстаткиОстаткиИОбороты.Регистратор = &Регистратор
	|	И СвободныеОстаткиОстаткиИОбороты.КоличествоКонечныйОстаток < 0";

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8

Если ЗначениеЗаполнено(Подразделение.Родитель.Родитель.Родитель) Тогда
		ВышестоящееПодразделение = Подразделение.Родитель.Родитель.Родитель;
	ИначеЕсли ЗначениеЗаполнено(Подразделение.Родитель.Родитель) Тогда
		ВышестоящееПодразделение = Подразделение.Родитель.Родитель;
	ИначеЕсли ЗначениеЗаполнено(Подразделение.Родитель) Тогда
		ВышестоящееПодразделение = Подразделение.Родитель;
	Иначе ВышестоящееПодразделение = Подразделение;
	КонецЕсли;

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17

&НаКлиенте
Процедура ИмяФайла_ПроизводственнаяПрограммаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	ДиалогВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогВыборФайла.Фильтр = "Файлы Microsoft Excel (*.xls, *.xlsx, *.xlsm)|*.xls; *.xlsx; *.xlsm|Все файлы (*.*)|*.*";
	ДиалогВыборФайла.Показать(Новый ОписаниеОповещения("ИмяФайла_ПроизводственнаяПрограммаНачалоВыбораЗавершение", ЭтотОбъект, Новый Структура("ДиалогВыборФайла,ИмяФайла", ДиалогВыборФайла, Элемент.Имя)));
КонецПроцедуры

&НаКлиенте
Процедура ИмяФайла_ПроизводственнаяПрограммаНачалоВыбораЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
    
    ДиалогВыборФайла = ДополнительныеПараметры.ДиалогВыборФайла;
    
    Если (ВыбранныеФайлы <> Неопределено) Тогда
        ЭтаФорма[ДополнительныеПараметры.ИмяФайла] = ДиалогВыборФайла.ПолноеИмяФайла;
    КонецЕсли;

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

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35

&НаСервереБезКонтекста
Функция ПроверкаНаРукожопость1()
	
	ГруппаЮзеровРСЧ = Справочники.ГруппыПользователей.НайтиПоНаименованию("Отдел расчёта сотрудников");
	ЮзерыРСЧ = ГруппаЮзеровРСЧ.Состав.ВыгрузитьКолонку("Пользователь");
	
	ТекущийЮзер = Пользователи.ТекущийПользователь();
	//Если ТекущийЮзер = ЮзерыРСЧ.Найти(ТекущийЮзер) Тогда
	НайденныеЮзеры = ЮзерыРСЧ.Найти(ТекущийЮзер);
	Если (НайденныеЮзеры) <> Неопределено Тогда
		Возврат ИСТИНА;
	Иначе
		Возврат ЛОЖЬ;
	КонецЕсли
	
КонецФункции



&НаКлиенте
Процедура ПриОткрытииПосле(Отказ)
	
	//ПроверкаНаРукожопость(ЭтотОбъект);
	
	//Если РольДоступна("Расчетчик") Тогда
	//	Объект.Дата.Доступность = ЛОЖЬ;
	//КонецЕсли;
	
	Если ПроверкаНаРукожопость1() Тогда
		ЭтотОбъект.Элементы.Дата.Доступность = ЛОЖЬ;
		ЭтотОбъект.Элементы.Номер.Доступность = ЛОЖЬ;
		ЭтотОбъект.Элементы.НомерПриказа.Доступность = ЛОЖЬ;
	КонецЕсли;

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

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48

Функция РазрешеноМенятьЗаявкуПоПравилу9Утра()    
	
 	_Год    = Год  ( Объект.Дата);
	_Месяц  = Месяц( Объект.Дата);
	_День   = День ( Объект.Дата) + 1;
	
	Если _День = 29 Тогда
		Если _Месяц = 2 Тогда
			
			Если (_Год - 2016)%4 <> 0 Тогда	
				
				_Месяц = 3; _День = 1;
			КонецЕсли;  
		КонецЕсли;
	КонецЕсли;
	
	Если _День = 30 Тогда
		Если (_Месяц = 4) ИЛИ (_Месяц = 6) ИЛИ (_Месяц = 9) ИЛИ (_Месяц = 11) Тогда
			
			_Месяц = _Месяц + 1;
			_День  = 1;
		КонецЕсли;
	КонецЕсли;
	
	Если _День = 31 Тогда
		Если (_Месяц = 1) ИЛИ (_Месяц = 3) ИЛИ (_Месяц = 5) ИЛИ (_Месяц = 7) ИЛИ
			(_Месяц = 8)        Тогда
			
			_Месяц = _Месяц + 1;
			_День  = 1;
		ИначеЕсли _Месяц = 12  Тогда
			
			_Месяц = 1;
			_День  = 1; 
		КонецЕсли;
	КонецЕсли;
	
	_9УтраСледующегоДня = Дата( _Год , _Месяц, _День,9,0,0);
	
	Если ТекущаяДата() < _9УтраСледующегоДня Тогда
		
		Возврат Истина;
	Иначе
		
		Возврат Ложь;
	КонецЕсли;
	  
КонецФункции

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6

Функция ВнешнийОтчетВФоновомЗадании(НаимРеглОтч)
	...
		ИмяОбработки = ВнешниеОтчеты.Подключить(АдресВоВременномХранилище, , Ложь);
		Возврат ВнешниеОтчеты.Создать(ИмяОбработки, Истина);
	...
КонецФункции

1. 1
2. 2
3. 3
4. 4

Если Число(Сред(Строка(НачПериода),4,2)) <> Число(Сред(Строка(КонПериода),4,2)) Тогда
	Предупреждение("Нельзя брать период с разными месяцами!!!");
	Возврат;
КонецЕсли;

1. 1
2. 2
3. 3

Если Ложь Тогда
	Объ = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();	
КонецЕсли;

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11

ДанныеКальлулятора = ПолучитьДанныеКалькулятораПоЗаявке(Заявка);
	Расчет = ДанныеКальлулятора["ТЧ.Расчет"].Скопировать();
	
	ОстаточнаяПроцент = ДанныеКальлулятора["впОстаточнаяСтоимость"];
	ПроцентнаяСтавка = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["рпСтоимостьКапитала"];
	СрокЛизингаСтарыйИзКалькулятора = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["впСрокЛизинга"];
	
	ГибридСтавкаФинансированияКапитальнаяЧасть = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["ГибридСтавкаФинансированияКапитальнаяЧасть"];
	ГибридСтавкаФинансированияОстаточнаяЧасть = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["ГибридСтавкаФинансированияОстаточнаяЧасть"];
	ГибридФианансоваяМаржаКапитальнаяЧасть = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["ГибридФианансоваяМаржаКапитальнаяЧасть"];
	ГибридФианансоваяМаржаОстаточнаяЧасть = ПолучитьДанныеКалькулятораПоЗаявке(Заявка)["ГибридФианансоваяМаржаОстаточнаяЧасть"];

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11

ЗапросШК.Текст = "ВЫБРАТЬ
		|	НоменклатураКонтрагентов.Артикул КАК Артикул,
		|	НоменклатураКонтрагентов.Штрихкод КАК Штрихкод,
		|	НоменклатураКонтрагентов.Наименование КАК Наименование,
		|	НоменклатураКонтрагентов.СтавкаНДС КАК ШК_короб,
		|	НоменклатураКонтрагентов.ЕдиницаИзмеренияКод КАК ПечататьЕАНнаБатон
		|ИЗ
		|	РегистрСведений.НоменклатураКонтрагентовБЭД КАК НоменклатураКонтрагентов
		|ГДЕ
		|	НоменклатураКонтрагентов.Номенклатура = &Номенклатура
		|	И НоменклатураКонтрагентов.Владелец = &Владелец";