Имя: Пароль:
1C
1С v8
Редактирование запроса
,
0 pin4er
 
18.04.13
12:49
Люди добрые помогите отредактировать запрос:
т.к. не получилось сделать через метод:присоединить
решил что лучше сделать чтобы все выводилось через запрос.
вот конструкция:
   ТаблицаПриход = Новый ТаблицаЗначений;
   ТаблицаПриход.Колонки.Добавить("Содержание");
   ТаблицаПриход.Колонки.Добавить("Сумма");
   ТаблицаРасход = ТаблицаПриход.СкопироватьКолонки();
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    навВзаиморасчетыСКонтрагентами.СодержаниеОперации,
                  |    СУММА(навВзаиморасчетыСКонтрагентами.Сумма) КАК Сумма,
                  |    навВзаиморасчетыСКонтрагентами.Регистратор
                  |ИЗ
                  |    РегистрНакопления.навВзаиморасчетыСКонтрагентами КАК навВзаиморасчетыСКонтрагентами
                  |ГДЕ
                  |    навВзаиморасчетыСКонтрагентами.Документ = &Документ
                  |
                  |СГРУППИРОВАТЬ ПО
                  |    навВзаиморасчетыСКонтрагентами.СодержаниеОперации,
                  |    навВзаиморасчетыСКонтрагентами.Регистратор";
   Запрос.УстановитьПараметр("Документ", Объект.Ссылка);
//    Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);
   Результат = Запрос.Выполнить().Выбрать();
   Пока Результат.Следующий() Цикл
       Если ТипЗнч(Результат.Регистратор) = Тип("ДокументСсылка.ПоступлениеВКассу") Или ТипЗнч(Результат.Регистратор) = Тип("ДокументСсылка.ПоступлениеНаСчет") Тогда
           НоваяСтрока = ТаблицаПриход.Добавить();
       //ИначеЕсли ТипЗнч(Результат.Ссылка) = Тип("") Тогда
       //    НоваяСтрока = ТаблицаРасход.Добавить();
       Иначе
           Продолжить;
       КонецЕсли;
       НоваяСтрока.Содержание = Результат.СодержаниеОперации;
       НоваяСтрока.Сумма = Результат.Сумма;            
   КонецЦикла;
   
   ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
   ТабДок.Вывести(ОбластьШапка);
   наибКоличествоСтрок = ?(ТаблицаПриход.Количество()>ТаблицаРасход.Количество(), ТаблицаПриход.Количество(), ТаблицаРасход.Количество());
   ИтогоПриход = 0;
   //ИтогоРасход = 0;
   Для Шаг = 0 По наибКоличествоСтрок - 1 Цикл
       ОбластьСтрока = макет.ПолучитьОбласть("Строка");
       ОбластьСтрока.Параметры.Приход = ?(Шаг<ТаблицаПриход.Количество(), ТаблицаПриход[Шаг].Содержание, "");
       ПриходСумма = ?(Шаг<ТаблицаПриход.Количество(), ТаблицаПриход[Шаг].Сумма, "");
       ОбластьСтрока.Параметры.ПриходСумма = ПриходСумма;
       //ОбластьСтрока.Параметры.Расход = ?(Шаг<ТаблицаРасход.Количество(), ТаблицаРасход[Шаг].Содержание, "");
       //РасходСумма = ?(Шаг<ТаблицаРасход.Количество(), -ТаблицаРасход[Шаг].Сумма, "");
       //ОбластьСтрока.Параметры.РасходСумма = РасходСумма;
       ИтогоПриход = ИтогоПриход + ?(ПриходСумма="", 0, ПриходСумма);
       //ИтогоРасход = ИтогоРасход + ?(РасходСумма = "", 0, РасходСумма);
       ТабДок.Вывести(ОбластьСтрока);
   КонецЦикла;
   
   ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
   ОбластьПодвал.Параметры.ПриходИтог = ИтогоПриход;
   //ОбластьПодвал.Параметры.РасходИтог = ИтогоРасход;
   
   ТабДок.Вывести(ОбластьПодвал);    
   



