ЗалогПоручители = СтрокаТаблицы.ЕстьЗалоги Или СтрокаТаблицы.ЕстьПоручители;
			
	Если СтрокаТаблицы.ВидПросрочки = Перечисления.ВидыПросрочкиДляРезервов.ЗаймыБезПросрочки Тогда
		Если СтрокаТаблицы.Реструктуризован Тогда
			ПроцентРезервов = ?(ЗалогПоручители,2,5);			
		Иначе
			ПроцентРезерв

Добавлено анонимнусом 18.10.2017 11:11:22

Просмотреть запись целиком.


Если СтрокаТаблицы.ВидПросрочки = Перечисления.ВидыПросрочкиДляРезервов.ЗаймыБезПросрочки Тогда
		Если СтрокаТаблицы.Реструктуризован Тогда
			Если СтрокаТаблицы.ЕстьЗалоги Или СтрокаТаблицы.ЕстьПоручители Тогда
				ПроцентРезервов = 2;
			Иначе
				ПроцентРезервов = 5;
			КонецЕсли;
		ИначеЕ

Добавлено анонимнусом 18.10.2017 09:37:32

Просмотреть запись целиком.


Соединение = СоздатьОбъект("V83.Application");
СтрокаСоединения = "FILE=""\\47-km1\c$\sup_kkm\"";Usr=""Администратор"";Pwd=""19643003""";
фРезультат = -1;
Попытка
	Соединение.Connect(СтрокаСоединения);
	фРезультат = Соединение.Тест(); // 1 - успех
Исключение
	фРезультат = -1;
КонецПопытки;

Добавлено анонимнусом 09.10.2017 07:56:04

Просмотреть запись целиком.


Если ПраваДоступа.Найти(Справочники.НаборыПравДоступа.ПустаяСсылка()) <> Неопределено Тогда
			ПраваДоступа.Очистить();
			Нов = ПраваДоступа.Добавить();
			Нов.МестоРеализации = Справочники.МестаРеализации.Мяснов;
			Нов.НаборПрав = Справочники.НаборыПравДоступа.НайтиПоНаименованию("Касса");
	

Добавлено анонимнусом 03.10.2017 13:26:00

Просмотреть запись целиком.


wat

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

Добавлено анонимнусом 03.10.2017 11:32:44

Просмотреть запись целиком.


хрень

ВЫБРАТЬ
	ВЫБОР
		КОГДА &ВариантПериода = 0
			ТОГДА КОНЕЦПЕРИОДА(ДОБАВИТЬКДАТЕ(ДополнительныеДанныеЗаказовПокупателей.ДатаДоставки, НЕДЕЛЯ, ВЫБОР
							КОГДА ДЕНЬНЕДЕЛИ(ДополнительныеДанныеЗаказовПокупателей.ДатаДоставки) <= 3
								ТОГДА -1
							ИНАЧЕ 0
						КОНЕЦ), НЕДЕЛЯ)
		КОГДА &В

Добавлено анонимнусом 27.09.2017 14:38:37

Просмотреть запись целиком.


ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТ_Контры
ИЗ
	Справочник.Контрагенты КАК Контрагенты
ГДЕ
	Контрагенты.ДатаСвидетельстваПоНДС < &Дата1
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ИЗ
	Справочни

Добавлено анонимнусом 26.09.2017 10:26:52

Просмотреть запись целиком.


ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТ_Контры
ИЗ
	Справочник.Контрагенты КАК Контрагенты
ГДЕ
	Контрагенты.ДатаСвидетельстваПоНДС < &Дата1
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ИЗ
	ВТ_Контры

Добавлено анонимнусом 26.09.2017 10:25:00

Просмотреть запись целиком.


Пример запроса

ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ПОМЕСТИТЬ ВТ_Контры
ИЗ
	Справочник.Контрагенты КАК Контрагенты
ГДЕ
	Контрагенты.ДатаСвидетельстваПоНДС < &Дата1
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
	Контрагенты.Ссылка КАК Ссылка
ИЗ
	Справочни

Добавлено makfromkz 26.09.2017 10:14:42

Просмотреть запись целиком.


ВЫБРАТЬ РАЗЛИЧНЫЕ
	ПлатежноеПоручениеРасшифровкаПлатежаБюджетирование.Ссылка КАК Ссылка,
	МАКСИМУМ(ПлатежноеПоручениеРасшифровкаПлатежаБюджетирование.СтатьяДвиженияДенежныхСредств) КАК СтатьяДДСТЧ,
	МАКСИМУМ(ПлатежноеПоручениеРасшифровкаПлатежаБюджетирование.АналитикаБДДС1) КАК АналитикаБДДС1,
	

Добавлено анонимнусом 26.09.2017 09:02:30

Просмотреть запись целиком.


ВЫБРАТЬ
	СписаниеТоваровТовары.Номенклатура.Артикул КАК Артикул,
	СписаниеТоваровТовары.Номенклатура.Код КАК Код,
	СписаниеТоваровТовары.Номенклатура.products_attributes_id КАК products_attributes_id,
	СписаниеТоваровТовары.Номенклатура,
	СписаниеТоваровТовары.СчетУчета,
	NULL КАК Цена,
	-Спи

Добавлено анонимнусом 25.09.2017 14:27:16

Просмотреть запись целиком.


132

ВЫБРАТЬ
	СписаниеТоваровТовары.Номенклатура.Артикул КАК Артикул,
	СписаниеТоваровТовары.Номенклатура.Код КАК Код,
	СписаниеТоваровТовары.Номенклатура.products_attributes_id КАК products_attributes_id,
	СписаниеТоваровТовары.Номенклатура,
	СписаниеТоваровТовары.СчетУчета,
	NULL КАК Цена,
	-Спи

Добавлено анонимнусом 25.09.2017 14:00:16

Просмотреть запись целиком.


Функция НайтиДатуОтгрузки(НаправлениеОтгрузки,Знач ВозможнаяДатаОтгрузки) Экспорт
	
	Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ
	                      |	МИНИМУМ(ГрафикДоставок.ВремяОтправления) КАК ВремяОтправления
	                      |ИЗ
	                      |	РегистрСведений.ГрафикДостав

Добавлено анонимнусом 22.09.2017 03:57:14

Просмотреть запись целиком.


Функция ВернутьВозможнуюДатуОтгрузки(Знач ДатаПлан,НаправлениеОтгрузки,Склад) Экспорт

	//Возврат Ложь;
	ТекДата = ОбщегоНазначенияСервер.ТекущаяДатаСервер();
	
	Если ДатаПлан < ТекДата Тогда //В случае, если это очень старая заявка - в план ставим текущую дату
		ДатаПлан = ТекДата;
	КонецЕсл

Добавлено анонимнусом 22.09.2017 03:56:45

Просмотреть запись целиком.


Функция ВернутьПланДатуОтгрузкиСамовывоз(ТекДатаВремя,ВыбСклад) Экспорт 
	
	//ЕКУ0000230, ВЛУ0006668
	
	НеобходимоеВремяСек = Час(ВыбСклад.ВремяОбработкиЗаявки)*3600+Минута(ВыбСклад.ВремяОбработкиЗаявки)*60+Секунда(ВыбСклад.ВремяОбработкиЗаявки);
	ПланДатаОтгрузки = ТекДатаВремя + НеобходимоеВр

Добавлено анонимнусом 22.09.2017 03:56:03

Просмотреть запись целиком.


		Если ТипДоставки = Перечисления.ТипДоставкиКлиент.Самовывоз Или ПараметрыСеанса.ТекущийФилиал.НеИспользоватьГрафикДоставок Тогда
			Возврат ВернутьПланДатуОтгрузкиСамовывоз(ОбщегоНазначенияСервер.ТекущаяДатаСервер(), Склад);
		КонецЕсли;
		
		ВозможнаяДатаОтгрузки = ВернутьВозможнуюДатуОтгрузк

Добавлено анонимнусом 22.09.2017 03:54:14

Просмотреть запись целиком.


UPDATE customer_store SET shipment_guid = 'ecc923e3-fa9e-11e3-8be1-002590ab00a9' WHERE id_1c = '000000004';
UPDATE customer_store SET shipment_guid = 'ecc923e3-fa9e-11e3-8be1-002590ab00a9' WHERE id_1c = '000000005';
UPDATE customer_store SET shipment_guid = '24a6fa94-7a0d-11e1-81ec-001e6710fa6c' W

Добавлено анонимнусом 21.09.2017 04:27:13

Просмотреть запись целиком.


отчет

ВЫБРАТЬ
	хсИсторияСтатусовЗаказовИМ.ЗаказКлиента.Менеджер КАК ЗаказКлиентаМенеджер,
	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ВЫБОР
			КОГДА хсИсторияСтатусовЗаказовИМ.Статус = ЗНАЧЕНИЕ(Перечисление.хсСтатусыЗаказовИМ.ВыданКлиенту)
				ТОГДА хсИсторияСтатусовЗаказовИМ.ЗаказКлиента
		КОНЕЦ) КАК КоличествоЗакрытыхЗа

Добавлено анонимнусом 19.09.2017 18:55:04

Просмотреть запись целиком.


ВЫБРАТЬ
	ВЫБОР
		КОГДА &ВариантПериода = 0
			ТОГДА КОНЕЦПЕРИОДА(ДОБАВИТЬКДАТЕ(ДополнительныеДанныеЗаказовПокупателей.ДатаДоставки, НЕДЕЛЯ, ВЫБОР
							КОГДА ДЕНЬНЕДЕЛИ(ДополнительныеДанныеЗаказовПокупателей.ДатаДоставки) <= 3
								ТОГДА -1
							ИНАЧЕ 0
						КОНЕЦ), НЕДЕЛЯ)
		КОГДА &В

Добавлено анонимнусом 19.09.2017 18:54:41

Просмотреть запись целиком.


ВЫБРАТЬ РАЗРЕШЕННЫЕ
	ЗаявкаНаОперацию.Ссылка КАК Заявка,
	ЗаявкаНаОперацию.Контрагент,
	ЗаявкаНаОперацию.ДоговорКонтрагента,
	ЗаявкаНаОперацию.СуммаДокумента КАК Сумма,
	ЗаявкаНаОперацию.ДатаНачала КАК ЖелаемаяДатаОплаты,
	ЗаявкаНаОперацию.КрайняяДата КАК КрайняяДатаОплаты
ПОМЕСТИТЬ Заявки
И

Добавлено анонимнусом 18.09.2017 14:30:30

Просмотреть запись целиком.