// снять выделение текущей строки в таблице можно только после ее отрисовки
	ПодключитьОбработчикОжидания("ОчиститьВыделенныеСтроки", 0.3, Истина);

Добавлено анонимнусом 11.12.2017 09:55:22

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


#Если МобильноеПриложениеКлиент Тогда
    НовВз = Новый ЗапускПриложенияМобильногоУстройства;
    НовВз.Действие = "ru.niko1c.kkm.action.RUN";
    НовВз.ДополнительныеДанные.Добавить("command", "getKkmStatus");
    НовВз.ДополнительныеДанные.Добавить("kkmAdress", ПолучитьАдресККМ());
    НовВз.

Добавлено анонимнусом 07.12.2017 12:51:02

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


дляАйтбеке

&НаСервере
Процедура ЗаписатьВБазуНаСервере()
	тзРазбор_зн = РеквизитФормыВЗначение("тзРазбор");
	спрРазбор = Справочники.Файлы.НайтиПоНаименованию("Разбор");
	Если НЕ спрРазбор.Пустая() Тогда
		обСпрРазбор = спрРазбор.ПолучитьОбъект();
		обСпрРазбор.ТекстХранилище = Новый ХранилищеЗначения(тз

Добавлено анонимнусом 04.12.2017 09:31:00

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


тест 1

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

Добавлено анонимнусом 30.11.2017 07:45:42

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


// Показывает цветной прямоугольник с заголовком и текстом
// Плашка скрывается при клике на нее, либо при истечении таймаута
// При наведении курсора мыши на плашку таймаут сбрасывается
//	
// Параметры:
//  ПараметрыПлашки - Структура:
// 							Заголовок 				- Строка - по умолчанию "(:-)"

Добавлено анонимнусом 27.11.2017 04:12:56

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


Текст = Новый ТекстовыйДокумент;
	Текст.Вывод = ИспользованиеВывода.Разрешить;
	Текст.ДобавитьСтроку("Логин;Ценовая группа;Процент скидки;Отображать");

Добавлено анонимнусом 23.11.2017 08:03:35

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


Если ГруппаОчередности.Станция <> глРабочееМесто.Станция И Не РезультатПоСтанции.БыстраяВыдача Тогда
	ИнтерфейсРМ.ВопросПредупреждение("Внимание!","Марка на приготовление отправлена на станцию " + ГруппаОчередности.Станция, "Блюдо будет приготовлено на станции " + ГруппаОчередности.Станция,"","ОК",

Добавлено анонимнусом 23.11.2017 05:46:10

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


Если ГруппаОчередности.Станция <> глРабочееМесто.Станция И Не РезультатПоСтанции.БыстраяВыдача Тогда
			ИнтерфейсРМ.ВопросПредупреждение("Внимание!","Марка на приготовление отправлена на станцию " + ГруппаОчередности.Станция, "Блюдо будет приготовлено на станции " + ГруппаОчередности.Станция,"","ОК

Добавлено анонимнусом 23.11.2017 05:39:12

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


какаха

Добавлено анонимнусом 22.11.2017 12:00:18

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


ВЫБРАТЬ ПЕРВЫЕ 1
	ас_КураторыСтатейДДС.ФЦФО КАК ФЦФО,
	ас_КураторыСтатейДДС.ДепартаментФЦФО КАК ДепартаментФЦФО
ИЗ
	РегистрСведений.ас_КураторыСтатейДДС КАК ас_КураторыСтатейДДС
ГДЕ
	ас_КураторыСтатейДДС.Статья = &СтатьяДДС
	И ас_КураторыСтатейДДС.Пользователь = &Пользователь
	И ас_КураторыС

Добавлено анонимнусом 22.11.2017 11:59:27

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


НУИД = Новый УникальныйИдентификатор(УИД);
	Т = Справочники.Контрагенты.ПолучитьСсылку(НУИД);
	Если ЗначениеЗаполнено(Т.ВерсияДанных) Тогда
		Запрос = Новый Запрос("ВЫБРАТЬ
		|УИД_ВнешнихСистем.Объект Как Объект
		|ИЗ
		|	РегистрСведений.УИД_ВнешнихСистем КАК УИД_ВнешнихСистем
		|ГДЕ
		|	УИД

Добавлено анонимнусом 21.11.2017 15:21:27

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


////////////////////////////////////////////////////////////////////////////////
//
// Функция ПеремещениеТоваров_Загрузить
//
// Описание:
// Загружает данные сайта по отбору.
// Если парметр Перезагружать = ложь, то ранее загруженные данные не обновляются
// Используется для загрузки/переза

Добавлено анонимнусом 20.11.2017 13:35:01

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


для Марата

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

Добавлено makfromkz 16.11.2017 10:11:11

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


ВЫБРАТЬ РАЗРЕШЕННЫЕ
	ВЫРАЗИТЬ(ПродажиОбороты.Регистратор КАК Документ.РасходнаяНакладная) КАК ДокументПоследнейПродажи,
	ПродажиОбороты.Контрагент КАК Контрагент
ПОМЕСТИТЬ ВТ_ПоследниеПродажи
ИЗ
	(ВЫБРАТЬ
		ПродажиОбороты.Контрагент КАК Контрагент,
		МАКСИМУМ(ПродажиОбороты.ПериодСекунда) КАК

Добавлено анонимнусом 16.11.2017 04:49:29

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


ВЫБРАТЬ
	ДобавленныеНаборы.Ссылка КАК Документ,
	ДобавленныеНаборы.НоменклатураНабора КАК НоменклатураНабора,
	ДобавленныеНаборы.ХарактеристикаНабора КАК ХарактеристикаНабора,
	ДобавленныеНаборы.Количество КАК Количество,
	NULL КАК КоличествоВозврат
ПОМЕСТИТЬ ПроданныеНаборы
{ВЫБРАТЬ
	Докуме

Добавлено анонимнусом 16.11.2017 04:48:24

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


ВЫБРАТЬ
	ДобавленныеНаборы.Ссылка КАК Документ,
	ДобавленныеНаборы.НоменклатураНабора КАК НоменклатураНабора,
	ДобавленныеНаборы.ХарактеристикаНабора КАК ХарактеристикаНабора,
	ДобавленныеНаборы.Количество КАК Количество,
	NULL КАК КоличествоВозврат
ПОМЕСТИТЬ ПроданныеНаборы
{ВЫБРАТЬ
	Докуме

Добавлено анонимнусом 16.11.2017 04:48:07

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


	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Контрагенты.Ссылка КАК Ссылка
		|ИЗ
		|	Справочник.Контрагенты КАК Контрагенты
		|ГДЕ
		|	Контрагенты.Ссылка В ИЕРАРХИИ(&Сетевые)";
	
	Запрос.УстановитьПараметр("Сетевые", Сетевые);
	
	РезультатЗапроса = Запрос.Выполнить().Выгрузить(

Добавлено анонимнусом 15.11.2017 14:37:39

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


Немодальный выбор перечисления

&НаКлиенте
Процедура ВыбратьПеречисление(Команда)
 
    ОповещениеОЗакрытии = Новый ОписаниеОповещения("ПослеВыбораПеречисления",
        ЭтотОбъект);
 
    ОткрытьФорму("Перечисление.ТвоеПеречисление.ФормаВыбора",,,,,,
        ОповещениеОЗакрытии);
 
КонецПроцедуры
 
&НаКлиенте
Процедур

Добавлено анонимнусом 15.11.2017 12:45:49

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



Функция СформироватьЗаявкиПоГрафикуОплаты() Экспорт
	//тут будем записывать созданные документы
	Результат = Новый Массив;
	
	//получаем все неоплаченные исходные документы по договору
	Запрос = Новый Запрос;
	Запрос.Текст = ПолучитьТексЗапросаПТУ();
	Запрос.УстановитьПараметр("ДатаНачала",

Добавлено анонимнусом 09.11.2017 14:34:49

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


1

х=Истина

Добавлено анонимнусом 01.11.2017 09:21:11

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