Это у меня поиск для текущего выбранного документа оплат введенных через поступления и оплаты в банки и кассы.

мне нужно добавить чтобы из текущего документа брались значения введенные в табличные поля и выводились в расход (правую часть)
не могу сообразить как правильно добавить в запрос (т.к. опыта маловато) и потом присвоить в результат..

щас выводит так: http://gifok.net/images/2013/04/17/d85M2.jpg
а при выполнении запроса должно будет так: http://gifok.net/images/2013/04/17/bNZ1U.jpg
1 Рэйв
 
18.04.13
12:51
(0)Зови специалиста.
2 zak555
 
18.04.13
12:51
а чего ты не делаешь запрос к регистрам ?
3 pin4er
 
18.04.13
13:25
(1) вот всегда так, лучше промолчать...
(2) сумма вводиться в поле как информационное и не где не фигурирует
а в какой она регистр попадает это при проведении документа тогда пытаться найти??
4 shuhard
 
18.04.13
13:27
(1) + 1
5 DexterMorgan
 
18.04.13
13:28
(0) Мне кажется, что после "За что" должен стоять вопросительный знак..
6 pin4er
 
18.04.13
13:31
(5) да это пока просто, дело то не в знаке вопроса, если я его поменяю, то на запрос это ни как не повлияет.

может что нить по существу есть еще подсказать?
7 DexterMorgan
 
18.04.13
13:36
(6) Давай так, ты сначала поставь знак вопроса, если не изменится ничего напишешь, ок?
8 DexterMorgan
 
18.04.13
13:36
(6) и скрин тоже сделай
9 pin4er
 
18.04.13
13:42
(8) Вот могу макет показать: http://gifok.net/images/2013/04/17/1Tx9p.jpg  
я туда хоть что могу написать, это область шапки

больше интересует как в область "Строка" сделать чтобы правая часть заполнялась
10 pin4er
 
18.04.13
16:07
Вообщем создал я регистр сведений чтобы туда сумма и услуга записывались
Далее вот этим запросом получается выбрать данные из таблицы текущего документа:

Запрос.Текст = "ВЫБРАТЬ
                  |    ТА_ЗаявкаНаТур.Услуга,
                  |    ТА_ЗаявкаНаТур.Сумма
                  |ИЗ
                  |    РегистрНакопления.ТА_ЗаявкаНаТур КАК ТА_ЗаявкаНаТур";

Результат = Запрос.Выполнить().Выгрузить();



Подскажите пожалуйста как правильно объединить с предыдущим получившийся и вывести на печать
что вместо  ***** поставить надо

   Запрос.УстановитьПараметр("Документ", Объект.Ссылка);
   Запрос.УстановитьПараметр("**************", Объект.Ссылка);
   Результат = Запрос.Выполнить().Выгрузить();
   Пока Результат.Следующий() Цикл
       Если ТипЗнч(Результат.Регистратор) = Тип("ДокументСсылка.ПоступлениеВКассу") Или ТипЗнч(Результат.Регистратор) = Тип("ДокументСсылка.ПоступлениеНаСчет") Тогда
           НоваяСтрока = ТаблицаПриход.Добавить();
       ИначеЕсли ТипЗнч(Результат.******************) = Тип("*****************************") Тогда
           НоваяСтрока = ТаблицаРасход.Добавить();
       Иначе
           Продолжить;
       КонецЕсли;
       НоваяСтрока.Содержание = Результат.СодержаниеОперации;
       НоваяСтрока.Сумма = Результат.Сумма;
11 pin4er
 
18.04.13
17:59
http://gifok.net/images/2013/04/18/sSUQ.jpg регистр заполнил так

может по другому надо еще чтото?
12 pin4er
 
19.04.13
14:29
up
AdBlock убивает бесплатный контент. 1Сергей