Gordienko Serj

146
Рейтинг

Serj kuban



  •   Регистрация: 20.04.2009 (15 лет назад)

  •   Был(а) на сайте: 30.01.2016

Подписчики 1

Группы

Профессиональный разработчик

Рейтинг 146


Комментарии

DevПодарочные сертификаты#0 07.04.15 21:58
Учет подарочных сертификатов в 1С Розница 2.1
ОбменВыгрузка зарплаты в банк#0 09.10.13 15:37
Обработка позволяет выгрузить и сформировать файл txt и doc
DevУПП Оборотно Сальдовая Ведомость#15 22.06.09 13:45
(14) огромное спасибо щас поробую
DevУПП Оборотно Сальдовая Ведомость#12 22.06.09 7:34
люди вы где
DevУПП. Отчет производства за смену.#4 21.06.09 17:16
не не спишишь всеравно надо делать ОП а потом автоматом заполняешь требование-накладную
DevУПП Оборотно Сальдовая Ведомость#11 21.06.09 17:15
люди ну как можно зделать
DevУПП Оборотно Сальдовая Ведомость#10 21.06.09 16:29
(9) так совет советом но суть вопроса в том что мне ОСВ поменять надо, короче где мне вставить и главное что в этом запросеФункция СформироватьЗапрос(СтруктураПараметров) Экспорт

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("Счет", Счет);
Запрос.УстановитьПараметр("ДатаНач", ДатаНач);

Если ДатаКон <> '00010101000000' Тогда
Запрос.УстановитьПараметр("ДатаКон", КонецДня(ДатаКон));
Иначе
Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
КонецЕсли;

Запрос.УстановитьПараметр("Организация", Организация);

Если ПоСубсчетам Тогда
Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Счет КАК Счет,
| ПРЕДСТАВЛЕНИЕ(ОстаткиИОбороты.Счет) КАК СчетПредставление";
Иначе
Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| &Счет КАК Счет,
| ПРЕДСТАВЛЕНИЕ(&Счет) КАК СчетПредставление";
КонецЕсли;

Если ПоВалютам Тогда

Текст = Текст + ",
| ОстаткиИОбороты.Валюта КАК Валюта,
| ПРЕДСТАВЛЕНИЕ(ОстаткиИОбороты.Валюта) КАК ВалютаПредставление";

КонецЕсли;

Текст = Текст + БухгалтерскиеОтчеты.ВернутьЧастьЗапросаПоВыборкеПолейОборотноСальдоваяВедомость(СтруктураПараметров.МассивПоказателей, Истина,
Истина, Истина, РазвернутоеСальдо);

ТекстПоля = "";
ТекстИтоги = "";
ТекстПорядок = "";

Для каждого Измерение Из ПостроительОтчета.ИзмеренияСтроки Цикл

ТекстПоля = ТекстПоля + ", " + Измерение.ПутьКДанным + " КАК " + Измерение.Имя;
ТекстПоля = ТекстПоля + ", ПРЕДСТАВЛЕНИЕ(" + Измерение.ПутьКДанным + ") КАК " + Измерение.Имя + "Представление";

ТекстИтоги = ТекстИтоги + ", " + Измерение.Имя + БухгалтерскиеОтчеты.ПолучитьПоТипуИзмеренияПостроителяОтчетаСтрокуЗапроса(Измерение.ТипИзмерения);

КонецЦикла;

ОграниченияПоПостроителюОтчета = БухгалтерскиеОтчеты.ПолучитьТекстОграниченийПоПостроителюОтчета(ПостроительОтчета, Запрос);

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

ОграниченияПоПостроителюОтчета = " И " + ОграниченияПоПостроителюОтчета;

КонецЕсли;

Текст = Текст +
ТекстПоля + "
|
|ИЗ
| РегистрБухгалтерии."+ИмяРегистраБухгалтерии+".ОстаткиИОбороты(&ДатаНач, &ДатаКон, , , Счет В ИЕРАРХИИ (&Счет),
|, " + СтрокаОграниченийПоРеквизитам + ОграниченияПоПостроителюОтчета + ") КАК ОстаткиИОбороты
|";

ТекстИтогов = БухгалтерскиеОтчеты.ВернутьЧастьЗапросаПоВыборкеПолейОборотноСальдоваяВедомость(СтруктураПараметров.МассивПоказателей, Ложь,,, РазвернутоеСальдо);

Текст = Текст + Символы.ПС + "ИТОГИ" + Символы.ПС + Сред(ТекстИтогов, 2);

Текст = Текст + "
| ПО ОБЩИЕ";

Если ПоСубсчетам Тогда

Текст = Текст + ",
| Счет ИЕРАРХИЯ КАК Счет ";

КонецЕсли;

Если ПоВалютам Тогда

Текст = Текст + ",
| Валюта ";

КонецЕсли;

Текст = Текст + ТекстИтоги + "
|АВТОУПОРЯДОЧИВАНИЕ";

Запрос.Текст = Текст;

Возврат Запрос;

КонецФункции
чтобы количество умножалось на коэффициент из справочника Еденицы измерения
DevУПП Оборотно Сальдовая Ведомость#8 21.06.09 16:04
людиииииииии ну плиз не ужели из 76 просмотревших не один не может дать совет