ВЫБРАТЬ
	ЖурналПроводокЕПСБУДвиженияССубконто.Регистратор КАК Регистратор,
	Выразить(ЖурналПроводокЕПСБУДвиженияССубконто.СубконтоКт1 КАК Справочник.Договоры) КАК СубконтоКт1

ПОМЕСТИТЬ ВТОбороты
ИЗ
	РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ДвиженияССубконто(
			&НачалоПериода,
			&КонецПериод

Будет выполняться 60 секунд, если убрать колонку СубконтоКт1 - 10 секунд

Добавлено анонимнусом 14.06.2018 13:19:03

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


Запись в рег. сведений

//{[+](фрагмент добавлен), КвитЛ 23.04.2018 11:45:56
	// запись в регистр МД_МинОптОстатки
	Если ЭтоНовый() Тогда
		Если мНаборЗаписейОстатки.Количество() = 0 Тогда
			ЗаписьНабора 				= мНаборЗаписейОстатки.Добавить();
			ЗаписьНабора.Период			= '19800101';
			ЗаписьНабора.Номенклатура	= Ссыл

Добавлено анонимнусом 14.06.2018 07:25:48

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


ВЫБРАТЬ
	ЗаявкиВРеестрахПлатежей.ЗаявкаНаОперацию КАК ЗаявкаНаОперацию,
	ЗаявкиВРеестрахПлатежей.ИдентификаторПозиции КАК ИдентификаторПозиции
ПОМЕСТИТЬ ВТ_ЗаявкиВРеестрахПлатежей
ИЗ
	РегистрСведений.ЗаявкиВРеестрахПлатежей КАК ЗаявкиВРеестрахПлатежей
ГДЕ
	ЗаявкиВРеестрахПлатежей.РеестрПлатеж

Добавлено анонимнусом 12.06.2018 19:57:14

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


&НаСервере
Функция ПечатьКолонкамиНаСервере()
     
    Обработка =  РеквизитФормыВЗначение("Объект");
    Макет = Обработка.ПолучитьМакет("Шаблон_480х166_Товары");  
    Область = Макет.ПолучитьОбласть("Область|Область1");
     
    табДок = Новый ТабличныйДокумент;  
    КоличествоКолонок 

Добавлено анонимнусом 11.06.2018 20:34:31

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


Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    // Подготавливаем таблицу значений    
    ДоходДоллар = ДоходДолларПолучить();
    РасходГривна = РасходГривнаПолучить();
    РасходДоллар = РасходДолл

Добавлено анонимнусом 11.06.2018 20:28:25

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


ВычислитьВыражение("Долг", , , "Последняя")

Добавлено анонимнусом 11.06.2018 20:26:02

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


&НаКлиенте
Процедура ПриОткрытии(Отказ)
//пдф
ПутьКФайлуНаДискеПДФ = ЗагрузитьПоУРЛ_ТТН(АдресСтраницы);
Если ЗначениеЗаполнено(ПутьКФайлуНаДискеПДФ) Тогда
//изображение
ПутьКФайлуНаДискеИзображение = ПереобразоватьПДФ_в_Изображение(ПутьКФайлуНаДискеПДФ);
ЗаполнитьТабличныйДокумент(ПутьКФайлуН

Добавлено анонимнусом 11.06.2018 20:17:09

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


                                                                                                                                                                                                                             
Процедура Р610пАсЯ7Д(Контр,СальдоК,ПолучитьСальдоК=0) 
	ТекстКонтрагент = ?(

Добавлено анонимнусом 01.06.2018 17:59:40

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



Процедура ПЦ610пАсЯ7(ТекстЗапроса,НазвПерем,НазвПеремРег) 
	ТекстЗапроса = ТекстЗапроса + РазделительСтрок;
	ТекстЗапроса = ТекстЗапроса + НазвПерем + "= Регистр.Покупатели."+НазвПеремРег+","+ "Регистр.Поставщики."+НазвПеремРег+";";
КонецПроцедуры


Процедура Р610пАсЯ7Д(Контр,СальдоК,Получит

Добавлено анонимнусом 01.06.2018 16:42:12

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



Процедура ПЦ610пАсЯ7(ТекстЗапроса,НазвПерем,НазвПеремРег) 
	ТекстЗапроса = ТекстЗапроса + РазделительСтрок;
	ТекстЗапроса = ТекстЗапроса + НазвПерем + "= Регистр.Покупатели."+НазвПеремРег+","+ "Регистр.Поставщики."+НазвПеремРег+";";
КонецПроцедуры


Процедура Р610пАсЯ7Д(Контр,СальдоК,Получит

Добавлено анонимнусом 01.06.2018 16:42:00

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


Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	Агрегаты.КодАгрегата КАК КодАгрегата,
	|	Агрегаты.КлючСтроки КАК КлючСтроки
	|ПОМЕСТИТЬ Агрегаты
	|ИЗ
	|	&Агрегаты КАК Агрегаты
	|;
	|
	|////////////////////////////////////////////////////////////////////////////////
	|ВЫБРАТЬ
	|	Влож

Добавлено анонимнусом 01.06.2018 10:51:59

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


                                                                                                                                                                                                                     Перем НашаОрг;
Перем ТКонтрагент, ТДоговор;

///////////////////////////////////////

Добавлено анонимнусом 31.05.2018 17:23:27

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


	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать2)
	|Период с НачДата по КонДата;
	|
	|ЮрЛицо 	= Регистр.Покупатели.Фирма.ЮрЛицо, Регистр.Поставщики.Фирма.ЮрЛицо;
	|Контрагент = Регистр.Покупатели.Договор.Владелец, Регистр.Поставщик

Добавлено анонимнусом 30.05.2018 16:41:28

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


mr46a8epcl

Добавлено анонимнусом 26.05.2018 07:40:02

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


https://tengrinews.kz/medicine/vyiyavlen-nadejnyiy-sposob-izbejat-prejdevremennoy-smerti-344412/amp/#click=https://t.co/VFN2YdjVpo

Добавлено анонимнусом 17.05.2018 05:39:46

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


ВЫБРАТЬ
    ПродажиОбороты.Номенклатура,
    ПродажиОбороты.Период,
    ПродажиОбороты.КоличествоОборот,
    ПродажиОбороты.СтоимостьОборот
ПОМЕСТИТЬ Продажи
ИЗ
    РегистрНакопления.Продажи.Обороты(, , Секунда, Номенклатура В (&СписокНоменклатуры)) КАК ПродажиОбороты
;

//////////////////

Добавлено Бешеный четверг 08.05.2018 14:50:47

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


ВЫБРАТЬ
	ПродажиПоФамильно.Период,
	ПродажиПоФамильно.Регистратор,
	ВЫБОР
		КОГДА ПродажиПоФамильно.Количество = 0
			ТОГДА 0
		ИНАЧЕ ПродажиПоФамильно.Сумма / ПродажиПоФамильно.Количество
	КОНЕЦ КАК Цена,
	ПродажиПоФамильно.Сотрудник,
	ПродажиПоФамильно.Количество КАК Количество,
	Продажи

Добавлено Бешеный четверг 08.05.2018 14:21:08

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


path = re.match(r'(\d+)05(+\d)','C:\Users\\Documents\SC\LOG') 

Добавлено анонимнусом 06.05.2018 15:21:00

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


й=1;

Добавлено анонимнусом 05.05.2018 09:10:14

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


Перем ТаблицаКоординатФлажки Экспорт, СтруктураНастроек Экспорт;                     

Функция СоздатьТекстHTML()											Экспорт		//Основная процедура созадния текста
	
	ТаблицаКоординатФлажки.Сортировать("НомерСтроки");

Добавлено анонимнусом 30.04.2018 14:13:52

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